fix for weird square issue

2022-06-13 15:27:10 -07:00
parent 1349a094ce
commit 47d5c3911a
1 changed files with 9 additions and 7 deletions
--- a/src/clj/auto_ap/square/core.clj
+++ b/src/clj/auto_ap/square/core.clj
@@ -219,8 +219,10 @@
                    ;; is needed to import, in order to avoid importing orders in-progress.
                    (and (or (> (count (:tenders order)) 0)
                             (seq (:returns order)))
-                      (not= #{"FAILED"}
-                            (set (map #(:status (:card_details %)) (:tenders order)))))))
+                         (or (= #{} (set (map #(:status (:card_details %)) (:tenders order))))
+                             (not= #{} (clojure.set/difference
+                                         (set (map #(:status (:card_details %)) (:tenders order)))
+                                         #{"FAILED" "VOIDED"}))))))
       (filter (fn [order]
                 (not= "Koala" (:name (:source order)))))
       (filter (fn has-linked-koala-production? [order]