prevents checks from being printed for voided invoices

2022-12-22 11:26:05 -08:00
parent 54dbfcfbe0
commit 27603fff6e
1 changed files with 2 additions and 1 deletions
--- a/src/clj/auto_ap/graphql/checks.clj
+++ b/src/clj/auto_ap/graphql/checks.clj
@@ -223,7 +223,8 @@
 (defn invoice-payments [invoices invoice-amounts]
  (->> (for [invoice invoices
             :let [invoice-amount (invoice-amounts (:db/id invoice))]
-             :when invoice-amount]
+             :when (and invoice-amount
+                        (not= :invoice-status/voided (:invoice/status invoice)))]
            [{:invoice-payment/payment (-> invoice :invoice/vendor :db/id str)
              :invoice-payment/amount invoice-amount
              :invoice-payment/invoice (:db/id invoice)}