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

Revert "Round properly when computing fraction of the transaction's value due to a given split."

Browse Source 
This reverts commit d339141394.
See bug 622778 and bug 722140 for more details.
This commit is contained in:
Geert Janssens 2014-08-01 11:37:20 +02:00
parent f34c4e0f2f
commit f0abc2c014
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/report/standard-reports/cash-flow.scm
View File

@ -254,7 +254,7 @@
(not (null? s-account)) ;; any dangling splits (not (null? s-account)) ;; any dangling splits
(not (account-in-list? s-account accounts)) (not (account-in-list? s-account accounts))
;; only consider splits of opposite sign ;; only consider splits of opposite sign
(gnc-numeric-negative-p (gnc-numeric-mul s-value split-value GNC-DENOM-AUTO GNC-DENOM-REDUCE)) (gnc-numeric-negative-p (gnc-numeric-mul s-value split-value 0 GNC-DENOM-REDUCE))
) )
(if (not (split-in-list? s seen-split-list)) (if (not (split-in-list? s seen-split-list))
(let ( (let (
@ -272,12 +272,11 @@
(gnc:make-gnc-numeric 1 1) (gnc:make-gnc-numeric 1 1)
;; else ;; else
(gnc-numeric-abs (gnc-numeric-abs
(gnc-numeric-div split-value transaction-value GNC-DENOM-AUTO GNC-DENOM-REDUCE) (gnc-numeric-div split-value transaction-value 0 GNC-DENOM-REDUCE)
) )
) )
) )
(set! s-value (gnc-numeric-mul split-transaction-ratio s-value (set! s-value (gnc-numeric-mul split-transaction-ratio s-value GNC-DENOM-AUTO GNC-RND-ROUND))
(gnc-commodity-get-fraction parent-currency) GNC-RND-ROUND))
(set! seen-split-list (cons s seen-split-list)) (set! seen-split-list (cons s seen-split-list))
(if (gnc-numeric-negative-p s-value) (if (gnc-numeric-negative-p s-value)
;; ----------------------------------------------- ;; -----------------------------------------------