Started added direct linkage

src/clj/auto_ap/datomic/checks.clj

@@ -40,11 +40,16 @@
                                                     "amount" ['[?e :payment/amount ?sort-amount]]
                                                     "status" ['[?e :payment/status ?sort-status]]}
                                                   args)
+                (: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 :payment/client ?xx]]}
                               :args [(set (map :db/id (limited-clients (:id args))))]})
+                
 
                 (:client-id args)
                 (merge-query {:query {:in ['?client-id]

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]]}