IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[budget] compact budget-renderer

Browse Source
This commit is contained in:
Christopher Lam 2019-03-02 23:07:15 +08:00
parent 97bf596d31
commit 58cc7f00a5
1 changed files with 75 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
gnucash/report/standard-reports/budget.scm
View File

@ -684,44 +684,36 @@
(show-zb-accts? (get-option gnc:pagename-display
optname-show-zb-accounts))
(use-ranges? (get-option gnc:pagename-general optname-use-budget-period-range))
(include-collapse-before? (if use-ranges?
(include-collapse-before? (and use-ranges?
(get-option gnc:pagename-general
optname-period-collapse-before)
#f))
(include-collapse-after? (if use-ranges?
optname-period-collapse-before)))
(include-collapse-after? (and use-ranges?
(get-option gnc:pagename-general
optname-period-collapse-after)
#f))
(row-num 0)
(work-done 0)
(work-to-do 0)
optname-period-collapse-after)))
(show-full-names? (get-option gnc:pagename-general
optname-show-full-names))
(doc (gnc:make-html-document)))
(doc (gnc:make-html-document))
(accounts (append accounts
(filter (lambda (acc) (not (member acc accounts)))
(if show-subaccts?
(gnc:acccounts-get-all-subaccounts accounts)
'())))))
;; end of defines
;; add subaccounts if requested
(if show-subaccts?
(let ((sub-accounts (gnc:acccounts-get-all-subaccounts accounts)))
(for-each
(lambda (sub-account)
(if (not (member sub-account accounts))
(set! accounts (cons sub-account accounts))))
sub-accounts)))
(cond
((null? accounts)
;; No accounts selected.
(gnc:html-document-add-object!
doc
(gnc:html-make-no-account-warning reportname (gnc:report-id report-obj))))
doc (gnc:html-make-no-account-warning reportname (gnc:report-id report-obj))))
((not budget-valid?)
;; No budget selected.
(gnc:html-document-add-object!
doc (gnc:html-make-generic-budget-warning reportname)))
(else (begin
(let* ((tree-depth (if (equal? display-depth 'all)
(else
(let* ((tree-depth (if (eq? display-depth 'all)
(accounts-get-children-depth accounts)
display-depth))
(to-period-val (lambda (v)
@ -737,9 +729,8 @@
(list 'zero-balance-mode
(if show-zb-accts? 'show-leaf-acct 'omit-leaf-acct))
(list 'report-budget budget)))
(acct-table #f)
(html-table (gnc:make-html-table))
(params '())
(accounts (sort accounts account-full-name<?))
(acct-table (gnc:make-html-acct-table/env/accts env accounts))
(paramsBudget
(list
(list 'show-actual
@ -772,21 +763,14 @@
doc (format #f (_ "~a: ~a")
report-name (gnc-budget-get-name budget)))
(set! accounts (sort accounts account-full-name<?))
(set! acct-table
(gnc:make-html-acct-table/env/accts env accounts))
;; We do this in two steps: First the account names... the
;; add-account-balances will actually compute and add a
;; bunch of current account balances, too, but we'll
;; overwrite them.
(set! html-table (gnc:html-table-add-account-balances
#f acct-table params))
(let ((html-table (gnc:html-table-add-account-balances #f acct-table '())))
;; ... then the budget values
(gnc:html-table-add-budget-values!
html-table acct-table budget paramsBudget)
(gnc:html-table-add-budget-values! html-table acct-table budget paramsBudget)
;; hmmm... I expected that add-budget-values would have to
;; clear out any unused columns to the right, out to the