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

cash flow progress

Browse Source
This commit is contained in:
Bryce Covert
2022-12-12 21:12:34 -08:00
parent e88f015d1d
commit 545d5c2529
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -559,6 +559,11 @@
(defn cash-flows-table [pnl-datas #_client-datas title prefix] (defn cash-flows-table [pnl-datas #_client-datas title prefix]
(let [table (-> [] (let [table (-> []
(conj (cashflow-subtotal-by-column-row (map #(-> %
(filter-categories [:sales :cogs :payroll :controllable :fixed-overhead :ownership-controllable])
(negate #{:cogs :payroll :controllable :fixed-overhead :ownership-controllable}))
pnl-datas)
"Net Income"))
(into (cash-flow-detail-rows pnl-datas (into (cash-flow-detail-rows pnl-datas
:operating-activities :operating-activities
(str prefix " Operating Activities"))) (str prefix " Operating Activities")))