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

Always use the price we display to calculate the current value of an account.

Browse Source
This commit is contained in:
Mike Alexander 2014-05-25 18:48:44 -04:00
parent 985fecb032
commit f8139efad1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -438,12 +438,13 @@
) )
(define (my-exchange-fn fromunits tocurrency) (define (my-exchange-fn fromunits tocurrency)
(if (and use-txn (if (and (gnc-commodity-equiv currency tocurrency)
(gnc-commodity-equiv currency tocurrency)
(gnc-commodity-equiv (gnc:gnc-monetary-commodity fromunits) commodity)) (gnc-commodity-equiv (gnc:gnc-monetary-commodity fromunits) commodity))
(gnc:make-gnc-monetary tocurrency (gnc:make-gnc-monetary tocurrency
(gnc-numeric-mul (gnc:gnc-monetary-amount fromunits) (gnc-numeric-mul (gnc:gnc-monetary-amount fromunits)
(gnc:gnc-monetary-amount price) (if use-txn
(gnc:gnc-monetary-amount price)
(gnc-price-get-value price))
currency-frac GNC-RND-ROUND)) currency-frac GNC-RND-ROUND))
(exchange-fn fromunits tocurrency))) (exchange-fn fromunits tocurrency)))