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

final step?

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -507,7 +507,8 @@
(defn get-journal-detail-report [context input _] (defn get-journal-detail-report [context input _]
{:categories {:categories
(for [client-id (:client_ids input) (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) ] c (d/pull (d/db conn) '[:client/locations] client-id) ]
location (:client/locations c) location (:client/locations c)
category (:categories input) category (:categories input)

13
src/cljc/auto_ap/ledger/reports.cljc
View File

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