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