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

makes glimpse more forgiving and adds column headers

Browse Source
This commit is contained in:
Bryce
2023-10-10 16:08:21 -07:00
parent 3383d12998
commit c00940fcbf
2 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -786,17 +786,26 @@
(defn balance-sheet-headers [pnl-data]
(doto
[(into [{:value "Period Ending"}]
(cond-> []
(> (count (set (map :client-id (:data pnl-data)))) 1)
(conj (into [{:value "Client"}]
(mapcat identity
(for [client (set (map :client-id (:data pnl-data))) ]
(cond-> [{:value (date->str (:date (:args pnl-data)))}]
(mapcat identity
(for [client (set (map :client-id (:data pnl-data))) ]
(cond-> [{:value (str (-> pnl-data :client-codes (get client)))}]
(:include-comparison (:args pnl-data))
(into [{:value (date->str (:comparison-date (:args pnl-data)))}
{:value "+/-"}])))))]
println))
(:include-comparison (:args pnl-data))
(into ["" ""]))))))
true
(conj (into [{:value "Period Ending"}]
(mapcat identity
(for [client (set (map :client-id (:data pnl-data))) ]
(cond-> [{: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