kind of applies rules.
This commit is contained in:
@@ -133,7 +133,10 @@
|
||||
(fn [transaction]
|
||||
(let [matching-rules (filter #(rule-applies? transaction %) rules)]
|
||||
(if-let [top-match (first matching-rules)]
|
||||
(assoc transaction :transaction/approval-status (:transaction-rule/transaction-approval-status (first matching-rules)))
|
||||
(assoc transaction
|
||||
:transaction/approval-status (:transaction-rule/transaction-approval-status top-match)
|
||||
:transaction/vendor (:db/id (:transaction-rule/vendor top-match))
|
||||
)
|
||||
transaction)))))
|
||||
|
||||
(defn manual-import [manual-transactions]
|
||||
|
||||
Reference in New Issue
Block a user