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

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

@@ -221,27 +221,37 @@
"Profit and loss"))
(defn make-profit-and-loss-pdf [request report]
(let [ output-stream (ByteArrayOutputStream.)
(let [output-stream (ByteArrayOutputStream.)
date (:periods (:form-params request))
table (concat-tables (:details report))]
(pdf/pdf
(-> [{:left-margin 10 :right-margin 10 :top-margin 15 :bottom-margin 15
:size :letter
:font {:size 6
:ttf-name "fonts/calibri-light.ttf"}}
[:heading (str "Balance Sheet - " (str/join ", " (map :client/name (seq (:client (:form-params request))))))]]
(-> [{:left-margin 10 :right-margin 10 :top-margin 15 :bottom-margin 15
:size :letter
:font {:size 6
:ttf-name "fonts/calibri-light.ttf"}}
[: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
(conj [:paragraph {:color [128 0 0] :size 9} (:warning report)])
(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]))))))))
output-stream)
(mapcat identity
(repeat
(if (-> (:form-params request) :include-deltas)
[13 6 13]
[13 6]))))))))
#_(conj
(table->pdf table
(into [20] (take (dec (cell-count table))
(mapcat identity
(repeat
(if (-> (:form-params request) :include-deltas)
[13 6 13]
[13 6]))))))))
output-stream)
(.toByteArray output-stream)))
(defn join-names [client-ids]
@@ -252,7 +262,7 @@
(:date (:query-params request))
atime/iso-date)
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]
(let [uuid (str (UUID/randomUUID))