Merge branch 'master' of bitbucket.org:brycecovertoperations/integreat

2019-01-29 12:46:46 -08:00
parent ccee0fca8d 2356a9e439
commit c365057d3e
13 changed files with 110 additions and 35 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -92,6 +92,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]