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/invoices.clj
+++ b/src/clj/auto_ap/graphql/invoices.clj
@@ -82,7 +82,7 @@

 (defn void-invoice [context {id :invoice_id} value]
 (let [invoice (d-invoices/get-by-id id)
-  _ (assert-can-see-client (:id context) (:client-id invoice))
+  _ (assert-can-see-client (:id context) (:db/id (:invoice/client invoice)))
  updated-invoice (d-invoices/update {:db/id id
    :invoice/total 0.0
    :invoice/outstanding-balance 0.0