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

fixed

Browse Source
This commit is contained in:
Bryce Covert
2023-04-05 21:52:56 -07:00
parent c52f1b5f02
commit e7ae418614
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/pdf/ledger.clj
View File

@@ -228,7 +228,7 @@
(defn make-cash-flows [args data] (defn make-cash-flows [args data]
(let [data (<-graphql data) (let [data (<-graphql data)
args (<-graphql args) args (<-graphql args)
clients (d/pull-many (d/db conn) '[:client/code :client/name :db/id] (:client-ids args)) clients (pull-many (dc/db conn) '[:client/code :client/name :db/id] (:client-ids args))
data (->> data data (->> data
:periods :periods
(mapcat (fn [p1 p2] (mapcat (fn [p1 p2]
@@ -310,7 +310,7 @@
max-date (atime/unparse-local max-date (atime/unparse-local
(->> args :periods (map :end) last) (->> args :periods (map :end) last)
atime/iso-date) atime/iso-date)
names (str/replace (->> args :client_ids (d/pull-many (d/db conn) [:client/name]) (map :client/name) (str/join "-")) #" " "_" )] names (str/replace (->> args :client_ids (pull-many (dc/db conn) [:client/name]) (map :client/name) (str/join "-")) #" " "_" )]
(format "Cash-flows-%s-to-%s-for-%s" min-date max-date names))) (format "Cash-flows-%s-to-%s-for-%s" min-date max-date names)))
(defn journal-detail-args->name [args] (defn journal-detail-args->name [args]