diff --git a/src/clj/auto_ap/jobs/ntg.clj b/src/clj/auto_ap/jobs/ntg.clj index 3c925915..6c21fce3 100644 --- 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)