You can now see cash flow details
This commit is contained in:
@@ -9,7 +9,7 @@
|
||||
[auto-ap.views.components.grid :as grid]
|
||||
[auto-ap.views.pages.invoices.form :as form]
|
||||
[auto-ap.views.pages.invoices.common :refer [invoice-read]]
|
||||
[auto-ap.views.utils :refer [date->str dispatch-event nf]]
|
||||
[auto-ap.views.utils :refer [date->str dispatch-event nf days-until]]
|
||||
[bidi.bidi :as bidi]
|
||||
[cemerick.url :as url]
|
||||
[cljs-time.core :as t]
|
||||
@@ -106,11 +106,7 @@
|
||||
[grid/cell {} (date->str date) ]
|
||||
[grid/cell {}
|
||||
(when due
|
||||
(let [today (t/at-midnight (t/now))
|
||||
due (t/at-midnight due)
|
||||
due-in (if (t/after? today due)
|
||||
(- (t/in-days (t/interval (t/minus due (t/days 1)) today)))
|
||||
(t/in-days (t/interval today due )))]
|
||||
(let [due-in (days-until due)]
|
||||
(if (> due-in 0)
|
||||
[:span.has-text-success due-in " days"]
|
||||
[:span.has-text-danger due-in " days"])
|
||||
|
||||
Reference in New Issue
Block a user