slightly better report

src/cljc/auto_ap/ledger/reports.cljc

@@ -564,14 +564,20 @@
    :rows   (reduce
              (fn [rows category]
                (into rows
+                     ;; TODO colspan ?
                      (cons [{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (name (:category category)) " - " (:name (:account category)) )
 
-                             :colspan 5}]
+                             }
+                            {:value ""}
+                            {:value ""}
+                            {:value ""}
+                            {:value ""}]
                            (map
                              (fn [je]
                                [{:value (user-friendly-date (:date je))}
                                 {:value (or (:description je)
-                                            (:name (:vendor je)))}
+                                            (:name (:vendor je))
+                                            "")}
                                 {:value (get-in je [:line-items 0 :debit])
                                  :format :dollar}
                                 {:value (get-in je [:line-items 0 :credit])