From 891ccb27233febda7ac712eb529892dee8d2ee64 Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@pelo.tech>
Date: Mon, 11 Feb 2019 22:05:43 -0800
Subject: [PATCH] voiding also voids expense accounts.

---
 src/clj/auto_ap/graphql/invoices.clj | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/clj/auto_ap/graphql/invoices.clj b/src/clj/auto_ap/graphql/invoices.clj
index 9e00f4ae..1187d8c1 100644
--- a/src/clj/auto_ap/graphql/invoices.clj
+++ b/src/clj/auto_ap/graphql/invoices.clj
@@ -96,11 +96,15 @@
 
 (defn void-invoice [context {id :invoice_id} value]
  (let [invoice (d-invoices/get-by-id id)
+       _ (println 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
-    :invoice/status :invoice-status/voided})]
+                                      :invoice/status :invoice-status/voided
+                                      :invoice/expense-accounts (map (fn [ea] {:db/id (:db/id ea)
+                                                                               :invoice-expense-account/amount 0.0})
+                                                                     (:invoice/expense-accounts invoice))})]
     ;; TODO void out all expense accounts
 
   (-> updated-invoice