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

prevents checks from being printed for voided invoices

Browse Source
This commit is contained in:
Bryce Covert
2022-12-22 11:26:05 -08:00
parent 54dbfcfbe0
commit 27603fff6e
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/graphql/checks.clj
View File

@@ -223,7 +223,8 @@
(defn invoice-payments [invoices invoice-amounts] (defn invoice-payments [invoices invoice-amounts]
(->> (for [invoice invoices (->> (for [invoice invoices
:let [invoice-amount (invoice-amounts (:db/id invoice))] :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/payment (-> invoice :invoice/vendor :db/id str)
:invoice-payment/amount invoice-amount :invoice-payment/amount invoice-amount
:invoice-payment/invoice (:db/id invoice)} :invoice-payment/invoice (:db/id invoice)}