final step?

This commit is contained in:
Bryce Covert
2022-10-26 08:06:04 -07:00
parent 3cc6c42ac3
commit 85e2381214
2 changed files with 10 additions and 6 deletions

View File

@@ -507,7 +507,8 @@
(defn get-journal-detail-report [context input _]
{:categories
(for [client-id (:client_ids input)
:let [account-lookup (build-account-lookup client-id)
:let [_ (assert-can-see-client (:id context) client-id)
account-lookup (build-account-lookup client-id)
c (d/pull (d/db conn) '[:client/locations] client-id) ]
location (:client/locations c)
category (:categories input)

View File

@@ -588,15 +588,18 @@
(:journal-entries category))
[[{:value (str "Total" )
:bold true
}
:border [:bottom]}
{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (:name (:account category)))
:bold true}
{:value ""}
:bold true
:border [:bottom]}
{:value ""
}
:border [:bottom]}
{:value ""
:border [:bottom]}
{:value (:total category)
:format :dollar
:bold true}]]))
:bold true
:border [:bottom]}]]))
)
[]