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

Merge branch 'ssr-payments' into ssr-invoices

Browse Source
This commit is contained in:
Bryce
2024-03-11 15:23:46 -07:00
parent 9e9eda343a 69cf81b24f
commit 3b49a0804a
3 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
src/clj/auto_ap/parse.fiddle Normal file
View File

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

@@ -572,6 +572,14 @@
:total #"(?:INVOICE|TOTAL|CREDIT)\s+([\d\.,\-]+\.[\d\-]+( CR)?)"} :total #"(?:INVOICE|TOTAL|CREDIT)\s+([\d\.,\-]+\.[\d\-]+( CR)?)"}
:parser {:date [:clj-time "MM/dd/yyyy"] :parser {:date [:clj-time "MM/dd/yyyy"]
:total [:trim-commas-and-negate nil]}} :total [:trim-commas-and-negate nil]}}
{:vendor "Primizie Foods"
:keywords [#"primiziefoods.com"]
:extract {:date #"Invoice Date\s+([0-9]+/[0-9]+/[0-9]+)"
:customer-identifier #"BILL TO.*?\n(.*?)\s{2,}"
:invoice-number #"Invoice #\s+(.*?)\n"
:total #"BALANCE DUE\s+\$([\d\.,\-]+\.[\d\-])"}
:parser {:date [:clj-time "MM/dd/yyyy"]
:total [:trim-commas-and-negate nil]}}
;; ROMA BAKERY ;; ROMA BAKERY
{:vendor "Roma Bakery Inc." {:vendor "Roma Bakery Inc."

4
src/clj/auto_ap/square/core3.clj
View File

@@ -211,7 +211,7 @@
:method :post :method :post
:headers (client-base-headers client) :headers (client-base-headers client)
:body (json/write-str (cond-> {"location_ids" [(:square-location/square-id location)] :body (json/write-str (cond-> {"location_ids" [(:square-location/square-id location)]
"limit" 10000 "limit" 1000
"cursor" cursor} "cursor" cursor}
start (merge (pc start end)))) start (merge (pc start end))))
:as :json}) :as :json})
@@ -238,7 +238,7 @@
(de/chain (manifold-api-call {:url "https://connect.squareup.com/v2/orders/search" (de/chain (manifold-api-call {:url "https://connect.squareup.com/v2/orders/search"
:method :post :method :post
:headers (client-base-headers client) :headers (client-base-headers client)
:body (json/write-str (cond-> {"location_ids" [(:square-location/square-id location)] "limit" 10000} :body (json/write-str (cond-> {"location_ids" [(:square-location/square-id location)] "limit" 1000}
start (merge (pc start end)))) start (merge (pc start end))))
:as :json}) :as :json})
:body :body