Adds new expense report, with ability to break down by vendor

src/clj/auto_ap/square/core3.clj

@@ -1002,7 +1002,21 @@
 
 
 
-  (clojure.pprint/pprint (let [[c [l]] (get-square-client-and-location "NGWC")]
+  (require 'auto-ap.time-reader)
+
+  (clojure.pprint/pprint (let [[c [l]] (get-square-client-and-location "NGHW")]
+
+                           (def z @(search c l #clj-time/date-time "2024-04-10T00:00:00-08:00"
+                                           #clj-time/date-time "2024-04-13T00:00:00-08:00"))))
+
+  (->> z 
+       (filter (fn [o]
+                 (seq (filter (comp #{"OTHER"} :type) (:tenders o)))))
+       (filter #(not (:name (:source %))))
+       (count)
+       
+       )
+
+  #_(filter (comp #{"OTHER"} :type) (mapcat :tenders z))
 
-                           (get-order c l "yzmLBYVGhKXUPwGXm482GJb2VX9YY")))
   )