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

fix for weird square issue

Browse Source
This commit is contained in:
Bryce Covert
2022-06-13 15:27:10 -07:00
parent 1349a094ce
commit 47d5c3911a
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -214,13 +214,15 @@
(map :id) (map :id)
(into #{}))] (into #{}))]
(->> search-results (->> search-results
(filter (fn [order] (filter (fn [order]
;; sometimes orders stay open in square. At least one payment ;; sometimes orders stay open in square. At least one payment
;; is needed to import, in order to avoid importing orders in-progress. ;; is needed to import, in order to avoid importing orders in-progress.
(and (or (> (count (:tenders order)) 0) (and (or (> (count (:tenders order)) 0)
(seq (:returns order))) (seq (:returns order)))
(not= #{"FAILED"} (or (= #{} (set (map #(:status (:card_details %)) (:tenders order))))
(set (map #(:status (:card_details %)) (:tenders order))))))) (not= #{} (clojure.set/difference
(set (map #(:status (:card_details %)) (:tenders order)))
#{"FAILED" "VOIDED"}))))))
(filter (fn [order] (filter (fn [order]
(not= "Koala" (:name (:source order))))) (not= "Koala" (:name (:source order)))))
(filter (fn has-linked-koala-production? [order] (filter (fn has-linked-koala-production? [order]