notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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))) (map cleanse)))
(defn get-minimal [] (defn get-minimal []
(->> (dc/q '[:find (pull ?e [:client/name :client/code :client/locations :db/id {:client/bank-accounts [{:bank-account/type [:db/ident]} (->> (dc/q '[:find (pull ?e [:client/name :client/code :client/locations :db/id
:bank-account/name {:client/bank-accounts [{:bank-account/type [:db/ident]}
:bank-account/sort-order :bank-account/name
:bank-account/bank-name :bank-account/sort-order
:bank-account/visible :bank-account/bank-name
:bank-account/current-balance :bank-account/visible
:bank-account/locations :bank-account/current-balance
:bank-account/code :bank-account/locations
:db/id]}]) :bank-account/code
:db/id]
:client/emails [:db/id
:email-contact/email
:email-contact/description]}])
:where [?e :client/name]] :where [?e :client/name]]
(dc/db conn)) (dc/db conn))
(map first) (map first)