cash flow progress

2022-12-12 21:12:34 -08:00
parent e88f015d1d
commit 545d5c2529
1 changed files with 5 additions and 0 deletions
--- a/src/cljc/auto_ap/ledger/reports.cljc
+++ b/src/cljc/auto_ap/ledger/reports.cljc
@@ -559,6 +559,11 @@

 (defn cash-flows-table [pnl-datas #_client-datas title prefix]
  (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
                                                :operating-activities
                                                (str prefix " Operating Activities")))