Made matching reset accounts

This commit is contained in:
2021-01-26 16:25:07 -08:00
parent dae4e196c1
commit 826dd6709e

View File

@@ -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}]