can now match debits.
This commit is contained in:
@@ -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)))))
|
||||
|
||||
@@ -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))}])
|
||||
})]
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user