Quality of life improvements with client login

src/clj/auto_ap/datomic/invoices.clj

@@ -193,3 +193,16 @@
        (map <-datomic)))
 
 
+(defn get-existing-set []
+  (d/query
+   (cond-> {:query {:find ['?vendor '?client '?invoice-number]
+                    :in ['$]
+                    :where '[[?e :invoice/invoice-number ?invoice-number]
+                             [?e :invoice/vendor ?vendor]
+                             [?e :invoice/client ?client]
+                             (not [?e :invoice/status :invoice-status/voided])
+                             ]}
+            
+            :args [(d/db (d/connect uri))]})))
+  
+