notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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)

3
src/cljs/auto_ap/events.cljs
View File

@@ -20,7 +20,8 @@
(cond-> [:id :name :code :email :locations :feature-flags
[:emails [:id :email :description]]
[:bank-accounts [:id :code :bank-name :name :type :visible
:locations :include-in-reports :current-balance]]]))
:locations :include-in-reports :current-balance
:sort-order]]]))
(defn client-detail-query [token]
(cond-> [:id :name :signature-file :code :email :matches :week-a-debits :week-a-credits :week-b-debits :week-b-credits :locations :locked-until :square-auth-token :feature-flags