fixing several issues.

2019-01-18 08:10:54 -08:00
parent 775150131e
commit 72350a03c1
8 changed files with 10 additions and 7 deletions
--- a/src/clj/auto_ap/graphql/checks.clj
+++ b/src/clj/auto_ap/graphql/checks.clj
@@ -339,7 +339,8 @@
  (let [check (d-checks/get-by-id id)]
    (assert (or (= :payment-status/pending (:payment/status check))
                (#{:payment-type/cash :payment-type/debit} (:payment/type check))))
-    (assert-can-see-client (:id context) (:client-id check))
+    (println "VOID CHECK" check)
+    (assert-can-see-client (:id context) (:db/id (:payment/client check)))
    (let [removing-payments (mapcat (fn [x]
                                      (let [invoice (:invoice-payment/invoice x)
                                            new-balance (+ (:invoice/outstanding-balance invoice)