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)