oops, admins only still.

src/clj/auto_ap/ssr/company/company_1099.clj

@@ -15,6 +15,37 @@
              (:vendor/legal-entity-tin vendor)
              (:vendor/legal-entity-tin-type vendor))))
 
+(defn get-1099-companies-2 [user]
+  (let [clients (->> (d/q '[:find ?c
+                            :in $ ?user
+                            :where [?c :client/code]
+                            [(auto-ap.graphql.utils/can-see-client? ?user ?c)]]
+                          (d/db conn) user)
+                     (map first)
+                     set)]
+    (->> (d/q '[:find
+                ?c
+                ?v
+                (sum ?a)
+                :with ?p
+                :in $ [?c ...]
+                :where
+                [?p :payment/client ?c]
+                [?p :payment/type :payment-type/check]
+                [?p :payment/date ?d ]
+                [(>= ?d #inst "2022-01-01T08:00")]
+                [(< ?d #inst "2023-01-01T08:00")]
+                [?p :payment/amount ?a]
+                [?p :payment/vendor ?v]]
+              (d/db conn)
+              clients)
+         (filter (fn [[_ _ a]]
+                   (>= a 600.0)))
+         (take 200)
+         
+         (sort-by (fn [[client _ amount]]
+                    [client amount]) ))))
+
 (defn get-1099-companies [user]
   (let [clients (->> (d/q '[:find ?c
                             :in $ ?user