preventing submits.

src/clj/auto_ap/graphql/invoices.clj

@@ -84,6 +84,11 @@
                                                          :invoice/client (:db/id (:invoice/client invoice))})
                        println))
             (throw (ex-info (str "Invoice '" invoice_number "' already exists.") {:invoice-number invoice_number})))
+
+        expense-account-total (reduce + 0 (map (fn [x] (Double/parseDouble (:amount x))) expense_accounts))
+        _ (when (not= total expense-account-total)
+            (let [error (str "Expense account total (" expense-account-total ") does not equal invoice total (" total ")")]
+              (throw (ex-info error {:validation-error error}))))
         paid-amount (- (:invoice/total invoice) (:invoice/outstanding-balance invoice))
         _ (assert-can-see-client (:id context) (:db/id (:invoice/client invoice)))
         updated-invoice (d-invoices/update {:db/id id