AUDIT: r17057 - gnucash/trunk/src/import-export - Bug #522795: Add QIF importer support for short sales and covers.

[Charles Day]

Author: cedayiv
Date: 2008-03-27 19:39:57 -0400 (Thu, 27 Mar 2008)
New Revision: 17057
Trac: http://svn.gnucash.org/trac/changeset/17057

Modified:
   gnucash/trunk/src/import-export/qif-import/qif-parse.scm
   gnucash/trunk/src/import-export/qif/qif-parse.c
Log:
Bug #522795: Add QIF importer support for short sales and covers.
BP


Modified: gnucash/trunk/src/import-export/qif/qif-parse.c
===================================================================
--- gnucash/trunk/src/import-export/qif/qif-parse.c	2008-03-26 21:05:05 UTC (rev 17056)
+++ gnucash/trunk/src/import-export/qif/qif-parse.c	2008-03-27 23:39:57 UTC (rev 17057)
@@ -127,8 +127,10 @@
   g_assert(qif_action_map);
 
   QIF_ADD_ACT("buy", QIF_A_BUY);
+  QIF_ADD_ACT("cvrshrt", QIF_A_BUY);
   QIF_ADD_ACT("kauf", QIF_A_BUY);
   QIF_ADD_ACT("buyx", QIF_A_BUYX);
+  QIF_ADD_ACT("cvrshrtx", QIF_A_BUYX);
   QIF_ADD_ACT("kaufx", QIF_A_BUYX);
   QIF_ADD_ACT("cglong", QIF_A_CGLONG);
   QIF_ADD_ACT("kapgew", QIF_A_CGLONG); /* Kapitalgewinnsteuer */
@@ -172,8 +174,10 @@
   QIF_ADD_ACT("rtrncap", QIF_A_RTRNCAP);
   QIF_ADD_ACT("rtrncapx", QIF_A_RTRNCAPX);
   QIF_ADD_ACT("sell", QIF_A_SELL);
+  QIF_ADD_ACT("shtsell", QIF_A_SELL);
   QIF_ADD_ACT("verkauf", QIF_A_SELL); /* verkaufen */
   QIF_ADD_ACT("sellx", QIF_A_SELLX);
+  QIF_ADD_ACT("shtsellx", QIF_A_SELLX);
   QIF_ADD_ACT("verkaufx", QIF_A_SELLX); /* verkaufen */
   QIF_ADD_ACT("shrsin", QIF_A_SHRSIN);
   QIF_ADD_ACT("aktzu", QIF_A_SHRSIN);

Modified: gnucash/trunk/src/import-export/qif-import/qif-parse.scm
===================================================================
--- gnucash/trunk/src/import-export/qif-import/qif-parse.scm	2008-03-26 21:05:05 UTC (rev 17056)
+++ gnucash/trunk/src/import-export/qif-import/qif-parse.scm	2008-03-27 23:39:57 UTC (rev 17057)
@@ -190,9 +190,9 @@
       (let ((action-symbol (string-to-canonical-symbol read-value)))
         (case action-symbol
           ;; buy
-          ((buy kauf)
+          ((buy cvrshrt kauf)
            'buy)
-          ((buyx kaufx)
+          ((buyx cvrshrtx kaufx)
            'buyx)
           ((cglong kapgew) ;; Kapitalgewinnsteuer
            'cglong)
@@ -252,9 +252,9 @@
            'rtrncap)
           ((rtrncapx)
            'rtrncapx)
-          ((sell verkauf)  ;; verkaufen
+          ((sell shtsell verkauf)  ;; verkaufen
            'sell)
-          ((sellx verkaufx)
+          ((sellx shtsellx verkaufx)
            'sellx)
           ((shrsin aktzu)
            'shrsin)