Adds square koala-production

src/clj/auto_ap/intuit/core.clj

@@ -106,10 +106,10 @@
                           {:headers
                            (with-auth prod-base-headers token)
                            :as :json
-                           :query-params {"query" "SELECT * From Account"}}))
+                           :query-params {"query" "SELECT * From Account maxresults 1000"}}))
        :QueryResponse
        :Account
-       (filter
+       #_(filter
         #(#{"Bank" "Credit Card"} (:AccountType %)))
        (map (juxt :Id :Name))
        (map (fn [[id name]]
@@ -118,6 +118,7 @@
 
 
 
+
 (defn get-transactions []
   (client/get (str prod-base-url "/company/" prod-company-id "/reports/TransactionList" "?minorversion=63&start_date=2021-11-30&end_date=2021-11-30") 
               {:headers prod-base-headers
@@ -139,7 +140,6 @@
                        [(keyword h) (:value r)])
                      headers
                      row))))
-           (filter #(= external-id
-                       (:Account %)))))))
+           (filter #(str/includes? (:Account %) external-id))))))