r17108 - gnucash/branches/2.2/src/import-export/qif-import - [r17075] Bug #527459: Add QIF importer support for voided transactions.

[Andreas Köhler]

Author: andi5
Date: 2008-04-20 15:24:20 -0400 (Sun, 20 Apr 2008)
New Revision: 17108
Trac: http://svn.gnucash.org/trac/changeset/17108

Modified:
   gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm
Log:
[r17075] Bug #527459: Add QIF importer support for voided transactions.

Committed by cedayiv.


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-04-20 19:24:10 UTC (rev 17107)
+++ gnucash/branches/2.2/src/import-export/qif-import/qif-to-gnc.scm	2008-04-20 19:24:20 UTC (rev 17108)
@@ -6,7 +6,9 @@
 ;;;  Copyright 2000-2001 Bill Gribble <grib at billgribble.com> 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(use-modules (srfi srfi-13))
 
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  qif-import:find-or-make-acct
 ;;
@@ -745,6 +747,12 @@
                       (xaccSplitSetParent commission-split gnc-xtn)
                       (xaccSplitSetAccount commission-split
                                            commission-acct)))))))
+
+    ;; QIF indicates a void transaction by starting the payee with "**VOID**".
+    (if (and (string? qif-payee)
+             (string-prefix? "**VOID**" qif-payee))
+        (xaccTransVoid gnc-xtn "QIF"))
+
     ;; return the modified transaction (though it's ignored).
     gnc-xtn))