diff --git a/src/clj/auto_ap/datomic/clients.clj b/src/clj/auto_ap/datomic/clients.clj index de1bc5b8..d3205cc6 100644 --- a/src/clj/auto_ap/datomic/clients.clj +++ b/src/clj/auto_ap/datomic/clients.clj @@ -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)