supporting some features for brian

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]

src/clj/auto_ap/routes/exports.clj

@@ -61,7 +61,8 @@
                               (map <-graphql))
                              conj
                              (list)
-                             (first (d-ledger/get-graphql {}))))
+                             (first (d-ledger/get-graphql {:count Integer/MAX_VALUE
+                                                           :client-code (query-params "client-code")}))))
 
              (GET "/transactions/export" {:keys [query-params identity]}
                   (assert-admin identity)