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

balance sheet gives same warning

Browse Source
This commit is contained in:
Bryce
2023-11-20 21:54:21 -08:00
parent 1a5183aae2
commit eb6441b36d
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/cljc/auto_ap/ledger/reports.cljc
View File

@@ -887,7 +887,8 @@
table (if (:include-comparison (:args pnl-data)) table (if (:include-comparison (:args pnl-data))
(append-deltas table) (append-deltas table)
table)] table)]
{:header (balance-sheet-headers pnl-data) {:warning (warning-message pnl-data)
:header (balance-sheet-headers pnl-data)
:rows table})) :rows table}))
) )

13
src/cljs/auto_ap/views/pages/ledger/balance_sheet.cljs
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) pnl-data (l-reports/->PNLData args pnl-data client-names)
report (l-reports/summarize-balance-sheet pnl-data) report (l-reports/summarize-balance-sheet pnl-data)
client-count (count (set (map :client-id (:data 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)))) [:<> [:h1.title "Balance Sheet - " (str/join ", " (map client-names (set (map :client-id (:data pnl-data)))))]
:click-event ::investigate-clicked (when (:warning report)
:table 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 [] (defn balance-sheet-content []
(let [current-client @(re-frame/subscribe [::subs/client]) (let [current-client @(re-frame/subscribe [::subs/client])