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

replaces settlement loading with payout loading.

Browse Source
This commit is contained in:
Bryce
2023-07-25 22:02:36 -07:00
parent 8f5caf9a81
commit 90014fbfcd
3 changed files with 147 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
scratch-sessions/payouts.repl
View File

@@ -10,9 +10,7 @@
(def c
(first (get-square-clients "NGOP")))
(def l {:db/id 17592186051554,
:square-location/name "Almaden",
:square-location/square-id "68MJ8J2RX7KE1"})
(def l (first (filter :square-location/client-location (:client/square-locations c))))
(def base @(settlements c l))
(def base-result @(daily-settlements c l))
@@ -24,7 +22,8 @@ base-result
@(de/chain (manifold-api-call
{:url (str "https://connect.squareup.com/v2/payouts/?"
(url/map->query
{:location_id (:square-location/square-id l)}) )
{:location_id (:square-location/square-id l)
:begin_time "2023-07-22T00:00:00Z"}) )
:method :get
:headers (client-base-headers c "2023-04-19")
})
@@ -50,7 +49,7 @@ base-result
(s/buffer 10)
(s/realize-each)
(s/reduce conj [])))
#_(fn [settlements]
(fn [settlements]
(log/info ::transforming-settlements)
(try
(->> (for [settlement settlements
@@ -71,7 +70,26 @@ base-result
first
coerce/to-date-time
atime/as-local-time
coerce/to-date)]]
coerce/to-date)
;; TODO delete this - this is only needed during the short transformation time
equivalent-already-exists? (seq (dc/q '[:find ?s
:in $ ?c ?a
:where
[?s :expected-deposit/date ?ed]
[(>= ?ed #inst "2023-07-10")]
[(<= ?ed #inst "2023-07-26")]
[?s :expected-deposit/client ?c]
[?s :expected-deposit/external-id ?eid]
[(clojure.string/includes? ?eid "settlement")]
[?s :expected-deposit/total ?t]
[(iol-ion.query/dollars= ?t ?a)]
]
(dc/db conn)
(:db/id c)
(amount->money (:amount_money settlement))
))]
:when (not equivalent-already-exists?)]
#:expected-deposit {:external-id (str "square/payout/" (:id settlement))
:vendor :vendor/ccp-square
:status :expected-deposit-status/pending