Merge branch 'ssr-payments' into ssr-invoices

src/clj/auto_ap/parse/templates.clj

@@ -572,6 +572,14 @@
               :total #"(?:INVOICE|TOTAL|CREDIT)\s+([\d\.,\-]+\.[\d\-]+( CR)?)"}
     :parser {:date [:clj-time "MM/dd/yyyy"]
              :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
    {:vendor "Roma Bakery Inc."

src/clj/auto_ap/square/core3.clj

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