This commit is contained in:
Bryce Covert
2019-04-02 19:09:40 -07:00
parent 4e72c00895
commit a50239974b
4 changed files with 29 additions and 3 deletions

View File

@@ -11,7 +11,7 @@
[auto-ap.datomic.clients :as d-clients]
[auto-ap.datomic.bank-accounts :as d-bank-accounts]
[auto-ap.datomic :refer [uri remove-nils]]
[auto-ap.utils :refer [by]]
[auto-ap.utils :refer [by dollars-0?]]
[auto-ap.numeric :refer [num->words]]
[config.core :refer [env]]
[auto-ap.time :refer [parse normal-date iso-date local-now]]
@@ -368,7 +368,7 @@
[[:db.fn/retractEntity (:db/id x)]
{:db/id (:db/id invoice)
:invoice/outstanding-balance new-balance
:invoice/status (if (< -0.001 new-balance 0.001)
:invoice/status (if (dollars-0? new-balance)
(:invoice/status invoice)
:invoice-status/unpaid)}]))
(:payment/invoices check))