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

invoice parsing fixes.

Browse Source
This commit is contained in:
Bryce
2023-07-28 08:15:26 -07:00
parent 529dbe393d
commit 9c6c5d8f9e
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/auto_ap/parse/csv.clj
View File

@@ -172,8 +172,8 @@
(map (fn [[invoice-number date due amount standard :as row]] (map (fn [[invoice-number date due amount standard :as row]]
{:vendor-code "Performance Food Group - LEDYARD" {:vendor-code "Performance Food Group - LEDYARD"
:invoice-number invoice-number :invoice-number invoice-number
:date (some-> date not-empty (parse-date-fallover ["MM/dd/yyyy"])) :date (some-> date not-empty (parse-date-fallover ["MM/dd/yy"]))
:due (some-> due not-empty (parse-date-fallover ["MM/dd/yyyy"])) :due (some-> due not-empty (parse-date-fallover ["MM/dd/yy"]))
:total (str/replace amount #"[\$,]" "") :total (str/replace amount #"[\$,]" "")
:text (str/join " " row) :text (str/join " " row)
:full-text (str/join " " row)})) :full-text (str/join " " row)}))

10
src/clj/auto_ap/parse/templates.clj
View File

@@ -418,6 +418,16 @@
:total #" Total:\s+([\d\.]+)"} :total #" Total:\s+([\d\.]+)"}
:parser {:date [:clj-time "MMM dd, yyyy"]}} :parser {:date [:clj-time "MMM dd, yyyy"]}}
;; BiRite -- parent company for a&b produce
{:vendor "BiRite"
:keywords [#"BIRITE"]
:extract {:date #"([0-9]+/[0-9]+/[0-9]+)"
:customer-identifier #"BILL TO.*\n.*?\s{2,}(.*?)\s{2,}"
:invoice-number #"INVOICE#\n.*?(\d+)\n"
:total #"INV TOTAL \s+([\d\.\-]+)"}
:parser {:date [:clj-time "MM/dd/yyyy"]
:total [:trim-commas-and-negate nil]}}
;; A&B ;; A&B
{:vendor "A&B Produce" {:vendor "A&B Produce"
:keywords [#"ABProduce"] :keywords [#"ABProduce"]