r23624 - gnucash/branches/2.4/src/report/standard-reports - [23623]Prevent gnc-numeric overflow in advanced portfolio report

[Geert Janssens]

Author: gjanssens
Date: 2013-12-26 10:51:39 -0500 (Thu, 26 Dec 2013)
New Revision: 23624
Trac: http://svn.gnucash.org/trac/changeset/23624

Modified:
   gnucash/branches/2.4/src/report/standard-reports/advanced-portfolio.scm
Log:
[23623]Prevent gnc-numeric overflow in advanced portfolio report

Patch by zz-bugzilla-9297 at qwerty.co.il

Modified: gnucash/branches/2.4/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/branches/2.4/src/report/standard-reports/advanced-portfolio.scm	2013-12-26 15:46:19 UTC (rev 23623)
+++ gnucash/branches/2.4/src/report/standard-reports/advanced-portfolio.scm	2013-12-26 15:51:39 UTC (rev 23624)
@@ -196,7 +196,7 @@
   ;; sum up the contents of the b-list built by basis-builder below
   (define (sum-basis b-list)
     (if (not (eqv? b-list '()))
-	(gnc-numeric-add (gnc-numeric-mul (caar b-list) (cdar b-list) GNC-DENOM-AUTO GNC-RND-ROUND)
+	(gnc-numeric-add (gnc-numeric-mul (caar b-list) (cdar b-list) GNC-DENOM-AUTO (logior GNC-DENOM-REDUCE GNC-RND-ROUND))
 			 (sum-basis (cdr b-list)) 100 GNC-RND-ROUND)
 	(gnc-numeric-zero)
 	)