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

(cloud) missed a couple bank account items

Browse Source
This commit is contained in:
Bryce Covert
2023-04-06 15:00:21 -07:00
parent 5561861d3d
commit 653774e2a5
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -74,7 +74,15 @@
(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/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]}])
:where [?e :client/name]]
(dc/db conn))
(map first)