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

Adds intuit updater

Browse Source
This commit is contained in:
Bryce Covert
2021-12-16 21:20:51 -08:00
parent 1d312dd55d
commit e3eeb4e80b
6 changed files with 66 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -73,14 +73,24 @@
(d-transactions/raw-graphql-ids )
:ids)
specific-ids (d-transactions/filter-ids (:ids args))
all-ids (into (set ids) specific-ids)]
all-ids (into (set ids) specific-ids)
db (d/db conn)]
(log/info "Deleting " (count all-ids) args)
(audit-transact-batch
(mapcat (fn [i]
[{:db/id i
:transaction/approval-status :transaction-approval-status/suppressed}
[:db/retractEntity [:journal-entry/original-entity i]]])
(let [transaction (d/entity db i)
payment-id (-> transaction :transaction/payment :db/id)
expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)]
(cond->> [{:db/id i
:transaction/approval-status :transaction-approval-status/suppressed}
[:db/retractEntity [:journal-entry/original-entity i]]]
payment-id (into [{:db/id payment-id
:payment/status :payment-status/pending}
[:db/retract (:db/id transaction) :transaction/payment payment-id]])
expected-deposit-id (into [{:db/id expected-deposit-id
:expected-deposit/status :expected-deposit-status/pending}
[:db/retract (:db/id transaction) :transaction/expected-deposit expected-deposit-id]]))))
all-ids)
(:id context))
{:message (str "Succesfully deleted " (count all-ids) " transactions.")}))