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

pnl changes

Browse Source
This commit is contained in:
Bryce
2026-01-03 22:44:58 -08:00
parent 269fa45923
commit 8511d30715
1 changed files with 26 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -229,11 +229,21 @@
:size :letter :size :letter
:font {:size 6 :font {:size 6
:ttf-name "fonts/calibri-light.ttf"}} :ttf-name "fonts/calibri-light.ttf"}}
[:heading (str "Balance Sheet - " (str/join ", " (map :client/name (seq (:client (:form-params request))))))]] [:heading (str "Profit and Loss - " (str/join ", " (map :client/name (seq (:client (:form-params request))))))]]
(conj [:paragraph {:color [128 0 0] :size 9} (:warning report) (conj [:paragraph {:color [128 0 0] :size 9} (:warning report)])
])
(conj (into
(for [table (concat (:summaries report)
(:details report))]
(table->pdf table
(into [20] (take (dec (cell-count table))
(mapcat identity
(repeat
(if (-> (:form-params request) :include-deltas)
[13 6 13]
[13 6]))))))))
#_(conj
(table->pdf table (table->pdf table
(into [20] (take (dec (cell-count table)) (into [20] (take (dec (cell-count table))
(mapcat identity (mapcat identity
@@ -252,7 +262,7 @@
(:date (:query-params request)) (:date (:query-params request))
atime/iso-date) atime/iso-date)
name (->> request :query-params :client (map :db/id) join-names)] name (->> request :query-params :client (map :db/id) join-names)]
(format "Balance-sheet-%s-for-%s" date name))) (format "Profit-and-loss-%s-for-%s" date name)))
(defn print-profit-and-loss [request] (defn print-profit-and-loss [request]
(let [uuid (str (UUID/randomUUID)) (let [uuid (str (UUID/randomUUID))