Added the ability to load historcial sales yourself.

src/clj/auto_ap/jobs/load_historical_sales.clj

@@ -0,0 +1,99 @@
+(ns auto-ap.jobs.load-historical-sales
+  (:gen-class)
+  (:require
+   [unilog.context :as lc]
+   [auto-ap.jobs.core :refer [execute]]
+   [amazonica.aws.s3 :as s3]
+   [auto-ap.square.core :as square]
+   [auto-ap.square.core2 :as square2]
+   [clj-time.periodic :as per]
+   [clj-time.core :as time]
+   [datomic.api :as d]
+   [auto-ap.utils :refer [dollars=]]
+   [clojure.string :as str]
+   [clj-time.coerce :as coerce]
+   [auto-ap.time :as atime]
+   [auto-ap.datomic :refer [conn audit-transact]]
+   [clojure.data.csv :as csv]
+   [clojure.java.io :as io]
+   [config.core :refer [env]]
+   [clojure.tools.logging :as log]))
+#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
+(defn historical-load-sales [client days]
+  (log/info "loading old approach")
+  (let [client (d/pull (d/db auto-ap.datomic/conn)
+                       square/square-read
+                       client)]
+    (doseq [square-location (:client/square-locations client)
+            :when           (:square-location/client-location square-location)]
+      
+      (println "orders")
+      (lc/with-context {:source "Historical loading data"}
+        (doseq [d (per/periodic-seq (time/plus (time/today) (time/days (- days)))
+                                    (time/today)
+                                    (time/days 1))]
+          (println d)
+          (square/upsert client square-location (coerce/to-date-time d) (coerce/to-date-time (time/plus d (time/days 1))))))
+
+      (println "refunds")
+      (square/upsert-refunds client square-location)
+
+
+      (println "settlements")
+      (with-redefs [square/lookup-dates (fn lookup-dates []
+                                                       (->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
+                                                                                            (time/today)
+                                                                                            (time/days 2))
+                                                            (map (fn [d]
+                                                                   [(atime/unparse (time/plus d (time/days 1)) atime/iso-date)
+
+                                                                    (atime/unparse (time/plus d (time/days 2)) atime/iso-date)]))))]
+
+        (square/upsert-settlements client square-location)))))
+
+
+(defn historical-load-sales2 [client days]
+  (log/info "loading new approach")
+  (let [client (d/pull (d/db auto-ap.datomic/conn)
+                       square/square-read
+                       client)]
+    (doseq [square-location (:client/square-locations client)
+            :when           (:square-location/client-location square-location)]
+      
+      (println "orders")
+      (lc/with-context {:source "Historical loading data"}
+        (doseq [d (per/periodic-seq (time/plus (time/today) (time/days (- days)))
+                                    (time/today)
+                                    (time/days 1))]
+          (println d)
+          (square2/upsert client square-location (coerce/to-date-time d) (coerce/to-date-time (time/plus d (time/days 1))))))
+
+      (println "refunds")
+      (square2/upsert-refunds client square-location)
+
+
+      (println "settlements")
+      (with-redefs [square2/lookup-dates (fn lookup-dates []
+                                          (->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
+                                                                 (time/today)
+                                                                 (time/days 2))
+                                               (map (fn [d]
+                                                      [(atime/unparse (time/plus d (time/days 1)) atime/iso-date)
+
+                                                       (atime/unparse (time/plus d (time/days 2)) atime/iso-date)]))))]
+
+        (square2/upsert-settlements client square-location)))))
+
+
+(defn load-historical-sales [args]
+  (let [{:keys [days client]} args
+        client (Long/parseLong client)
+        feature-flags (-> (d/pull (d/db conn) '[:client/feature-flags] client)
+                          :client/feature-flags
+                          set)]
+    (if (get feature-flags "new-square")
+      (historical-load-sales2 client days)
+      (historical-load-sales client days))))
+
+(defn -main [& _]
+  (execute "load-historical-sales" #(load-historical-sales (:args env))))

src/clj/auto_ap/jobs/register_invoice_import.clj

@@ -124,8 +124,8 @@
       vec)))
 
 (defn register-invoice-import [args]
-  (let [{:keys [ledger-url]} args
-        data                 (s3->csv ledger-url)]
+  (let [{:keys [invoice-url]} args
+        data                 (s3->csv invoice-url)]
     (log/info "contains " (count data) " rows")
     (doseq [n (partition-all 50 (register-invoice-import* data))]
       (log/info "transacting" n)

src/clj/auto_ap/server.clj

@@ -9,6 +9,7 @@
    [auto-ap.jobs.import-uploaded-invoices :as job-import-uploaded-invoices]
    [auto-ap.jobs.intuit :as job-intuit]
    [auto-ap.jobs.ledger-reconcile :as job-reconcile-ledger]
+   [auto-ap.jobs.load-historical-sales :as job-load-historical-sales]
    [auto-ap.jobs.plaid :as job-plaid]
    [auto-ap.jobs.register-invoice-import :as job-register-invoice-import]
    [auto-ap.jobs.square :as job-square]
@@ -130,6 +131,9 @@
            (= job "register-invoice-import")
            (job-register-invoice-import/-main)
 
+           (= job "load-historical-sales")
+           (job-load-historical-sales/-main)
+
            (= job "bulk-journal-import")
            (job-bulk-journal-import/-main)