notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

more support for negative invoices.

Browse Source
This commit is contained in:
Bryce Covert
2019-02-14 08:06:07 -08:00
parent 881d59f8fb
commit b5ea345532
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
View File

@@ -641,7 +641,10 @@
(let [data @(re-frame/subscribe [::edit-invoice]) (let [data @(re-frame/subscribe [::edit-invoice])
change-event [::events/change-form [::edit-invoice]] change-event [::events/change-form [::edit-invoice]]
locations (get-in @(re-frame/subscribe [::subs/clients-by-id]) [(:client-id data) :locations]) locations (get-in @(re-frame/subscribe [::subs/clients-by-id]) [(:client-id data) :locations])
min-total (- (:total (:original data)) (:outstanding-balance (:original data))) min-total (if (= (:total (:original data)) (:outstanding-balance (:original data)))
nil
(- (:total (:original data)) (:outstanding-balance (:original data))))
should-select-location? (and locations should-select-location? (and locations
(> (count locations) 1))] (> (count locations) 1))]
@@ -650,7 +653,7 @@
:action-text "Save" :action-text "Save"
:save-event [::edit-invoice-save] :save-event [::edit-invoice-save]
:can-submit? (and #_(s/valid? ::invoice/invoice data) :can-submit? (and #_(s/valid? ::invoice/invoice data)
(>= (:total data) min-total))} (or (not min-total) (>= (:total data) min-total)))}
[horizontal-field [horizontal-field
[:label.label "Date"] [:label.label "Date"]
@@ -741,7 +744,14 @@
[:div.dropdown-trigger [:div.dropdown-trigger
[:button.button.is-success {:aria-haspopup true [:button.button.is-success {:aria-haspopup true
:on-click (dispatch-event [::print-checks-clicked ]) :on-click (dispatch-event [::print-checks-clicked ])
:disabled (if (seq checked-invoices) :disabled (if (and (seq checked-invoices)
(->> checked-invoices
vals
(group-by #(get-in % [:vendor :id]))
(reduce-kv (fn [negative? _ invoices]
(or negative? (< (reduce + 0 (map (fn [x] (-> x :outstanding-balance js/parseFloat)) invoices) ) 0)))
false)
not))
"" ""
"disabled") "disabled")