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 798499 - Expense Chart data tables include extra columns of data

Browse Source 
Because all-data was shortened when it exceeds the max-sliecs, but
list-of-rows and row-totals were not redefined.

Delay list-of-rows and row-totals until after all-data is pruned.
This commit is contained in:
Christopher Lam 2022-04-05 22:29:21 +08:00
parent 3df7bdf31e
commit 3125352d5a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/reports/standard/category-barchart.scm
View File

@ -526,10 +526,8 @@ Please deselect the accounts with negative balances."))
(list-head dates-list (1- (length dates-list))) (list-head dates-list (1- (length dates-list)))
dates-list)) dates-list))
(date-string-list (map qof-print-date dates-list)) (date-string-list (map qof-print-date dates-list))
(list-of-rows (apply zip (map cadr all-data))) (list-of-rows #f)
(row-totals #f))
;; total amounts
(row-totals (map (cut fold + 0 <>) list-of-rows)))
;; Set chart title, subtitle etc. ;; Set chart title, subtitle etc.
(gnc:html-chart-set-type! (gnc:html-chart-set-type!
@ -578,6 +576,8 @@ Please deselect the accounts with negative balances."))
(gnc:report-anchor-text (gnc:report-anchor-text
(gnc:make-report reportguid options)))))) (gnc:make-report reportguid options))))))
(set! list-of-rows (apply zip (map cadr all-data)))
(set! row-totals (map (cut fold + 0 <>) list-of-rows))
(gnc:report-percent-done 92) (gnc:report-percent-done 92)
(for-each (for-each