(cloud) Makes POS page work again

src/clj/auto_ap/datomic/sales_orders.clj

@@ -111,10 +111,6 @@
                 (merge-query {:query {:find  ['?date '?e]
                                       :where ['[?e :sales-order/date ?date]]}}))]
 
-    (mu/log ::query-stats
-            :stats (:query-stats (dc/q (assoc query :query-stats true)))
-            :q (str query))
-
     (cond->> (query2 query)
       true (apply-sort-3 (assoc args :default-asc? false))
       true (apply-pagination args))))

src/clj/user.clj

@@ -3,6 +3,7 @@
    [amazonica.aws.s3 :as s3]
    [auto-ap.datomic :refer [conn pull-attr random-tempid]]
    [auto-ap.ledger :as l ]
+   [clj-http.core :as http]
    [auto-ap.server]
    [auto-ap.square.core :as square]
    [auto-ap.square.core2 :as square2]
@@ -551,3 +552,16 @@
                    id (rand-int 100000)]]
          ["posted" d (str "Random Description - " id) "Travel" nil nil (- amount) nil nil nil nil nil (rand-nth bank-accounts) client-code])
        :separator \tab))))
+
+
+(defn index-solr
+  []
+  )
+
+(defn setup-sales-orders []
+  (doseq [n (->> (dc/qseq {:query '[:find ?s ?c :where [?s :sales-order/client ?c]] :args [(dc/db auto-ap.datomic/conn)]})
+                 (map (fn [[s c]]
+                        {:db/id s :sales-order/client c}))
+                 (partition-all 1000)
+                 (take 10))]
+    @(dc/transact auto-ap.datomic/conn n)))