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

invoice fix.

Browse Source
This commit is contained in:
Bryce Covert
2022-06-29 17:40:14 -07:00
parent a122c45b03
commit da5ba9a99e
1 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/routes/exports.clj
View File

@@ -86,7 +86,7 @@
(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:invoice"}}] "export:invoice"}}]
[(into [] (list (into (list)
(map datomic-map->graphql-map) (map datomic-map->graphql-map)
(d/q '[:find [(pull ?i [:db/id :invoice/total :invoice/outstanding-balance :invoice/invoice-number :invoice/date :invoice/original-id (d/q '[:find [(pull ?i [:db/id :invoice/total :invoice/outstanding-balance :invoice/invoice-number :invoice/date :invoice/original-id
{ :invoice/status [:db/ident] { :invoice/status [:db/ident]
@@ -109,7 +109,7 @@
:in $ ?c :in $ ?c
:where [?i :invoice/client ?c]] :where [?i :invoice/client ?c]]
(d/db conn) (d/db conn)
[:client/code (query-params "client-code")]))])) [:client/code (query-params "client-code")])))))
(GET "/payments/export" {:keys [query-params identity]} (GET "/payments/export" {:keys [query-params identity]}
(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)
@@ -301,7 +301,7 @@
(assoc :client-name (client->name (str client-id) (:name a))) (assoc :client-name (client->name (str client-id) (:name a)))
(dissoc :client-overrides)))))) (dissoc :client-overrides))))))
conj conj
[] (list)
(:accounts (:data all-accounts))))))) (:accounts (:data all-accounts)))))))
(GET "/transactions/export" {:keys [query-params identity]} (GET "/transactions/export" {:keys [query-params identity]}