From 56745c72442a543000d344f2de90ed00102c7b6b Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Thu, 27 Apr 2023 11:57:35 -0700 Subject: [PATCH] special vendors like cintas and general produce should still support payment matching --- src/clj/auto_ap/graphql/transactions.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/graphql/transactions.clj b/src/clj/auto_ap/graphql/transactions.clj index b09ae3b4..10d4883c 100644 --- a/src/clj/auto_ap/graphql/transactions.clj +++ b/src/clj/auto_ap/graphql/transactions.clj @@ -465,7 +465,8 @@ (let [payment-tx (i-transactions/add-new-payment [(select-keys (d/entity db transaction_id) #{:transaction/amount :transaction/date :db/id})] (map (fn [id] (let [entity (d/entity db id)] - [(-> entity :invoice/vendor :db/id) + [(or (-> entity :invoice/vendor :db/id) + (-> entity :invoice/vendor)) (-> entity :db/id) (-> entity :invoice/total)])) autopay_invoice_ids) @@ -503,7 +504,8 @@ (let [payment-tx (i-transactions/add-new-payment [(select-keys (d/entity db transaction_id) #{:transaction/amount :transaction/date :db/id})] (map (fn [id] (let [entity (d/entity db id)] - [(-> entity :invoice/vendor :db/id) + [(or (-> entity :invoice/vendor :db/id) + (-> entity :invoice/vendor)) (-> entity :db/id) (-> entity :invoice/total)])) unpaid_invoice_ids)