notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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/payment '[*]
:invoice/status '[:db/ident] :invoice/status '[:db/ident]
:invoice/import-status '[:db/ident]}] id) :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 (when-not (or
(not (:invoice/total entity)) (not (:invoice/total entity))
(= true (:invoice/exclude-from-ledger entity)) (= true (:invoice/exclude-from-ledger entity))
@@ -188,17 +188,20 @@
(defn touch-transaction [e] (defn touch-transaction [e]
@(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]]) @(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]])
@(d/transact conn [{:db/id "datomic.tx" (when-let [change (entity-change->ledger (d/db conn)
:db/doc "touching transaction to update ledger"} [:transaction e])]
(entity-change->ledger (d/db conn) @(d/transact conn [{:db/id "datomic.tx"
[:transaction e])])) :db/doc "touching transaction to update ledger"}
change])))
(defn touch-invoice [e] (defn touch-invoice [e]
@(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]]) @(d/transact conn [[:db/retractEntity [:journal-entry/original-entity e]]])
@(d/transact conn [{:db/id "datomic.tx" (when-let [change (entity-change->ledger (d/db conn)
:db/doc "touching invoice to update ledger"} [:invoice e])]
(entity-change->ledger (d/db conn) @(d/transact conn [{:db/id "datomic.tx"
[:invoice e])])) :db/doc "touching invoice to update ledger"}
change])))
(defn mismatched-transactions (defn mismatched-transactions
([] ([]
(mismatched-transactions (c/to-date (t/minus (t/now) (t/days 7))) (mismatched-transactions (c/to-date (t/minus (t/now) (t/days 7)))