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

Bug 798085 - Incorrect transactions import of deposit with large number amount

Browse Source 
Quicken 2005 introduces U amount which sometimes differs from T
amount. U amount has larger range, and must override T amount whenever
they're not equal.
This commit is contained in:
Christopher Lam 2021-01-15 21:58:13 +08:00
parent ffa2f606e3
commit dc4a004b11
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnucash/import-export/qif-imp/qif-file.scm
View File

@ -135,6 +135,12 @@
(unread-char c1) (unread-char c1)
#f)))) #f))))
(define (qif-split-set-amount split value override?)
(when (and split
(not-bad-numeric-string? value)
(or override? (not (qif-split:amount split))))
(qif-split:set-amount! split value)))
(qif-file:set-path! self path) (qif-file:set-path! self path)
(if (not (access? path R_OK)) (if (not (access? path R_OK))
;; A UTF-8 encoded path won't succeed on some systems, such as ;; A UTF-8 encoded path won't succeed on some systems, such as
@ -261,9 +267,13 @@
;; T : total amount ;; T : total amount
((#\T) ((#\T)
(if (and default-split (qif-split-set-amount default-split value #f))
(not-bad-numeric-string? value))
(qif-split:set-amount! default-split value))) ;; U : total amount (handle larger amount
;; than T; present in Quicken 2005
;; exports). See bug 798085
((#\U)
(qif-split-set-amount default-split value #t))
;; P : payee ;; P : payee
((#\P) ((#\P)