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

Sets up multi date

Browse Source
This commit is contained in:
Bryce
2024-10-22 23:55:02 -07:00
parent 77571e3589
commit 3da8bf054f
5 changed files with 74 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -794,7 +794,7 @@
(for [client (set (map :client-id (:data pnl-data))) ]
(cond-> [{:value (str (-> pnl-data :client-codes (get client)))}]
(:include-comparison (:args pnl-data))
(> (count (:periods (:args pnl-data))) 1)
(into ["" ""]))))))
true
(conj (into [{:value "Period Ending"}]
@@ -803,7 +803,7 @@
(for [client (set (map :client-id (:data pnl-data))) ]
(cond-> [{:value (date->str (:date (:args pnl-data)))}]
(:include-comparison (:args pnl-data))
(> (count (:periods (:args pnl-data))) 1)
(into [{:value (date->str (:comparison-date (:args pnl-data)))}
{:value "+/-"}]))))))))
@@ -889,7 +889,7 @@
(negate #{:cogs :payroll :controllable :fixed-overhead :ownership-controllable}))
pnl-datas)
"Retained Earnings")))
table (if (:include-comparison (:args pnl-data))
table (if (> (count (:periods pnl-data)) 1)
(append-deltas table)
table)]
{:warning (warning-message pnl-data)