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

Forces unlinking of transactions before deleting

Browse Source
This commit is contained in:
Bryce
2023-11-09 22:21:39 -08:00
parent 384bb23aa2
commit fc9cd09533
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -206,25 +206,30 @@
(alog/info ::bulk-delete-transactions (alog/info ::bulk-delete-transactions
:count (count all-ids) :count (count all-ids)
:sample (take 3 all-ids)) :sample (take 3 all-ids))
(audit-transact-batch
(mapcat (fn [i]
(let [transaction (dc/pull db [:transaction/payment
:transaction/expected-deposit
:db/id] i)
payment-id (-> transaction :transaction/payment :db/id)
expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)]
(cond->> [[: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))
(audit-transact-batch (audit-transact-batch
(mapcat (fn [i] (mapcat (fn [i]
(let [transaction (dc/pull db [:transaction/payment (let [transaction-tx (if (:suppress args)
:transaction/expected-deposit
:db/id] i)
payment-id (-> transaction :transaction/payment :db/id)
expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)
transaction-tx (if (:suppress args)
{:db/id i {:db/id i
:transaction/approval-status :transaction-approval-status/suppressed} :transaction/approval-status :transaction-approval-status/suppressed}
[:db/retractEntity i])] [:db/retractEntity i])]
(cond->> [transaction-tx [transaction-tx
[:db/retractEntity [:journal-entry/original-entity i]]] [: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) all-ids)
(:id context)) (:id context))
{:message (str "Succesfully deleted " (count all-ids) " transactions.")})) {:message (str "Succesfully deleted " (count all-ids) " transactions.")}))