calls out client on summaries.

src/clj/user.fiddle

@@ -1,4 +1,5 @@
 (init-repl)
+
 (comment
   (defn setup-randy-queries  []
     (import '[java.util UUID])
@@ -324,4 +325,25 @@
     @(dc/transact conn [{:bank-account/code "NGKG-AMEX81007" :bank-account/visible true}])
 
 
-    )
+    )
+    
+
+(clojure.data.csv/write-csv *out*
+                            (let [db (dc/db conn)]
+
+                              (dc/q '[:find ?d4 ?s (sum ?total)
+                                      :in $ [?clients ?start-date ?end-date]
+                                      :where  
+                                      [(iol-ion.query/scan-sales-orders $ ?clients ?start-date ?end-date) [[?e _ ?sort-default] ...]] 
+                                      [?e :sales-order/source ?s]
+                                      [?e :sales-order/total ?total]
+                                      [?e :sales-order/date ?d]
+                                      [(iol-ion.query/excel-date ?d) ?d4]]
+                                    
+                                    db
+                                    [
+                                     [ (pull-attr db :db/id [:client/code "NGRV"])]  
+                                     #inst "2024-03-01" #inst "2024-03-30"]))
+                            :separator \tab)
+
+(pull-attr (dc/db conn) :db/id [:client/code "NGRV"])