Started added direct linkage

2021-01-23 10:24:55 -08:00
parent cb33e1e54a
commit b00e2c5b60
8 changed files with 63 additions and 30 deletions
--- a/src/clj/auto_ap/datomic/invoices.clj
+++ b/src/clj/auto_ap/datomic/invoices.clj
@@ -30,7 +30,11 @@
                              :in ['$]
                              :where ['[?e :invoice/client]]}
                      :args [(d/db (d/connect uri))]}
-               
+
+               (:exact-match-id args)
+               (merge-query {:query {:in ['?e]
+                                     :where []}
+                             :args [(:exact-match-id args)]})
               (limited-clients (:id args))
               (merge-query {:query {:in ['[?xx ...]]
                                     :where ['[?e :invoice/client ?xx]]}