Made matching reset accounts
This commit is contained in:
@@ -139,11 +139,12 @@
|
|||||||
:transaction/payment payment-id
|
:transaction/payment payment-id
|
||||||
:transaction/approval-status :transaction-approval-status/approved
|
:transaction/approval-status :transaction-approval-status/approved
|
||||||
:transaction/vendor vendor
|
:transaction/vendor vendor
|
||||||
:transaction/location "A"
|
:transaction/location "A")
|
||||||
:transaction/accounts [#:transaction-account
|
(conj [:reset (:db/id transaction) :transaction/accounts
|
||||||
{:account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
|
[#:transaction-account
|
||||||
:location "A"
|
{:account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
|
||||||
:amount (Math/abs (:transaction/amount transaction))}]))))
|
:location "A"
|
||||||
|
:amount (Math/abs (:transaction/amount transaction))}]]))))
|
||||||
|
|
||||||
(defn extract-check-number [{{description-original :original} :description}]
|
(defn extract-check-number [{{description-original :original} :description}]
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user