reduces the number of duplicates that we try to import.

2023-09-08 07:15:28 -07:00
parent 848458be7e
commit 0d209829e8
1 changed files with 8 additions and 1 deletions
--- a/src/clj/auto_ap/jobs/ntg.clj
+++ b/src/clj/auto_ap/jobs/ntg.clj
@@ -102,7 +102,14 @@
                                                    :db/id (random-tempid)
                                                    }]})))
           (filter :invoice/client)
-           (into []))
+           (reduce (fn [[seen-so-far list] i]
+                     (let [k [(:invoice/invoice-number i) (:invoice/client i)]]
+                       (if (seen-so-far k)
+                         [seen-so-far list]
+                         [(conj seen-so-far k) (conj list i)])))
+                   [#{} []])
+           (second)
+           )
      (catch Exception e
        (log/error ::cant-import-general-produce
                   :error e)