notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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])
(:import (java.util UUID)))
(def sysco-name->line
(with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))]
(let [data (csv/read-csv data)]
(->> data
(drop 1)
(map (fn [ [_ _ name _ account-number]]
[name (ffirst (dc/q '[:find ?a
:in $ ?an
:where [?a :account/numeric-code ?an]]
(dc/db conn)
(Long/parseLong account-number)))]))
(into {})))))
(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"))]
(let [data (csv/read-csv data)]
(->> data
(drop 1)
(map (fn [[_ _ name _ account-number]]
[name (ffirst (dc/q '[:find ?a
:in $ ?an
:where [?a :account/numeric-code ?an]]
(dc/db conn)
(Long/parseLong account-number)))]))
(into {}))))))
@sysco-name->line)
(defn get-line-account [item-name]
(get sysco-name->line item-name
(get (get-sysco->line)
item-name
(ffirst (dc/q '[:find ?a
:in $ ?an
:where [?a :account/numeric-code ?an]]