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

[balsheet-pnl] fix balsheet->networth barchart link

Browse Source 
def0caa011 had error.
This commit is contained in:
Christopher Lam 2020-06-13 22:17:04 +08:00
parent 2eb9814604
commit 28df0c091d
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnucash/report/reports/standard/balsheet-pnl.scm
View File

@ -1035,18 +1035,18 @@ also show overall period profit & loss."))
common-currency price-source date) common-currency price-source date)
(income-expense-balance 'format gnc:make-gnc-monetary #f))))) (income-expense-balance 'format gnc:make-gnc-monetary #f)))))
(chart (and-let* (include-chart? (chart
(not (eq? incr 'disabled)) (and include-chart? (not (eq? incr 'disabled))
(curr (or common-currency book-main-currency)) (let ((chart-currency (or common-currency book-main-currency))
(price (or price-source 'pricedb-nearest))) (price-source (or price-source 'pricedb-nearest)))
(gnc:make-report-anchor (gnc:make-report-anchor
networth-barchart-uuid report-obj networth-barchart-uuid report-obj
(list (list "General" "Start Date" (cons 'absolute startdate)) (list (list "General" "Start Date" (cons 'absolute startdate))
(list "General" "End Date" (cons 'absolute enddate)) (list "General" "End Date" (cons 'absolute enddate))
(list "General" "Report's currency" curr) (list "General" "Report's currency" chart-currency)
(list "General" "Step Size" incr) (list "General" "Step Size" incr)
(list "General" "Price Source" price) (list "General" "Price Source" price-source)
(list "Accounts" "Accounts" asset-liability))))) (list "Accounts" "Accounts" asset-liability))))))
(get-col-header-fn (get-col-header-fn
(lambda (accounts col-idx) (lambda (accounts col-idx)