adds transaction export

This commit is contained in:
2023-09-11 13:24:46 -07:00
parent 0d209829e8
commit b2a07c756d

View File

@@ -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})]