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

Merge branch 'master' of bitbucket.org:brycecovertoperations/integreat

Browse Source
This commit is contained in:
Bryce Covert
2023-02-03 20:16:46 -08:00
parent 4433bf905d 46de73afbb
commit 1ecd076ba1
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/auto_ap/jobs/load_historical_sales.clj
View File

@@ -5,7 +5,7 @@
[auto-ap.jobs.core :refer [execute]]
[amazonica.aws.s3 :as s3]
[auto-ap.square.core :as square]
[auto-ap.square.core2 :as square2]
[auto-ap.square.core3 :as square3]
[clj-time.periodic :as per]
[clj-time.core :as time]
[datomic.api :as d]
@@ -66,14 +66,14 @@
(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))))))
@(square3/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)
@(square3/upsert-refunds client square-location)
(println "settlements")
(with-redefs [square2/lookup-dates (fn lookup-dates []
(with-redefs [square3/lookup-dates (fn lookup-dates []
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
(time/today)
(time/days 2))
@@ -82,7 +82,7 @@
(atime/unparse (time/plus d (time/days 2)) atime/iso-date)]))))]
(square2/upsert-settlements client square-location)))))
@(square3/upsert-settlements client square-location)))))
(defn load-historical-sales [args]