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

sysco fix

Browse Source
This commit is contained in:
Bryce Covert
2022-09-28 09:05:46 -07:00
parent 4042f367a7
commit d6d1dfaf22
1 changed files with 2 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/jobs/sysco.clj
View File

@@ -118,10 +118,6 @@
(map :key))] (map :key))]
(statsd/event {:title "Sysco import started"
:text (format "Found %d sysco invoice to import: %s" (count keys) (pr-str keys))
:priority :low}
nil)
(log/infof "Found %d sysco invoice to import: %s" (count keys) (pr-str keys)) (log/infof "Found %d sysco invoice to import: %s" (count keys) (pr-str keys))
(let [transaction (->> keys (let [transaction (->> keys
@@ -149,12 +145,9 @@
println)})) println)}))
[]))))) [])))))
result (transact-with-ledger transaction {:user/name "sysco importer" :user/role "admin"})] result (transact-with-ledger transaction {:user/name "sysco importer" :user/role "admin"})]
(log/infof "Imported %d invoices" (/ (count (:tempids result)) 2))) #_(log/infof "Imported %d invoices" (/ (count (:tempids result)) 2)))
(doseq [k keys] (doseq [k keys]
(mark-key k)) (mark-key k))))
(statsd/event {:title "Sysco import ended"
:text "Sysco completed"
:priority :low} nil)))
(defn -main [& _] (defn -main [& _]