gnucash maint: [balsheet-pnl] fix stress-options failure
Christopher Lam
clam at code.gnucash.org
Fri May 10 10:39:22 EDT 2019
Updated via https://github.com/Gnucash/gnucash/commit/94c5fe9f (commit)
from https://github.com/Gnucash/gnucash/commit/e983d07c (commit)
commit 94c5fe9f1d526a367a8704bdddf89f5df48f781e
Author: Christopher Lam <christopher.lck at gmail.com>
Date: Fri May 10 22:35:31 2019 +0800
[balsheet-pnl] fix stress-options failure
retained-earnings-fn will return a list of monetary (for different
currencies) or a monetary (all currencies converted). either must be
negated. handle separate paths separately.
diff --git a/gnucash/report/standard-reports/balsheet-pnl.scm b/gnucash/report/standard-reports/balsheet-pnl.scm
index 7a331ee9e..1c37c0e6e 100644
--- a/gnucash/report/standard-reports/balsheet-pnl.scm
+++ b/gnucash/report/standard-reports/balsheet-pnl.scm
@@ -940,15 +940,16 @@ also show overall period profit & loss."))
(else (list-ref report-dates col-idx))))
(income-expense-balance
(list-ref income-expense-balances col-idx)))
- (map
- gnc:monetary-neg
- (if (and common-currency
- (every has-price?
- (map xaccAccountGetCommodity
- (append income-accounts
- expense-accounts))))
+ (if (and common-currency
+ (every has-price?
+ (map xaccAccountGetCommodity
+ (append income-accounts
+ expense-accounts))))
+ (gnc:monetary-neg
(monetaries->exchanged income-expense-balance
- common-currency price-source date)
+ common-currency price-source date))
+ (map
+ gnc:monetary-neg
(income-expense-balance 'format gnc:make-gnc-monetary #f))))))
(chart (and include-chart?
(gnc:make-report-anchor
Summary of changes:
gnucash/report/standard-reports/balsheet-pnl.scm | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
More information about the gnucash-changes
mailing list