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

special vendors like cintas and general produce should still support payment matching

Browse Source
This commit is contained in:
Bryce Covert
2023-04-27 11:57:35 -07:00
parent 8ebc158081
commit 56745c7244
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/graphql/transactions.clj
View File

@@ -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})] (let [payment-tx (i-transactions/add-new-payment [(select-keys (d/entity db transaction_id) #{:transaction/amount :transaction/date :db/id})]
(map (fn [id] (map (fn [id]
(let [entity (d/entity db 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 :db/id)
(-> entity :invoice/total)])) (-> entity :invoice/total)]))
autopay_invoice_ids) 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})] (let [payment-tx (i-transactions/add-new-payment [(select-keys (d/entity db transaction_id) #{:transaction/amount :transaction/date :db/id})]
(map (fn [id] (map (fn [id]
(let [entity (d/entity db 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 :db/id)
(-> entity :invoice/total)])) (-> entity :invoice/total)]))
unpaid_invoice_ids) unpaid_invoice_ids)