adds transaction export
This commit is contained in:
@@ -395,11 +395,12 @@
|
||||
:code (:bank-account/code bank-account)
|
||||
:id (:db/id bank-account)}})))))}))
|
||||
|
||||
(defn export-transactions [{:keys [query-params identity]}]
|
||||
(defn export-transactions [{:keys [query-params identity clients]}]
|
||||
(assert-admin identity)
|
||||
(statsd/time! [(str "export.time") {:tags #{(client-tag query-params)
|
||||
"export:transactions"}}]
|
||||
(let [[transactions] (d-transactions/get-graphql {:client-code (query-params "client-code")
|
||||
:clients clients
|
||||
#_#_:original-id (Integer/parseInt (query-params "original"))
|
||||
:count Integer/MAX_VALUE})]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user