starting work on cash flow.

src/clj/auto_ap/datomic/invoices.clj

@@ -111,7 +111,7 @@
                                            "location" ['[?e :invoice/expense-accounts ?iea]
                                                        '[?iea :invoice-expense-account/location ?sort-location]]
                                            "date" ['[?e :invoice/date ?sort-date]]
-                                           "due" ['[?e :invoice/due ?sort-due]]
+                                           "due" ['[(get-else $ ?e :invoice/due #inst "2050-01-01") ?sort-due]]
                                            "invoice-number" ['[?e :invoice/invoice-number ?sort-invoice-number]]
                                            "total" ['[?e :invoice/total ?sort-total]]
                                            "outstanding-balance" ['[?e :invoice/outstanding-balance ?sort-outstanding-balance]]}
@@ -134,13 +134,30 @@
                       (mapv <-datomic))]
     invoices))
 
+(defn sum-outstanding [ids]
+  
+  (->> 
+   (d/query {:query {:find ['?o]
+                     :in ['$ '[?id ...]]
+                     :where ['[?id :invoice/outstanding-balance ?o]]
+                     }
+             :args [(d/db (d/connect uri))
+                    ids]})
+   (map first)
+   (reduce
+    +
+    0.0)))
+
 (defn get-graphql [args]
   (let [db (d/db (d/connect uri))
-        {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
+        {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)
+        outstanding (sum-outstanding ids-to-retrieve)]
 
     
     [(->> (graphql-results ids-to-retrieve db args))
-     matching-count]))
+     matching-count
+     (doto  
+         outstanding println)]))
 
 (defn get-by-id [id]
   (-> (d/db (d/connect uri))