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

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

@@ -18,21 +18,26 @@
[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))
(with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))] (defn get-sysco->line []
(let [data (csv/read-csv data)] (when (nil? @sysco-name->line)
(->> data (reset! @sysco-name->line
(drop 1) (with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))]
(map (fn [ [_ _ name _ account-number]] (let [data (csv/read-csv data)]
[name (ffirst (dc/q '[:find ?a (->> data
:in $ ?an (drop 1)
:where [?a :account/numeric-code ?an]] (map (fn [[_ _ name _ account-number]]
(dc/db conn) [name (ffirst (dc/q '[:find ?a
(Long/parseLong account-number)))])) :in $ ?an
(into {}))))) :where [?a :account/numeric-code ?an]]
(dc/db conn)
(Long/parseLong account-number)))]))
(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]]