(cloud) deleting old approach
This commit is contained in:
@@ -500,7 +500,7 @@
|
||||
(let [invoice (:invoice-payment/invoice x)
|
||||
new-balance (+ (:invoice/outstanding-balance invoice)
|
||||
(:invoice-payment/amount x))]
|
||||
[[:db.fn/retractEntity (:db/id x)]
|
||||
[[:db/retractEntity (:db/id x)]
|
||||
`(upsert-invoice ~{:db/id (:db/id invoice)
|
||||
:invoice/outstanding-balance new-balance
|
||||
:invoice/status (if (dollars-0? new-balance)
|
||||
|
||||
Reference in New Issue
Block a user