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

should fix email list in profit and loss.

Browse Source
This commit is contained in:
Bryce
2023-05-26 11:26:26 -07:00
parent 81387afc08
commit 936a300a05
1 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/clj/auto_ap/datomic/clients.clj
View File

@@ -77,15 +77,19 @@
(map cleanse)))
(defn get-minimal []
(->> (dc/q '[:find (pull ?e [:client/name :client/code :client/locations :db/id {:client/bank-accounts [{:bank-account/type [:db/ident]}
:bank-account/name
:bank-account/sort-order
:bank-account/bank-name
:bank-account/visible
:bank-account/current-balance
:bank-account/locations
:bank-account/code
:db/id]}])
(->> (dc/q '[:find (pull ?e [:client/name :client/code :client/locations :db/id
{:client/bank-accounts [{:bank-account/type [:db/ident]}
:bank-account/name
:bank-account/sort-order
:bank-account/bank-name
:bank-account/visible
:bank-account/current-balance
:bank-account/locations
:bank-account/code
:db/id]
:client/emails [:db/id
:email-contact/email
:email-contact/description]}])
:where [?e :client/name]]
(dc/db conn))
(map first)