everything is now looked up through datomic
This commit is contained in:
@@ -512,6 +512,7 @@
|
||||
|
||||
(d/transact (d/connect uri))))
|
||||
|
||||
|
||||
(defn load-entities []
|
||||
(d/transact (d/connect uri)
|
||||
[{:db/ident :test
|
||||
@@ -555,7 +556,7 @@
|
||||
(map
|
||||
(fn [{:keys [name address id code locations email bank-accounts signature-file] client-id :id}]
|
||||
(remove-nils #:client {:original-id id
|
||||
:name (str name "-test")
|
||||
:name (str name)
|
||||
:code nil
|
||||
:email email
|
||||
:signature-file signature-file
|
||||
@@ -706,7 +707,7 @@
|
||||
(d/db (d/connect uri))))
|
||||
|
||||
(defn query-check-payments []
|
||||
(d/q '[:find (pull ?e [*])
|
||||
(d/q '[:find (pull ?e [* {:invoice-payment/payment [*]}])
|
||||
:where [?e :invoice-payment/original-id]]
|
||||
(d/db (d/connect uri))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user