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

one more tweak.

Browse Source
This commit is contained in:
Bryce Covert
2022-10-24 23:18:55 -07:00
parent 2f76f59f03
commit 91adf49e2a
2 changed files with 23 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -565,33 +565,34 @@
(fn [rows category]
(into rows
;; TODO colspan ?
(concat [[{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (name (:category category)) " - " (:name (:account category)) )
(concat (when (seq (:journal-entries category))
[[{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (name (:category category)) " - " (:name (:account category)) )
}
{:value "Total"}
{:value ""}
{:value ""}
{:value (:total category)
:format :dollar}]])
(map
(fn [je]
[{:value (user-friendly-date (:date je))}
{:value (:description je "")}
{:value (get je :debit)
:format :dollar}
{:value (get je :credit)
:format :dollar}
{:value (get je :running-balance)
:format :dollar}])
(:journal-entries category))
[[{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (name (:category category)) " - " (:name (:account category)) )
}
{:value "Total"}
{:value ""}
{:value ""}
{:value (:total category)
:format :dollar}]]
(map
(fn [je]
[{:value (user-friendly-date (:date je))}
{:value (:description je "")}
{:value (get je :debit)
:format :dollar}
{:value (get je :credit)
:format :dollar}
{:value (get je :running-balance)
:format :dollar}])
(:journal-entries category))
[[{:value (str (client-codes (:client-id category)) " - " (:location category) " - " (name (:category category)) " - " (:name (:account category)) )
}
{:value "Total"}
{:value ""}
{:value ""}
{:value (:total category)
:format :dollar}]]))
:format :dollar}]]))
)
[]