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

allowing paying negative invoices.

Browse Source
This commit is contained in:
Bryce Covert
2019-03-20 23:04:54 -07:00
parent a55e6d890f
commit 461686aee6
3 changed files with 52 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -508,7 +508,20 @@
:disabled (cond printing?
"disabled"
(seq (filter #(> (js/parseFloat (:amount %)) (js/parseFloat (:outstanding-balance %))) invoices))
(seq (filter
(fn [{:keys [outstanding-balance amount]}]
(let [amount (js/parseFloat amount)
outstanding-balance (js/parseFloat outstanding-balance)]
(println amount 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)))))
invoices))
"disabled"
:else
@@ -872,7 +885,7 @@
[drop-down {:header [:button.button.is-success {:aria-haspopup true
:on-click (dispatch-event [::events/toggle-menu ::print-checks ])
:disabled (if (and (seq checked-invoices)
(->> checked-invoices
#_(->> checked-invoices
vals
(group-by #(get-in % [:vendor :id]))
(reduce-kv (fn [negative? _ invoices]