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

Makes logging unified

Browse Source
This commit is contained in:
Bryce
2023-10-30 12:35:18 -07:00
parent f0a7c378f7
commit 930b900849
44 changed files with 485 additions and 555 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/clj/auto_ap/jobs/close_auto_invoices.clj
View File

@@ -5,7 +5,7 @@
[auto-ap.jobs.core :refer [execute]]
[auto-ap.time :as time]
[clj-time.coerce :as coerce]
[clojure.tools.logging :as log]
[auto-ap.logging :as alog]
[datomic.api :as dc]))
(defn close-auto-invoices []
@@ -15,15 +15,16 @@
'[?e :invoice/status :invoice-status/unpaid]
'[(<= ?d ?today)]]}
(dc/db conn) (coerce/to-date (time/local-now)))]
(log/info "Closing " (count invoices-to-close) "scheduled invoices")
(alog/info ::closing :count (count invoices-to-close))
@(dc/transact conn (some->> invoices-to-close
seq
seq
(mapv (fn [[i]] {:db/id i
:invoice/outstanding-balance 0.0
:invoice/status :invoice-status/paid}))
))
(log/info "Closed " (count invoices-to-close) "scheduled invoices")))
(mapv (fn [[i]] {:db/id i
:invoice/outstanding-balance 0.0
:invoice/status :invoice-status/paid}))
))
(alog/info ::closed :count (count invoices-to-close))))
(defn -main [& _]