can now match debits.

This commit is contained in:
Bryce Covert
2019-04-23 22:36:13 -07:00
parent f24a782572
commit 89b31e521e
2 changed files with 5 additions and 3 deletions

View File

@@ -269,7 +269,7 @@
(map (fn [i]
(str (:invoice/invoice-number i) "(" (invoice-amounts (:db/id i)) ")"))
invoices)))
:payment/status :payment-status/cleared)]
:payment/status :payment-status/pending)]
(-> []
(conj payment)
(into (invoice-payments invoices invoice-amounts)))))

View File

@@ -93,8 +93,10 @@
(:db/id (:payment/vendor check)))
:location (when check
"A")
:account (when check
(:db/id (a/get-account-by-numeric-code-and-sets 2110 ["default"])))
:accounts (when check
[#:transaction-account {:account (:db/id (a/get-account-by-numeric-code-and-sets 2110 ["default"]))
:location "A"
:amount (Math/abs (double amount))}])
})]