diff --git a/src/import-export/qif-import/file-format.txt b/src/import-export/qif-import/file-format.txt index d0b3aa68c0..a3318fff41 100644 --- a/src/import-export/qif-import/file-format.txt +++ b/src/import-export/qif-import/file-format.txt @@ -28,6 +28,7 @@ Type of account identifiers !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 ??? diff --git a/src/import-export/qif-import/qif-file.scm b/src/import-export/qif-import/qif-file.scm index cab11c986d..2b804a8cd3 100644 --- a/src/import-export/qif-import/qif-file.scm +++ b/src/import-export/qif-import/qif-file.scm @@ -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) diff --git a/src/import-export/qif-import/qif-parse.scm b/src/import-export/qif-import/qif-parse.scm index 1710dcfcbe..5045ba13fc 100644 --- a/src/import-export/qif-import/qif-parse.scm +++ b/src/import-export/qif-import/qif-parse.scm @@ -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