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

you can change statuses in bulk!

Browse Source
This commit is contained in:
Bryce Covert
2020-12-11 17:47:51 -08:00
parent e2ae7a6d4f
commit 9ee9855169
3 changed files with 26 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/graphql.clj
View File

@@ -831,10 +831,11 @@
:args {:invoices {:type '(list :id)}}
:resolve :mutation/approve-invoices}
:unapprove_transactions {:type :message
:args {:filters {:type :transaction_filters}
:ids {:type '(list :id)}}
:resolve :mutation/unapprove-transactions}
:bulk_change_transaction_status {:type :message
:args {:filters {:type :transaction_filters}
:status {:type :transaction_approval_status}
:ids {:type '(list :id)}}
:resolve :mutation/bulk-change-transaction-status}
:delete_external_ledger {:type :message
:args {:filters {:type :ledger_filters}
@@ -1190,7 +1191,7 @@
:mutation/edit-invoice gq-invoices/edit-invoice
:mutation/edit-transaction gq-transactions/edit-transaction
:mutation/unlink-transaction gq-transactions/unlink-transaction
:mutation/unapprove-transactions gq-transactions/unapprove-transactions
:mutation/bulk-change-transaction-status gq-transactions/bulk-change-status
:mutation/delete-external-ledger gq-ledger/delete-external-ledger
:mutation/delete-transactions gq-transactions/delete-transactions
:mutation/upsert-transaction-rule gq-transaction-rules/upsert-transaction-rule

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

@@ -36,10 +36,11 @@
:start (:start args 0)
:end (+ (:start args 0) (count transactions))}))
(defn unapprove-transactions [context args value]
(defn bulk-change-status [context args value]
(let [_ (assert-admin (:id context))
args (assoc args :id (:id context))
ids (some-> (:filters args)
(assoc :id (:id context))
(<-graphql)
(update :approval-status enum->keyword "transaction-approval-status")
(assoc :per-page Integer/MAX_VALUE)
@@ -53,10 +54,10 @@
(audit-transact-batch
(mapv (fn [i]
{:db/id i
:transaction/approval-status :transaction-approval-status/unapproved})
:transaction/approval-status (enum->keyword (:status args) "transaction-approval-status")})
all-ids)
(:id context))
{:message (str "Succesfully unapproved " (count all-ids) " transactions.")}))
{:message (str "Succesfully changed " (count all-ids) " transactions to be " (name (:status args) ) ".")}))
(defn delete-transactions [context args value]