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

temporarily loading 30 days of data

Browse Source
This commit is contained in:
Bryce
2025-09-16 09:15:19 -07:00
parent b646544ebc
commit 3647934be6
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/square/core3.clj
View File

@@ -388,7 +388,7 @@
(defn daily-results (defn daily-results
([client location] ([client location]
(daily-results client location (time/plus (time/now) (time/days -7)) (time/now))) (daily-results client location (time/plus (time/now) (time/days -30)) (time/now)))
([client location start end] ([client location start end]
(capture-context->lc (capture-context->lc
(-> (->
@@ -458,7 +458,7 @@
(:payout_entries result))))))) (:payout_entries result)))))))
(defn payouts (defn payouts
([client location] (payouts client location (time/plus (time/now) (time/days -7)) (time/now))) ([client location] (payouts client location (time/plus (time/now) (time/days -30)) (time/now)))
([client location start end] ([client location start end]
(with-context-as {:location (:square-location/client-location location)} lc (with-context-as {:location (:square-location/client-location location)} lc
(de/chain (manifold-api-call (de/chain (manifold-api-call
@@ -599,7 +599,7 @@
(apply de/zip (apply de/zip
(for [square-location (:client/square-locations client) (for [square-location (:client/square-locations client)
:when (:square-location/client-location square-location)] :when (:square-location/client-location square-location)]
(upsert client square-location (time/plus (time/now) (time/days -14)) (time/now))))) (upsert client square-location (time/plus (time/now) (time/days -30)) (time/now)))))
([client location start end] ([client location start end]
(capture-context->lc (capture-context->lc
(de/chain (daily-results client location start end) (de/chain (daily-results client location start end)
@@ -618,7 +618,7 @@
:when (:square-location/client-location square-location)] :when (:square-location/client-location square-location)]
(upsert-payouts client square-location)))) (upsert-payouts client square-location))))
([client location] ([client location]
(upsert-payouts client location (time/plus (time/now) (time/days -7)) (time/now))) (upsert-payouts client location (time/plus (time/now) (time/days -30)) (time/now)))
([client location start end] ([client location start end]
(with-context-as {:source "Square payout loading" (with-context-as {:source "Square payout loading"
:client (:client/code client)} lc :client (:client/code client)} lc
@@ -825,7 +825,7 @@
(apply de/zip (apply de/zip
(for [square-location (:client/square-locations client) (for [square-location (:client/square-locations client)
:when (:square-location/client-location square-location)] :when (:square-location/client-location square-location)]
(remove-voided-orders client square-location (time/plus (time/now) (time/days -14)) (time/now))))) (remove-voided-orders client square-location (time/plus (time/now) (time/days -30)) (time/now)))))
([client location start end] ([client location start end]
(let [start (max-date start (coerce/to-date-time #inst "2024-04-15T00:00:00-08:00"))] (let [start (max-date start (coerce/to-date-time #inst "2024-04-15T00:00:00-08:00"))]
(capture-context->lc (capture-context->lc