r22976 - gnucash/trunk/src/report/standard-reports - Round properly when computing fraction of the transaction's value due to a given split.

[Mike Alexander]

Author: mta
Date: 2013-05-11 23:41:41 -0400 (Sat, 11 May 2013)
New Revision: 22976
Trac: http://svn.gnucash.org/trac/changeset/22976

Modified:
   gnucash/trunk/src/report/standard-reports/cash-flow.scm
Log:
Round properly when computing fraction of the transaction's value due to a given split.
Also use GNC-DENOM-AUTO instead of a constant zero when appropriate.

Modified: gnucash/trunk/src/report/standard-reports/cash-flow.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/cash-flow.scm	2013-05-10 19:19:30 UTC (rev 22975)
+++ gnucash/trunk/src/report/standard-reports/cash-flow.scm	2013-05-12 03:41:41 UTC (rev 22976)
@@ -254,7 +254,7 @@
                                 (not (null? s-account)) ;;  any dangling splits
 			        (not (account-in-list? s-account accounts))
                                 ;; only consider splits of opposite sign
-                                (gnc-numeric-negative-p (gnc-numeric-mul s-value split-value 0 GNC-DENOM-REDUCE))
+                                (gnc-numeric-negative-p (gnc-numeric-mul s-value split-value GNC-DENOM-AUTO GNC-DENOM-REDUCE))
                               )
                             (if (not (split-in-list? s seen-split-list))
                               (let (
@@ -272,11 +272,12 @@
                                     (gnc:make-gnc-numeric 1 1)
                                     ;; else
                                     (gnc-numeric-abs
-                                      (gnc-numeric-div split-value transaction-value 0 GNC-DENOM-REDUCE)
+                                      (gnc-numeric-div split-value transaction-value GNC-DENOM-AUTO GNC-DENOM-REDUCE)
                                     )
                                   )
                                 )
-				(set! s-value (gnc-numeric-mul split-transaction-ratio s-value GNC-DENOM-AUTO GNC-RND-ROUND))
+				(set! s-value (gnc-numeric-mul split-transaction-ratio s-value 
+				                               (gnc-commodity-get-fraction parent-currency) GNC-RND-ROUND))
 			        (set! seen-split-list (cons s seen-split-list))
 			        (if (gnc-numeric-negative-p s-value)
                                   ;; -----------------------------------------------