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