complete parity between reports.

This commit is contained in:
2022-04-01 07:59:55 -07:00
parent aaa82714d9
commit e06861158e
6 changed files with 170 additions and 48 deletions

View File

@@ -14,7 +14,7 @@
(defn date->str [d]
#?(:clj
(atime/unparse-local d atime/normal-date)
:cljs (au/date->str d au/standard)))
:cljs (au/date->str d au/pretty)))
(def ranges
@@ -407,8 +407,8 @@
(defn balance-sheet-headers [pnl-data]
[(cond-> [{:value "Period Ending"}
{:value (:date (:args pnl-data))}]
(:include-comparison (:args pnl-data)) (into [{:value (:comparison-date (:args pnl-data))} {:value "+/-"}]))])
{:value (date->str (:date (:args pnl-data)))}]
(:include-comparison (:args pnl-data)) (into [{:value (date->str (:comparison-date (:args pnl-data)))} {:value "+/-"}]))])
(defn append-deltas [table]
(->> table
@@ -420,7 +420,6 @@
(:value b))})]))))
(defn summarize-balance-sheet [pnl-data]
(println (:periods (:args pnl-data)))
(let [table (-> []
(into (detail-rows pnl-data
:assets