balance sheet gives same warning
This commit is contained in:
@@ -887,7 +887,8 @@
|
||||
table (if (:include-comparison (:args pnl-data))
|
||||
(append-deltas table)
|
||||
table)]
|
||||
{:header (balance-sheet-headers pnl-data)
|
||||
{:warning (warning-message pnl-data)
|
||||
:header (balance-sheet-headers pnl-data)
|
||||
:rows table}))
|
||||
)
|
||||
|
||||
|
||||
@@ -260,10 +260,15 @@ NOTE: Please review the transactions we may have question for you here: https://
|
||||
pnl-data (l-reports/->PNLData args pnl-data client-names)
|
||||
report (l-reports/summarize-balance-sheet pnl-data)
|
||||
client-count (count (set (map :client-id (:data pnl-data))))]
|
||||
[rtable/table {:widths (cond-> (into [30 ] (repeat 13 client-count))
|
||||
(:include-comparison args) (into (repeat 13 (* 2 client-count))))
|
||||
:click-event ::investigate-clicked
|
||||
:table report}]))
|
||||
|
||||
[:<> [:h1.title "Balance Sheet - " (str/join ", " (map client-names (set (map :client-id (:data pnl-data)))))]
|
||||
(when (:warning report)
|
||||
[:div.notification.is-warning.is-light
|
||||
(:warning report)])
|
||||
[rtable/table {:widths (cond-> (into [30 ] (repeat 13 client-count))
|
||||
(:include-comparison args) (into (repeat 13 (* 2 client-count))))
|
||||
:click-event ::investigate-clicked
|
||||
:table report}]]))
|
||||
|
||||
(defn balance-sheet-content []
|
||||
(let [current-client @(re-frame/subscribe [::subs/client])
|
||||
|
||||
Reference in New Issue
Block a user