Allows you to filter down to ccp-processor

src/clj/auto_ap/datomic/sales_orders.clj

@@ -46,6 +46,13 @@
                                       :where ['[?e :sales-order/client ?client-id]
                                               '[?client-id :client/code ?client-code]]}
                               :args [(:client-code args)]})
+                
+                (:processor args)
+                (merge-query {:query {:in ['?processor]
+                                      :where ['[?e :sales-order/charges ?chg]
+                                              '[?chg :charge/processor ?processor]]}
+                              :args [(keyword "ccp-processor"
+                                              (name (:processor args)))]})
 
                 (:total-gte args) 
                 (merge-query {:query {:in ['?total-gte]
@@ -96,13 +103,28 @@
                      (mapv <-datomic))]
     payments))
 
+(defn summarize-orders [ids]
+
+  (let [[total tax] (->>
+         (d/query {:query {:find ['(sum ?t) '(sum ?tax)]
+                           :with ['?id]
+                           :in ['$ '[?id ...]]
+                           :where ['[?id :sales-order/total ?t]
+                                   '[?id :sales-order/tax ?tax]]}
+                   :args [(d/db (d/connect uri))
+                          ids]})
+         first)]
+    {:total total
+     :tax tax}))
+
 (defn get-graphql [args]
   (log/info "ARGS" args)
   (let [db (d/db (d/connect uri))
         {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
 
     [(->> (graphql-results ids-to-retrieve db args))
-     matching-count]))
+     matching-count
+     (summarize-orders ids-to-retrieve)]))
 
 (defn get-by-id [id]
   (->>