only include adjustments

2021-06-12 07:51:49 -07:00
parent ef049de347
commit 15283f2679
2 changed files with 6 additions and 1 deletions
--- a/src/clj/auto_ap/square/core.clj
+++ b/src/clj/auto_ap/square/core.clj
@@ -257,7 +257,9 @@
                  #:sales-refund {:external-id (str "square/refund/" (:id r))
                                  :total (amount->money (:amount_money r))
                                  :fee (transduce
-                                        (comp   (map :amount_money) (map amount->money))
+                                        (comp (filter #(= "ADJUSTMENT" (:type %)))
+                                              (map :amount_money)
+                                              (map amount->money))
                                        +
                                        0.0
                                        (:processing_fee r))