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 bugs.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4767 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Bill Gribble 2001-06-22 14:40:36 +00:00
parent a7fc5550c0
commit 03e84beba8
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/scm/qif-import/qif-dialog-utils.scm
View File

@ -419,7 +419,8 @@
(set! entry (set! entry
(qif-import:guess-acct (qif-import:guess-acct
xtn-cat xtn-cat
(if (> (qif-split:amount split) 0) (if (gnc:numeric-positive-p
(qif-split:amount split))
(list GNC-INCOME-TYPE GNC-EXPENSE-TYPE) (list GNC-INCOME-TYPE GNC-EXPENSE-TYPE)
(list GNC-EXPENSE-TYPE GNC-INCOME-TYPE)) (list GNC-EXPENSE-TYPE GNC-INCOME-TYPE))
gnc-acct-info))) gnc-acct-info)))
@ -495,7 +496,8 @@
entry (default-unspec-acct)) entry (default-unspec-acct))
(qif-map-entry:set-allowed-types! (qif-map-entry:set-allowed-types!
entry entry
(if (> (qif-split:amount split) 0) (if (gnc:numeric-positive-p
(qif-split:amount split))
(list GNC-INCOME-TYPE GNC-EXPENSE-TYPE (list GNC-INCOME-TYPE GNC-EXPENSE-TYPE
GNC-BANK-TYPE GNC-CCARD-TYPE GNC-BANK-TYPE GNC-CCARD-TYPE
GNC-LIABILITY-TYPE GNC-ASSET-TYPE GNC-LIABILITY-TYPE GNC-ASSET-TYPE

2
src/scm/qif-import/qif-file.scm
View File

@ -445,7 +445,7 @@
;; if the date format was ambiguous, this will get called to reparse. ;; if the date format was ambiguous, this will get called to reparse.
(define (qif-file:reparse-dates self new-format) (define (qif-file:reparse-dates self new-format)
(check-and-parse-field (check-and-parse-field
qif-xtn:date qif-xtn:set-date! qif-xtn:date qif-xtn:set-date! equal?
qif-parse:check-date-format (list new-format) qif-parse:check-date-format (list new-format)
qif-parse:parse-date/format qif-parse:parse-date/format
(qif-file:xtns self) (qif-file:xtns self)