reimplemented import

2019-01-28 17:40:22 -08:00
parent 2d0b127b4a
commit d10b97e68e
13 changed files with 107 additions and 32 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -84,6 +84,11 @@
                                      :where ['[?e :transaction/client ?client-id]]}
                              :args [(:client-id args)]})

+                (:client-code args) 
+                (merge-query {:query {:in ['?client-code]
+                                      :where ['[?e :transaction/client ?client-id]
+                                              '[?client-id :client/code ?client-code]]}
+                              :args [(:client-code args)]})
                
                (:original-id args)
                (merge-query {:query {:in ['?original-id]