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

fixes pnl file name

Browse Source
This commit is contained in:
Bryce
2026-06-16 14:37:13 -07:00
parent 85aaf7b759
commit de2a1ab850
1 changed files with 33 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -254,10 +254,10 @@
(str/replace (->> client-ids (pull-many (dc/db conn) [:client/name]) (map :client/name) (str/join "-")) #"[^\w]" "_")) (str/replace (->> client-ids (pull-many (dc/db conn) [:client/name]) (map :client/name) (str/join "-")) #"[^\w]" "_"))
(defn profit-and-loss-args->name [request] (defn profit-and-loss-args->name [request]
(let [date (atime/unparse-local (let [{:keys [client periods]} (:form-params request)
(:date (:query-params request)) client (if (= :all client) (:clients request) client)
atime/iso-date) date (some-> periods last :end (atime/unparse-local atime/iso-date))
name (->> request :query-params :client (map :db/id) join-names)] name (->> client (map :db/id) join-names)]
(format "Profit-and-loss-%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]