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] bug 759005 we don't need style-tag "-neg" anymore

Browse Source
This commit is contained in:
Christopher Lam 2019-10-07 21:03:37 +08:00
parent 9d0d3fd3be
commit 2d99692621
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -350,25 +350,24 @@
;; col - next column
(define (disp-cols style-tag col0
bgt-val act-val dif-val)
(let* ((style-tag-neg (string-append style-tag "-neg"))
(col1 (+ col0 (if show-budget? 1 0)))
(let* ((col1 (+ col0 (if show-budget? 1 0)))
(col2 (+ col1 (if show-actual? 1 0)))
(col3 (+ col2 (if show-diff? 1 0))))
(if show-budget?
(gnc:html-table-set-cell/tag!
html-table rownum col0
(if (negative? bgt-val) style-tag-neg style-tag)
style-tag
(if (zero? bgt-val) "."
(gnc:make-gnc-monetary comm bgt-val))))
(if show-actual?
(gnc:html-table-set-cell/tag!
html-table rownum col1
(if (negative? act-val) style-tag-neg style-tag)
style-tag
(gnc:make-gnc-monetary comm act-val)))
(if show-diff?
(gnc:html-table-set-cell/tag!
html-table rownum col2
(if (negative? dif-val) style-tag-neg style-tag)
style-tag
(if (and (zero? bgt-val) (zero? act-val)) "."
(gnc:make-gnc-monetary comm dif-val))))
col3))