payments work through the ui in datomic

src/clj/auto_ap/graphql/checks.clj

@@ -6,41 +6,25 @@
             [com.walmartlabs.lacinia.resolve :as resolve]
             [auto-ap.db.invoices-checks :as invoices-checks]
             [auto-ap.db.checks :as checks]
+            [auto-ap.datomic.checks :as d-checks]
             [auto-ap.db.vendors :as vendors]
             [auto-ap.db.invoices :as invoices]
             [auto-ap.utils :refer [by]]
             [auto-ap.db.companies :as companies]
             [auto-ap.time :refer [parse normal-date iso-date]]))
 
-(defn get-vendor-for-check [context args value]
-  (->graphql
-    (if-let [vendor-cache (:vendor-cache context)]
-      (vendor-cache (:vendor_id value))
-      (vendors/get-by-id (:vendor_id value)))))
-
-(defn get-company-for-check [context args value]
-  (->graphql
-    (if-let [company-cache (:company-cache context)]
-      (company-cache (:company_id value))
-      (companies/get-by-id (:company_id value)))))
 
 (defn get-check-page [context args value]
   (let [args (assoc args :id (:id context))
-        extra-context
-        (cond->  {}
-          (executor/selects-field? context :invoice/vendor) (assoc :vendor-cache (by  :id (vendors/get-all)))
-          (executor/selects-field? context :invoice/company) (assoc :company-cache (by  :id (companies/get-all))))
-
         checks (map
                   ->graphql
-                  (checks/get-graphql  (<-graphql args)))
-        checks-count (checks/count-graphql (<-graphql args))]
-    (resolve/with-context
-      [{:checks checks
-        :total checks-count
-        :count (count checks)
-        :start (:start args 0)
-        :end (+ (:start args 0) (count checks))}] extra-context)))
+                  (d-checks/get-graphql  (<-graphql args)))
+        checks-count (d-checks/count-graphql (<-graphql args))]
+    [{:checks checks
+      :total checks-count
+      :count (count checks)
+      :start (:start args 0)
+      :end (+ (:start args 0) (count checks))}]))
 
 (defn add-handwritten-check [context args value]
   (let [invoice (invoices/get-by-id (:invoice_id args))