balance sheet gives same warning

This commit is contained in:
2023-11-20 21:54:21 -08:00
parent 1a5183aae2
commit eb6441b36d
2 changed files with 11 additions and 5 deletions

View File

@@ -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}))
)

View File

@@ -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])