added ability to void invoices.

2018-07-25 16:28:24 -07:00
parent 2cb540c1fa
commit 581e5e8798
6 changed files with 69 additions and 5 deletions
--- a/src/clj/auto_ap/graphql/invoices.clj
+++ b/src/clj/auto_ap/graphql/invoices.clj
@@ -39,7 +39,17 @@
        _ (assert-can-see-company (:id context) (:company-id invoice))
        updated-invoice (invoices/update (-> in
                                             (update :date parse iso-date)
-                                             (assoc :outstanding_balance (- (:total in) paid-amount))))]
+                                             (assoc :outstanding-balance (- (:total in) paid-amount))))]
+    (-> updated-invoice
+        (->graphql))))
+
+(defn void-invoice [context {id :invoice_id} value]
+  (let [invoice (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
        (->graphql))))