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

added logging

Browse Source
This commit is contained in:
Bryce
2023-12-08 10:39:04 -08:00
parent d235ea604c
commit 844adc83f6
1 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/clj/auto_ap/graphql/invoices.clj
View File

@@ -334,19 +334,20 @@
'[?ea :invoice-expense-account/amount ?ea-amount ?tx false]] '[?ea :invoice-expense-account/amount ?ea-amount ?tx false]]
:in ['$ '?e]} :in ['$ '?e]}
history id) history id)
[last-transaction] (->> txs (sort-by first) (last))] [last-transaction] (->> txs (sort-by first) (last))
(audit-transact [[:upsert-invoice tx [[:upsert-invoice
(->> txs (->> txs
(filter (fn [[tx]] (= tx last-transaction))) (filter (fn [[tx]] (= tx last-transaction)))
(reduce (fn [new-transaction [_ entity original-status original-outstanding total expense-account expense-account-amount]] (reduce (fn [new-transaction [_ entity original-status original-outstanding total expense-account expense-account-amount]]
(-> new-transaction (-> new-transaction
(assoc :db/id entity (assoc :db/id entity
:invoice/total total :invoice/total total
:invoice/status original-status :invoice/status original-status
:invoice/outstanding-balance original-outstanding) :invoice/outstanding-balance original-outstanding)
(update :invoice/expense-accounts (fnil conj []) {:db/id expense-account :invoice-expense-account/amount expense-account-amount}))) (update :invoice/expense-accounts (fnil conj []) {:db/id expense-account :invoice-expense-account/amount expense-account-amount})))
{}))]] {}))]]]
(:id context)) (alog/info ::unvoiding-invoice :transaction :tx)
(audit-transact tx (:id context))
(-> (d-invoices/get-by-id id) (-> (d-invoices/get-by-id id)
(->graphql (:id context))))) (->graphql (:id context)))))