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

Fixes name of balance sheet

Browse Source
This commit is contained in:
Bryce
2024-10-13 19:32:46 -07:00
parent c0bcc33b68
commit a8b749bfa0
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/ssr/ledger/balance_sheet.clj
View File

@@ -373,10 +373,20 @@
output-stream)
(.toByteArray output-stream)))
(defn join-names [client-ids]
(str/replace (->> client-ids (pull-many (dc/db conn) [:client/name]) (map :client/name) (str/join "-")) #"[^\w]" "_" ))
(defn balance-sheet-args->name [request]
(let [date (atime/unparse-local
(: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)))
(defn print-balance-sheet [request]
(let [uuid (str (UUID/randomUUID))
pdf-data (make-balance-sheet-pdf request (:report (get-report request)))
name "test" #_(balance-sheet-args->name args)
name (balance-sheet-args->name request)
key (str "reports/balance-sheet/" uuid "/" name ".pdf")
url (str "https://" (:data-bucket env) "/" key)]
(s3/put-object :bucket-name (:data-bucket env/env)