r17102 - gnucash/branches/2.2/src/import-export - [r17057] Bug #522795: Add QIF importer support for short sales and covers.

[Andreas Köhler]

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

Modified:
   gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm
   gnucash/branches/2.2/src/import-export/qif/qif-parse.c
Log:
[r17057] Bug #522795: Add QIF importer support for short sales and covers.

Committed by cedayiv.


Modified: gnucash/branches/2.2/src/import-export/qif/qif-parse.c
===================================================================
--- gnucash/branches/2.2/src/import-export/qif/qif-parse.c	2008-04-20 19:23:12 UTC (rev 17101)
+++ gnucash/branches/2.2/src/import-export/qif/qif-parse.c	2008-04-20 19:23:21 UTC (rev 17102)
@@ -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/branches/2.2/src/import-export/qif-import/qif-parse.scm
===================================================================
--- gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm	2008-04-20 19:23:12 UTC (rev 17101)
+++ gnucash/branches/2.2/src/import-export/qif-import/qif-parse.scm	2008-04-20 19:23:21 UTC (rev 17102)
@@ -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)