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