r16897 - gnucash/branches/2.2/src/import-export/qif-import - [r16877] When matching QIF transactions make sure the account matches (#506810)

[Andreas Köhler]

Author: andi5
Date: 2008-01-30 15:25:28 -0500 (Wed, 30 Jan 2008)
New Revision: 16897
Trac: http://svn.gnucash.org/trac/changeset/16897

Modified:
   gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm
Log:
[r16877] When matching QIF transactions make sure the account matches (#506810)

Patch by Charles Day.


Modified: gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm
===================================================================
--- gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm	2008-01-30 20:25:19 UTC (rev 16896)
+++ gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm	2008-01-30 20:25:28 UTC (rev 16897)
@@ -810,7 +810,8 @@
     ;; this is the grind loop.  Go over every unmarked transaction in
     ;; the candidate-xtns list.
     (let xtn-loop ((xtns candidate-xtns))
-      (if (not (qif-xtn:mark (car xtns)))
+      (if (and (not (qif-xtn:mark (car xtns)))
+               (string=? (qif-xtn:from-acct (car xtns)) far-acct-name))
           (begin 
             (set! how
                   (qif-import:xtn-has-matches? (car xtns) near-acct-name