32 lines
1.2 KiB
Clojure
32 lines
1.2 KiB
Clojure
(ns auto-ap.jobs.close-auto-invoices
|
|
(:gen-class)
|
|
(:require
|
|
[auto-ap.datomic :refer [conn]]
|
|
[auto-ap.jobs.core :refer [execute]]
|
|
[auto-ap.time :as time]
|
|
[clj-time.coerce :as coerce]
|
|
[auto-ap.logging :as alog]
|
|
[datomic.api :as dc]))
|
|
|
|
(defn close-auto-invoices []
|
|
(let [invoices-to-close (dc/q {:find ['?e]
|
|
:in ['$ '?today]
|
|
:where ['[?e :invoice/scheduled-payment ?d]
|
|
'[?e :invoice/status :invoice-status/unpaid]
|
|
'[(<= ?d ?today)]]}
|
|
(dc/db conn) (coerce/to-date (time/local-now)))]
|
|
(alog/info ::closing :count (count invoices-to-close))
|
|
@(dc/transact conn (some->> invoices-to-close
|
|
seq
|
|
|
|
(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 [& _]
|
|
(execute "close-auto-invoices" close-auto-invoices))
|