diff --git a/src/cljc/auto_ap/ledger/reports.cljc b/src/cljc/auto_ap/ledger/reports.cljc
index a92220f8..38ff0fb1 100644
--- 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")))