ready to test #237 - error addressing correct style when writing column-styles

git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@373 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049

ZA2X/CLAS/ZCL_EXCEL_WRITER_2007.slnk

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <CLAS CLSNAME="ZCL_EXCEL_WRITER_2007" VERSION="1" LANGU="E" DESCRIPT="Excel writer 2007" UUID="9551494D16947660E1000000C0A8FA28" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" DURATION_TYPE="0 " RISK_LEVEL="0 ">
- <implementing CLSNAME="ZCL_EXCEL_WRITER_2007" REFCLSNAME="ZIF_EXCEL_WRITER" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="0 "/>
+ <implementing CLSNAME="ZCL_EXCEL_WRITER_2007" REFCLSNAME="ZIF_EXCEL_WRITER" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1"/>
  <publicSection>class ZCL_EXCEL_WRITER_2007 definition
   public
   create public .
@@ -1986,7 +1986,11 @@ endmethod.</source>
   <parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="IV_ACTIVE" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PARVALUE="&apos;&apos;"/>
   <parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
   <exception CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
-  <source>method CREATE_XL_SHEET.
+  <source>METHOD create_xl_sheet.
+*--------------------------------------------------------------------*
+* issue #237   - Error writing column-style
+*              - Stefan Schmöcker,                          2012-11-01
+*--------------------------------------------------------------------*
 
   TYPES: BEGIN OF cfvo,
           value TYPE zexcel_conditional_value,
@@ -2209,7 +2213,8 @@ endmethod.</source>
         lo_autofilter               TYPE REF TO zcl_excel_autofilter,
         l_autofilter_hidden         TYPE flag,
         ls_area                     TYPE zexcel_s_autofilter_area,
-        lv_ref                      TYPE string.
+        lv_ref                      TYPE string,
+        lv_style_index              TYPE i.                             &quot; issue #237
 
 
   FIELD-SYMBOLS: &lt;ls_sheet_content&gt; TYPE zexcel_s_cell_data,
@@ -2574,11 +2579,15 @@ endmethod.</source>
         &quot; Style
 *        lv_value = &lt;column_dimension&gt;-column_dimension-&gt;get_xf_index( ).                                   &quot;del issue #157 -  set column style
         lv_style_guid = &lt;column_dimension&gt;-column_dimension-&gt;get_column_style_guid( ).                      &quot;ins issue #157 -  set column style
-        lv_value = me-&gt;excel-&gt;get_style_index_in_styles( lv_style_guid ).                                   &quot;ins issue #157 -  set column style
+*        lv_value = me-&gt;excel-&gt;get_style_index_in_styles( lv_style_guid ).                                  &quot;del issue #237
+        lv_style_index = me-&gt;excel-&gt;get_style_index_in_styles( lv_style_guid ).                             &quot;ins issue #237
+        IF lv_style_index &gt; 0.                                                                              &quot;ins issue #237
+          lv_value = lv_style_index - 1.                                                                    &quot;ins issue #237
           SHIFT lv_value RIGHT DELETING TRAILING space.
           SHIFT lv_value LEFT DELETING LEADING space.
           lo_element_2-&gt;set_attribute_ns( name  = lc_xml_attr_style
                                           value = lv_value ).
+        ENDIF.                                                                                              &quot;ins issue #237
 
         lo_element-&gt;append_child( new_child = lo_element_2 ). &quot; col node
       ENDLOOP.
@@ -3585,7 +3594,7 @@ endmethod.</source>
   lo_renderer = lo_ixml-&gt;create_renderer( ostream  = lo_ostream document = lo_document ).
   lo_renderer-&gt;render( ).
 
-endmethod.</source>
+ENDMETHOD.</source>
  </method>
  <method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" VERSION="1" LANGU="E" DESCRIPT="Create &apos;xl/workbook/_rels/sheet.xml.rels&apos;" EXPOSURE="1" STATE="1" EDITORDER="13 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
   <parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>