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

avoids double paying.

Browse Source
This commit is contained in:
Bryce Covert
2021-06-14 07:29:50 -07:00
parent 15283f2679
commit 33912fe88d
2 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -238,7 +238,11 @@
:total (amount->money (:total_money settlement))
:client [:client/code client]
:location loc
:fee (- (reduce + 0 (map (comp amount->money :fee_money) (:entries settlement))))
:fee (- (reduce + 0 (map (fn [entry]
(if (= (:type entry) "REFUND")
(- (amount->money (:fee_money entry)))
(amount->money (:fee_money entry))))
(:entries settlement))))
:date (-> (:initiated_at settlement)
(coerce/to-date))})))))