diff --git a/src/clj/auto_ap/square/core3.clj b/src/clj/auto_ap/square/core3.clj index 3be26b2d..8cf54bc6 100644 --- a/src/clj/auto_ap/square/core3.clj +++ b/src/clj/auto_ap/square/core3.clj @@ -471,7 +471,7 @@ (log/info ::transforming-settlements) (try (->> (for [settlement settlements - :let [best-sales-date (->> (d/q '[:find ?s4 (count ?s) + :let [best-sales-date (some->> (d/q '[:find ?s4 (count ?s) :in $ ?settlement-id :where [?settlement :expected-deposit/external-id ?settlement-id] @@ -553,7 +553,7 @@ (apply de/zip (for [square-location (:client/square-locations client) :when (:square-location/client-location square-location)] - (upsert client square-location (time/plus (time/now) (time/days -7)) (time/now))))) + (upsert client square-location (time/plus (time/now) (time/days -14)) (time/now))))) ([client location start end] (capture-context->lc (de/chain (daily-results client location start end)