r18055 - gnucash/trunk/src/import-export/qif-import - QIF Import: Add support for German "Oth S" accounts.
Charles Day
cedayiv at code.gnucash.org
Thu Apr 23 17:51:02 EDT 2009
Author: cedayiv
Date: 2009-04-23 17:51:02 -0400 (Thu, 23 Apr 2009)
New Revision: 18055
Trac: http://svn.gnucash.org/trac/changeset/18055
Modified:
gnucash/trunk/src/import-export/qif-import/file-format.txt
gnucash/trunk/src/import-export/qif-import/qif-file.scm
gnucash/trunk/src/import-export/qif-import/qif-parse.scm
Log:
QIF Import: Add support for German "Oth S" accounts.
Modified: gnucash/trunk/src/import-export/qif-import/file-format.txt
===================================================================
--- gnucash/trunk/src/import-export/qif-import/file-format.txt 2009-04-21 19:39:37 UTC (rev 18054)
+++ gnucash/trunk/src/import-export/qif-import/file-format.txt 2009-04-23 21:51:02 UTC (rev 18055)
@@ -28,6 +28,7 @@
!Type:Invoice ??? (invoice presentment ???)
!Type:Invst Investment account
!Type:Oth A Asset account
+!Type:Oth S Asset account (German)
!Type:Oth L Liability account
!Type:Tax ???
Modified: gnucash/trunk/src/import-export/qif-import/qif-file.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-file.scm 2009-04-21 19:39:37 UTC (rev 18054)
+++ gnucash/trunk/src/import-export/qif-import/qif-file.scm 2009-04-23 21:51:02 UTC (rev 18055)
@@ -137,7 +137,7 @@
(case qstate-type
;; Transaction list for a particular account
((type:bank type:cash type:ccard type:invst type:port
- #{type:oth a}# #{type:oth l}#)
+ #{type:oth a}# #{type:oth l}# #{type:oth s}#)
(if ignore-accounts
(set! current-account-name
last-seen-account-name))
@@ -198,7 +198,7 @@
;;;;;;;;;;;;;;;;;;;;;;
((type:bank type:cash type:ccard type:invst type:port
- #{type:oth a}# #{type:oth l}#)
+ #{type:oth a}# #{type:oth l}# #{type:oth s}#)
(case tag
;; D : transaction date
((#\D)
Modified: gnucash/trunk/src/import-export/qif-import/qif-parse.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-parse.scm 2009-04-21 19:39:37 UTC (rev 18054)
+++ gnucash/trunk/src/import-export/qif-import/qif-parse.scm 2009-04-23 21:51:02 UTC (rev 18055)
@@ -164,6 +164,8 @@
(list GNC-ASSET-TYPE GNC-BANK-TYPE GNC-CASH-TYPE))
((string=? mangled-string "oth l")
(list GNC-LIABILITY-TYPE GNC-CCARD-TYPE))
+ ((string=? mangled-string "oth s") ;; German asset account
+ (list GNC-ASSET-TYPE GNC-BANK-TYPE GNC-CASH-TYPE))
((string=? mangled-string "mutual")
(list GNC-BANK-TYPE))
(#t
More information about the gnucash-changes
mailing list