supporting some features for brian

2019-09-30 20:21:40 -07:00
parent c912fbed36
commit c8a7f05e28
2 changed files with 8 additions and 1 deletions
--- a/src/clj/auto_ap/datomic/ledger.clj
+++ b/src/clj/auto_ap/datomic/ledger.clj
@@ -41,6 +41,12 @@
                                      :where ['[?e :journal-entry/client ?client-id]]}
                              :args [(:client-id args)]})

+                (:client-code args) 
+                (merge-query {:query {:in ['?client-code]
+                                      :where ['[?e :journal-entry/client ?client-id]
+                                              '[?client-id :client/code ?client-code]]}
+                              :args [(:client-code args)]})
+
                (:to-date args) 
                (merge-query {:query {:in ['?to-date]
                                      :where ['[?e :journal-entry/date ?d]