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

QIF Import: Add support for German "Oth S" accounts.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18055 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day 2009-04-23 21:51:02 +00:00
parent 822905a9ab
commit f07425f1b0
3 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/import-export/qif-import/file-format.txt
View File

@ -28,6 +28,7 @@ Type of account identifiers
!Type:Invoice ??? (invoice presentment ???) !Type:Invoice ??? (invoice presentment ???)
!Type:Invst Investment account !Type:Invst Investment account
!Type:Oth A Asset account !Type:Oth A Asset account
!Type:Oth S Asset account (German)
!Type:Oth L Liability account !Type:Oth L Liability account
!Type:Tax ??? !Type:Tax ???

4
src/import-export/qif-import/qif-file.scm
View File

@ -137,7 +137,7 @@
(case qstate-type (case qstate-type
;; Transaction list for a particular account ;; Transaction list for a particular account
((type:bank type:cash type:ccard type:invst type:port ((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 (if ignore-accounts
(set! current-account-name (set! current-account-name
last-seen-account-name)) last-seen-account-name))
@ -198,7 +198,7 @@
;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;
((type:bank type:cash type:ccard type:invst type:port ((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 (case tag
;; D : transaction date ;; D : transaction date
((#\D) ((#\D)

2
src/import-export/qif-import/qif-parse.scm
View File

@ -164,6 +164,8 @@
(list GNC-ASSET-TYPE GNC-BANK-TYPE GNC-CASH-TYPE)) (list GNC-ASSET-TYPE GNC-BANK-TYPE GNC-CASH-TYPE))
((string=? mangled-string "oth l") ((string=? mangled-string "oth l")
(list GNC-LIABILITY-TYPE GNC-CCARD-TYPE)) (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") ((string=? mangled-string "mutual")
(list GNC-BANK-TYPE)) (list GNC-BANK-TYPE))
(#t (#t