diff --git a/src/cljs/auto_ap/views/components/vendor_dialog.cljs b/src/cljs/auto_ap/views/components/vendor_dialog.cljs
index f8d0e4e4..1061705d 100644
--- a/src/cljs/auto_ap/views/components/vendor_dialog.cljs
+++ b/src/cljs/auto_ap/views/components/vendor_dialog.cljs
@@ -19,6 +19,7 @@
  ::can-submit
  :<- [::forms/form ::vendor-form]
  (fn [form]
+   (println (s/explain-data ::entity/vendor (:data form)))
    (s/valid? ::entity/vendor (:data form))))
 
 (defn ngrams [text len]
diff --git a/src/cljs/auto_ap/views/pages/invoices/form.cljs b/src/cljs/auto_ap/views/pages/invoices/form.cljs
index 23c02087..5fef263d 100644
--- a/src/cljs/auto_ap/views/pages/invoices/form.cljs
+++ b/src/cljs/auto_ap/views/pages/invoices/form.cljs
@@ -35,11 +35,12 @@
  (fn [{:keys [data status]} _]
    (let [min-total (if (= (:total (:original data)) (:outstanding-balance (:original data)))
                      nil
-                     (- (:total (:original data)) (:outstanding-balance (:original data))))]
+                     (- (:total (:original data)) (:outstanding-balance (:original data))))
+         account-total (reduce + 0 (map (fn [ea] (js/parseFloat (:amount ea))) (:expense-accounts data)))]
      (and (s/valid? ::invoice/invoice data)
           (or (not min-total) (>= (:total data) min-total))
           (or (not (:id data))
-              (dollars= (js/parseFloat (:total data))  (reduce + 0 (map (fn [ea] (js/parseFloat (:amount ea))) (:expense-accounts data)))))))))
+              (dollars= (Math/abs (js/parseFloat (:total data)))  (Math/abs account-total)))))))
 
 (re-frame/reg-sub
  ::create-query