(cloud) Makes POS page work again

2023-05-03 12:30:04 -07:00
parent 2845f21227
commit 2bb1da1636
5 changed files with 30 additions and 17 deletions
--- a/iol_ion/src/iol_ion/query.clj
+++ b/iol_ion/src/iol_ion/query.clj
@@ -36,19 +36,12 @@
 (defn sales-orders-in-range [db client start end]
  (let [end (or end #inst "2050-01-01")]
    (into #{}
-          (comp
-            (map (fn [i]
-                   (dc/index-range db
-                                   {:attrid :sales-order/client+date
-                                    :start  [client start]
-                                    :end    [client end]
-                                    :limit  10000
-                                    :offset (* 10000 i)})))
-
-            (take-while seq)
-            (mapcat identity)
-            (map :e))
-          (range))))
+          (map (fn [datom]
+                 (:e datom)))
+          (dc/index-range db
+                          :sales-order/client+date
+                          [client start]
+                          [client end]))))


 (defn can-see-client? [identity client]