show location.

This commit is contained in:
Bryce Covert
2018-06-15 17:26:56 -07:00
parent e749b3eb23
commit 0de6075e6a

View File

@@ -76,6 +76,12 @@
:sort-by sort-by :sort-by sort-by
:asc asc} :asc asc}
"Date"] "Date"]
[sorted-column {:on-sort opc
:style {:width "8em" :cursor "pointer"}
:sort-key "location"
:sort-by sort-by
:asc asc}
"Location"]
[sorted-column {:on-sort opc [sorted-column {:on-sort opc
:style {:width "8em" :cursor "pointer"} :style {:width "8em" :cursor "pointer"}
:sort-key "total" :sort-key "total"
@@ -116,6 +122,7 @@
[:td (:name company)] [:td (:name company)]
[:td invoice-number] [:td invoice-number]
[:td (date->str date) ] [:td (date->str date) ]
[:td (str/join ", " (set (map :location expense-accounts)))]
[:td (gstring/format "$%.2f" total )] [:td (gstring/format "$%.2f" total )]
[:td (gstring/format "$%.2f" outstanding-balance )] [:td (gstring/format "$%.2f" outstanding-balance )]