IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-08-13 06:25:03 -05:00
Code Issues Packages Projects Releases Wiki Activity

Bug #520606: Fix memo mapping for non-split, non-investment QIF transactions.

Browse Source 
BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17010 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day
2008-03-05 22:42:29 +00:00
parent 78479c46cc
commit c45b4e668c
1 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/import-export/qif-import/qif-to-gnc.scm
+18 -15
View File
@@ -505,30 +505,33 @@
;; figure out what the far acct is
(cond
;; if the category is valid, use that. look it up
;; in the acct-hash if it's an account.
;; If the category is an account, use the account mapping.
((and (not (string=? cat ""))
(qif-split:category-is-account? qif-split))
(set! far-acct-info (hash-ref qif-acct-map cat)))
;; .. look it up in the cat-hash if it's a category
;; Otherwise, if it isn't empty, use the category mapping.
((not (string=? cat ""))
(set! far-acct-info (hash-ref qif-cat-map cat)))
;; otherwise, try to find the payee in the
;; memo-map if it's likely to have been used (only
;; 1 split). then try the memo. if neither
;; works, go back to the Unspecified account.
;; Otherwise, for non-split QIF transactions, try a payee
;; mapping, and if that doesn't work, try mapping the
;; transaction memo. For split transactions, map the memo
;; for this particular split line. If all else fails, use
;; the default category mapping (the Unspecified account,
;; unless the user has changed it).
(#t
(set! far-acct-info
(or
(and (string? qif-payee)
(not (string=? qif-payee ""))
(= (length splits) 1)
(hash-ref qif-memo-map qif-payee))
(and (string? memo)
(not (string=? memo ""))
(hash-ref qif-memo-map memo))))
(if (= (length splits) 1)
(or (and (string? qif-payee)
(not (string=? qif-payee ""))
(hash-ref qif-memo-map qif-payee))
(and (string? qif-memo)
(not (string=? qif-memo ""))
(hash-ref qif-memo-map qif-memo)))
(and (string? memo)
(not (string=? memo ""))
(hash-ref qif-memo-map memo))))
(if (not far-acct-info)
(set! far-acct-info (hash-ref qif-cat-map cat)))))