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

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

@@ -212,13 +212,8 @@
:transaction/expected-deposit :transaction/expected-deposit
:db/id] i) :db/id] i)
payment-id (-> transaction :transaction/payment :db/id) payment-id (-> transaction :transaction/payment :db/id)
expected-deposit-id (-> transaction :transaction/expected-deposit :db/id) expected-deposit-id (-> transaction :transaction/expected-deposit :db/id)]
transaction-tx (if (:suppress args) (cond->> [[:db/retractEntity [:journal-entry/original-entity i]]]
{:db/id i
:transaction/approval-status :transaction-approval-status/suppressed}
[:db/retractEntity i])]
(cond->> [transaction-tx
[:db/retractEntity [:journal-entry/original-entity i]]]
payment-id (into [{:db/id payment-id payment-id (into [{:db/id payment-id
:payment/status :payment-status/pending} :payment/status :payment-status/pending}
[:db/retract (:db/id transaction) :transaction/payment payment-id]]) [:db/retract (:db/id transaction) :transaction/payment payment-id]])
@@ -227,6 +222,16 @@
[:db/retract (:db/id transaction) :transaction/expected-deposit expected-deposit-id]])))) [:db/retract (:db/id transaction) :transaction/expected-deposit expected-deposit-id]]))))
all-ids) all-ids)
(:id context)) (:id context))
(audit-transact-batch
(mapcat (fn [i]
(let [transaction-tx (if (:suppress args)
{:db/id i
:transaction/approval-status :transaction-approval-status/suppressed}
[:db/retractEntity i])]
[transaction-tx
[:db/retractEntity [:journal-entry/original-entity i]]]))
all-ids)
(:id context))
{:message (str "Succesfully deleted " (count all-ids) " transactions.")})) {:message (str "Succesfully deleted " (count all-ids) " transactions.")}))
(defn get-potential-autopay-invoices-matches [context args _] (defn get-potential-autopay-invoices-matches [context args _]