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/hours.txt
+++ b/hours.txt
@@ -2,3 +2,6 @@

 5/25/2021 3 hours
 6/1/2021 0.5 hours
+6/5/2021 2 hours
+6/6/2021 2 hours
+6/11/2021 2 hours
--- 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))