can now match debits.
This commit is contained in:
@@ -269,7 +269,7 @@
|
|||||||
(map (fn [i]
|
(map (fn [i]
|
||||||
(str (:invoice/invoice-number i) "(" (invoice-amounts (:db/id i)) ")"))
|
(str (:invoice/invoice-number i) "(" (invoice-amounts (:db/id i)) ")"))
|
||||||
invoices)))
|
invoices)))
|
||||||
:payment/status :payment-status/cleared)]
|
:payment/status :payment-status/pending)]
|
||||||
(-> []
|
(-> []
|
||||||
(conj payment)
|
(conj payment)
|
||||||
(into (invoice-payments invoices invoice-amounts)))))
|
(into (invoice-payments invoices invoice-amounts)))))
|
||||||
|
|||||||
@@ -93,8 +93,10 @@
|
|||||||
(:db/id (:payment/vendor check)))
|
(:db/id (:payment/vendor check)))
|
||||||
:location (when check
|
:location (when check
|
||||||
"A")
|
"A")
|
||||||
:account (when check
|
:accounts (when check
|
||||||
(:db/id (a/get-account-by-numeric-code-and-sets 2110 ["default"])))
|
[#: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