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 gnc:html-table-add-budget-line!

Browse Source
This commit is contained in:
Christopher Lam 2019-03-03 13:37:08 +08:00
parent 953b01cbc8
commit 3ba0970d9d
1 changed files with 23 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -355,13 +355,12 @@
(define (gnc:html-table-add-budget-line!
html-table rownum colnum budget acct rollup-budget?
column-list exchange-fn)
(let* ((current-col (+ colnum 1))
(let* ((current-col (1+ colnum))
(bgt-total 0)
(bgt-total-unset? #t)
(act-total 0)
(comm (xaccAccountGetCommodity acct))
(reverse-balance? (gnc-reverse-balance acct))
(income-acct? (eq? (xaccAccountGetType acct) ACCT-TYPE-INCOME)))
(income-acct? (eqv? (xaccAccountGetType acct) ACCT-TYPE-INCOME)))
;; Displays a set of budget column values
;;
@ -450,22 +449,27 @@
html-table rownum #f
bgt-numeric-val act-numeric-val dif-numeric-val)))
(while (not (null? column-list))
(let* ((col-info (car column-list)))
(cond
((equal? col-info 'total)
(gnc:html-table-display-budget-columns!
html-table rownum #t bgt-total act-total
(if income-acct?
(- act-total bgt-total)
(- bgt-total act-total))))
((list? col-info)
(gnc:html-table-add-budget-line-columns!
html-table rownum budget acct col-info))
(else
(gnc:html-table-add-budget-line-columns!
html-table rownum budget acct (list col-info))))
(set! column-list (cdr column-list))))))
(let loop ((column-list column-list))
(cond
((null? column-list)
#f)
((eq? (car column-list) 'total)
(gnc:html-table-display-budget-columns!
html-table rownum #t bgt-total act-total
(if income-acct?
(- act-total bgt-total)
(- bgt-total act-total)))
(loop (cdr column-list)))
(else
(gnc:html-table-add-budget-line-columns!
html-table rownum budget acct
(if (list? (car column-list))
(car column-list)
(list (car column-list))))
(loop (cdr column-list)))))))
;; Adds header rows to the budget report. The columns are
;; specified by the column-list parameter.