diff --git a/src/clj/auto_ap/graphql/ledger.clj b/src/clj/auto_ap/graphql/ledger.clj
index 41fceef9..72faf427 100644
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -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)
diff --git a/src/cljc/auto_ap/ledger/reports.cljc b/src/cljc/auto_ap/ledger/reports.cljc
index 8378b619..7d8deba0 100644
--- a/src/cljc/auto_ap/ledger/reports.cljc
+++ b/src/cljc/auto_ap/ledger/reports.cljc
@@ -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]}]]))
 
                )
              []