advanced print checks

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

@@ -125,9 +125,8 @@
                   [:div.buttons
                    (when confirm
                      [:button.button {:class (conj  (status/class-for status) (:class confirm) )
-                                      :disabled (if can-submit
+                                      :disabled (or (status/disabled-for status)
-                                                  false
+                                                    (not can-submit))
-                                                  true)
                                       :on-click (:on-click confirm)}
                       (:value confirm)])
                    (when cancel?

src/cljs/auto_ap/views/pages/invoices/advanced_print_checks.cljs

@@ -0,0 +1,144 @@
+(ns auto-ap.views.pages.invoices.advanced-print-checks
+  (:require [auto-ap.forms :as forms]
+            [auto-ap.status :as status]
+            [auto-ap.subs :as subs]
+            [auto-ap.utils :refer [by]]
+            [auto-ap.views.components.modal :as modal]
+            [auto-ap.views.pages.invoices.common :refer [invoice-read does-amount-exceed-outstanding?]]
+            [auto-ap.views.pages.invoices.form :as form]
+            [auto-ap.views.utils :refer [dispatch-event horizontal-field with-user]]
+            [re-frame.core :as re-frame]))
+
+(re-frame/reg-sub
+ ::can-submit-advanced-print-checks
+ :<- [::forms/form ::advanced-print-checks]
+ (fn [{ {:keys [invoices invoice-amounts]} :data}]
+   (cond (seq (filter
+               (fn [{:keys [id outstanding-balance]}]
+                 (does-amount-exceed-outstanding? (get-in invoice-amounts [id :amount]) outstanding-balance ))
+               invoices))
+         false
+
+         :else
+         true)))
+
+(def advanced-print-checks-form (forms/vertical-form {:submit-event [::advanced-print-checks-submitted]
+                                                      :change-event [::forms/change ::advanced-print-checks]
+                                                      :can-submit [::can-submit-advanced-print-checks]
+                                                      :id ::advanced-print-checks}))
+
+
+(defn print-checks-modal []
+  (let [real-bank-accounts @(re-frame/subscribe [::subs/real-bank-accounts])
+        {:keys [data active? error id]} @(re-frame/subscribe [::forms/form ::advanced-print-checks])
+        {:keys [form-inline horizontal-field field raw-field error-notification submit-button]} advanced-print-checks-form]
+
+    (form-inline {}
+                 [:<>
+                  [:div.field
+                   [:label.label  "Pay using"]
+                   [:div.control 
+                    [:span.select
+                     [raw-field
+                      [:select {:type "select"
+                                :field :bank-account-id}
+                       (for [{:keys [id number name]} real-bank-accounts]
+                         ^{:key id} [:option {:value id} name])]]]]]
+
+                  [:table.table.is-fullwidth
+                   [:thead
+                    [:tr
+                     [:th "Vendor"]
+                     [:th "Invoice ID"]
+                     [:th {:style {"width" "10em"}} "Payment"]]]
+                   [:tbody
+                    (doall
+                     (for [{:keys [vendor payment outstanding-balance invoice-number id] :as i} (:invoices data)]
+                       ^{:key id}
+                       [:tr
+                        [:td (:name vendor)]
+                        [:td invoice-number]
+                        
+                        [:td  [:div.field.has-addons.is-extended
+                               [:p.control [:a.button.is-static "$"]]
+                               [:p.control
+                                (raw-field 
+                                 [:input.input.has-text-right {:type "number"
+                                                               :field [:invoice-amounts id :amount]
+                                                               :step "0.01"}])]]]]))]]])))
+
+(re-frame/reg-event-fx
+ ::show
+ (fn [{:keys [db]} [_ invoices]]
+   {:dispatch [::modal/modal-requested {:title "Print Checks"
+                                        :body [print-checks-modal]
+                                        :confirm {:value "Print checks"
+                                                  :status-from [::status/single ::advanced-print-checks]
+                                                  :class "is-primary"
+                                                  :on-click (dispatch-event [::advanced-print-checks-submitted])
+                                                  :can-submit [::can-submit-advanced-print-checks]
+                                                  :close-event [::status/completed ::advanced-print-checks]}}]
+    :db (-> db
+            (forms/stop-form ::form/form)
+            (forms/start-form ::advanced-print-checks
+                              {:bank-account-id (:id (first @(re-frame/subscribe [::subs/real-bank-accounts])))
+                               :invoices invoices
+                               :invoice-amounts (into {}
+                                                      (map (fn [i] [(:id i)
+                                                                    {:amount (:outstanding-balance i)}])
+                                                           invoices))}))}))
+
+
+
+
+
+(defn print-checks-query [invoice-payments bank-account-id type client-id]
+  {:venia/operation {:operation/type :mutation
+                     :operation/name "PrintChecks"}
+   
+   :venia/queries [[:print-checks
+                    {:invoice_payments invoice-payments
+                     :type type
+                     :bank_account_id bank-account-id
+                     :client_id client-id}
+                    [[:invoices invoice-read]
+                     :pdf_url]]]})
+
+
+(re-frame/reg-event-fx
+ ::advanced-print-checks-submitted
+ [with-user (forms/in-form ::advanced-print-checks) ]
+ (fn [{:keys [db user]} [_ bank-account-id]]
+   (let [type (->> @(re-frame/subscribe [::subs/client])
+                   :bank-accounts
+                   (filter #(= bank-account-id (:id %)))
+                   first
+                   :type)
+         {:keys [date invoices invoice-amounts check-number bank-account-id client]} (:data db)]
+     {:graphql
+      {:token user
+       :owns-state {:single ::advanced-print-checks}
+       :query-obj (print-checks-query (map (fn [x]
+                                             {:invoice-id (:id x)
+                                              :amount (get-in invoice-amounts [(:id x) :amount])})
+                                           invoices)
+                                      bank-account-id
+                                      (cond (= type :check)
+                                            :check
+                                            (= type :cash)
+                                            :cash
+
+                                            :else
+                                            :check) 
+                                      (->> invoices first :client :id))  
+
+       :on-success (fn [result]
+                     [::checks-printed
+                      (:invoices (:print-checks result))
+                      (:pdf-url (:print-checks result))])}})))
+
+(re-frame/reg-event-fx
+ ::checks-printed
+ (fn [{:keys [db]} [_ data]]
+   {:dispatch [::modal/modal-closed]}))
+

src/cljs/auto_ap/views/pages/invoices/common.cljs

@@ -1,5 +1,17 @@
 (ns auto-ap.views.pages.invoices.common)
 
+(defn does-amount-exceed-outstanding? [amount outstanding-balance ]
+  (let [amount (js/parseFloat amount)
+        outstanding-balance (js/parseFloat outstanding-balance)] 
+    (or (and (> outstanding-balance 0)
+             (> amount outstanding-balance))
+        (and (> outstanding-balance 0)
+             (<= amount 0))
+        (and (< outstanding-balance 0)
+             (< amount outstanding-balance))
+        (and (< outstanding-balance 0)
+             (>= amount 0)))))
+
 (def invoice-read [:id :total :outstanding-balance :date :due :invoice-number :status
                    :automatically-paid-when-due
                    [:client [:id :name :locations]]

src/cljs/auto_ap/views/pages/unpaid_invoices.cljs

@@ -2,44 +2,40 @@
   (:require [auto-ap.entities.invoice :as invoice]
             [auto-ap.events :as events]
             [auto-ap.forms :as forms]
+            [auto-ap.status :as status]
             [auto-ap.subs :as subs]
-            [auto-ap.utils :refer [by replace-if replace-by]]
+            [auto-ap.utils :refer [by merge-by replace-if]]
-            [auto-ap.views.pages.invoices.form :as form]
             [auto-ap.views.components.dropdown :refer [drop-down]]
-            [auto-ap.views.components.expense-accounts-dialog :as expense-accounts-dialog :refer [change-expense-accounts-modal]]
+            [auto-ap.views.components.expense-accounts-dialog
-            [auto-ap.views.components.invoice-table :as table :refer [invoice-table]]
+             :as
-            [auto-ap.views.components.invoices.side-bar :refer [invoices-side-bar] :as side-bar]
+             expense-accounts-dialog
-            [auto-ap.views.components.layouts :refer [appearing-side-bar side-bar-layout]]
+             :refer
-            [auto-ap.views.components.modal :refer [action-modal modal]]
+             [change-expense-accounts-modal]]
-            [auto-ap.views.components.typeahead :refer [typeahead]]
+            [auto-ap.views.components.invoice-table :as table]
-            [auto-ap.views.components.vendor-filter :refer [vendor-filter]]
+            [auto-ap.views.components.invoices.side-bar
-            [auto-ap.views.pages.invoices.common :refer [invoice-read]]
+             :as
+             side-bar
+             :refer
+             [invoices-side-bar]]
+            [auto-ap.views.components.layouts
+             :refer
+             [appearing-side-bar side-bar-layout]]
+            [auto-ap.views.components.modal :as modal :refer [modal]]
             [auto-ap.views.pages.data-page :as data-page]
-            [auto-ap.views.utils :refer [bind-field date->str date-picker dispatch-event horizontal-field standard with-user]]
+            [auto-ap.views.pages.invoices.advanced-print-checks
-            [cljs-time.core :as c]
+             :as
-            [clojure.spec.alpha :as s]
+             advanced-print-checks]
-            [clojure.string :as str :refer [blank?]]
+            [auto-ap.views.pages.invoices.common :refer [invoice-read does-amount-exceed-outstanding?]]
+            [auto-ap.views.pages.invoices.form :as form]
+            [auto-ap.views.utils
+             :refer
+             [date-picker dispatch-event horizontal-field with-user]]
+            [clojure.set :as set]
+            [clojure.string :as str]
             [goog.string :as gstring]
-            [vimsical.re-frame.cofx.inject :as inject]
             [re-frame.core :as re-frame]
             [reagent.core :as r]
-            [auto-ap.status :as status]
+            [vimsical.re-frame.fx.track :as track]))
-            [vimsical.re-frame.fx.track :as track]
-            [auto-ap.utils :refer [merge-by]]
-            [clojure.set :as set]
-            [auto-ap.views.components.modal :as modal]))
-
-(defn does-amount-exceed-outstanding? [amount outstanding-balance]
-  (let [amount (js/parseFloat amount)
-        outstanding-balance (js/parseFloat outstanding-balance)] 
-    (or (and (> outstanding-balance 0)
-             (> amount outstanding-balance))
-        (and (> outstanding-balance 0)
-             (<= amount 0))
-        (and (< outstanding-balance 0)
-             (< amount outstanding-balance))
-        (and (< outstanding-balance 0)
-             (>= amount 0)))))
 
 (re-frame/reg-sub
  ::invoice-page
@@ -52,11 +48,6 @@
                     (assoc i :checkable? (not (:automatically-paid-when-due i))))
                   is))))))
 
-(re-frame/reg-sub
- ::advanced-print-checks
- (fn [db]
-   (-> db ::advanced-print-checks)))
-
 
 (re-frame/reg-sub
  ::change-expense-accounts
@@ -81,7 +72,6 @@
 
 
 
-
 (re-frame/reg-event-fx
  ::params-change
  [with-user]
@@ -105,7 +95,8 @@
  (fn [{:keys [db]} _]
    {:db (dissoc db ::invoice-page ::table/table-params ::side-bar/filters ::side-bar/settled-filters ::last-params)
     :dispatch [::data-page/dispose :invoices]
-    :forward-events [{:unregister ::updated}]
+    :forward-events [{:unregister ::updated}
+                     {:unregister ::advanced-print-checks-printed}]
     ::track/dispose [{:id ::params}]}))
 
 (re-frame/reg-event-fx
@@ -120,7 +111,7 @@
                       :dispatch-to [::data-page/entity-updated :invoices]}
 
                      {:register ::checks-printed
-                      :events #{::form/checks-printed}
+                      :events #{::form/checks-printed ::advanced-print-checks/checks-printed}
                       :dispatch-to [::checks-printed]}]}))
 
 
@@ -133,48 +124,6 @@
 
 
 
-(re-frame/reg-event-db
- ::advanced-print-checks
- (fn [db _]
-   (let [invoices @(re-frame/subscribe [::checked-invoices])]
-     (-> db
-         (forms/stop-form ::form/form)
-         (update-in [::invoice-page :print-checks-shown?] #(not %) )
-         (assoc-in [::advanced-print-checks] {:shown? true
-                                              :bank-account-id (:id (first @(re-frame/subscribe [::subs/bank-accounts])))
-                                              :invoices (map #(assoc % :amount (:outstanding-balance %)) invoices )} )))))
-
-
-
-(re-frame/reg-event-db
- ::cancel-advanced-print
- (fn [db _]
-   (assoc-in db [::advanced-print-checks :shown?] false )))
-
-(re-frame/reg-event-db
- ::close-check-results
- (fn [db _]
-   (assoc-in db [::check-results :shown?] false )))
-
-(re-frame/reg-event-db
- ::edit-payment-bank-account
- (fn [db [_ f v]]
-   (assoc-in db [::advanced-print-checks :bank-account-id] v)))
-
-(re-frame/reg-event-db
- ::edit-payment
- (fn [db [_ which f v]]
-   (update-in db [::advanced-print-checks :invoices]
-              (fn [is]
-                (for [i is]
-                  (if (= which (:id i))
-                    (assoc-in i f v)
-                    i))))))
-
-
-
-
-
 (defn print-checks-query [invoice-payments bank-account-id type client-id]
   {:venia/operation {:operation/type :mutation
                      :operation/name "PrintChecks"}
@@ -206,61 +155,23 @@
      :on-success [::checks-created]}}))
 
 
-
 (re-frame/reg-event-fx
- ::advanced-print-checks-submitted
+ ::checks-printed
- (fn [{:keys [db]} [_ bank-account-id]]
+ (fn [{:keys [db]} [_ [_ invoices pdf-url]]]
-   (let [invoice-amounts (by :id (comp js/parseFloat :amount) (get-in db [::advanced-print-checks :invoices]))
+   (let [invoices-by-id (by :id invoices) ]
-         bank-account-id (get-in db [::advanced-print-checks :bank-account-id])
+     {:db (-> db 
-         type (->> @(re-frame/subscribe [::subs/client])
+              (assoc-in [::check-results :shown?] true)
-                   :bank-accounts
+              (assoc-in [::check-results :pdf-url] pdf-url))
-                   (filter #(= bank-account-id (:id %)))
+      :dispatch-n (mapv
-                   first
+                   (fn [i]
-                   :type)]
+                     [::data-page/entity-updated :invoices [nil (assoc i :class "live-added")]])
-     {:db (-> db
+                   invoices)})))
-              (assoc-in [::advanced-print-checks :printing?] true ))
-      :graphql
-      {:token (-> db :user)
-       
-       :query-obj (print-checks-query (map (fn [x]
-                                             {:invoice-id (:id x)
-                                              :amount (invoice-amounts (:id x))})
-                                           (get-in db [::advanced-print-checks :invoices]))
-                                      bank-account-id
-                                      (cond (= type :check)
-                                            :check
-                                            (= type :cash)
-                                            :cash
 
-                                            :else
-                                            :check) 
-                                      (:client db))  
-
-       :on-success [::checks-created]}})))
-
-(re-frame/reg-event-fx
- ::checks-created
- (fn [{:keys [db]} [_ data]]
-   (let [{{:keys [pdf-url invoices]} :print-checks} data
-         invoices-by-id (by :id invoices) ]
-     {
-      :db (-> db
-              (update-in [::invoice-page :invoices]
-                            (fn [invoices]
-                              (map (fn [i]
-                                     (merge i (invoices-by-id (:id i))))
-                                   invoices)))
-              (assoc-in [::invoice-page :checked] nil)
-              (assoc-in [::advanced-print-checks :printing?] false)
-              (assoc-in [::advanced-print-checks :shown?] false))
-      :dispatch [::checks-printed pdf-url]})))
 
 (re-frame/reg-event-db
- ::checks-printed
+ ::close-check-results
- (fn [db [_ [_ pdf-url :as g]]]
+ (fn [db _]
-   (-> db 
+   (assoc-in db [::check-results :shown?] false )))
-       (assoc-in [::check-results :shown?] true)
-       (assoc-in [::check-results :pdf-url] pdf-url))))
 
 (re-frame/reg-event-fx
  ::new-invoice-clicked
@@ -295,64 +206,7 @@
                            (replace-if #(= (:id %1) (:id %2)) updated is)))
               (dissoc ::change-expense-accounts))})))
 
-(defn print-checks-modal []
-  (let [{:keys [checked]} @(re-frame/subscribe [::invoice-page]) 
-        {:keys [shown? invoices printing?] :as advanced-print-checks} @(re-frame/subscribe [::advanced-print-checks])
-        current-client @(re-frame/subscribe [::subs/client])] 
 
-    (when shown?
-      [modal {:title "Print Checks"
-              :foot [:button.button.is-primary {:on-click (dispatch-event [::advanced-print-checks-submitted])
-                                                :disabled (cond printing?
-                                                                "disabled"
-
-                                                                (seq (filter
-                                                                      (fn [{:keys [outstanding-balance amount]}]
-                                                                        (does-amount-exceed-outstanding? amount outstanding-balance ))
-                                                                      invoices))
-                                                                "disabled"
-
-                                                                :else
-                                                                "")
-                                                :class (if printing? "is-loading" "")}
-                     [:span "Print"]]
-              :hide-event [::cancel-advanced-print]}
-       "Print using"
-       [:span.field
-        [:span.select
-         [bind-field
-          
-          [:select {:type "select"
-                    :field :bank-account-id
-                    :event ::edit-payment-bank-account
-                    :subscription advanced-print-checks}
-           (for [{:keys [id number name]} (sort-by :sort-order (:bank-accounts current-client))]
-             ^{:key id} [:option {:value id} name])]]]]
-
-       [:table.table.is-fullwidth
-        [:thead
-         [:tr
-          [:th "Vendor"]
-          [:th "Invoice ID"]
-          [:th {:style {"width" "10em"}} "Payment"]]]
-        [:tbody
-         (for [{:keys [vendor payment outstanding-balance invoice-number id] :as i} invoices]
-           ^{:key id}
-           [:tr
-            [:td (:name vendor)]
-            [:td invoice-number]
-            
-            [:td  [:div.field.has-addons.is-extended
-                   [:p.control [:a.button.is-static "$"]]
-                   [:p.control
-                    [bind-field
-                     [:input.input {:type "number"
-                                    :field :amount
-                                    :event [::edit-payment id]
-                                    :subscription i
-                                    :value payment
-                                    :max outstanding-balance
-                                    :step "0.01"}]]]]]])]]])))
 
 ;; HANDWRITE CHECKS
 
@@ -363,8 +217,6 @@
 
 (defn handwrite-checks-modal []
   (let [{:keys [checked]} @(re-frame/subscribe [::invoice-page]) 
-        change-event [::events/change-form [::handwrite-checks]]
-        current-client @(re-frame/subscribe [::subs/client])
         real-bank-accounts @(re-frame/subscribe [::subs/real-bank-accounts])
         {:keys [data active? error id]} @(re-frame/subscribe [::forms/form ::handwrite-checks])
         {:keys [form-inline horizontal-field field raw-field error-notification submit-button]} handwrite-checks-form]
@@ -479,8 +331,7 @@
                                                                             :amount (get-in invoice-amounts [(:id x) :amount])})
                                                                          invoices)
                                                   :check-number check-number
-                                                  :bank-account-id bank-account-id
+                                                  :bank-account-id bank-account-id}
-                                                  }
                                                  [[:invoices invoice-read]]]}]}  
        :on-success [::handwrite-checks-succeeded]}})))
 
@@ -495,10 +346,6 @@
                            [::data-page/entity-updated :invoices [_ (assoc i :class "live-added")]])
                          (:invoices add-handwritten-check)))})))
 
-
-
-
-
 (defn pay-button []
   (let [current-client @(re-frame/subscribe [::subs/client])
         checked-invoices @(re-frame/subscribe [::checked-invoices])]
@@ -540,13 +387,12 @@
 
             (when (= 1 (count (set (map (comp :id :vendor) checked-invoices))))
               ^{:key "handwritten"} [:a.dropdown-item {:on-click (dispatch-event [::handwrite-checks])} "Handwritten Check..."])
-            ^{:key "advanced"} [:a.dropdown-item {:on-click (dispatch-event [::advanced-print-checks])} "Advanced..."])]])]]
+            ^{:key "advanced"} [:a.dropdown-item {:on-click (dispatch-event [::advanced-print-checks/show checked-invoices])} "Advanced..."])]])]]
      [:div.is-pulled-right {:style {:margin-right "0.5rem"}}
       (into [:div.tags ] (map (fn [{:keys [id invoice-number]}]
                                 [:span.tag.is-medium invoice-number
                                  [:button.delete.is-small {:on-click
-                                                           (dispatch-event [::data-page/remove-check :invoices id])}]]) checked-invoices))]]
+                                                           (dispatch-event [::data-page/remove-check :invoices id])}]]) checked-invoices))]]))
-    ))
 
 (defn check-results-dialog []
   (let [{check-results-shown? :shown? pdf-url :pdf-url} @(re-frame/subscribe [::check-results])]
@@ -595,7 +441,5 @@
                           :main [unpaid-invoices-content params]
                           :bottom [:div
                                    [check-results-dialog]
-                                   [print-checks-modal]
                                    [change-expense-accounts-modal {:updated-event [::expense-accounts-updated]}]]
-                          :right-side-bar [appearing-side-bar {:visible? invoice-bar-active?} [form/form {:invoice-created [::invoice-edited]
+                          :right-side-bar [appearing-side-bar {:visible? invoice-bar-active?} [form/form {:invoice-printed [::checks-printed]}]]}]))}))
-                                                                                                          :invoice-printed [::checks-printed]}]]}]))}))