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

build error

Browse Source
This commit is contained in:
Bryce
2024-05-03 11:12:47 -07:00
parent f1cb203abc
commit 7d9fe59592
1 changed files with 18 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -18,7 +18,10 @@
[datomic.api :as dc]) [datomic.api :as dc])
(:import (java.util UUID))) (:import (java.util UUID)))
(def sysco-name->line (def sysco-name->line (atom nil))
(defn get-sysco->line []
(when (nil? @sysco-name->line)
(reset! @sysco-name->line
(with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))] (with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))]
(let [data (csv/read-csv data)] (let [data (csv/read-csv data)]
(->> data (->> data
@@ -29,10 +32,12 @@
:where [?a :account/numeric-code ?an]] :where [?a :account/numeric-code ?an]]
(dc/db conn) (dc/db conn)
(Long/parseLong account-number)))])) (Long/parseLong account-number)))]))
(into {}))))) (into {}))))))
@sysco-name->line)
(defn get-line-account [item-name] (defn get-line-account [item-name]
(get sysco-name->line item-name (get (get-sysco->line)
item-name
(ffirst (dc/q '[:find ?a (ffirst (dc/q '[:find ?a
:in $ ?an :in $ ?an
:where [?a :account/numeric-code ?an]] :where [?a :account/numeric-code ?an]]