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

Christian Stimming's report patch.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3647 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-02-12 23:22:19 +00:00
parent 1ab50d155e
commit bbc287616f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/scm/commodity-utilities.scm
View File

@ -80,13 +80,16 @@
(b (make-numeric-collector)))
(a 'add (unknown-coll 'total #f))
(b 'add
;; round to (at least) 6 significant digits
(gnc:numeric-div
(gnc:numeric-mul
(un->known-coll 'total #f)
((cdadr known-pair) 'total #f)
GNC-DENOM-AUTO GNC-DENOM-REDUCE)
GNC-DENOM-AUTO
(logior (GNC-DENOM-SIGFIGS 7) GNC-RND-ROUND))
((caadr known-pair) 'total #f)
GNC-DENOM-AUTO GNC-DENOM-REDUCE))
GNC-DENOM-AUTO
(logior (GNC-DENOM-SIGFIGS 6) GNC-RND-ROUND)))
;; in other words: (/ (* (caadr un->known-coll) (cdadr
;; known-pair)) (caadr known-pair) ))
(cons a b)))
@ -258,7 +261,7 @@
(gnc:numeric-div ((cdadr e) 'total #f)
((caadr e) 'total #f)
GNC-DENOM-AUTO
GNC-DENOM-REDUCE))))
(logior (GNC-DENOM-SIGFIGS 6) GNC-RND-ROUND)))))
(gnc:get-exchange-totals report-commodity end-date)))
;; This one returns the ready-to-use function for calculation of the