final step?
This commit is contained in:
@@ -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)
|
||||
|
||||
@@ -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]}]]))
|
||||
|
||||
)
|
||||
[]
|
||||
|
||||
Reference in New Issue
Block a user