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

Advanced Portfolio: Don't print footnotes if the account that needs them isn't included.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23722 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Mike Alexander 2014-01-19 22:40:11 +00:00
parent bfcb8cec9e
commit 1f5b959f3d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/report/standard-reports/advanced-portfolio.scm
View File

@ -719,13 +719,6 @@
(gnc:debug "prefer-pricelist is " prefer-pricelist)
(gnc:debug "price is " price)
;; okay we're using the txn, so warn the user
(if use-txn
(if pricing-txn
(set! warn-price-dirty #t)
(set! warn-no-price #t)
))
(gnc:debug "basis we're using to build rows is " (gnc-numeric-to-string (sum-basis basis-list
currency-frac)))
(gnc:debug "but the actual basis list is " basis-list)
@ -757,6 +750,13 @@
(activecols (list (gnc:html-account-anchor current)))
)
;; If we're using the txn, warn the user
(if use-txn
(if pricing-txn
(set! warn-price-dirty #t)
(set! warn-no-price #t)
))
(total-value 'add (gnc:gnc-monetary-commodity value) (gnc:gnc-monetary-amount value))
(total-moneyin 'merge moneyincoll #f)
(total-moneyout 'merge moneyoutcoll #f)