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

tweak.

Browse Source
This commit is contained in:
Bryce Covert
2022-01-07 08:30:10 -08:00
parent 018b86147b
commit 379d8003f1
1 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -190,7 +190,32 @@
(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:ledger2"}}] "export:ledger2"}}]
(let [results (->> (d/q `[:find (pull ?e ~d-ledger/export-read) (let [results (->> (d/q '[:find (pull ?e [:journal-entry/external-id
:journal-entry/cleared
:journal-entry/alternate-description
:journal-entry/date
:journal-entry/note
:journal-entry/amount
:journal-entry/source
:journal-entry/cleared-against
:journal-entry/original-entity
{:journal-entry/client [:client/name :client/code :db/id]
:journal-entry/vendor [:vendor/name :db/id]
:journal-entry/line-items [:journal-entry-line/location
:journal-entry-line/debit
:journal-entry-line/credit
{:journal-entry-line/account [:bank-account/include-in-reports
:bank-account/bank-name
:bank-account/code
:bank-account/visible
:bank-account/name
:bank-account/number
:account/code
:account/name
:account/numeric-code
:account/location
{:account/type [:db/ident :db/id]}
{:bank-account/type [:db/ident :db/id]}]}]}])
:in $ ?c :in $ ?c
:where [?e :journal-entry/client ?c]] :where [?e :journal-entry/client ?c]]
(d/db conn) (d/db conn)