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

only one way to change invoices -> datomic!

Browse Source
This commit is contained in:
Bryce Covert
2018-09-03 16:31:37 -07:00
parent 11a9e3c39c
commit 3ea31e8836
4 changed files with 40 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/datomic/invoices.clj
View File

@@ -97,12 +97,17 @@
)
(<-datomic)))
(defn find-conflicting [{:keys [:invoice/invoice-number :invoice/vendor :invoice/client]}]
(->> (d/query
(cond-> {:query {:find [default-read]
:in ['$ '?invoice-number '?vendor '?client]
:where ['[?e :invoice/invoice-number ?invoice-number]
'[?e :invoice/vendor ?vendor]
'[?e :invoice/client ?client]]}
:args [(d/db (d/connect uri)) invoice-number (Long/parseLong vendor) (Long/parseLong client)]}))
(defn find-conflicting [{:keys [:invoice/invoice-number :invoice/vendor :invoice/client :db/id]}]
(println invoice-number vendor client id)
(->> (doto (d/query
(cond-> {:query {:find [default-read]
:in ['$ '?invoice-number '?vendor '?client '?invoice-id]
:where '[[?e :invoice/invoice-number ?invoice-number]
[?e :invoice/vendor ?vendor]
[?e :invoice/client ?client]
[(not= ?e ?invoice-id)]]}
:args [(d/db (d/connect uri)) invoice-number vendor client id]}))
println)
(map first)
(<-datomic)))