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

* fix bug #95844 -- fix qif-import/qif-parse.scm to match

Browse Source 
qif-io-core/qif-parse.scm w.r.t. parsing the numbers.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7355 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2002-10-19 17:51:15 +00:00
parent c11e0801b3
commit ec3d45a47c
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -4,6 +4,9 @@
* configure.in -- don't double-add -Wall. Only add -Wall for GCC.
let the user know what additional warnings are being added.
* fix bug #95844 -- fix qif-import/qif-parse.scm to match
qif-io-core/qif-parse.scm w.r.t. parsing the numbers.
2002-10-19 Christian Stimming <stimming@tuhh.de>

6
src/import-export/qif-import/qif-parse.scm
View File

@ -497,7 +497,8 @@
(if (number? read-val)
(gnc:double-to-gnc-numeric
(+ 0.0 read-val) GNC-DENOM-AUTO
(logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) 1))
(logior (GNC-DENOM-SIGFIGS
(string-length (string-remove-char filtered-string #\.)))
GNC-RND-ROUND))
(gnc:numeric-zero))))
((comma)
@ -513,7 +514,8 @@
(if (number? read-val)
(gnc:double-to-gnc-numeric
(+ 0.0 read-val) GNC-DENOM-AUTO
(logior (GNC-DENOM-SIGFIGS (- (string-length filtered-string) 1))
(logior (GNC-DENOM-SIGFIGS
(string-length (string-remove-char filtered-string #\.)))
GNC-RND-ROUND))
(gnc:numeric-zero))))
((integer)

2
src/import-export/qif-io-core/qif-parse.scm
View File

@ -585,7 +585,7 @@
(if (number? read-val)
(gnc:double-to-gnc-numeric
(+ 0.0 read-val) GNC-DENOM-AUTO
(logior (GNC-DENOM-SIGFIGS
(logior (GNC-DENOM-SIGFIGS
(string-length (string-remove-char filtered-string #\.)))
GNC-RND-ROUND))
(gnc:numeric-zero))))