Andreas Bogk's qif import patch.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6793 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2002-04-15 19:11:02 +00:00
parent 50f9eb4b4c
commit dda3645e70

View File

@ -391,7 +391,11 @@
(if qif-number (if qif-number
(gnc:transaction-set-xnum gnc-xtn qif-number)) (gnc:transaction-set-xnum gnc-xtn qif-number))
(if qif-memo (if qif-memo
(gnc:split-set-memo gnc-near-split qif-memo)) (begin
(gnc:split-set-memo gnc-near-split qif-memo)
(if (or (not qif-payee)
(equal? qif-payee ""))
(gnc:transaction-set-description gnc-xtn qif-memo))))
(if (eq? qif-cleared 'cleared) (if (eq? qif-cleared 'cleared)
(gnc:split-set-reconcile gnc-near-split #\c)) (gnc:split-set-reconcile gnc-near-split #\c))