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

Bug 796952 - Report formatting (justify) is broken

Browse Source 
Matija's patch manually applied
This commit is contained in:
Matija-N 2019-03-10 17:14:50 +08:00 committed by Christopher Lam
parent f99ca362f7
commit 35ed4cf20a
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnucash/report/standard-reports/account-summary.scm
View File

@ -458,25 +458,23 @@
)
(if show-account-bals?
(gnc:html-table-set-cell/tag!
build-table 0 (+ cur-col account-cols) "number-header"
build-table 0 (1+ cur-col) "number-header"
(_ "Balance"))
)
(let ((row 0))
(while (< row table-rows)
(gnc:html-table-set-row-markup! build-table (+ row 1)
(gnc:html-table-row-markup hold-table row))
(let ((col 0))
(while (< col hold-table-width)
(gnc:html-table-set-cell!
build-table (+ row 1) (+ cur-col col)
(gnc:html-table-get-cell hold-table row col)
)
(set! col (+ col 1))
)
)
(set! row (+ row 1))
)
)
(let ((row 0))
(while (< row table-rows)
(let ((col 1))
(gnc:html-table-set-cell! build-table (1+ row) cur-col
(gnc:html-table-get-cell hold-table row 0))
(if show-account-bals?
(while (< col hold-table-width)
(if (gnc:html-table-get-cell hold-table row col)
(gnc:html-table-set-cell!
build-table (1+ row) (1+ cur-col)
(gnc:html-table-get-cell hold-table row col)))
(set! col (1+ col)))))
(set! row (1+ row))))
(set! cur-col (+ cur-col (if show-account-bals? 2 1)))
(set! cur-col (+ cur-col hold-table-width))
(if show-account-notes?
(begin