another sql mutation bites the dust.

This commit is contained in:
Bryce Covert
2018-09-03 14:54:18 -07:00
parent fe5d09c02b
commit 2e87b9ddff
4 changed files with 11 additions and 7 deletions

View File

@@ -64,12 +64,12 @@
(->graphql))))
(defn void-invoice [context {id :invoice_id} value]
(let [invoice (invoices/get-by-id id)
(let [invoice (d-invoices/get-by-id id)
_ (assert-can-see-company (:id context) (:company-id invoice))
updated-invoice (invoices/update {:id id
:total 0
:outstanding-balance 0
:status "voided"})]
updated-invoice (d-invoices/update {:db/id (Long/parseLong id)
:invoice/total 0.0
:invoice/outstanding-balance 0.0
:invoice/status :invoice-status/voided})]
(-> updated-invoice
(->graphql))))