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

Merge branch 'datomic' of bitbucket.org:brycecovertoperations/integreat into datomic

Browse Source
This commit is contained in:
BC
2018-10-25 21:13:27 -07:00
parent a8e84cacdb 869adcefb3
commit 5e1680e6ec
1 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2,7 +2,9 @@
(:require [datomic.api :as d]
[auto-ap.datomic :refer [uri]]
[clj-time.coerce :as c]
[clojure.set :refer [rename-keys]]))
[clojure.set :refer [rename-keys]]
[clojure.string :as str]))
(defn add-arg [query name value where & rest]
(let [query (-> query
@@ -97,17 +99,20 @@
)
(<-datomic)))
(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)
(->> (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 (or id 0)]}))
(map first)
(<-datomic)))