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

minor

Browse Source
This commit is contained in:
Bryce Covert
2022-12-04 14:49:41 -08:00
parent 632d4bb709
commit 586159f8e0
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/jobs/register_invoice_import.clj
View File

@@ -8,7 +8,7 @@
[clojure.string :as str] [clojure.string :as str]
[clj-time.coerce :as coerce] [clj-time.coerce :as coerce]
[auto-ap.time :as atime] [auto-ap.time :as atime]
[auto-ap.datomic :refer [conn]] [auto-ap.datomic :refer [conn audit-transact]]
[clojure.data.csv :as csv] [clojure.data.csv :as csv]
[clojure.java.io :as io] [clojure.java.io :as io]
[config.core :refer [env]] [config.core :refer [env]]
@@ -27,7 +27,7 @@
(let [db (d/db conn) (let [db (d/db conn)
i->invoice-id (fn [i] i->invoice-id (fn [i]
(try (Long/parseLong i) (try (Long/parseLong i)
(catch Exception e (catch Exception _
(:db/id (d/pull db '[:db/id] (:db/id (d/pull db '[:db/id]
[:invoice/original-id (Long/parseLong (first (str/split i #"-")))]))))) [:invoice/original-id (Long/parseLong (first (str/split i #"-")))])))))
invoice-totals (->> data invoice-totals (->> data
@@ -47,7 +47,7 @@
target-account target-account
target-date target-date
amount amount
target-account-code _
location] (drop 1 data) location] (drop 1 data)
:let [invoice-id (i->invoice-id i) :let [invoice-id (i->invoice-id i)
@@ -129,7 +129,8 @@
(log/info "contains " (count data) " rows") (log/info "contains " (count data) " rows")
(doseq [n (partition-all 50 (register-invoice-import* data))] (doseq [n (partition-all 50 (register-invoice-import* data))]
(log/info "transacting" n) (log/info "transacting" n)
@(d/transact conn n)))) (audit-transact data {:user/name "register-invoice-import"
:user/role "admin"}))))
(defn -main [& _] (defn -main [& _]
(execute "register-invoice-import" #(register-invoice-import (:args env)))) (execute "register-invoice-import" #(register-invoice-import (:args env))))