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

Plaid enabled for staging

Browse Source
This commit is contained in:
Bryce Covert
2021-12-27 16:10:05 -08:00
parent 55be86e97c
commit 943ed4be19
6 changed files with 32 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/square/core.clj
View File

@@ -165,6 +165,7 @@
:client [:client/code client]
:location location
:external-id (str "square/order/" client "-" location "-" (:id order))
:vendor :vendor/ccp-square
:total (-> order :net_amounts :total_money amount->money)
:tax (-> order :net_amounts :tax_money amount->money)
:tip (-> order :net_amounts :tip_money amount->money)
@@ -332,6 +333,7 @@
([client location-id]
(->> (for [settlement (settlements client location-id)]
#:expected-deposit {:external-id (str "square/settlement/" (:id settlement))
:vendor :vendor/ccp-square
:total (amount->money (:total_money settlement))
:client [:client/code client]
:location (get-in env [:square-config client :location])
@@ -362,6 +364,7 @@
(filter (fn [r] (= "COMPLETED" (:status r))))
(map (fn [r]
#:sales-refund {:external-id (str "square/refund/" (:id r))
:vendor :vendor/ccp-square
:total (amount->money (:amount_money r))
:fee (transduce
(comp (filter #(= "ADJUSTMENT" (:type %)))