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

Center budget report period dates properly over the columns for that period

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18229 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Phil Longstaff 2009-08-02 02:42:50 +00:00
parent f09ebe955f
commit 81ae680010
1 changed files with 41 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/report/standard-reports/budget.scm
View File

@ -335,12 +335,24 @@
(gnc:html-table-prepend-row! html-table '()) (gnc:html-table-prepend-row! html-table '())
(gnc:html-table-prepend-row! html-table '()) (gnc:html-table-prepend-row! html-table '())
;; make the column headers
(while (< period num-periods) (while (< period num-periods)
(let* ((date (gnc-budget-get-period-start-date budget period))) (let* (
(gnc:html-table-set-cell/tag! (tc #f)
html-table 0 (if show-diff? (+ current-col 1) current-col) "centered-label-cell" (date (gnc-budget-get-period-start-date budget period))
)
(gnc:html-table-set-cell!
html-table 0 (+ current-col period)
(gnc-print-date date)) (gnc-print-date date))
(set! tc (gnc:html-table-get-cell html-table 0 (+ current-col period)))
(gnc:html-table-cell-set-colspan! tc (if show-diff? 3 2))
(gnc:html-table-cell-set-tag! tc "centered-label-cell")
(set! period (+ period 1))
)
)
;; make the column headers
(set! period 0)
(while (< period num-periods)
(if show-budget? (if show-budget?
(begin (begin
(gnc:html-table-set-cell/tag! (gnc:html-table-set-cell/tag!
@ -366,7 +378,6 @@
) )
) )
(set! period (+ period 1)) (set! period (+ period 1))
)
) )
(if show-totalcol? (if show-totalcol?
(begin (begin