More background task cleanup

2022-09-23 12:09:39 -07:00
parent e201a8b03e
commit ed759bac31
19 changed files with 102 additions and 179 deletions
--- a/src/clj/auto_ap/jobs/vendor_usages.clj
+++ b/src/clj/auto_ap/jobs/vendor_usages.clj
@@ -0,0 +1,33 @@
+(ns auto-ap.jobs.vendor-usages
+  (:gen-class)
+  (:require
+   [auto-ap.datomic :refer [conn]]
+   [auto-ap.jobs.core :refer [execute]]
+   [datomic.api :as d]))
+
+(defn refresh-vendor-usages []
+  (->> {:query {:find  ['?v '?c '(count ?e)]
+                :in    ['$]
+                :where ['[?v :vendor/name]
+                        '(or-join [?v ?c ?e]
+                                  (and 
+                                    [?e :invoice/vendor ?v]
+                                    [?e :invoice/client ?c])
+                                  (and
+                                    [?e :transaction/vendor ?v]
+                                    [?e :transaction/client ?c])
+                                  (and
+                                    [?e :journal-entry/vendor ?v]
+                                    [?e :journal-entry/client ?c]))]}
+        :args  [(d/db conn)]}
+       (d/query)
+       (map (fn [[v c cnt]]
+              #:vendor-usage {:vendor v
+                              :client c
+                              :key    (str v "-" c)
+                              :count  cnt}))
+       (d/transact conn)
+       deref))
+
+(defn -main [& _]
+  (execute "vendor-usages" refresh-vendor-usages))