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

fix broken ledger issue

Browse Source
This commit is contained in:
Bryce Covert
2022-07-21 16:44:50 -07:00
parent a9a07f3801
commit 8a078e0086
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -464,11 +464,11 @@
(statsd/gauge "data.mismatched_invoices" (count (mismatched-invoices)))) (statsd/gauge "data.mismatched_invoices" (count (mismatched-invoices))))
(statsd/gauge "data.mismatched_invoices" 0.0))) (statsd/gauge "data.mismatched_invoices" 0.0)))
(log/info "Attempting to fix transactions that are in the ledger but debits/credits don't add up") (log/info "Attempting to fix transactions that are in the ledger but debits/credits don't add up")
(let [unbalanced-invoices (unbalanced-invoices)] (let [unbalanced-is (unbalanced-invoices)]
(if (seq unbalanced-invoices) (if (seq unbalanced-is)
(do (do
(log/warn (count unbalanced-invoices) " invoices exist but don't have matching debits/credits ") (log/warn (count unbalanced-is) " invoices exist but don't have matching debits/credits ")
(doseq [m unbalanced-invoices] (doseq [m unbalanced-is]
(touch-invoice m)) (touch-invoice m))
(statsd/gauge "data.unbalanced_invoices" (count (unbalanced-invoices)))) (statsd/gauge "data.unbalanced_invoices" (count (unbalanced-invoices))))
(statsd/gauge "data.unbalanced_invoices" 0.0))) (statsd/gauge "data.unbalanced_invoices" 0.0)))