fixes tests.
This commit is contained in:
@@ -454,6 +454,7 @@
|
||||
(let [transaction (d-transactions/get-by-id (:transaction_id args))
|
||||
_ (assert-can-see-client (:id context) (:transaction/client transaction))
|
||||
[payments _] (d-checks/get-graphql {:client-id (:db/id (:transaction/client transaction))
|
||||
:clients [{:db/id (:db/id (:transaction/client transaction))}]
|
||||
:bank-account-id (:db/id (:transaction/bank-account transaction))
|
||||
:amount (- (:transaction/amount transaction))
|
||||
:status :payment-status/pending
|
||||
|
||||
@@ -256,6 +256,7 @@
|
||||
(let [ids (some-> args
|
||||
:filters
|
||||
(<-graphql)
|
||||
(assoc :clients (:clients args))
|
||||
(update :status enum->keyword "invoice-status")
|
||||
(assoc :per-page Integer/MAX_VALUE)
|
||||
d-invoices/raw-graphql-ids
|
||||
|
||||
Reference in New Issue
Block a user