notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixes

Browse Source
This commit is contained in:
Bryce Covert
2022-12-19 12:24:28 -08:00
parent 46fbd4fab6
commit a811ff697a
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/ledger.clj
View File

@@ -35,7 +35,7 @@
:invoice/payment '[*]
:invoice/status '[:db/ident]
:invoice/import-status '[:db/ident]}] id)
credit-invoice? (< (:invoice/total entity) 0.0)]
credit-invoice? (< (:invoice/total entity 0.0) 0.0)]
(when-not (or
(not (:invoice/total entity))
(= true (:invoice/exclude-from-ledger entity))
@@ -188,17 +188,20 @@
(defn touch-transaction [e]
@(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]])
@(d/transact conn [{:db/id "datomic.tx"
:db/doc "touching transaction to update ledger"}
(entity-change->ledger (d/db conn)
[:transaction e])]))
(when-let [change (entity-change->ledger (d/db conn)
[:transaction e])]
@(d/transact conn [{:db/id "datomic.tx"
:db/doc "touching transaction to update ledger"}
change])))
(defn touch-invoice [e]
@(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]])
@(d/transact conn [{:db/id "datomic.tx"
:db/doc "touching invoice to update ledger"}
(entity-change->ledger (d/db conn)
[:invoice e])]))
(when-let [change (entity-change->ledger (d/db conn)
[:invoice e])]
@(d/transact conn [{:db/id "datomic.tx"
:db/doc "touching invoice to update ledger"}
change])))
(defn mismatched-transactions
([]
(mismatched-transactions (c/to-date (t/minus (t/now) (t/days 7)))