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

forces things to line up.

Browse Source
This commit is contained in:
Bryce Covert
2022-03-31 07:27:56 -07:00
parent 093f351f0a
commit a538cffe6d
1 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/cljs/auto_ap/views/pages/ledger/profit_and_loss.cljs
View File

@@ -530,6 +530,22 @@ Please download it by clicking this link: " report-url)))
(when-not @!box
(reset! !box el)))}]]))))
(defn concat-tables [tables]
(println (count tables))
(let [[first & rest] tables]
{:header (:header first)
:rows (concat (:rows first)
[[]]
(mapcat
(fn [table]
(-> (:header table)
(into (:rows table))
(conj []))
#_(println "table 1" table)
#_[(:header table)
(:rows table)])
rest))}))
(defn pnl-report [{:keys [args report-data]}]
(let [pnl-data (->> report-data
:periods
@@ -546,22 +562,20 @@ Please download it by clicking this link: " report-url)))
[k (:name v)]))
(into {}))
pnl-data (l-reports/->PNLData args pnl-data client-names)
report (l-reports/summarize-pnl pnl-data)]
report (l-reports/summarize-pnl pnl-data)
table (concat-tables (concat (:summaries report) (:details report)))]
[:div
[:h1.title "Profit and Loss - " (str/join ", " (map :name (:clients args)))]
(when (:warning report)
[:div.notification.is-warning.is-light
(:warning report)])
(for [[index table] (map vector (range) (concat (:summaries report)
(:details report)))]
^{:key index}
[table->pdf {:widths (into [20] (take (dec (cell-count table))
(mapcat identity
(repeat
(if (-> pnl-data :args :include-deltas)
[13 6 13]
[13 6])))))
:table table}])]))
[table->pdf {:widths (into [20] (take (dec (cell-count table))
(mapcat identity
(repeat
(if (-> pnl-data :args :include-deltas)
[13 6 13]
[13 6])))))
:table table}]]))
(defn profit-and-loss-content []