From 96baf78aaf926e6badac1d76ec954fc2fb80d5cd Mon Sep 17 00:00:00 2001
From: Bryce Covert <github@brycecovertoperations.com>
Date: Mon, 4 Jun 2018 21:43:59 -0700
Subject: [PATCH] You can change categories

---
 .../auto_ap/views/pages/unpaid_invoices.cljs  | 20 +++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
index 564d94be..ed98f178 100644
--- a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
+++ b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
@@ -3,9 +3,11 @@
             [reagent.core :as r]
             [clojure.string :as str]
             [clojure.spec.alpha :as s]
+            [goog.string :as gstring]
             [auto-ap.entities.companies :as company]
             [auto-ap.entities.invoice :as invoice]
             [auto-ap.entities.vendors :as vendor]
+            [auto-ap.entities.invoices-expense-accounts :as invoices-expense-accounts]
             [auto-ap.views.utils :refer [dispatch-event bind-field horizontal-field]]
             [auto-ap.utils :refer [by replace-if]]
             [auto-ap.views.pages.check :as check]
@@ -288,13 +290,20 @@
                         (drop (inc index) expense-accounts))))))
 
 (defn change-expense-accounts-modal []
-  (let [{{:keys [expense-accounts]} :invoice :as data} @(re-frame/subscribe [::change-expense-accounts])
-        change-event [::events/change-form [::change-expense-accounts]]]
+  (let [{{:keys [expense-accounts total] :or {expense-accounts [] total 0}} :invoice :as data} @(re-frame/subscribe [::change-expense-accounts])
+        change-event [::events/change-form [::change-expense-accounts]]
+        expense-accounts-total (->> expense-accounts
+                                    (map :amount)
+                                    (map js/parseFloat)
+                                    (map #(or % 0))
+                                    (reduce + 0))
+        does-add-up? (= expense-accounts-total (js/parseFloat total))]
     [action-modal {:id ::change-expense-accounts
                    :title "Change expense accounts"
                    :action-text "Save"
                    :save-event [::change-expense-accounts-saving]
-                   #_#_:can-submit? (s/valid? ::invoice/invoice data)}
+                   :can-submit? (and does-add-up?
+                                 (s/valid? (s/* ::invoices-expense-accounts/invoices-expense-account) expense-accounts))}
 
      [:div
       [:a.button.is-primary {:on-click (dispatch-event [::add-expense-account-split])} "Add split"]]
@@ -332,7 +341,10 @@
                               :max (:total data)
                               :step "0.01"}]]]]]]
           [:td [:a.button {:on-click (dispatch-event [::remove-expense-account-split index])} [:i.fa.fa-times]]]]
-         )]]]))
+         )
+       [:tr
+        [:th "TOTAL"]
+        [:th  (str (gstring/format "$%.2f" expense-accounts-total ) " (" (gstring/format "$%.2f" total ) ")" )]]]]]))
 
 
 (defn print-checks-modal []