more conversion to datomic
This commit is contained in:
@@ -14,17 +14,17 @@
|
||||
[auto-ap.time :refer [parse normal-date iso-date]]))
|
||||
|
||||
|
||||
(defn get-check-page [context args value]
|
||||
(defn get-payment-page [context args value]
|
||||
(let [args (assoc args :id (:id context))
|
||||
checks (map
|
||||
payments (map
|
||||
->graphql
|
||||
(d-checks/get-graphql (<-graphql args)))
|
||||
checks-count (d-checks/count-graphql (<-graphql args))]
|
||||
[{:checks checks
|
||||
[{:payments payments
|
||||
:total checks-count
|
||||
:count (count checks)
|
||||
:count (count payments)
|
||||
:start (:start args 0)
|
||||
:end (+ (:start args 0) (count checks))}]))
|
||||
:end (+ (:start args 0) (count payments))}]))
|
||||
|
||||
(defn add-handwritten-check [context args value]
|
||||
(let [invoice (invoices/get-by-id (:invoice_id args))
|
||||
|
||||
Reference in New Issue
Block a user