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

[investment-lots] more succinctly add chart and table

Browse Source
This commit is contained in:
Christopher Lam 2022-12-24 21:42:48 +08:00
parent 1f2b5881ae
commit 6907d772d4
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnucash/report/reports/standard/investment-lots.scm
View File

@ -2011,22 +2011,15 @@
(all-accounts-info 'add-to-table table #t)))
;; Add table to top of doc (if chart goes on bottom).
(if (eq? chart-location 'bottom)
(gnc:html-document-add-object! document table))
;; Maybe add chart to doc.
(cond
(show-chart
(if (eq? chart-location 'bottom)
(add-padding-rows 3))
(when (and show-chart (eq? chart-location 'top))
(gnc:html-document-add-object! document chart)
(if (eq? chart-location 'top)
(add-padding-rows 3))))
(add-padding-rows 3))
;; Add table to bottom of doc (if chart goes on top).
(if (eq? chart-location 'top)
(gnc:html-document-add-object! document table))
(gnc:html-document-add-object! document table)
(when (and show-chart (eq? chart-location 'bottom))
(add-padding-rows 3)
(gnc:html-document-add-object! document chart))
document))