starting work on cash flow.

src/cljs/auto_ap/views/components/invoice_table.cljs

@@ -57,6 +57,7 @@
                                  [:client [:name :id :locations]]
                                  [:payments [:amount :id [:payment [:id :status :amount :s3_url :check_number
                                                                     [:transaction [:post_date]]]]]]]]
+                     :outstanding
                      :total
                      :start
                      :end]]]})
@@ -172,7 +173,7 @@
         visible-expense-accounts @(re-frame/subscribe [::visible-expense-accounts])
         selected-client @(re-frame/subscribe [::subs/client])
         {:keys [sort]} @(re-frame/subscribe [::table-params])
-        {:keys [invoices start end count total]} @invoice-page
+        {:keys [invoices outstanding start end count total]} @invoice-page
         visible-checks @(re-frame/subscribe [::visible-checks])
         visible-expense-accounts @(re-frame/subscribe [::visible-expense-accounts])
         selected-client @(re-frame/subscribe [::subs/client])
@@ -200,7 +201,9 @@
                     :on-change opc}]]
        [:div.level-item
         [sort-by-list {:sort sort 
-                       :on-change opc}]]]]
+                       :on-change opc}]]
+       [:div.level-item
+        "Outstanding" (nf outstanding)]]]
      (doall 
       (for [invoices invoice-groups]
         ^{:key (:id (first invoices))}

src/cljs/auto_ap/views/components/modal.cljs

@@ -14,7 +14,7 @@
     [:header.modal-card-head
      [:p.modal-card-title
       title]
-     [:button.delete {:on-click (fn [] (re-frame/dispatch hide-event))}]]
+     [:button.delete {:on-click (fn [e] (.preventDefault e) (re-frame/dispatch hide-event))}]]
     (into [:section.modal-card-body]
           (r/children (r/current-component)))
     

src/cljs/auto_ap/views/components/vendor_dialog.cljs

@@ -107,7 +107,7 @@
  ::save
  [with-user with-is-admin? (forms/triggers-loading ::vendor-form) (forms/in-form ::vendor-form)]
  (fn  [{:keys [user is-admin?] {{:keys [name hidden print-as terms invoice-reminder-schedule primary-contact secondary-contact address default-account terms-overrides account-overrides id] :as data} :data} :db} _]
-   (println user)
+   (println user is-admin?)
    (when (s/valid? ::entity/vendor data)
      { :graphql
       {:token user