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

tweaks

Browse Source
This commit is contained in:
Bryce Covert
2020-06-14 08:29:23 -07:00
parent ad4054d820
commit bd17cd3caa
9 changed files with 126 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -45,6 +45,10 @@
(comp (drop 1)
(map (fn [row]
(into {} (map vector header row))))
(filter (fn [row]
(and (not (str/blank? (get row "Invoice Date")))
(not (str/blank? (get row "Orig Amt")))
(not (str/blank? (get row "Inv #"))))))
(map (fn [row]
{:vendor-code nil
:customer-identifier nil

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

@@ -176,15 +176,15 @@
;; Young's Market Co new statement
{:vendor "Youngs Market"
:keywords [#"YOUNG'S MARKET COMPANY"]
:keywords [#"(YOUNG'S MARKET COMPANY|Young.*Statement)"]
:extract {:date #"([0-9]+/[0-9]+/[0-9]+)"
:customer-identifier #"SHIP TO SITE: ([\w ]+)"
:invoice-number #"^([0-9]+)"
:total #"\$([0-9\.,]+)"}
:customer-identifier #"Customer Name +([\w ]+)"
:invoice-number #"\s{2,}([0-9]+)"
:total #"\$?([0-9,]+\.[0-9]+)"}
:parser {:date [:clj-time "MM/dd/yyyy"]
:total [:trim-commas nil]}
:multi #"\n"
:multi-match? #"^[0-9]+"}
:multi-match? #"^[0-9]+.*\$?([0-9,]+\.[0-9]+).*\$?([0-9,]+\.[0-9]+)"}
;; Young's Market Co - INVOICE
{:vendor "Youngs Market"