SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 13:46:17 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix issue #297

Browse Source
This commit is contained in:
Ivan 2014-03-05 14:00:00 -06:00
parent 30ac9277f2
commit 111cf14f2d
1 changed files with 116 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
View File

@ -1,9 +1,9 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<CLAS CLSNAME="ZCL_EXCEL_WORKSHEET" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSFINAL="X" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" DURATION_TYPE="0 " RISK_LEVEL="0 "> <CLAS CLSNAME="ZCL_EXCEL_WORKSHEET" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSFINAL="X" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" DURATION_TYPE="0 " RISK_LEVEL="0 ">
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1"/> <implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="0 "/>
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROPERTIES" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1"/> <implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROPERTIES" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="0 "/>
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROTECTION" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1"/> <implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROTECTION" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="0 "/>
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_VBA_PROJECT" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1"/> <implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_VBA_PROJECT" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="0 "/>
<localImplementation>*&quot;* local class implementation for public class <localImplementation>*&quot;* local class implementation for public class
*&quot;* use this source file for the implementation part of *&quot;* use this source file for the implementation part of
*&quot;* local helper classes *&quot;* local helper classes
@ -159,10 +159,16 @@ ENDCLASS. &quot;lcl_gui_alv_grid DEFINITION</localTypes>
<localMacros>*&quot;* use this source file for any macro definitions you need <localMacros>*&quot;* use this source file for any macro definitions you need
*&quot;* in the implementation part of the class</localMacros> *&quot;* in the implementation part of the class</localMacros>
<textPool> <textPool>
<language SPRAS="1">
<textElement ID="I" KEY="001" ENTRY="Sheet" LENGTH="132 "/>
</language>
<language SPRAS="2">
<textElement ID="I" KEY="001" ENTRY="Sheet" LENGTH="132 "/>
</language>
<language SPRAS="D"> <language SPRAS="D">
<textElement ID="I" KEY="001" ENTRY="Tabelle" LENGTH="132 "/> <textElement ID="I" KEY="001" ENTRY="Tabelle" LENGTH="132 "/>
<textElement ID="I" KEY="400" ENTRY="Tabelle überschneidet sich mit schon eingebundener Tabelle und wird diesem Tabellenblatt nicht hinzugefügt." LENGTH="132 "/> <textElement ID="I" KEY="400" ENTRY="Tabelle überschneidet sich mit schon eingebundener Tabelle und wird diesem Tabellenblatt nicht hinzugefügt." LENGTH="132 "/>
<textElement ID="I" KEY="401" ENTRY="Für Druckbereich Wiederholungsspalten wurde ein ungültiger Bereich übergeben" LENGTH="132 "/> <textElement ID="I" KEY="401" ENTRY="Für Druckbereich Wiederholungsspalten wurde ein ungültiger Bereich übergeben" LENGTH="132 "/>
<textElement ID="I" KEY="402" ENTRY="Nicht erlaubtes Zeichen in Titel des Arbeitblatts. Liste der verbotenen Zeichen: /\[]*?:" LENGTH="132 "/> <textElement ID="I" KEY="402" ENTRY="Nicht erlaubtes Zeichen in Titel des Arbeitblatts. Liste der verbotenen Zeichen: /\[]*?:" LENGTH="132 "/>
<textElement ID="I" KEY="403" ENTRY="Blattname darf nicht mit &amp; beginnen." LENGTH="132 "/> <textElement ID="I" KEY="403" ENTRY="Blattname darf nicht mit &amp; beginnen." LENGTH="132 "/>
</language> </language>
@ -173,6 +179,15 @@ ENDCLASS. &quot;lcl_gui_alv_grid DEFINITION</localTypes>
<textElement ID="I" KEY="402" ENTRY="Found illegal character in sheetname. List of forbidden characters: /\[]*?:" LENGTH="132 "/> <textElement ID="I" KEY="402" ENTRY="Found illegal character in sheetname. List of forbidden characters: /\[]*?:" LENGTH="132 "/>
<textElement ID="I" KEY="403" ENTRY="Sheetname may not start with &amp;" LENGTH="132 "/> <textElement ID="I" KEY="403" ENTRY="Sheetname may not start with &amp;" LENGTH="132 "/>
</language> </language>
<language SPRAS="I">
<textElement ID="I" KEY="001" ENTRY="Foglio1" LENGTH="132 "/>
</language>
<language SPRAS="L">
<textElement ID="I" KEY="001" ENTRY="Sheet" LENGTH="132 "/>
</language>
<language SPRAS="S">
<textElement ID="I" KEY="001" ENTRY="Sheet" LENGTH="132 "/>
</language>
</textPool> </textPool>
<typeUsage CLSNAME="ZCL_EXCEL_WORKSHEET" TYPEGROUP="ABAP" VERSION="1" TPUTYPE="0" EXPLICIT="X"/> <typeUsage CLSNAME="ZCL_EXCEL_WORKSHEET" TYPEGROUP="ABAP" VERSION="1" TPUTYPE="0" EXPLICIT="X"/>
<typeUsage CLSNAME="ZCL_EXCEL_WORKSHEET" TYPEGROUP="SLIS" VERSION="1" TPUTYPE="0" IMPLICIT="X"/> <typeUsage CLSNAME="ZCL_EXCEL_WORKSHEET" TYPEGROUP="SLIS" VERSION="1" TPUTYPE="0" IMPLICIT="X"/>
@ -217,7 +232,7 @@ ENDCLASS. &quot;lcl_gui_alv_grid DEFINITION</localTypes>
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" EXPOSURE="0" STATE="1" EDITORDER="31 " ATTDECLTYP="0" ATTVALUE="&apos;Worksheet&apos;" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/> <attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" EXPOSURE="0" STATE="1" EDITORDER="31 " ATTDECLTYP="0" ATTVALUE="&apos;Worksheet&apos;" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="UPPER_CELL" VERSION="1" LANGU="E" DESCRIPT="Top left range cell" EXPOSURE="0" STATE="1" EDITORDER="32 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_S_CELL_DATA" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/> <attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="UPPER_CELL" VERSION="1" LANGU="E" DESCRIPT="Top left range cell" EXPOSURE="0" STATE="1" EDITORDER="32 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_S_CELL_DATA" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_COLUMNS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_COLUMNS">
<source>METHOD zif_excel_sheet_printsettings~clear_print_repeat_columns. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_COLUMNS.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* adjust internal representation * adjust internal representation
@ -232,10 +247,10 @@ ENDCLASS. &quot;lcl_gui_alv_grid DEFINITION</localTypes>
me-&gt;print_title_set_range( ). me-&gt;print_title_set_range( ).
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_ROWS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_ROWS">
<source>METHOD zif_excel_sheet_printsettings~clear_print_repeat_rows. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_ROWS.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* adjust internal representation * adjust internal representation
@ -250,25 +265,25 @@ ENDMETHOD.</source>
me-&gt;print_title_set_range( ). me-&gt;print_title_set_range( ).
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_COLUMNS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_COLUMNS">
<source>METHOD zif_excel_sheet_printsettings~get_print_repeat_columns. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_COLUMNS.
ev_columns_from = me-&gt;print_title_col_from. ev_columns_from = me-&gt;print_title_col_from.
ev_columns_to = me-&gt;print_title_col_to. ev_columns_to = me-&gt;print_title_col_to.
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_ROWS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_ROWS">
<source>METHOD zif_excel_sheet_printsettings~get_print_repeat_rows. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_ROWS.
ev_rows_from = me-&gt;print_title_row_from. ev_rows_from = me-&gt;print_title_row_from.
ev_rows_to = me-&gt;print_title_row_to. ev_rows_to = me-&gt;print_title_row_to.
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_COLUMNS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_COLUMNS">
<source>METHOD zif_excel_sheet_printsettings~set_print_repeat_columns. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_COLUMNS.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue#235 - repeat rows/columns * issue#235 - repeat rows/columns
* - Stefan Schmöcker, 2012-12-02 * - Stefan Schmöcker, 2012-12-02
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
DATA: lv_col_from_int TYPE i, DATA: lv_col_from_int TYPE i,
@ -311,13 +326,13 @@ ENDMETHOD.</source>
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
me-&gt;print_title_set_range( ). me-&gt;print_title_set_range( ).
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_ROWS"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_ROWS">
<source>METHOD zif_excel_sheet_printsettings~set_print_repeat_rows. <source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_ROWS.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue#235 - repeat rows/columns * issue#235 - repeat rows/columns
* - Stefan Schmöcker, 2012-12-02 * - Stefan Schmöcker, 2012-12-02
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
DATA: lv_errormessage TYPE string. DATA: lv_errormessage TYPE string.
@ -357,7 +372,7 @@ ENDMETHOD.</source>
me-&gt;print_title_set_range( ). me-&gt;print_title_set_range( ).
ENDMETHOD.</source> endmethod.</source>
</interfaceMethod> </interfaceMethod>
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE"> <interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE">
<source>method ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE. <source>method ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE.
@ -2076,8 +2091,8 @@ endmethod.</source>
set country space. set country space.
* Hier wird nur die korrekte Kommaseparatierung gemacht, wenn die * Hier wird nur die korrekte Kommaseparatierung gemacht, wenn die
* Zeichen einer * Zeichen einer
* Zahl enthalten sind. Das ist f#ƒÂ#r Timestamps, die auch &quot;:&quot; enthalten. * Zahl enthalten sind. Das ist f#ƒÂ#r Timestamps, die auch &quot;:&quot; enthalten.
* F#ƒÂ#r die * F#ƒÂ#r die
* darf keine Kommaseparierung stattfinden. * darf keine Kommaseparierung stattfinden.
* Changing for correction request - Y6BK041073 * Changing for correction request - Y6BK041073
if contentsitem-value co &apos;0123456789.,-+E &apos;. if contentsitem-value co &apos;0123456789.,-+E &apos;.
@ -2582,10 +2597,10 @@ endmethod.</source>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="IS_TABLE_SETTINGS" VERSION="1" LANGU="E" DESCRIPT="Excel table binding settings" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_TABLE_SETTINGS" PAROPTIONL="X"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="IS_TABLE_SETTINGS" VERSION="1" LANGU="E" DESCRIPT="Excel table binding settings" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_TABLE_SETTINGS" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="ES_TABLE_SETTINGS" VERSION="1" LANGU="E" DESCRIPT="Excel table binding settings" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_TABLE_SETTINGS"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="ES_TABLE_SETTINGS" VERSION="1" LANGU="E" DESCRIPT="Excel table binding settings" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_TABLE_SETTINGS"/>
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/> <exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
<source>METHOD bind_table. <source>method BIND_TABLE.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue #230 - Pimp my Code * issue #230 - Pimp my Code
* - Stefan Schmöcker, (wi p) 2012-12-01 * - Stefan Schmöcker, (wi p) 2012-12-01
* - ... * - ...
* aligning code * aligning code
* message made to support multilinguality * message made to support multilinguality
@ -2840,7 +2855,7 @@ endmethod.</source>
ENDIF. ENDIF.
&quot; &lt;&lt; Issue #291 &quot; &lt;&lt; Issue #291
ENDMETHOD.</source> endmethod.</source>
</method> </method>
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" VERSION="1" LANGU="E" DESCRIPT="Calculate width of cell" EXPOSURE="0" STATE="1" EDITORDER="8 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0"> <method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" VERSION="1" LANGU="E" DESCRIPT="Calculate width of cell" EXPOSURE="0" STATE="1" EDITORDER="8 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
@ -2927,7 +2942,7 @@ endmethod.</source>
* ). * ).
* &quot; For an easy start we just take the number of characters as the width * &quot; For an easy start we just take the number of characters as the width
* width = strlen( cell_value ). * width = strlen( cell_value ).
* &quot; Addition to solve issue #120, contribution by Stefan Schm#ƒÂ#cker * &quot; Addition to solve issue #120, contribution by Stefan Schm#ƒÂ#cker
* &quot; Calculate width using Font Size and Font Type * &quot; Calculate width using Font Size and Font Type
* IF cell_style IS BOUND * IF cell_style IS BOUND
* AND cell_style-&gt;font IS BOUND. * AND cell_style-&gt;font IS BOUND.
@ -3051,7 +3066,7 @@ endmethod.</source>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="98 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_TINT" PAROPTIONL="X"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="98 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_TINT" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="EP_GUID" VERSION="1" LANGU="E" DESCRIPT="Style identifier" CMPTYPE="1" MTDTYPE="0" EDITORDER="99 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="EP_GUID" VERSION="1" LANGU="E" DESCRIPT="Style identifier" CMPTYPE="1" MTDTYPE="0" EDITORDER="99 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE"/>
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/> <exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
<source>method CHANGE_CELL_STYLE. <source>METHOD change_cell_style.
&quot; issue # 139 &quot; issue # 139
DATA: stylemapping TYPE zexcel_s_stylemapping, DATA: stylemapping TYPE zexcel_s_stylemapping,
@ -3227,15 +3242,15 @@ endmethod.</source>
ENDIF. ENDIF.
IF ip_protection IS SUPPLIED. IF ip_protection IS SUPPLIED.
MOVE-CORRESPONDING ip_alignment TO complete_style-alignment. MOVE-CORRESPONDING ip_protection TO complete_style-protection.
IF ip_xprotection IS SUPPLIED. IF ip_xprotection IS SUPPLIED.
MOVE-CORRESPONDING ip_xprotection TO complete_stylex-protection. MOVE-CORRESPONDING ip_xprotection TO complete_stylex-protection.
ELSE. ELSE.
IF ip_protection-hidden IS NOT INITIAL. IF ip_protection-hidden IS NOT INITIAL.
complete_style-protection-hidden = &apos;X&apos;. complete_stylex-protection-hidden = &apos;X&apos;.
ENDIF. ENDIF.
IF ip_protection-locked IS NOT INITIAL. IF ip_protection-locked IS NOT INITIAL.
complete_style-protection-locked = &apos;X&apos;. complete_stylex-protection-locked = &apos;X&apos;.
ENDIF. ENDIF.
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -3347,7 +3362,7 @@ endmethod.</source>
ip_row = ip_row ip_row = ip_row
ip_style = ep_guid ). ip_style = ep_guid ).
endmethod.</source> ENDMETHOD.</source>
</method> </method>
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" VERSION="1" LANGU="E" DESCRIPT="CONSTRUCTOR" EXPOSURE="2" STATE="1" EDITORDER="11 " DISPID="0 " MTDTYPE="2" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0"> <method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" VERSION="1" LANGU="E" DESCRIPT="CONSTRUCTOR" EXPOSURE="2" STATE="1" EDITORDER="11 " DISPID="0 " MTDTYPE="2" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" SCONAME="IP_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Ref to parent document" CMPTYPE="1" MTDTYPE="2" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" SCONAME="IP_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Ref to parent document" CMPTYPE="1" MTDTYPE="2" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL"/>
@ -3511,7 +3526,7 @@ endmethod.</source>
ep_value = ls_sheet_content-cell_value. ep_value = ls_sheet_content-cell_value.
ep_guid = ls_sheet_content-cell_style. &quot; issue 139 - added this to be used for columnwidth calculation ep_guid = ls_sheet_content-cell_style. &quot; issue 139 - added this to be used for columnwidth calculation
&quot; Addition to solve issue #120, contribution by Stefan Schm#ƒÂ#cker &quot; Addition to solve issue #120, contribution by Stefan Schm#ƒÂ#cker
DATA: style_iterator TYPE REF TO cl_object_collection_iterator, DATA: style_iterator TYPE REF TO cl_object_collection_iterator,
style TYPE REF TO zcl_excel_style. style TYPE REF TO zcl_excel_style.
IF ep_style IS REQUESTED. IF ep_style IS REQUESTED.
@ -3977,7 +3992,7 @@ endmethod.</source>
<source>method PRINT_TITLE_SET_RANGE. <source>method PRINT_TITLE_SET_RANGE.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue#235 - repeat rows/columns * issue#235 - repeat rows/columns
* - Stefan Schmöcker, 2012-12-02 * - Stefan Schmöcker, 2012-12-02
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
@ -4112,7 +4127,7 @@ endmethod.</source>
* Begin of change issue #152 - don&apos;t touch exisiting style if only value is passed * Begin of change issue #152 - don&apos;t touch exisiting style if only value is passed
* lv_style_guid = ip_style. * lv_style_guid = ip_style.
lv_column = zcl_excel_common=&gt;convert_column2int( ip_column ). lv_column = zcl_excel_common=&gt;convert_column2int( ip_column ).
READ TABLE sheet_content ASSIGNING &lt;fs_sheet_content&gt; WITH TABLE KEY cell_row = ip_row &quot; Changed to access via table key , Stefan Schmöcker, 2013-08-03 READ TABLE sheet_content ASSIGNING &lt;fs_sheet_content&gt; WITH TABLE KEY cell_row = ip_row &quot; Changed to access via table key , Stefan Schmöcker, 2013-08-03
cell_column = lv_column. cell_column = lv_column.
IF sy-subrc = 0. IF sy-subrc = 0.
IF ip_style IS INITIAL. IF ip_style IS INITIAL.
@ -4313,7 +4328,7 @@ endmethod.</source>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/>
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="IP_FORMULA" VERSION="1" LANGU="E" DESCRIPT="Cell Formula" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_FORMULA"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="IP_FORMULA" VERSION="1" LANGU="E" DESCRIPT="Cell Formula" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_FORMULA"/>
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/> <exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
<source>METHOD set_cell_formula. <source>method SET_CELL_FORMULA.
DATA: DATA:
lv_column TYPE zexcel_cell_column, lv_column TYPE zexcel_cell_column,
ls_sheet_content LIKE LINE OF me-&gt;sheet_content. ls_sheet_content LIKE LINE OF me-&gt;sheet_content.
@ -4340,7 +4355,7 @@ endmethod.</source>
&lt;sheet_content&gt;-cell_formula = ip_formula. &lt;sheet_content&gt;-cell_formula = ip_formula.
ENDMETHOD.</source> endmethod.</source>
</method> </method>
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Set cell style" EXPOSURE="2" STATE="1" EDITORDER="46 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0"> <method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Set cell style" EXPOSURE="2" STATE="1" EDITORDER="46 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/> <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
@ -4609,20 +4624,20 @@ endmethod.</source>
<source>method SET_TITLE. <source>method SET_TITLE.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* ToDos: * ToDos:
* 2do§1 The current coding for replacing a named ranges name * 2do§1 The current coding for replacing a named ranges name
* after renaming a sheet should be checked if it is * after renaming a sheet should be checked if it is
* really working if sheetname should be escaped * really working if sheetname should be escaped
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue #230 - Pimp my Code * issue #230 - Pimp my Code
* - Stefan Schmöcker, (wip ) 2012-12-08 * - Stefan Schmöcker, (wip ) 2012-12-08
* - ... * - ...
* changes: aligning code * changes: aligning code
* message made to support multilinguality * message made to support multilinguality
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* issue#243 - &apos; is not allowed as first character in sheet title * issue#243 - &apos; is not allowed as first character in sheet title
* - Stefan Schmöcker, 2012-12-02 * - Stefan Schmöcker, 2012-12-02
* changes: added additional check for &apos; as first character * changes: added additional check for &apos; as first character
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
DATA: lo_worksheets_iterator TYPE REF TO cl_object_collection_iterator, DATA: lo_worksheets_iterator TYPE REF TO cl_object_collection_iterator,
@ -4685,7 +4700,7 @@ endmethod.</source>
* After changing this worksheet&apos;s title we have to adjust * After changing this worksheet&apos;s title we have to adjust
* all ranges that are referring to this worksheet. * all ranges that are referring to this worksheet.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* 2do§1 - Check if the following quickfix is solid * 2do§1 - Check if the following quickfix is solid
* I fear it isn&apos;t - but this implementation is better then * I fear it isn&apos;t - but this implementation is better then
* nothing at all since it handles a supposed majority of cases * nothing at all since it handles a supposed majority of cases
*--------------------------------------------------------------------* *--------------------------------------------------------------------*