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

updates

Browse Source
This commit is contained in:
Bryce
2024-10-26 19:16:50 -07:00
parent f859655aad
commit b46c668199
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/auto_ap/ssr/ledger/profit_and_loss.clj
View File

@@ -122,7 +122,7 @@
client-count (count (set (map :client-id (:data data)))) client-count (count (set (map :client-id (:data data))))
table-contents (concat-tables (:details report))] table-contents (concat-tables (:details report))]
(list (list
[:div.text-2xl.font-bold.text-gray-600 (str "Cash flows - " (str/join ", " (map :client/name client)))] [:div.text-2xl.font-bold.text-gray-600 (str "Profit and loss - " (str/join ", " (map :client/name client)))]
(table {:widths (into [20] (take (dec (cell-count table-contents)) (table {:widths (into [20] (take (dec (cell-count table-contents))
(mapcat identity (mapcat identity
(repeat (repeat
@@ -240,7 +240,7 @@
(apply com/breadcrumbs {} [[:a {:href (bidi/path-for ssr-routes/only-routes ::route/page)} (apply com/breadcrumbs {} [[:a {:href (bidi/path-for ssr-routes/only-routes ::route/page)}
"Ledger"]]) "Ledger"]])
(form* request)) (form* request))
"Cash Flows")) "Profit and loss"))
(defn make-profit-and-loss-pdf [request report] (defn make-profit-and-loss-pdf [request report]
(let [ output-stream (ByteArrayOutputStream.) (let [ output-stream (ByteArrayOutputStream.)