mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-04 20:28:22 +08:00
af00a56683
Added new class/method to wrap obsolete function GUID_CREATE and use replacement class SAP provides. Old function call still found in wrapper class commented out for use in older releases, which don't have the new methods from SAP yet ( 7.01 does not have it for example ) Replaced calls to function by calls to wrapper-method Changed calculation of last date in month in ZDEMO_CALENDAR since it was calling an obsoleted function as well.
5163 lines
274 KiB
XML
5163 lines
274 KiB
XML
<?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 " ZSAPLINK_PLUGIN_MAJOR_VERSION="0 " ZSAPLINK_PLUGIN_MINOR_VERSION="1 " ZSAPLINK_PLUGIN_BUILD_VERSION="0 " ZSAPLINK_PLUGIN_INFO1="ZSAPLINK_CLASS is part of the main ZSAPLINK project --> This plugin found there instead of ZSAPLINK_PLUGINS projects" ZSAPLINK_PLUGIN_INFO2="SAPLINK homepage: https://www.assembla.com/spaces/saplink/wiki" ZSAPLINK_PLUGIN_INFO3="Download from https://www.assembla.com/code/saplink/subversion/nodes" ZSAPLINK_PLUGIN_INFO4="and navigate to: trunk -> core -> ZSAPLINK -> CLAS -> ZSAPLINK_CLASS.slnk">
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_S_FONT_METRIC" VERSION="1" LANGU="E" EXPOSURE="0" STATE="1" EDITORDER="1 " TYPTYPE="4" SRCROW1="6 " SRCCOLUMN1="4 " SRCROW2="9 " SRCCOLUMN2="27 " TYPESRC_LENG="0 " TYPESRC="BEGIN OF mty_s_font_metric,
|
|
char TYPE c LENGTH 1,
|
|
char_width TYPE tdcwidths,
|
|
END OF mty_s_font_metric
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_TH_FONT_METRICS" VERSION="1" LANGU="E" EXPOSURE="0" STATE="1" EDITORDER="2 " TYPTYPE="4" SRCROW1="11 " SRCCOLUMN1="4 " SRCROW2="13 " SRCCOLUMN2="30 " TYPESRC_LENG="0 " TYPESRC="mty_th_font_metrics
|
|
TYPE HASHED TABLE OF mty_s_font_metric
|
|
WITH UNIQUE KEY char
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_S_FONT_CACHE" VERSION="1" LANGU="E" EXPOSURE="0" STATE="1" EDITORDER="3 " TYPTYPE="4" SRCROW1="15 " SRCCOLUMN1="4 " SRCROW2="21 " SRCCOLUMN2="26 " TYPESRC_LENG="0 " TYPESRC="BEGIN OF mty_s_font_cache,
|
|
font_name TYPE zexcel_style_font_name,
|
|
font_height TYPE tdfontsize,
|
|
flag_bold TYPE abap_bool,
|
|
flag_italic TYPE abap_bool,
|
|
th_font_metrics TYPE mty_th_font_metrics,
|
|
END OF mty_s_font_cache
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_TH_FONT_CACHE" VERSION="1" LANGU="E" EXPOSURE="0" STATE="1" EDITORDER="4 " TYPTYPE="4" SRCROW1="23 " SRCCOLUMN1="4 " SRCROW2="25 " SRCCOLUMN2="69 " TYPESRC_LENG="0 " TYPESRC="mty_th_font_cache
|
|
TYPE HASHED TABLE OF mty_s_font_cache
|
|
WITH UNIQUE KEY font_name font_height flag_bold flag_italic
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_TS_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Sorted table for row dimensions" EXPOSURE="0" STATE="1" EDITORDER="5 " TYPTYPE="4" SRCROW1="27 " SRCCOLUMN1="4 " SRCROW2="27 " SRCCOLUMN2="95 " TYPESRC_LENG="0 " TYPESRC="mty_ts_row_dimension TYPE SORTED TABLE OF zexcel_s_worksheet_rowdimensio WITH UNIQUE KEY row
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_MERGE" VERSION="1" LANGU="E" DESCRIPT="Merge information" EXPOSURE="0" STATE="1" EDITORDER="6 " TYPTYPE="4" SRCROW1="29 " SRCCOLUMN1="4 " SRCROW2="34 " SRCCOLUMN2="19 " TYPESRC_LENG="0 " TYPESRC="BEGIN OF mty_merge,
|
|
row_from TYPE i,
|
|
row_to TYPE i,
|
|
col_from TYPE i,
|
|
col_to TYPE i,
|
|
END OF mty_merge
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_TS_MERGE" VERSION="1" LANGU="E" DESCRIPT="Table with all merges" EXPOSURE="0" STATE="1" EDITORDER="7 " TYPTYPE="4" SRCROW1="36 " SRCCOLUMN1="4 " SRCROW2="36 " SRCCOLUMN2="73 " TYPESRC_LENG="0 " TYPESRC="mty_ts_merge TYPE SORTED TABLE OF mty_merge WITH UNIQUE KEY table_line
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_S_OUTLINE_ROW" VERSION="1" LANGU="E" DESCRIPT="Information about a row outline" EXPOSURE="2" STATE="1" EDITORDER="1 " TYPTYPE="4" SRCROW1="17 " SRCCOLUMN1="4 " SRCROW2="21 " SRCCOLUMN2="31 " TYPESRC_LENG="0 " TYPESRC="begin of MTY_S_OUTLINE_ROW,
|
|
row_from type i,
|
|
row_to type i,
|
|
collapsed type abap_bool,
|
|
end of mty_s_outline_row
|
|
"/>
|
|
<types CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTY_TS_OUTLINES_ROW" VERSION="1" LANGU="E" DESCRIPT="All row outlines ( sorted table )" EXPOSURE="2" STATE="1" EDITORDER="3 " TYPTYPE="4" SRCROW1="23 " SRCCOLUMN1="4 " SRCROW2="23 " SRCCOLUMN2="93 " TYPESRC_LENG="0 " TYPESRC="MTY_TS_OUTLINES_ROW type sorted table of MTY_S_OUTLINE_ROW with unique key row_from row_to
|
|
"/>
|
|
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_VBA_PROJECT" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="4 "/>
|
|
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROTECTION" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="3 "/>
|
|
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PROPERTIES" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="2 "/>
|
|
<implementing CLSNAME="ZCL_EXCEL_WORKSHEET" REFCLSNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS" VERSION="1" EXPOSURE="2" STATE="1" RELTYPE="1" EDITORDER="1 "/>
|
|
<localImplementation>*"* local class implementation for public class
|
|
*"* use this source file for the implementation part of
|
|
*"* local helper classes
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Class (Implementation) C_OI_PROXY_ERROR
|
|
*&---------------------------------------------------------------------*
|
|
CLASS c_oi_proxy_error IMPLEMENTATION.
|
|
METHOD constructor.
|
|
* IMPORTING object_name TYPE c
|
|
* method_name TYPE c.
|
|
error_nr = ret_call_not_flushed.
|
|
me->i_oi_error~error_code = c_oi_errors=>ret_call_not_flushed.
|
|
me->i_oi_error~is_flushed = ' '.
|
|
me->i_oi_error~has_failed = 'X'.
|
|
me->i_oi_error~has_succeeded = ' '.
|
|
me->message_id = 'SOFFICEINTEGRATION'.
|
|
me->message_nr = '899'.
|
|
me->param1 = object_name.
|
|
me->param2 = method_name.
|
|
ENDMETHOD. "constructor
|
|
|
|
METHOD i_oi_error~flush_error.
|
|
IF error_nr EQ 0.
|
|
me->i_oi_error~error_code = c_oi_errors=>ret_ok.
|
|
me->i_oi_error~is_flushed = 'X'.
|
|
me->i_oi_error~has_failed = ' '.
|
|
me->i_oi_error~has_succeeded = 'X'.
|
|
me->message_id = ''.
|
|
me->message_nr = '000'.
|
|
CALL METHOD c_oi_errors=>translate_proxy_error_code
|
|
EXPORTING
|
|
errorcode = error_nr
|
|
IMPORTING
|
|
retcode = me->i_oi_error~error_code.
|
|
ELSEIF error_nr EQ ret_call_not_flushed.
|
|
"call still not flushed
|
|
CALL METHOD c_oi_errors=>translate_proxy_error_code
|
|
EXPORTING
|
|
errorcode = error_nr
|
|
errorstring = me->param2 "method name
|
|
objectname = me->param1
|
|
IMPORTING
|
|
retcode = me->i_oi_error~error_code.
|
|
ELSE.
|
|
me->i_oi_error~is_flushed = 'X'.
|
|
me->i_oi_error~has_succeeded = ' '.
|
|
me->i_oi_error~has_failed = 'X'.
|
|
CALL METHOD c_oi_errors=>translate_proxy_error_code
|
|
EXPORTING
|
|
errorcode = error_nr
|
|
errorstring = error_string
|
|
IMPORTING
|
|
retcode = me->i_oi_error~error_code.
|
|
CALL METHOD c_oi_errors=>get_message
|
|
IMPORTING
|
|
message_id = me->message_id
|
|
message_number = me->message_nr
|
|
param1 = me->param1
|
|
param2 = me->param2
|
|
param3 = me->param3
|
|
param4 = me->param4.
|
|
ENDIF.
|
|
ENDMETHOD. "i_oi_error~flush_error
|
|
|
|
METHOD i_oi_error~raise_message.
|
|
* IMPORTING type TYPE c.
|
|
* EXCEPTIONS message_raised flush_failed.
|
|
IF me->i_oi_error~has_succeeded IS INITIAL.
|
|
IF NOT me->i_oi_error~is_flushed IS INITIAL.
|
|
MESSAGE ID message_id TYPE type
|
|
NUMBER message_nr WITH param1 param2 param3 param4
|
|
RAISING message_raised.
|
|
ELSE.
|
|
RAISE flush_failed.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDMETHOD. "i_oi_error~raise_message
|
|
|
|
METHOD i_oi_error~get_message.
|
|
* EXPORTING message_id TYPE c
|
|
* message_number TYPE c
|
|
* param1 TYPE c
|
|
* param2 TYPE c
|
|
* param3 TYPE c
|
|
* param4 TYPE c.
|
|
param1 = me->param1. param2 = me->param2.
|
|
param3 = me->param3. param4 = me->param4.
|
|
|
|
message_id = me->message_id.
|
|
message_number = me->message_nr.
|
|
ENDMETHOD. "i_oi_error~get_message
|
|
ENDCLASS. "C_OI_PROXY_ERROR
|
|
|
|
*&---------------------------------------------------------------------*
|
|
*& Class (Implementation) CL_GRID_ACCESSION
|
|
*&---------------------------------------------------------------------*
|
|
CLASS lcl_gui_alv_grid IMPLEMENTATION.
|
|
|
|
METHOD get_alv_attributes.
|
|
CREATE DATA et_table LIKE io_grid->mt_outtab.
|
|
et_table = io_grid->mt_outtab.
|
|
ENDMETHOD. "get_data
|
|
|
|
ENDCLASS. "CL_GRID_ACCESSION</localImplementation>
|
|
<localTypes>*"* use this source file for any type declarations (class
|
|
*"* definitions, interfaces or data types) you need for method
|
|
*"* implementation or private method's signature
|
|
TYPE-POOLS: sydes.
|
|
TYPE-POOLS: slis.
|
|
*--------------------------------------------------------------------*
|
|
* CLASS c_oi_proxy_error
|
|
*--------------------------------------------------------------------*
|
|
* use for method bind_ALV
|
|
*--------------------------------------------------------------------*
|
|
CLASS c_oi_proxy_error DEFINITION.
|
|
PUBLIC SECTION.
|
|
INTERFACES: i_oi_error.
|
|
DATA: error_nr TYPE i.
|
|
DATA: error_string TYPE sy-msgv1.
|
|
|
|
METHODS: constructor IMPORTING object_name TYPE c
|
|
method_name TYPE c.
|
|
PRIVATE SECTION.
|
|
CONSTANTS:
|
|
ret_call_not_flushed TYPE i VALUE -999999.
|
|
|
|
DATA: message_id TYPE sy-msgid,
|
|
message_nr TYPE sy-msgno,
|
|
param1 TYPE sy-msgv1,
|
|
param2 TYPE sy-msgv2,
|
|
param3 TYPE sy-msgv3,
|
|
param4 TYPE sy-msgv4.
|
|
ENDCLASS. "c_oi_proxy_error DEFINITION
|
|
|
|
*--------------------------------------------------------------------*
|
|
* CLASS lcl_gui_alv_grid
|
|
*--------------------------------------------------------------------*
|
|
* to get protected attribute and method of cl_gui_alv_grid
|
|
* use for method bind_ALV
|
|
*--------------------------------------------------------------------*
|
|
CLASS lcl_gui_alv_grid DEFINITION INHERITING FROM cl_gui_alv_grid.
|
|
|
|
PUBLIC SECTION.
|
|
* get ALV grid data
|
|
METHODS: get_alv_attributes
|
|
IMPORTING
|
|
io_grid TYPE REF TO cl_gui_alv_grid " ALV grid
|
|
EXPORTING
|
|
et_table TYPE REF TO data. " dta table
|
|
|
|
ENDCLASS. "lcl_gui_alv_grid DEFINITION</localTypes>
|
|
<localMacros>*"* use this source file for any macro definitions you need
|
|
*"* in the implementation part of the class</localMacros>
|
|
<textPool>
|
|
<language SPRAS="D">
|
|
<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="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="403" ENTRY="Blattname darf nicht mit & beginnen." LENGTH="132 "/>
|
|
<textElement ID="I" KEY="404" ENTRY="Verbundene Bereiche überschneiden sich" LENGTH="60 "/>
|
|
<textElement ID="I" KEY="405" ENTRY="Verbundener Bereich: Erste Zeile größer als letzte Zeile" LENGTH="60 "/>
|
|
<textElement ID="I" KEY="406" ENTRY="Verbundener Bereich: Erste Spalte größer als letzte Spalte" LENGTH="60 "/>
|
|
</language>
|
|
<language SPRAS="E">
|
|
<textElement ID="I" KEY="001" ENTRY="Sheet" LENGTH="132 "/>
|
|
<textElement ID="I" KEY="400" ENTRY="Table overlaps with previously bound table and will not be added to worksheet." LENGTH="132 "/>
|
|
<textElement ID="I" KEY="401" ENTRY="Invalid range supplied for print-title repeatable columns" 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 &" LENGTH="132 "/>
|
|
<textElement ID="I" KEY="404" ENTRY="Overlapping merges" LENGTH="60 "/>
|
|
<textElement ID="I" KEY="405" ENTRY="Merge: First row larger then last row" LENGTH="60 "/>
|
|
<textElement ID="I" KEY="406" ENTRY="Merge: First column larger then last column" LENGTH="60 "/>
|
|
</language>
|
|
</textPool>
|
|
<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="SOI" VERSION="1" TPUTYPE="0" IMPLICIT="X"/>
|
|
<forwardDeclaration>ABAP</forwardDeclaration>
|
|
<forwardDeclaration>SLIS</forwardDeclaration>
|
|
<forwardDeclaration>SOI</forwardDeclaration>
|
|
<typeClasDef CLSNAME="ZCL_EXCEL_WORKSHEET" TYPEGROUP="ZCL_EXCEL_COMMON" VERSION="1" TPUTYPE="1" IMPLICIT="X"/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ACTIVE_CELL" VERSION="1" LANGU="E" DESCRIPT="Version Number Component" EXPOSURE="0" STATE="1" EDITORDER="13 " 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="CHARTS" VERSION="1" LANGU="E" DESCRIPT="Charts collection" EXPOSURE="0" STATE="1" EDITORDER="14 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_DRAWINGS" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="COLUMN_DIMENSIONS" VERSION="1" LANGU="E" DESCRIPT="Collection of column dimensions" EXPOSURE="0" STATE="1" EDITORDER="15 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_WORKSHEET_COLUMNDIME" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONDITIONAL_STYLES" VERSION="1" LANGU="E" DESCRIPT="Styles conditional collection" EXPOSURE="0" STATE="1" EDITORDER="16 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_STYLES_CONDITIONAL" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="C_BREAK_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Worksheet Break" EXPOSURE="2" STATE="1" EDITORDER="1 " ATTDECLTYP="2" ATTVALUE="2" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_BREAK" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="C_BREAK_NONE" VERSION="1" LANGU="E" DESCRIPT="Worksheet Break" EXPOSURE="2" STATE="1" EDITORDER="2 " ATTDECLTYP="2" ATTVALUE="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_BREAK" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="C_BREAK_ROW" VERSION="1" LANGU="E" DESCRIPT="Worksheet Break" EXPOSURE="2" STATE="1" EDITORDER="3 " ATTDECLTYP="2" ATTVALUE="1" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_BREAK" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DATA_VALIDATIONS" VERSION="1" LANGU="E" DESCRIPT="Data validations collection" EXPOSURE="0" STATE="1" EDITORDER="17 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_DATA_VALIDATIONS" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DEFAULT_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet ColumnDimension" EXPOSURE="0" STATE="1" EDITORDER="18 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_COLUMNDIME" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DEFAULT_EXCEL_DATE_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Date format used in case style is not provide for D fields" EXPOSURE="0" STATE="1" EDITORDER="19 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DEFAULT_EXCEL_TIME_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Date format used in case style is not provide for D fields" EXPOSURE="0" STATE="1" EDITORDER="20 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DEFAULT_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet RowDimension" EXPOSURE="0" STATE="1" EDITORDER="21 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_ROWDIMENSI" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DRAWINGS" VERSION="1" LANGU="E" DESCRIPT="Drawings collection" EXPOSURE="0" STATE="1" EDITORDER="22 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_DRAWINGS" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="EXCEL" VERSION="1" LANGU="E" EXPOSURE="2" STATE="1" EDITORDER="5 " ATTDECLTYP="0" ATTRDONLY="X" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANE_CELL_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" EXPOSURE="0" STATE="1" EDITORDER="23 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANE_CELL_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" EXPOSURE="0" STATE="1" EDITORDER="24 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GUID" VERSION="1" LANGU="E" DESCRIPT="GUID in 'RAW' format" EXPOSURE="0" STATE="1" EDITORDER="25 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="UUID" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="HYPERLINKS" VERSION="1" LANGU="E" DESCRIPT="Colletion of hyperlinks" EXPOSURE="0" STATE="1" EDITORDER="26 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="LOWER_CELL" VERSION="1" LANGU="E" DESCRIPT="Bottom right range cell" EXPOSURE="0" STATE="1" EDITORDER="27 " 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="MO_PAGEBREAKS" VERSION="1" LANGU="E" DESCRIPT="Pagebreaks" EXPOSURE="0" STATE="1" EDITORDER="30 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_PAGEBREAKS" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MTH_FONT_CACHE" VERSION="1" LANGU="E" DESCRIPT="Hash table containing fonts and their metrics" EXPOSURE="0" STATE="1" EDITORDER="4 " ATTDECLTYP="1" ATTEXPVIRT="0" TYPTYPE="1" TYPE="MTY_TH_FONT_CACHE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MT_MERGED_CELLS" VERSION="1" LANGU="E" DESCRIPT="Table with all merges" EXPOSURE="0" STATE="1" EDITORDER="28 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="MTY_TS_MERGE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="MT_ROW_OUTLINES" VERSION="1" LANGU="E" DESCRIPT="All row outlines" EXPOSURE="0" STATE="1" EDITORDER="29 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="MTY_TS_OUTLINES_ROW" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Print Gridlines" EXPOSURE="2" STATE="1" EDITORDER="6 " ATTDECLTYP="0" ATTRDONLY="X" ATTVALUE="ABAP_FALSE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_PRINT_GRIDLINES" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_COL_FROM" VERSION="1" LANGU="E" DESCRIPT="Cell Column" EXPOSURE="0" STATE="1" EDITORDER="31 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN_ALPHA" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_COL_TO" VERSION="1" LANGU="E" DESCRIPT="Cell Column" EXPOSURE="0" STATE="1" EDITORDER="32 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN_ALPHA" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_ROW_FROM" VERSION="1" LANGU="E" DESCRIPT="Cell Row" EXPOSURE="0" STATE="1" EDITORDER="33 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_ROW_TO" VERSION="1" LANGU="E" DESCRIPT="Cell Row" EXPOSURE="0" STATE="1" EDITORDER="34 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="RANGES" VERSION="1" LANGU="E" DESCRIPT="Ranges collection" EXPOSURE="0" STATE="1" EDITORDER="35 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_RANGES" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ROW_DIMENSIONS" VERSION="1" LANGU="E" DESCRIPT="Collection of row dimensions" EXPOSURE="0" STATE="1" EDITORDER="36 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="MTY_TS_ROW_DIMENSION" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SHEET_CONTENT" VERSION="1" LANGU="E" DESCRIPT="Excel worksheet content" EXPOSURE="2" STATE="1" EDITORDER="7 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_CELL_DATA" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SHEET_SETUP" VERSION="1" LANGU="E" DESCRIPT="Sheet setup" EXPOSURE="2" STATE="1" EDITORDER="8 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL_SHEET_SETUP" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SHOW_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Show Gridlines" EXPOSURE="2" STATE="1" EDITORDER="9 " ATTDECLTYP="0" ATTRDONLY="X" ATTVALUE="ABAP_TRUE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_SHOW_GRIDLINES" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SHOW_ROWCOLHEADERS" VERSION="1" LANGU="E" DESCRIPT="Show Gridlines" EXPOSURE="2" STATE="1" EDITORDER="10 " ATTDECLTYP="0" ATTRDONLY="X" ATTVALUE="ABAP_TRUE" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_SHOW_GRIDLINES" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="STYLES" VERSION="1" LANGU="E" DESCRIPT="Sheet style table type" EXPOSURE="2" STATE="1" EDITORDER="11 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_SHEET_STYLE" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="TABCOLOR" VERSION="1" LANGU="E" DESCRIPT="Tabcolor" EXPOSURE="2" STATE="1" EDITORDER="12 " ATTDECLTYP="0" ATTRDONLY="X" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_S_TABCOLOR" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="TABLES" VERSION="1" LANGU="E" DESCRIPT="Colletion of tables" EXPOSURE="0" STATE="1" EDITORDER="37 " ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION" 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="38 " ATTDECLTYP="0" ATTVALUE="'Worksheet'" 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="39 " 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">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_COLUMNS.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust internal representation
|
|
*--------------------------------------------------------------------*
|
|
CLEAR: me->print_title_col_from,
|
|
me->print_title_col_to .
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust corresponding range
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_set_range( ).
|
|
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_ROWS">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~CLEAR_PRINT_REPEAT_ROWS.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust internal representation
|
|
*--------------------------------------------------------------------*
|
|
CLEAR: me->print_title_row_from,
|
|
me->print_title_row_to .
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust corresponding range
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_set_range( ).
|
|
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_COLUMNS">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_COLUMNS.
|
|
ev_columns_from = me->print_title_col_from.
|
|
ev_columns_to = me->print_title_col_to.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_ROWS">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~GET_PRINT_REPEAT_ROWS.
|
|
ev_rows_from = me->print_title_row_from.
|
|
ev_rows_to = me->print_title_row_to.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_COLUMNS">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_COLUMNS.
|
|
*--------------------------------------------------------------------*
|
|
* issue#235 - repeat rows/columns
|
|
* - Stefan Schmöcker, 2012-12-02
|
|
*--------------------------------------------------------------------*
|
|
|
|
DATA: lv_col_from_int TYPE i,
|
|
lv_col_to_int TYPE i,
|
|
lv_errormessage TYPE string.
|
|
|
|
DATA: lo_range_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_range TYPE REF TO zcl_excel_range.
|
|
|
|
|
|
lv_col_from_int = zcl_excel_common=>convert_column2int( iv_columns_from ).
|
|
lv_col_to_int = zcl_excel_common=>convert_column2int( iv_columns_to ).
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Check if valid range is supplied
|
|
*--------------------------------------------------------------------*
|
|
IF lv_col_from_int < 1.
|
|
lv_errormessage = 'Invalid range supplied for print-title repeatable columns'(401).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
IF lv_col_from_int > lv_col_to_int.
|
|
lv_errormessage = 'Invalid range supplied for print-title repeatable columns'(401).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust internal representation
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_col_from = iv_columns_from.
|
|
me->print_title_col_to = iv_columns_to.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust corresponding range
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_set_range( ).
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_ROWS">
|
|
<source>method ZIF_EXCEL_SHEET_PRINTSETTINGS~SET_PRINT_REPEAT_ROWS.
|
|
*--------------------------------------------------------------------*
|
|
* issue#235 - repeat rows/columns
|
|
* - Stefan Schmöcker, 2012-12-02
|
|
*--------------------------------------------------------------------*
|
|
|
|
DATA: lv_errormessage TYPE string.
|
|
|
|
DATA: lo_range_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_range TYPE REF TO zcl_excel_range.
|
|
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Check if valid range is supplied
|
|
*--------------------------------------------------------------------*
|
|
IF iv_rows_from < 1.
|
|
lv_errormessage = 'Invalid range supplied for print-title repeatable rowumns'(401).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
IF iv_rows_from > iv_rows_to.
|
|
lv_errormessage = 'Invalid range supplied for print-title repeatable rowumns'(401).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust internal representation
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_row_from = iv_rows_from.
|
|
me->print_title_row_to = iv_rows_to.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* adjust corresponding range
|
|
*--------------------------------------------------------------------*
|
|
me->print_title_set_range( ).
|
|
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE">
|
|
<source>method ZIF_EXCEL_SHEET_PROPERTIES~GET_STYLE.
|
|
IF zif_excel_sheet_properties~style IS NOT INITIAL.
|
|
ep_style = zif_excel_sheet_properties~style.
|
|
ELSE.
|
|
ep_style = me->excel->get_default_style( ).
|
|
ENDIF.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROPERTIES~INITIALIZE">
|
|
<source>method ZIF_EXCEL_SHEET_PROPERTIES~INITIALIZE.
|
|
|
|
zif_excel_sheet_properties~show_zeros = zif_excel_sheet_properties=>c_showzero.
|
|
zif_excel_sheet_properties~summarybelow = zif_excel_sheet_properties=>c_below_on.
|
|
zif_excel_sheet_properties~summaryright = zif_excel_sheet_properties=>c_right_on.
|
|
|
|
* inizialize zoomscale values
|
|
ZIF_EXCEL_SHEET_PROPERTIES~zoomscale = 100.
|
|
ZIF_EXCEL_SHEET_PROPERTIES~zoomscale_normal = 100.
|
|
ZIF_EXCEL_SHEET_PROPERTIES~zoomscale_pagelayoutview = 100 .
|
|
ZIF_EXCEL_SHEET_PROPERTIES~zoomscale_sheetlayoutview = 100 .
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROPERTIES~SET_STYLE">
|
|
<source>method ZIF_EXCEL_SHEET_PROPERTIES~SET_STYLE.
|
|
zif_excel_sheet_properties~style = ip_style.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_PROTECTION~INITIALIZE">
|
|
<source>method ZIF_EXCEL_SHEET_PROTECTION~INITIALIZE.
|
|
|
|
me->zif_excel_sheet_protection~protected = zif_excel_sheet_protection=>c_unprotected.
|
|
CLEAR me->zif_excel_sheet_protection~password.
|
|
me->zif_excel_sheet_protection~auto_filter = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~delete_columns = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~delete_rows = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~format_cells = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~format_columns = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~format_rows = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~insert_columns = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~insert_hyperlinks = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~insert_rows = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~objects = zif_excel_sheet_protection=>c_noactive.
|
|
* me->zif_excel_sheet_protection~password = zif_excel_sheet_protection=>c_noactive. "issue #68
|
|
me->zif_excel_sheet_protection~pivot_tables = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~protected = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~scenarios = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~select_locked_cells = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~select_unlocked_cells = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~sheet = zif_excel_sheet_protection=>c_noactive.
|
|
me->zif_excel_sheet_protection~sort = zif_excel_sheet_protection=>c_noactive.
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_VBA_PROJECT~SET_CODENAME">
|
|
<source>method ZIF_EXCEL_SHEET_VBA_PROJECT~SET_CODENAME.
|
|
me->zif_excel_sheet_vba_project~codename = ip_codename.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WORKSHEET" CPDNAME="ZIF_EXCEL_SHEET_VBA_PROJECT~SET_CODENAME_PR">
|
|
<source>method ZIF_EXCEL_SHEET_VBA_PROJECT~SET_CODENAME_PR.
|
|
me->zif_excel_sheet_vba_project~codename_pr = ip_codename_pr.
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_DRAWING" VERSION="1" LANGU="E" DESCRIPT="Add drawing to the sheet" EXPOSURE="2" STATE="1" EDITORDER="1 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_DRAWING" SCONAME="IP_DRAWING" VERSION="1" LANGU="E" DESCRIPT="Drawing" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_DRAWING"/>
|
|
<source>method ADD_DRAWING.
|
|
CASE ip_drawing->get_type( ).
|
|
WHEN zcl_excel_drawing=>type_image.
|
|
drawings->include( ip_drawing ).
|
|
WHEN zcl_excel_drawing=>type_chart.
|
|
charts->include( ip_drawing ).
|
|
ENDCASE.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_CONDITIONAL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Creates a new conditional formatting" EXPOSURE="2" STATE="1" EDITORDER="2 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_CONDITIONAL_STYLE" SCONAME="EO_CONDITIONAL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Font Style" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_STYLE_CONDITIONAL"/>
|
|
<source>method ADD_NEW_CONDITIONAL_STYLE.
|
|
|
|
CREATE OBJECT eo_conditional_style.
|
|
conditional_styles->add( eo_conditional_style ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_DATA_VALIDATION" VERSION="1" LANGU="E" DESCRIPT="Creates a new data validation" EXPOSURE="2" STATE="1" EDITORDER="3 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_DATA_VALIDATION" SCONAME="EO_DATA_VALIDATION" VERSION="1" LANGU="E" DESCRIPT="Data validation" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_DATA_VALIDATION"/>
|
|
<source>method ADD_NEW_DATA_VALIDATION.
|
|
|
|
CREATE OBJECT eo_data_validation.
|
|
data_validations->add( eo_data_validation ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_RANGE" VERSION="1" LANGU="E" DESCRIPT="Create a new local range" EXPOSURE="2" STATE="1" EDITORDER="4 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="ADD_NEW_RANGE" SCONAME="EO_RANGE" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_RANGE"/>
|
|
<source>method ADD_NEW_RANGE.
|
|
* Create default blank range
|
|
CREATE OBJECT eo_range.
|
|
ranges->add( eo_range ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" VERSION="1" LANGU="E" DESCRIPT="Set cell value from ALV object" EXPOSURE="2" STATE="1" EDITORDER="5 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="IO_ALV" VERSION="1" LANGU="E" DESCRIPT="ALV List Viewer object ( ALV, SALV, ...)" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="OBJECT"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="IT_TABLE" VERSION="1" LANGU="E" DESCRIPT="Data table" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STANDARD TABLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="I_TOP" VERSION="1" LANGU="E" DESCRIPT="Top edge of data block" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PARVALUE="1"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="I_LEFT" VERSION="1" LANGU="E" DESCRIPT="Left-hand edge of data block" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PARVALUE="1"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="TABLE_STYLE" VERSION="1" LANGU="E" DESCRIPT="Name of the table style" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_TABLE_STYLE" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method BIND_ALV.
|
|
data: lo_converter type ref to zcl_excel_converter.
|
|
|
|
create object lo_converter.
|
|
|
|
try.
|
|
lo_converter->convert(
|
|
exporting
|
|
io_alv = io_alv
|
|
it_table = it_table
|
|
i_row_int = i_top
|
|
i_column_int = i_left
|
|
i_table = abap_true
|
|
i_style_table = table_style
|
|
io_worksheet = me
|
|
changing
|
|
co_excel = excel ).
|
|
catch zcx_excel .
|
|
endtry.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" VERSION="1" LANGU="E" DESCRIPT="Set cell value from ALV object (OLE2)" EXPOSURE="2" STATE="1" EDITORDER="6 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_DOCUMENT_URL" VERSION="1" LANGU="E" DESCRIPT="URL of file, must start with <file://>" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="CHAR255" PARVALUE="SPACE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_XLS" VERSION="1" LANGU="E" DESCRIPT="Export to .xls file?" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="C" PARVALUE="SPACE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_SAVE_PATH" VERSION="1" LANGU="E" DESCRIPT="Local file path" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="IO_ALV" VERSION="1" LANGU="E" DESCRIPT="ALV List Viewer" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="CL_GUI_ALV_GRID"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="IT_LISTHEADER" VERSION="1" LANGU="E" DESCRIPT="Top-of-page" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SLIS_T_LISTHEADER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_TOP" VERSION="1" LANGU="E" DESCRIPT="Top edge of data block" CMPTYPE="1" MTDTYPE="0" EDITORDER="6 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PARVALUE="1"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_LEFT" VERSION="1" LANGU="E" DESCRIPT="Left-hand edge of data block" CMPTYPE="1" MTDTYPE="0" EDITORDER="7 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PARVALUE="1"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_COLUMNS_HEADER" VERSION="1" LANGU="E" DESCRIPT="Export columns header?" CMPTYPE="1" MTDTYPE="0" EDITORDER="8 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="C" PARVALUE="'X'"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_COLUMNS_AUTOFIT" VERSION="1" LANGU="E" DESCRIPT="Autofit columns width?" CMPTYPE="1" MTDTYPE="0" EDITORDER="9 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="C" PARVALUE="'X'"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_FORMAT_COL_HEADER" VERSION="1" LANGU="E" DESCRIPT="Column header format" CMPTYPE="1" MTDTYPE="0" EDITORDER="10 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SOI_FORMAT_ITEM" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_FORMAT_SUBTOTAL" VERSION="1" LANGU="E" DESCRIPT="Subtotal lines format" CMPTYPE="1" MTDTYPE="0" EDITORDER="11 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SOI_FORMAT_ITEM" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="I_FORMAT_TOTAL" VERSION="1" LANGU="E" DESCRIPT="Total line format" CMPTYPE="1" MTDTYPE="0" EDITORDER="12 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SOI_FORMAT_ITEM" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="MISS_GUIDE" VERSION="1" LANGU="E" DESCRIPT="Windows guide is missing" MTDTYPE="0" EDITORDER="1 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="EX_TRANSFER_KKBLO_ERROR" VERSION="1" LANGU="E" DESCRIPT="Transfer to KKBLO struct error" MTDTYPE="0" EDITORDER="2 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="FATAL_ERROR" VERSION="1" LANGU="E" MTDTYPE="0" EDITORDER="3 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="INV_DATA_RANGE" VERSION="1" LANGU="E" MTDTYPE="0" EDITORDER="4 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="DIM_MISMATCH_VKEY" VERSION="1" LANGU="E" MTDTYPE="0" EDITORDER="5 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="DIM_MISMATCH_SEMA" VERSION="1" LANGU="E" MTDTYPE="0" EDITORDER="6 "/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_ALV_OLE2" SCONAME="ERROR_IN_SEMA" VERSION="1" LANGU="E" DESCRIPT="Un-know columns Ops, columns Typ" MTDTYPE="0" EDITORDER="7 "/>
|
|
<source>method BIND_ALV_OLE2.
|
|
*--------------------------------------------------------------------*
|
|
* Method description:
|
|
* Method use to export a CL_GUI_ALV_GRID object to xlsx/xls file
|
|
* with list header and characteristics of ALV field catalog such as:
|
|
* + Total, group's subtotal
|
|
* + Quantity fields, amount fields (dependent fields)
|
|
* + No_out, no_zero, ...
|
|
* Technique use in method:
|
|
* SAP Desktop Office Integration (DOI)
|
|
*--------------------------------------------------------------------*
|
|
|
|
* Data for session 0: DOI constructor
|
|
* ------------------------------------------
|
|
|
|
data: lo_control type ref to I_OI_CONTAINER_CONTROL.
|
|
data: lo_proxy type ref to I_OI_DOCUMENT_PROXY.
|
|
data: lo_spreadsheet type ref to I_OI_SPREADSHEET.
|
|
data: lo_error type ref to I_OI_ERROR.
|
|
data: lc_retcode type SOI_RET_STRING.
|
|
data: li_has type i. "Proxy has spreadsheet interface?
|
|
data: l_is_closed type i.
|
|
|
|
* Data for session 1: Get LVC data from ALV object
|
|
* ------------------------------------------
|
|
|
|
data: l_has_activex,
|
|
l_doctype_excel_sheet(11) type c.
|
|
data: wa_DOC_HANDLE Type CNTL_HANDLE.
|
|
|
|
* LVC
|
|
data: lt_fieldcat_lvc type LVC_T_FCAT.
|
|
data: wa_fieldcat_lvc type lvc_s_fcat.
|
|
data: lt_sort_lvc type LVC_T_SORT.
|
|
data: lt_filter_idx_lvc type LVC_T_FIDX.
|
|
data: lt_GROUPLEVELS_LVC type LVC_T_GRPL.
|
|
|
|
* KKBLO
|
|
DATA: LT_FIELDCAT_KKBLO Type KKBLO_T_FIELDCAT.
|
|
DATA: LT_SORT_KKBLO Type KKBLO_T_SORTINFO.
|
|
DATA: LT_GROUPLEVELS_KKBLO Type KKBLO_T_GROUPLEVELS.
|
|
DATA: LT_FILTER_IDX_KKBLO Type KKBLO_T_SFINFO.
|
|
data: wa_listheader like line of it_listheader.
|
|
|
|
* Subtotal
|
|
data: lt_collect00 type ref to data.
|
|
data: lt_collect01 type ref to data.
|
|
data: lt_collect02 type ref to data.
|
|
data: lt_collect03 type ref to data.
|
|
data: lt_collect04 type ref to data.
|
|
data: lt_collect05 type ref to data.
|
|
data: lt_collect06 type ref to data.
|
|
data: lt_collect07 type ref to data.
|
|
data: lt_collect08 type ref to data.
|
|
data: lt_collect09 type ref to data.
|
|
|
|
* data table name
|
|
data: l_tabname type kkblo_tabname.
|
|
|
|
* local object
|
|
data: lo_grid type ref to lcl_gui_alv_grid.
|
|
|
|
* data table get from ALV
|
|
data: lt_alv type ref to data.
|
|
|
|
* total / subtotal data
|
|
field-symbols: <f_collect00> type standard table.
|
|
field-symbols: <f_collect01> type standard table.
|
|
field-symbols: <f_collect02> type standard table.
|
|
field-symbols: <f_collect03> type standard table.
|
|
field-symbols: <f_collect04> type standard table.
|
|
field-symbols: <f_collect05> type standard table.
|
|
field-symbols: <f_collect06> type standard table.
|
|
field-symbols: <f_collect07> type standard table.
|
|
field-symbols: <f_collect08> type standard table.
|
|
field-symbols: <f_collect09> type standard table.
|
|
|
|
* table before append subtotal lines
|
|
field-symbols: <f_alv_tab> type standard table.
|
|
|
|
* data for session 2: sort, filter and calculate total/subtotal
|
|
* ------------------------------------------
|
|
|
|
* table to save index of subotal / total line in excel tanle
|
|
* this ideal to control index of subtotal / total line later
|
|
* for ex, when get subtotal / total line to format
|
|
types: begin of st_subtot_indexs,
|
|
index type i,
|
|
end of st_subtot_indexs.
|
|
data: lt_subtot_indexs type table of st_subtot_indexs.
|
|
data: wa_subtot_indexs like line of lt_subtot_indexs.
|
|
|
|
* data table after append subtotal
|
|
data: lt_excel type ref to data.
|
|
|
|
data: l_tabix type i.
|
|
data: l_save_index type i.
|
|
|
|
* dyn subtotal table name
|
|
data: l_collect type string.
|
|
|
|
* subtotal range, to format subtotal (and total)
|
|
data: subranges type soi_range_list.
|
|
data: subrangeitem type soi_range_item.
|
|
data: l_sub_index type i.
|
|
|
|
|
|
* table after append subtotal lines
|
|
field-symbols: <f_excel_tab> type standard table.
|
|
field-symbols: <f_excel_line> type any.
|
|
|
|
* dyn subtotal tables
|
|
field-symbols: <f_collect_tab> type standard table.
|
|
field-symbols: <f_collect_line> type any.
|
|
|
|
field-symbols: <f_filter_idx_line> like line of LT_FILTER_IDX_KKBLO.
|
|
field-symbols: <f_fieldcat_line> like line of LT_FIELDCAT_KKBLO.
|
|
field-symbols: <f_grouplevels_line> like line of LT_GROUPLEVELS_KKBLO.
|
|
field-symbols: <f_line> type any.
|
|
|
|
* Data for session 3: map data to semantic table
|
|
* ------------------------------------------
|
|
|
|
types: begin of st_column_index,
|
|
fieldname type kkblo_fieldname,
|
|
tabname type kkblo_tabname,
|
|
col like sy-index,
|
|
end of st_column_index.
|
|
|
|
* columns index
|
|
data: lt_column_index type table of st_column_index.
|
|
data: wa_column_index like line of lt_column_index.
|
|
|
|
* table of dependent field ( currency and quantity unit field)
|
|
data: lt_fieldcat_depf type kkblo_t_fieldcat.
|
|
data: wa_fieldcat_depf type kkblo_fieldcat.
|
|
|
|
* XXL interface:
|
|
* -XXL: contain exporting columns characteristic
|
|
data: lt_sema type table of gxxlt_s initial size 0.
|
|
data: wa_sema like line of lt_sema.
|
|
|
|
* -XXL interface: header
|
|
data: lt_hkey type table of gxxlt_h initial size 0.
|
|
data: wa_hkey like line of lt_hkey.
|
|
|
|
* -XXL interface: header keys
|
|
data: lt_vkey type table of gxxlt_v initial size 0.
|
|
data: wa_vkey like line of lt_vkey.
|
|
|
|
* Number of H Keys: number of key columns
|
|
data: l_n_hrz_keys type i.
|
|
* Number of data columns in the list object: non-key columns no
|
|
data: l_n_att_cols type i.
|
|
* Number of V Keys: number of header row
|
|
data: l_n_vrt_keys type i.
|
|
|
|
* curency to format amount
|
|
data: lt_tcurx type table of tcurx.
|
|
data: wa_tcurx like line of lt_tcurx.
|
|
data: l_def type flag. " currency / quantity flag
|
|
data: wa_t006 type t006. " decimal place of unit
|
|
|
|
data: l_num type i. " table columns number
|
|
data: l_typ type c. " table type
|
|
data: wa type ref to data.
|
|
data: l_int type i.
|
|
data: l_counter type i.
|
|
|
|
field-symbols: <f_excel_column> type any.
|
|
field-symbols: <f_fcat_column> type any.
|
|
|
|
* Data for session 4: write to excel
|
|
* ------------------------------------------
|
|
|
|
data: data_starting_at type i value 1.
|
|
data: data_ending_at type i value -1.
|
|
data: sema_type type c.
|
|
|
|
data l_error type ref to c_oi_proxy_error.
|
|
data count type i.
|
|
data datac type i.
|
|
data datareal type i. " exporting column number
|
|
data vkeycount type i.
|
|
data all type i.
|
|
data mit type i value 1. " index of recent row?
|
|
data li_col_pos type i value 1. " column position
|
|
data li_col_num type i. " table columns number
|
|
field-symbols: <line> type any.
|
|
field-symbols: <item> type any.
|
|
|
|
data td type sydes_desc.
|
|
|
|
data: typ.
|
|
data: ranges type soi_range_list.
|
|
data: rangeitem type soi_range_item.
|
|
data: contents type soi_generic_table.
|
|
data: contentsitem type soi_generic_item.
|
|
data: semaitem type gxxlt_s.
|
|
data: hkeyitem type gxxlt_h.
|
|
data: vkeyitem type gxxlt_v.
|
|
data: li_commentary_rows type i. "row number of title lines + 1
|
|
data: lo_error_w type ref to i_oi_error.
|
|
data: l_retcode type soi_ret_string.
|
|
data: no_flush type c value 'X'.
|
|
data: li_head_top type i. "header rows position
|
|
|
|
* Data for session 5: Save and clode document
|
|
* ------------------------------------------
|
|
|
|
data: li_document_size type i.
|
|
data: ls_path type RLGRAP-FILENAME.
|
|
|
|
* MACRO: Close_document
|
|
*-------------------------------------------
|
|
|
|
DEFINE close_document.
|
|
clear: l_is_closed.
|
|
IF lo_proxy is not initial.
|
|
|
|
* check proxy detroyed adi
|
|
|
|
call method lo_proxy->is_destroyed
|
|
IMPORTING
|
|
ret_value = l_is_closed.
|
|
|
|
* if dun detroyed yet: close -> release proxy
|
|
|
|
IF l_is_closed is initial.
|
|
call method lo_proxy->close_document
|
|
* EXPORTING
|
|
* do_save = do_save
|
|
IMPORTING
|
|
error = lo_error
|
|
retcode = lc_retcode.
|
|
ENDIF.
|
|
|
|
call method lo_proxy->release_document
|
|
IMPORTING
|
|
error = lo_error
|
|
retcode = lC_retcode.
|
|
|
|
else.
|
|
lc_retcode = c_oi_errors=>ret_document_not_open.
|
|
ENDIF.
|
|
|
|
* Detroy control container
|
|
|
|
IF lo_control is not initial.
|
|
CALL METHOD lo_control->destroy_control.
|
|
ENDIF.
|
|
|
|
clear:
|
|
lo_spreadsheet,
|
|
lo_proxy,
|
|
lo_control.
|
|
|
|
* free local
|
|
|
|
clear: l_is_closed.
|
|
|
|
END-OF-DEFINITION.
|
|
|
|
* Macro to catch DOI error
|
|
*-------------------------------------------
|
|
|
|
DEFINE error_doi.
|
|
if lc_retcode ne c_oi_errors=>ret_ok.
|
|
close_document.
|
|
call method lo_error->raise_message
|
|
EXPORTING
|
|
type = 'E'.
|
|
clear: lo_error.
|
|
endif.
|
|
END-OF-DEFINITION.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 0: DOI CONSTRUCTOR
|
|
*--------------------------------------------------------------------*
|
|
|
|
* check active windown
|
|
|
|
call function 'GUI_HAS_ACTIVEX'
|
|
IMPORTING
|
|
return = l_has_activex.
|
|
|
|
if l_has_activex is initial.
|
|
raise MISS_GUIDE.
|
|
endif.
|
|
|
|
* Get Container Object of Screen
|
|
|
|
call method c_oi_container_control_creator=>get_container_control
|
|
IMPORTING
|
|
control = lo_control
|
|
retcode = lC_retcode.
|
|
|
|
error_doi.
|
|
|
|
* Initialize Container control
|
|
|
|
CALL METHOD lo_control->init_control
|
|
EXPORTING
|
|
parent = CL_GUI_CONTAINER=>DEFAULT_SCREEN
|
|
r3_application_name = ''
|
|
inplace_enabled = 'X'
|
|
no_flush = 'X'
|
|
register_on_close_event = 'X'
|
|
register_on_custom_event = 'X'
|
|
IMPORTING
|
|
error = lO_ERROR
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
* Get Proxy Document:
|
|
* check exist of document proxy, if exist -> close first
|
|
|
|
if not lo_proxy is initial.
|
|
close_document.
|
|
endif.
|
|
|
|
IF i_xls is not initial.
|
|
* xls format, doctype = soi_doctype_excel97_sheet
|
|
l_doctype_excel_sheet = 'Excel.Sheet.8'.
|
|
else.
|
|
* xlsx format, doctype = soi_doctype_excel_sheet
|
|
l_doctype_excel_sheet = 'Excel.Sheet'.
|
|
ENDIF.
|
|
|
|
CALL METHOD lo_control->get_document_proxy
|
|
EXPORTING
|
|
document_type = l_doctype_excel_sheet
|
|
register_container = 'X'
|
|
IMPORTING
|
|
document_proxy = lo_proxy
|
|
error = lO_ERROR
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
IF I_DOCUMENT_URL is initial.
|
|
|
|
* create new excel document
|
|
|
|
call method lo_proxy->create_document
|
|
EXPORTING
|
|
create_view_data = 'X'
|
|
open_inplace = 'X'
|
|
no_flush = 'X'
|
|
IMPORTING
|
|
ERROR = lO_ERROR
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
else.
|
|
|
|
* Read excel template for i_DOCUMENT_URL
|
|
* this excel template can be store in local or server
|
|
|
|
CALL METHOD lo_proxy->open_document
|
|
EXPORTING
|
|
document_url = i_document_url
|
|
open_inplace = 'X'
|
|
no_flush = 'X'
|
|
IMPORTING
|
|
error = lo_error
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
endif.
|
|
|
|
* Check Spreadsheet Interface of Document Proxy
|
|
|
|
CALL METHOD lo_proxy->has_spreadsheet_interface
|
|
IMPORTING
|
|
is_available = li_has
|
|
error = lO_ERROR
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
* create Spreadsheet object
|
|
|
|
CHECK li_has IS NOT INITIAL.
|
|
|
|
CALL METHOD lo_proxy->get_spreadsheet_interface
|
|
IMPORTING
|
|
sheet_interface = lo_spreadsheet
|
|
error = lO_ERROR
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 1: GET LVC DATA FROM ALV OBJECT
|
|
*--------------------------------------------------------------------*
|
|
|
|
* data table
|
|
|
|
create object lo_grid
|
|
EXPORTING
|
|
i_parent = CL_GUI_CONTAINER=>SCREEN0.
|
|
|
|
call method lo_grid->get_alv_attributes
|
|
EXPORTING
|
|
io_grid = io_alv
|
|
IMPORTING
|
|
Et_table = lt_alv.
|
|
|
|
assign lt_alv->* to <f_alv_tab>.
|
|
|
|
* fieldcat
|
|
|
|
CALL METHOD iO_alv->GET_FRONTEND_FIELDCATALOG
|
|
IMPORTING
|
|
ET_FIELDCATALOG = lt_fieldcat_LVC.
|
|
|
|
* table name
|
|
|
|
loop at lt_fieldcat_LVC into wa_fieldcat_lvc
|
|
where not tabname is initial.
|
|
l_tabname = wa_fieldcat_lvc-tabname.
|
|
exit.
|
|
endloop.
|
|
|
|
if sy-subrc ne 0.
|
|
l_tabname = '1'.
|
|
endif.
|
|
clear: wa_fieldcat_lvc.
|
|
|
|
* sort table
|
|
|
|
CALL METHOD IO_ALV->GET_SORT_CRITERIA
|
|
IMPORTING
|
|
ET_SORT = lt_sort_lvc.
|
|
|
|
|
|
* filter index
|
|
|
|
CALL METHOD IO_ALV->GET_FILTERED_ENTRIES
|
|
IMPORTING
|
|
ET_FILTERED_ENTRIES = lt_filter_idx_lvc.
|
|
|
|
* group level + subtotal
|
|
|
|
CALL METHOD IO_ALV->GET_SUBTOTALS
|
|
IMPORTING
|
|
EP_COLLECT00 = lt_collect00
|
|
EP_COLLECT01 = lt_collect01
|
|
EP_COLLECT02 = lt_collect02
|
|
EP_COLLECT03 = lt_collect03
|
|
EP_COLLECT04 = lt_collect04
|
|
EP_COLLECT05 = lt_collect05
|
|
EP_COLLECT06 = lt_collect06
|
|
EP_COLLECT07 = lt_collect07
|
|
EP_COLLECT08 = lt_collect08
|
|
EP_COLLECT09 = lt_collect09
|
|
ET_GROUPLEVELS = lt_GROUPLEVELS_LVC.
|
|
|
|
assign lt_collect00->* to <f_collect00>.
|
|
assign lt_collect01->* to <f_collect01>.
|
|
assign lt_collect02->* to <f_collect02>.
|
|
assign lt_collect03->* to <f_collect03>.
|
|
assign lt_collect04->* to <f_collect04>.
|
|
assign lt_collect05->* to <f_collect05>.
|
|
assign lt_collect06->* to <f_collect06>.
|
|
assign lt_collect07->* to <f_collect07>.
|
|
assign lt_collect08->* to <f_collect08>.
|
|
assign lt_collect09->* to <f_collect09>.
|
|
|
|
* transfer to KKBLO struct
|
|
|
|
CALL FUNCTION 'LVC_TRANSFER_TO_KKBLO'
|
|
EXPORTING
|
|
IT_FIELDCAT_LVC = lt_fieldcat_lvc
|
|
IT_SORT_LVC = lt_sort_lvc
|
|
IT_FILTER_INDEX_LVC = lt_filter_idx_lvc
|
|
IT_GROUPLEVELS_LVC = lt_grouplevels_lvc
|
|
IMPORTING
|
|
ET_FIELDCAT_KKBLO = lt_fieldcat_kkblo
|
|
ET_SORT_KKBLO = lt_sort_kkblo
|
|
ET_FILTERED_ENTRIES_KKBLO = lt_filter_idx_kkblo
|
|
ET_GROUPLEVELS_KKBLO = lt_grouplevels_kkblo
|
|
TABLES
|
|
IT_DATA = <f_alv_tab>
|
|
EXCEPTIONS
|
|
IT_DATA_MISSING = 1
|
|
IT_FIELDCAT_LVC_MISSING = 2
|
|
OTHERS = 3.
|
|
IF SY-SUBRC <> 0.
|
|
raise ex_transfer_KKBLO_ERROR.
|
|
ENDIF.
|
|
|
|
clear:
|
|
wa_fieldcat_lvc,
|
|
lt_fieldcat_lvc,
|
|
lt_sort_lvc,
|
|
lt_filter_idx_lvc,
|
|
lt_GROUPLEVELS_LVC.
|
|
|
|
clear:
|
|
lo_grid.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 2: SORT, FILTER AND CALCULATE TOTAL / SUBTOTAL
|
|
*--------------------------------------------------------------------*
|
|
|
|
* append subtotal & total line
|
|
|
|
create data lt_excel like <f_ALV_TAB>.
|
|
assign lt_excel->* to <f_excel_tab>.
|
|
|
|
loop at <f_alv_tab> assigning <f_line>.
|
|
l_save_index = sy-tabix.
|
|
|
|
* filter base on filter index table
|
|
|
|
read table LT_FILTER_IDX_KKBLO assigning <f_filter_idx_line>
|
|
with key index = l_save_index
|
|
binary search.
|
|
if sy-subrc ne 0.
|
|
append <f_line> to <f_excel_tab>.
|
|
endif.
|
|
|
|
* append subtotal lines
|
|
|
|
read table LT_GROUPLEVELS_KKBLO assigning <f_grouplevels_line>
|
|
with key index_to = l_save_index
|
|
binary search.
|
|
if sy-subrc = 0.
|
|
l_tabix = sy-tabix.
|
|
do.
|
|
if <f_grouplevels_line>-subtot eq 'X' and
|
|
<f_grouplevels_line>-hide_level is initial and
|
|
<f_grouplevels_line>-cindex_from ne 0.
|
|
|
|
* dynamic append subtotal line to excel table base on grouplevel table
|
|
* ex <f_GROUPLEVELS_line>-level = 1
|
|
* then <f_collect_tab> = '<F_COLLECT01>'
|
|
|
|
l_collect = <f_grouplevels_line>-level.
|
|
condense l_collect.
|
|
concatenate '<F_COLLECT0'
|
|
l_collect '>'
|
|
* '->*'
|
|
into l_collect.
|
|
|
|
assign (l_collect) to <f_collect_tab>.
|
|
|
|
* incase there're more than 1 total line of group, at the same level
|
|
* for example: subtotal of multi currency
|
|
|
|
LOOP AT <f_collect_tab> assigning <f_collect_line>.
|
|
IF sy-tabix between <f_grouplevels_line>-cindex_from
|
|
and <f_grouplevels_line>-cindex_to.
|
|
|
|
|
|
append <f_collect_line> to <f_excel_tab>.
|
|
|
|
* save subtotal lines index
|
|
|
|
wa_subtot_indexs-index = sy-tabix.
|
|
append wa_subtot_indexs to lt_subtot_indexs.
|
|
|
|
* append sub total ranges table for format later
|
|
|
|
add 1 to l_sub_index.
|
|
subrangeitem-name = l_sub_index.
|
|
condense subrangeitem-name.
|
|
concatenate 'SUBTOT'
|
|
subrangeitem-name
|
|
into subrangeitem-name.
|
|
|
|
subrangeitem-rows = wa_subtot_indexs-index.
|
|
subrangeitem-columns = 1. " start col
|
|
append subrangeitem to subranges.
|
|
clear: subrangeitem.
|
|
|
|
ENDIF.
|
|
ENDLOOP.
|
|
unassign: <f_collect_tab>.
|
|
unassign: <f_collect_line>.
|
|
clear: l_collect.
|
|
endif.
|
|
|
|
* check next subtotal level of group
|
|
|
|
unassign: <f_grouplevels_line>.
|
|
add 1 to l_tabix.
|
|
|
|
read table LT_GROUPLEVELS_KKBLO assigning <f_grouplevels_line>
|
|
index l_tabix.
|
|
if sy-subrc ne 0
|
|
or <f_grouplevels_line>-index_to ne l_save_index.
|
|
exit.
|
|
endif.
|
|
|
|
unassign:
|
|
<f_collect_tab>,
|
|
<f_collect_line>.
|
|
|
|
enddo.
|
|
endif.
|
|
|
|
clear:
|
|
l_tabix,
|
|
l_save_index.
|
|
|
|
unassign:
|
|
<f_filter_idx_line>,
|
|
<f_grouplevels_line>.
|
|
|
|
endloop.
|
|
|
|
* free local data
|
|
|
|
unassign:
|
|
<f_line>,
|
|
<f_collect_tab>,
|
|
<f_collect_line>,
|
|
<f_fieldcat_line>.
|
|
|
|
* append grand total line
|
|
|
|
IF <f_collect00> is assigned.
|
|
assign <f_collect00> to <f_collect_tab>.
|
|
if <f_collect_tab> is not initial.
|
|
LOOP AT <f_collect_tab> assigning <f_collect_line>.
|
|
|
|
append <f_collect_line> to <f_excel_tab>.
|
|
|
|
* save total line index
|
|
|
|
wa_subtot_indexs-index = sy-tabix.
|
|
append wa_subtot_indexs to lt_subtot_indexs.
|
|
|
|
* append grand total range (to format)
|
|
|
|
add 1 to l_sub_index.
|
|
subrangeitem-name = l_sub_index.
|
|
condense subrangeitem-name.
|
|
concatenate 'TOTAL'
|
|
subrangeitem-name
|
|
into subrangeitem-name.
|
|
|
|
subrangeitem-rows = wa_subtot_indexs-index.
|
|
subrangeitem-columns = 1. " start col
|
|
append subrangeitem to subranges.
|
|
ENDLOOP.
|
|
endif.
|
|
ENDIF.
|
|
|
|
clear:
|
|
subrangeitem,
|
|
LT_SORT_KKBLO,
|
|
<f_collect00>,
|
|
<f_collect01>,
|
|
<f_collect02>,
|
|
<f_collect03>,
|
|
<f_collect04>,
|
|
<f_collect05>,
|
|
<f_collect06>,
|
|
<f_collect07>,
|
|
<f_collect08>,
|
|
<f_collect09>.
|
|
|
|
unassign:
|
|
<f_collect00>,
|
|
<f_collect01>,
|
|
<f_collect02>,
|
|
<f_collect03>,
|
|
<f_collect04>,
|
|
<f_collect05>,
|
|
<f_collect06>,
|
|
<f_collect07>,
|
|
<f_collect08>,
|
|
<f_collect09>,
|
|
<f_collect_tab>,
|
|
<f_collect_line>.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 3: MAP DATA TO SEMANTIC TABLE
|
|
*--------------------------------------------------------------------*
|
|
|
|
* get dependent field field: currency and quantity
|
|
|
|
create data wa like line of <f_excel_tab>.
|
|
assign wa->* to <f_excel_line>.
|
|
|
|
describe field <f_excel_line> type l_typ components l_num.
|
|
|
|
do l_num times.
|
|
l_save_index = sy-index.
|
|
assign component l_save_index of structure <f_excel_line>
|
|
to <f_excel_column>.
|
|
if sy-subrc ne 0.
|
|
message e059(0k) with 'FATAL ERROR' raising fatal_error.
|
|
endif.
|
|
|
|
loop at LT_FIELDCAT_KKBLO assigning <f_fieldcat_line>
|
|
where tabname = l_tabname.
|
|
assign component <f_fieldcat_line>-fieldname
|
|
of structure <f_excel_line> to <f_fcat_column>.
|
|
|
|
describe distance between <f_excel_column> and <f_fcat_column>
|
|
into l_int in byte mode.
|
|
|
|
* append column index
|
|
* this columns index is of table, not fieldcat
|
|
|
|
if l_int = 0.
|
|
wa_column_index-fieldname = <f_fieldcat_line>-fieldname.
|
|
wa_column_index-tabname = <f_fieldcat_line>-tabname.
|
|
wa_column_index-col = l_save_index.
|
|
append wa_column_index to lt_column_index.
|
|
endif.
|
|
|
|
* append dependent fields (currency and quantity unit)
|
|
|
|
if <f_fieldcat_line>-cfieldname is not initial.
|
|
clear wa_fieldcat_depf.
|
|
wa_fieldcat_depf-fieldname = <f_fieldcat_line>-cfieldname.
|
|
wa_fieldcat_depf-tabname = <f_fieldcat_line>-ctabname.
|
|
collect wa_fieldcat_depf into lt_fieldcat_depf.
|
|
endif.
|
|
|
|
if <f_fieldcat_line>-qfieldname is not initial.
|
|
clear wa_fieldcat_depf.
|
|
wa_fieldcat_depf-fieldname = <f_fieldcat_line>-qfieldname.
|
|
wa_fieldcat_depf-tabname = <f_fieldcat_line>-qtabname.
|
|
collect wa_fieldcat_depf into lt_fieldcat_depf.
|
|
endif.
|
|
|
|
* rewrite field data type
|
|
|
|
if <f_fieldcat_line>-inttype = 'X'
|
|
and <f_fieldcat_line>-datatype(3) = 'INT'.
|
|
<f_fieldcat_line>-inttype = 'I'.
|
|
endif.
|
|
|
|
endloop.
|
|
|
|
clear: l_save_index.
|
|
unassign: <f_fieldcat_line>.
|
|
|
|
enddo.
|
|
|
|
* build semantic tables
|
|
|
|
l_n_hrz_keys = 1.
|
|
|
|
* Get keyfigures
|
|
|
|
loop at LT_FIELDCAT_KKBLO assigning <f_fieldcat_line>
|
|
where tabname = l_tabname
|
|
and tech ne 'X'
|
|
and no_out ne 'X'.
|
|
|
|
clear wa_sema.
|
|
clear wa_hkey.
|
|
|
|
* Units belong to keyfigures -> display as str
|
|
|
|
read table lt_fieldcat_depf into wa_fieldcat_depf with key
|
|
fieldname = <f_fieldcat_line>-fieldname
|
|
tabname = <f_fieldcat_line>-tabname.
|
|
|
|
if sy-subrc = 0.
|
|
wa_sema-col_typ = 'STR'.
|
|
wa_sema-col_ops = 'DFT'.
|
|
|
|
* Keyfigures
|
|
|
|
else.
|
|
case <f_fieldcat_line>-datatype.
|
|
when 'QUAN'.
|
|
wa_sema-col_typ = 'N03'.
|
|
|
|
if <f_fieldcat_line>-no_sum ne 'X'.
|
|
wa_sema-col_ops = 'ADD'.
|
|
else.
|
|
wa_sema-col_ops = 'NOP'. " no dependent field
|
|
endif.
|
|
|
|
when 'DATS'.
|
|
wa_sema-col_typ = 'DAT'.
|
|
wa_sema-col_ops = 'NOP'.
|
|
|
|
when 'CHAR' OR 'UNIT' OR 'CUKY'. " Added fieldformats UNIT and CUKY - dd. 26-10-2012 Wouter Heuvelmans
|
|
wa_sema-col_typ = 'STR'.
|
|
wa_sema-col_ops = 'DFT'. " dependent field
|
|
|
|
* incase numeric, ex '00120' -> display as '12'
|
|
|
|
when 'NUMC'.
|
|
wa_sema-col_typ = 'STR'.
|
|
wa_sema-col_ops = 'DFT'.
|
|
|
|
when others.
|
|
wa_sema-col_typ = 'NUM'.
|
|
|
|
if <f_fieldcat_line>-no_sum ne 'X'.
|
|
wa_sema-col_ops = 'ADD'.
|
|
else.
|
|
wa_sema-col_ops = 'NOP'.
|
|
endif.
|
|
endcase.
|
|
endif.
|
|
|
|
l_counter = l_counter + 1.
|
|
l_n_att_cols = l_n_att_cols + 1.
|
|
|
|
wa_sema-col_no = l_counter.
|
|
|
|
read table lt_column_index into wa_column_index with key
|
|
fieldname = <f_fieldcat_line>-fieldname
|
|
tabname = <f_fieldcat_line>-tabname.
|
|
|
|
if sy-subrc = 0.
|
|
wa_sema-col_src = wa_column_index-col.
|
|
else.
|
|
raise fatal_error.
|
|
endif.
|
|
|
|
* columns index of ref currency field in table
|
|
|
|
if not <f_fieldcat_line>-cfieldname is initial.
|
|
read table lt_column_index into wa_column_index with key
|
|
fieldname = <f_fieldcat_line>-cfieldname
|
|
tabname = <f_fieldcat_line>-ctabname.
|
|
|
|
if sy-subrc = 0.
|
|
wa_sema-col_cur = wa_column_index-col.
|
|
endif.
|
|
|
|
* quantities fields
|
|
* treat as currency when display on excel
|
|
|
|
elseif not <f_fieldcat_line>-qfieldname is initial.
|
|
read table lt_column_index into wa_column_index with key
|
|
fieldname = <f_fieldcat_line>-qfieldname
|
|
tabname = <f_fieldcat_line>-qtabname.
|
|
if sy-subrc = 0.
|
|
wa_sema-col_cur = wa_column_index-col.
|
|
endif.
|
|
|
|
endif.
|
|
|
|
* Treat of fixed currency in the fieldcatalog for column
|
|
|
|
data: l_num_help(2) type n.
|
|
|
|
if not <f_fieldcat_line>-currency is initial.
|
|
|
|
select * from tcurx into table lt_tcurx.
|
|
sort lt_tcurx.
|
|
read table lt_tcurx into wa_tcurx
|
|
with key currkey = <f_fieldcat_line>-currency.
|
|
if sy-subrc = 0.
|
|
l_num_help = wa_tcurx-currdec.
|
|
concatenate 'N' l_num_help into wa_sema-col_typ.
|
|
wa_sema-col_cur = sy-tabix * ( -1 ).
|
|
endif.
|
|
|
|
endif.
|
|
|
|
wa_hkey-col_no = l_n_att_cols.
|
|
wa_hkey-row_no = l_n_hrz_keys.
|
|
wa_hkey-col_name = <f_fieldcat_line>-reptext.
|
|
append wa_hkey to lt_hkey.
|
|
append wa_sema to lt_sema.
|
|
|
|
endloop.
|
|
|
|
* free local data
|
|
|
|
clear:
|
|
lt_column_index,
|
|
wa_column_index,
|
|
lt_fieldcat_depf,
|
|
wa_fieldcat_depf,
|
|
lt_tcurx,
|
|
wa_tcurx,
|
|
l_num,
|
|
l_typ,
|
|
wa,
|
|
l_int,
|
|
l_counter.
|
|
|
|
unassign:
|
|
<f_fieldcat_line>,
|
|
<f_excel_line>,
|
|
<f_excel_column>,
|
|
<f_fcat_column>.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 4: WRITE TO EXCEL
|
|
*--------------------------------------------------------------------*
|
|
|
|
clear: wa_tcurx.
|
|
refresh: lt_tcurx.
|
|
|
|
* if spreadsheet dun have proxy yet
|
|
|
|
if li_has is initial.
|
|
l_retcode = c_oi_errors=>ret_interface_not_supported.
|
|
call method c_oi_errors=>create_error_for_retcode
|
|
EXPORTING
|
|
retcode = l_retcode
|
|
no_flush = no_flush
|
|
IMPORTING
|
|
error = lo_error_w.
|
|
exit.
|
|
endif.
|
|
|
|
create object l_error
|
|
EXPORTING
|
|
object_name = 'OLE_DOCUMENT_PROXY'
|
|
method_name = 'get_ranges_names'.
|
|
|
|
call method c_oi_errors=>add_error
|
|
EXPORTING
|
|
error = l_error.
|
|
|
|
|
|
describe table lt_sema lines datareal.
|
|
describe table <f_excel_tab> lines datac.
|
|
describe table lt_vkey lines vkeycount.
|
|
|
|
if datac = 0.
|
|
raise inv_data_range.
|
|
endif.
|
|
|
|
|
|
if vkeycount ne l_n_vrt_keys.
|
|
raise dim_mismatch_vkey.
|
|
endif.
|
|
|
|
all = l_n_vrt_keys + l_n_att_cols.
|
|
|
|
if datareal ne all.
|
|
raise dim_mismatch_sema.
|
|
endif.
|
|
|
|
data: decimal type c.
|
|
|
|
* get decimal separator format ('.', ',', ...) in Office config
|
|
|
|
call method lo_proxy->get_application_property
|
|
EXPORTING
|
|
property_name = 'INTERNATIONAL'
|
|
subproperty_name = 'DECIMAL_SEPARATOR'
|
|
CHANGING
|
|
retvalue = decimal.
|
|
|
|
data: wa_usr type usr01.
|
|
select * from usr01 into wa_usr where bname = sy-uname.
|
|
endselect.
|
|
|
|
data: comma_elim(4) type c.
|
|
data: help6 type i.
|
|
field-symbols <g> type any.
|
|
data search_item(4) value ' #'.
|
|
|
|
concatenate ',' decimal '.' decimal into comma_elim.
|
|
|
|
data help type i. " table (with subtotal) line number
|
|
|
|
help = datac.
|
|
|
|
data: rowmax type i value 1. " header row number
|
|
data: columnmax type i value 0. " header columns number
|
|
|
|
loop at lt_hkey into hkeyitem.
|
|
if hkeyitem-col_no > columnmax.
|
|
columnmax = hkeyitem-col_no.
|
|
endif.
|
|
|
|
if hkeyitem-row_no > rowmax.
|
|
rowmax = hkeyitem-row_no.
|
|
endif.
|
|
endloop.
|
|
|
|
data: hkeycolumns type i. " header columns no
|
|
|
|
hkeycolumns = columnmax.
|
|
|
|
if hkeycolumns < l_n_att_cols.
|
|
hkeycolumns = l_n_att_cols.
|
|
endif.
|
|
|
|
columnmax = 0.
|
|
|
|
loop at lt_vkey into vkeyitem.
|
|
if vkeyitem-col_no > columnmax.
|
|
columnmax = vkeyitem-col_no.
|
|
endif.
|
|
endloop.
|
|
|
|
data overflow type i value 1.
|
|
data testname(10) type c.
|
|
data temp2 type i. " 1st item row position in excel
|
|
data realmit type i value 1.
|
|
data realoverflow type i value 1. " row index in content
|
|
|
|
call method lo_spreadsheet->screen_update
|
|
EXPORTING
|
|
updating = ''.
|
|
|
|
call method lo_spreadsheet->load_lib.
|
|
|
|
data: str(40) type c. " range names of columns range (w/o col header)
|
|
data: rows type i. " row postion of 1st item line in ecxel
|
|
|
|
* calculate row position of data table
|
|
|
|
describe table iT_LISTHEADER lines li_commentary_rows.
|
|
|
|
* if grid had title, add 1 empy line between title and table
|
|
|
|
if li_commentary_rows ne 0.
|
|
add 1 to li_commentary_rows.
|
|
endif.
|
|
|
|
* add top position of block data
|
|
|
|
li_commentary_rows = li_commentary_rows + i_top - 1.
|
|
|
|
* write header (commentary rows)
|
|
|
|
data: li_commentary_row_index type i value 1.
|
|
data: li_content_index type i value 1.
|
|
data: ls_index(10) type c.
|
|
data ls_commentary_range(40) type c value 'TITLE'.
|
|
data: li_font_bold type i.
|
|
data: li_font_italic type i.
|
|
data: li_font_size type i.
|
|
|
|
loop at iT_LISTHEADER into wa_listheader.
|
|
li_commentary_row_index = i_top + li_content_index - 1.
|
|
ls_index = li_content_index.
|
|
condense ls_index.
|
|
concatenate ls_commentary_range(5) ls_index
|
|
into ls_commentary_range.
|
|
condense ls_commentary_range.
|
|
|
|
* insert title range
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = ls_commentary_range
|
|
top = li_commentary_row_index
|
|
left = i_left
|
|
rows = 1
|
|
columns = 1
|
|
no_flush = no_flush.
|
|
|
|
* format range
|
|
|
|
case wa_listheader-typ.
|
|
when 'H'. "title
|
|
li_font_size = 16.
|
|
li_font_bold = 1.
|
|
li_font_italic = -1.
|
|
when 'S'. "subtile
|
|
li_font_size = -1.
|
|
li_font_bold = 1.
|
|
li_font_italic = -1.
|
|
when others. "'A' comment
|
|
li_font_size = -1.
|
|
li_font_bold = -1.
|
|
li_font_italic = 1.
|
|
endcase.
|
|
|
|
call method lo_spreadsheet->set_font
|
|
EXPORTING
|
|
rangename = ls_commentary_range
|
|
family = ''
|
|
size = li_font_size
|
|
bold = li_font_bold
|
|
italic = li_font_italic
|
|
align = 0
|
|
no_flush = no_flush.
|
|
|
|
* title: range content
|
|
|
|
rangeitem-name = ls_commentary_range.
|
|
rangeitem-columns = 1.
|
|
rangeitem-rows = 1.
|
|
append rangeitem to ranges.
|
|
|
|
contentsitem-row = li_content_index.
|
|
contentsitem-column = 1.
|
|
concatenate wa_listheader-key
|
|
wa_listheader-info
|
|
into contentsitem-value
|
|
separated by space.
|
|
condense contentsitem-value.
|
|
append contentsitem to contents.
|
|
|
|
add 1 to li_content_index.
|
|
|
|
clear:
|
|
rangeitem,
|
|
contentsitem,
|
|
ls_index.
|
|
|
|
endloop.
|
|
|
|
* set range data title
|
|
|
|
call method lo_spreadsheet->set_ranges_data
|
|
EXPORTING
|
|
ranges = ranges
|
|
contents = contents
|
|
no_flush = no_flush.
|
|
|
|
refresh:
|
|
ranges,
|
|
contents.
|
|
|
|
rows = rowmax + li_commentary_rows + 1.
|
|
|
|
all = wa_usr-datfm.
|
|
all = all + 3.
|
|
|
|
loop at lt_sema into semaitem.
|
|
if semaitem-col_typ = 'DAT' or semaitem-col_typ = 'MON' or
|
|
semaitem-col_typ = 'N00' or semaitem-col_typ = 'N01' or
|
|
semaitem-col_typ = 'N01' or semaitem-col_typ = 'N02' or
|
|
semaitem-col_typ = 'N03' or semaitem-col_typ = 'PCT' or
|
|
semaitem-col_typ = 'STR' or semaitem-col_typ = 'NUM'.
|
|
clear str.
|
|
str = semaitem-col_no.
|
|
condense str.
|
|
concatenate 'DATA' str into str.
|
|
mit = semaitem-col_no.
|
|
li_col_pos = semaitem-col_no + i_left - 1.
|
|
|
|
* range from data1 to data(n), for each columns of table
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = str
|
|
top = rows
|
|
left = li_col_pos
|
|
rows = help
|
|
columns = 1
|
|
no_flush = no_flush.
|
|
|
|
data dec type i value -1.
|
|
data typeinfo type sydes_typeinfo.
|
|
loop at <f_excel_tab> assigning <line>.
|
|
assign component semaitem-col_no of structure <line> to <item>.
|
|
describe field <item> into td.
|
|
read table td-types index 1 into typeinfo.
|
|
if typeinfo-type = 'P'.
|
|
dec = typeinfo-decimals.
|
|
elseif typeinfo-type = 'I'.
|
|
dec = 0.
|
|
endif.
|
|
|
|
describe field <line> type typ components count.
|
|
mit = 1.
|
|
do count times.
|
|
if mit = semaitem-col_src.
|
|
assign component sy-index of structure <line> to <item>.
|
|
describe field <item> into td.
|
|
read table td-types index 1 into typeinfo.
|
|
if typeinfo-type = 'P'.
|
|
dec = typeinfo-decimals.
|
|
endif.
|
|
exit.
|
|
endif.
|
|
mit = mit + 1.
|
|
enddo.
|
|
exit.
|
|
endloop.
|
|
|
|
* format for each columns of table (w/o columns headers)
|
|
|
|
if semaitem-col_typ = 'DAT'.
|
|
if semaitem-col_no > vkeycount.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = all
|
|
no_flush = no_flush.
|
|
else.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 0
|
|
no_flush = no_flush.
|
|
endif.
|
|
elseif semaitem-col_typ = 'STR'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 0
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'MON'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 10
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'N00'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 0
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'N01'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 1
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'N02'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 2
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'N03'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 3
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'N04'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 4
|
|
no_flush = no_flush.
|
|
elseif semaitem-col_typ = 'NUM'.
|
|
if dec eq -1.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = 2
|
|
no_flush = no_flush.
|
|
else.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 1
|
|
decimals = dec
|
|
no_flush = no_flush.
|
|
endif.
|
|
elseif semaitem-col_typ = 'PCT'.
|
|
call method lo_spreadsheet->set_format
|
|
EXPORTING
|
|
rangename = str
|
|
currency = ''
|
|
typ = 3
|
|
decimals = 0
|
|
no_flush = no_flush.
|
|
endif.
|
|
|
|
endif.
|
|
endloop.
|
|
|
|
* get item contents for set_range_data method
|
|
* get currency cell also
|
|
|
|
mit = 1.
|
|
|
|
data: currcells type soi_cell_table.
|
|
data: curritem type soi_cell_item.
|
|
|
|
curritem-rows = 1.
|
|
curritem-columns = 1.
|
|
curritem-front = -1.
|
|
curritem-back = -1.
|
|
curritem-font = ''.
|
|
curritem-size = -1.
|
|
curritem-bold = -1.
|
|
curritem-italic = -1.
|
|
curritem-align = -1.
|
|
curritem-frametyp = -1.
|
|
curritem-framecolor = -1.
|
|
curritem-currency = ''.
|
|
curritem-number = 1.
|
|
curritem-input = -1.
|
|
|
|
data: conv_exit(10) type c.
|
|
data: const type i.
|
|
|
|
* Change for Correction request
|
|
* Initial 10000 lines are missing in Excel Export
|
|
* if there are only 2 columns in exported List object.
|
|
|
|
if datareal gt 2.
|
|
const = 20000 / datareal.
|
|
else.
|
|
const = 20000 / ( datareal + 2 ).
|
|
endif.
|
|
|
|
data: lines type i.
|
|
data: innerlines type i.
|
|
data: counter type i.
|
|
data: curritem2 like curritem.
|
|
data: curritem3 like curritem.
|
|
data: length type i.
|
|
data: found.
|
|
|
|
* append content table (for method set_range_content)
|
|
|
|
loop at <f_excel_tab> assigning <line>.
|
|
|
|
* save line index to compare with lt_subtot_indexs,
|
|
* to discover line is a subtotal / totale line or not
|
|
* ex use to set 'dun display zero in subtotal / total line'
|
|
|
|
l_save_index = sy-tabix.
|
|
|
|
do datareal times.
|
|
read table lt_sema into semaitem with key col_no = sy-index.
|
|
if semaitem-col_src ne 0.
|
|
assign component semaitem-col_src
|
|
of structure <line> to <item>.
|
|
else.
|
|
assign component sy-index
|
|
of structure <line> to <item>.
|
|
endif.
|
|
|
|
contentsitem-row = realoverflow.
|
|
|
|
if sy-subrc = 0.
|
|
move semaitem-col_ops to search_item(3).
|
|
search 'ADD#CNT#MIN#MAX#AVG#NOP#DFT#'
|
|
for search_item.
|
|
if sy-subrc ne 0.
|
|
raise error_in_sema.
|
|
endif.
|
|
move semaitem-col_typ to search_item(3).
|
|
search 'NUM#N00#N01#N02#N03#N04#PCT#DAT#MON#STR#'
|
|
for search_item.
|
|
if sy-subrc ne 0.
|
|
raise error_in_sema.
|
|
endif.
|
|
contentsitem-column = sy-index.
|
|
if semaitem-col_typ eq 'DAT' or semaitem-col_typ eq 'MON'.
|
|
if semaitem-col_no > vkeycount.
|
|
|
|
" Hinweis 512418
|
|
" EXCEL bezieht Datumsangaben
|
|
" auf den 31.12.1899, behandelt
|
|
" aber 1900 als ein Schaltjahr
|
|
" d.h. ab 1.3.1900 korrekt
|
|
" 1.3.1900 als Zahl = 61
|
|
|
|
data: genesis type d value '18991230'.
|
|
data: number_of_days type p.
|
|
* change for date in char format & sema_type = X
|
|
data: temp_date type d.
|
|
|
|
if not <item> is initial and not <item> co ' ' and not
|
|
<item> co '0'.
|
|
* change for date in char format & sema_type = X starts
|
|
if sema_type = 'X'.
|
|
describe field <item> type typ.
|
|
if typ = 'C'.
|
|
temp_date = <item>.
|
|
number_of_days = temp_date - genesis.
|
|
else.
|
|
number_of_days = <item> - genesis.
|
|
endif.
|
|
else.
|
|
number_of_days = <item> - genesis.
|
|
endif.
|
|
* change for date in char format & sema_type = X ends
|
|
if number_of_days < 61.
|
|
number_of_days = number_of_days - 1.
|
|
endif.
|
|
|
|
set country 'DE'.
|
|
write number_of_days to contentsitem-value
|
|
no-grouping
|
|
left-justified.
|
|
set country space.
|
|
translate contentsitem-value using comma_elim.
|
|
else.
|
|
clear contentsitem-value.
|
|
endif.
|
|
else.
|
|
move <item> to contentsitem-value.
|
|
endif.
|
|
elseif semaitem-col_typ eq 'NUM' or
|
|
semaitem-col_typ eq 'N00' or
|
|
semaitem-col_typ eq 'N01' or
|
|
semaitem-col_typ eq 'N02' or
|
|
semaitem-col_typ eq 'N03' or
|
|
semaitem-col_typ eq 'N04' or
|
|
semaitem-col_typ eq 'PCT'.
|
|
set country 'DE'.
|
|
describe field <item> type typ.
|
|
|
|
if semaitem-col_cur is initial.
|
|
if typ ne 'F'.
|
|
write <item> to contentsitem-value no-grouping
|
|
no-sign decimals 14.
|
|
else.
|
|
write <item> to contentsitem-value no-grouping
|
|
no-sign.
|
|
endif.
|
|
else.
|
|
* Treat of fixed curreny for column >>Y9CK007319
|
|
if semaitem-col_cur < 0.
|
|
semaitem-col_cur = semaitem-col_cur * ( -1 ).
|
|
select * from tcurx into table lt_tcurx.
|
|
sort lt_tcurx.
|
|
read table lt_tcurx into
|
|
wa_tcurx index semaitem-col_cur.
|
|
if sy-subrc = 0.
|
|
if typ ne 'F'.
|
|
write <item> to contentsitem-value no-grouping
|
|
currency wa_tcurx-currkey no-sign decimals 14.
|
|
else.
|
|
write <item> to contentsitem-value no-grouping
|
|
currency wa_tcurx-currkey no-sign.
|
|
endif.
|
|
endif.
|
|
else.
|
|
assign component semaitem-col_cur
|
|
of structure <line> to <g>.
|
|
* mit = index of recent row
|
|
curritem-top = rowmax + mit + li_commentary_rows.
|
|
|
|
li_col_pos = sy-index + i_left - 1.
|
|
curritem-left = li_col_pos.
|
|
|
|
* if filed is quantity field (qfieldname ne space)
|
|
* or amount field (cfieldname ne space), then format decimal place
|
|
* corresponding with config
|
|
|
|
clear: l_def.
|
|
read table LT_FIELDCAT_KKBLO assigning <f_fieldcat_line>
|
|
with key tabname = l_tabname
|
|
tech = space
|
|
no_out = space
|
|
col_pos = semaitem-col_no.
|
|
IF sy-subrc = 0.
|
|
IF <f_fieldcat_line>-cfieldname is not initial.
|
|
l_def = 'C'.
|
|
else."if <f_fieldcat_line>-qfieldname is not initial.
|
|
l_def = 'Q'.
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
* if field is amount field
|
|
* exporting of amount field base on currency decimal table: TCURX
|
|
IF l_def = 'C'. "field is amount field
|
|
select single * from tcurx into wa_tcurx
|
|
where currkey = <g>.
|
|
* if amount ref to un-know currency -> default decimal = 2
|
|
if sy-subrc eq 0.
|
|
curritem-decimals = wa_tcurx-currdec.
|
|
else.
|
|
curritem-decimals = 2.
|
|
endif.
|
|
|
|
append curritem to currcells.
|
|
if typ ne 'F'.
|
|
write <item> to contentsitem-value
|
|
currency <g>
|
|
no-sign no-grouping.
|
|
else.
|
|
write <item> to contentsitem-value
|
|
decimals 14 currency <g>
|
|
no-sign no-grouping.
|
|
endif.
|
|
|
|
* if field is quantity field
|
|
* exporting of quantity field base on quantity decimal table: T006
|
|
|
|
else."if l_def = 'Q'. " field is quantity field
|
|
clear: wa_t006.
|
|
select single * from t006 into wa_t006
|
|
where MSEHI = <g>.
|
|
* if quantity ref to un-know unit-> default decimal = 2
|
|
if sy-subrc eq 0.
|
|
curritem-decimals = wa_t006-decan.
|
|
else.
|
|
curritem-decimals = 2.
|
|
endif.
|
|
append curritem to currcells.
|
|
|
|
write <item> to contentsitem-value
|
|
unit <g>
|
|
no-sign no-grouping.
|
|
condense contentsitem-value.
|
|
|
|
ENDIF.
|
|
|
|
endif. "Y9CK007319
|
|
endif.
|
|
condense contentsitem-value.
|
|
|
|
* add function fieldcat-no zero display
|
|
|
|
loop at LT_FIELDCAT_KKBLO assigning <f_fieldcat_line>
|
|
where tabname = l_tabname
|
|
and tech ne 'X'
|
|
and no_out ne 'X'.
|
|
if <f_fieldcat_line>-col_pos = semaitem-col_no.
|
|
if <f_fieldcat_line>-no_zero = 'X'.
|
|
if <item> = '0'.
|
|
clear: contentsitem-value.
|
|
endif.
|
|
|
|
* dun display zero in total/subtotal line too
|
|
|
|
else.
|
|
clear: wa_subtot_indexs.
|
|
read table lt_subtot_indexs into wa_subtot_indexs
|
|
with key index = l_save_index.
|
|
IF sy-subrc = 0.
|
|
if <item> = '0'.
|
|
clear: contentsitem-value.
|
|
endif.
|
|
ENDIF.
|
|
endif.
|
|
endif.
|
|
endloop.
|
|
unassign: <f_fieldcat_line>.
|
|
|
|
if <item> lt 0.
|
|
search contentsitem-value for 'E'.
|
|
if sy-fdpos eq 0.
|
|
|
|
* use prefix notation for signed numbers
|
|
|
|
translate contentsitem-value using '- '.
|
|
condense contentsitem-value no-gaps.
|
|
concatenate '-' contentsitem-value
|
|
into contentsitem-value.
|
|
else.
|
|
concatenate '-' contentsitem-value
|
|
into contentsitem-value.
|
|
endif.
|
|
endif.
|
|
set country space.
|
|
* Hier wird nur die korrekte Kommaseparatierung gemacht, wenn die
|
|
* Zeichen einer
|
|
* Zahl enthalten sind. Das ist für Timestamps, die auch ":" enthalten.
|
|
* Für die
|
|
* darf keine Kommaseparierung stattfinden.
|
|
* Changing for correction request - Y6BK041073
|
|
if contentsitem-value co '0123456789.,-+E '.
|
|
translate contentsitem-value using comma_elim.
|
|
endif.
|
|
else.
|
|
clear contentsitem-value.
|
|
|
|
* if type is not numeric -> dun display with zero
|
|
|
|
write <item> to contentsitem-value no-zero.
|
|
|
|
shift contentsitem-value left deleting leading space.
|
|
|
|
endif.
|
|
append contentsitem to contents.
|
|
endif.
|
|
enddo.
|
|
|
|
realmit = realmit + 1.
|
|
realoverflow = realoverflow + 1.
|
|
|
|
mit = mit + 1.
|
|
* overflow = current row index in content table
|
|
overflow = overflow + 1.
|
|
endloop.
|
|
|
|
unassign: <f_fieldcat_line>.
|
|
|
|
* set item range for set_range_data method
|
|
|
|
testname = mit / const.
|
|
condense testname.
|
|
|
|
concatenate 'TEST' testname into testname.
|
|
|
|
realoverflow = realoverflow - 1.
|
|
realmit = realmit - 1.
|
|
help = realoverflow.
|
|
|
|
rangeitem-name = testname.
|
|
rangeitem-columns = datareal.
|
|
rangeitem-rows = help.
|
|
append rangeitem to ranges.
|
|
|
|
* insert item range dim
|
|
|
|
temp2 = rowmax + 1 + li_commentary_rows + realmit - realoverflow.
|
|
|
|
* items data
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = testname
|
|
top = temp2
|
|
left = i_left
|
|
rows = help
|
|
columns = datareal
|
|
no_flush = no_flush.
|
|
|
|
* get columns header contents for set_range_data method
|
|
* export columns header only if no columns header option = space
|
|
|
|
data: rowcount type i.
|
|
data: columncount type i.
|
|
|
|
if i_columns_header = 'X'.
|
|
|
|
* append columns header to contents: hkey
|
|
|
|
rowcount = 1.
|
|
do rowmax times.
|
|
columncount = 1.
|
|
do hkeycolumns times.
|
|
loop at lt_hkey into hkeyitem where col_no = columncount
|
|
and row_no = rowcount.
|
|
endloop.
|
|
if sy-subrc = 0.
|
|
str = hkeyitem-col_name.
|
|
contentsitem-value = hkeyitem-col_name.
|
|
else.
|
|
contentsitem-value = str.
|
|
endif.
|
|
contentsitem-column = columncount.
|
|
contentsitem-row = rowcount.
|
|
append contentsitem to contents.
|
|
columncount = columncount + 1.
|
|
enddo.
|
|
rowcount = rowcount + 1.
|
|
enddo.
|
|
|
|
* incase columns header in multiline
|
|
|
|
data: rowmaxtemp type i.
|
|
if rowmax > 1.
|
|
rowmaxtemp = rowmax - 1.
|
|
rowcount = 1.
|
|
do rowmaxtemp times.
|
|
columncount = 1.
|
|
do columnmax times.
|
|
contentsitem-column = columncount.
|
|
contentsitem-row = rowcount.
|
|
contentsitem-value = ''.
|
|
append contentsitem to contents.
|
|
columncount = columncount + 1.
|
|
enddo.
|
|
rowcount = rowcount + 1.
|
|
enddo.
|
|
endif.
|
|
|
|
* append columns header to contents: vkey
|
|
|
|
columncount = 1.
|
|
do columnmax times.
|
|
loop at lt_vkey into vkeyitem where col_no = columncount.
|
|
endloop.
|
|
contentsitem-value = vkeyitem-col_name.
|
|
contentsitem-row = rowmax.
|
|
contentsitem-column = columncount.
|
|
append contentsitem to contents.
|
|
columncount = columncount + 1.
|
|
enddo.
|
|
*--------------------------------------------------------------------*
|
|
* set header range for method set_range_data
|
|
* insert header keys range dim
|
|
|
|
li_head_top = li_commentary_rows + 1.
|
|
li_col_pos = i_left.
|
|
|
|
* insert range headers
|
|
|
|
if hkeycolumns ne 0.
|
|
rangeitem-name = 'TESTHKEY'.
|
|
rangeitem-rows = rowmax.
|
|
rangeitem-columns = hkeycolumns.
|
|
append rangeitem to ranges.
|
|
clear: rangeitem.
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = 'TESTHKEY'
|
|
top = li_head_top
|
|
left = li_col_pos
|
|
rows = rowmax
|
|
columns = hkeycolumns
|
|
no_flush = no_flush.
|
|
endif.
|
|
endif.
|
|
|
|
* format for columns header + total + subtotal
|
|
* ------------------------------------------
|
|
|
|
help = rowmax + realmit. " table + header lines
|
|
|
|
data: item type colxxl_t.
|
|
data: lt_format type soi_format_table.
|
|
data: wa_format like line of lt_format.
|
|
data: wa_format_temp like line of lt_format.
|
|
|
|
field-symbols: <f_source> type any.
|
|
field-symbols: <f_des> type any.
|
|
|
|
* columns header format
|
|
|
|
wa_format-front = -1.
|
|
wa_format-back = 15. "grey
|
|
wa_format-font = space.
|
|
wa_format-size = -1.
|
|
wa_format-bold = 1.
|
|
wa_format-align = 0.
|
|
wa_format-frametyp = -1.
|
|
wa_format-framecolor = -1.
|
|
|
|
* get column header format from input record
|
|
* -> map input format
|
|
|
|
if i_columns_header = 'X'.
|
|
wa_format-name = 'TESTHKEY'.
|
|
if i_format_col_header is not initial.
|
|
describe field i_format_col_header type l_typ components
|
|
li_col_num.
|
|
do li_col_num times.
|
|
if sy-index ne 1. " dun map range name
|
|
assign component sy-index of structure i_format_col_header
|
|
to <f_source>.
|
|
if <f_source> is not initial.
|
|
assign component sy-index of structure wa_format to <f_des>.
|
|
<f_des> = <f_source>.
|
|
unassign: <f_des>.
|
|
endif.
|
|
unassign: <f_source>.
|
|
endif.
|
|
enddo.
|
|
|
|
clear: li_col_num.
|
|
endif.
|
|
|
|
append wa_format to lt_format.
|
|
endif.
|
|
|
|
* Zusammenfassen der Spalten mit gleicher Nachkommastellenzahl
|
|
* collect vertical cells (col) with the same number of decimal places
|
|
* to increase perfomance in currency cell format
|
|
|
|
describe table currcells lines lines.
|
|
lines = lines - 1.
|
|
do lines times.
|
|
describe table currcells lines innerlines.
|
|
innerlines = innerlines - 1.
|
|
sort currcells by left top.
|
|
clear found.
|
|
do innerlines times.
|
|
read table currcells index sy-index into curritem.
|
|
counter = sy-index + 1.
|
|
read table currcells index counter into curritem2.
|
|
if curritem-left eq curritem2-left.
|
|
length = curritem-top + curritem-rows.
|
|
if length eq curritem2-top.
|
|
if curritem-decimals eq curritem2-decimals.
|
|
move curritem to curritem3.
|
|
curritem3-rows = curritem3-rows + curritem2-rows.
|
|
curritem-left = -1.
|
|
modify currcells index sy-index from curritem.
|
|
curritem2-left = -1.
|
|
modify currcells index counter from curritem2.
|
|
append curritem3 to currcells.
|
|
found = 'X'.
|
|
endif.
|
|
endif.
|
|
endif.
|
|
enddo.
|
|
if found is initial.
|
|
exit.
|
|
endif.
|
|
delete currcells where left = -1.
|
|
enddo.
|
|
|
|
* Zusammenfassen der Zeilen mit gleicher Nachkommastellenzahl
|
|
* collect horizontal cells (row) with the same number of decimal places
|
|
* to increase perfomance in currency cell format
|
|
|
|
describe table currcells lines lines.
|
|
lines = lines - 1.
|
|
do lines times.
|
|
describe table currcells lines innerlines.
|
|
innerlines = innerlines - 1.
|
|
sort currcells by top left.
|
|
clear found.
|
|
do innerlines times.
|
|
read table currcells index sy-index into curritem.
|
|
counter = sy-index + 1.
|
|
read table currcells index counter into curritem2.
|
|
if curritem-top eq curritem2-top and curritem-rows eq
|
|
curritem2-rows.
|
|
length = curritem-left + curritem-columns.
|
|
if length eq curritem2-left.
|
|
if curritem-decimals eq curritem2-decimals.
|
|
move curritem to curritem3.
|
|
curritem3-columns = curritem3-columns + curritem2-columns.
|
|
curritem-left = -1.
|
|
modify currcells index sy-index from curritem.
|
|
curritem2-left = -1.
|
|
modify currcells index counter from curritem2.
|
|
append curritem3 to currcells.
|
|
found = 'X'.
|
|
endif.
|
|
endif.
|
|
endif.
|
|
enddo.
|
|
if found is initial.
|
|
exit.
|
|
endif.
|
|
delete currcells where left = -1.
|
|
enddo.
|
|
* Ende der Zusammenfassung
|
|
|
|
|
|
* item data: format for currency cell, corresponding with currency
|
|
|
|
call method lo_spreadsheet->cell_format
|
|
EXPORTING
|
|
cells = currcells
|
|
no_flush = no_flush.
|
|
|
|
* item data: write item table content
|
|
|
|
call method lo_spreadsheet->set_ranges_data
|
|
EXPORTING
|
|
ranges = ranges
|
|
contents = contents
|
|
no_flush = no_flush.
|
|
|
|
* whole table range to format all table
|
|
|
|
if i_columns_header = 'X'.
|
|
li_head_top = li_commentary_rows + 1.
|
|
else.
|
|
li_head_top = li_commentary_rows + 2.
|
|
help = help - 1.
|
|
endif.
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = 'WHOLE_TABLE'
|
|
top = li_head_top
|
|
left = i_left
|
|
rows = help
|
|
columns = datareal
|
|
no_flush = no_flush.
|
|
|
|
* columns width auto fix
|
|
* this parameter = space in case use with exist template
|
|
|
|
IF i_columns_autofit = 'X'.
|
|
call method lo_spreadsheet->fit_widest
|
|
EXPORTING
|
|
name = 'WHOLE_TABLE'
|
|
no_flush = no_flush.
|
|
ENDIF.
|
|
|
|
* frame
|
|
* The parameter has 8 bits
|
|
*0 Left margin
|
|
*1 Top marginT
|
|
*2 Bottom margin
|
|
*3 Right margin
|
|
*4 Horizontal line
|
|
*5 Vertical line
|
|
*6 Thinness
|
|
*7 Thickness
|
|
* here 127 = 1111111 6-5-4-3-2-1 mean Thin-ver-hor-right-bot-top-left
|
|
|
|
* ( final DOI method call, set no_flush = space
|
|
* equal to call method CL_GUI_CFW=>FLUSH )
|
|
|
|
call method lo_spreadsheet->set_frame
|
|
EXPORTING
|
|
rangename = 'WHOLE_TABLE'
|
|
typ = 127
|
|
color = 1
|
|
no_flush = space
|
|
IMPORTING
|
|
error = lo_error
|
|
retcode = lc_retcode.
|
|
|
|
error_doi.
|
|
|
|
* reformat subtotal / total line after format wholw table
|
|
|
|
loop at subranges into subrangeitem.
|
|
l_sub_index = subrangeitem-rows + li_commentary_rows + rowmax.
|
|
|
|
call method lo_spreadsheet->insert_range_dim
|
|
EXPORTING
|
|
name = subrangeitem-name
|
|
left = i_left
|
|
top = l_sub_index
|
|
rows = 1
|
|
columns = datareal
|
|
no_flush = no_flush.
|
|
|
|
wa_format-name = subrangeitem-name.
|
|
|
|
* default format:
|
|
* - clolor: subtotal = light yellow, subtotal = yellow
|
|
* - frame: box
|
|
|
|
IF subrangeitem-name(3) = 'SUB'.
|
|
wa_format-back = 36. "subtotal line
|
|
wa_format_temp = i_format_subtotal.
|
|
else.
|
|
wa_format-back = 27. "total line
|
|
wa_format_temp = i_format_total.
|
|
endif.
|
|
wa_format-FRAMETYP = 79.
|
|
wa_format-FRAMEcolor = 1.
|
|
wa_format-number = -1.
|
|
wa_format-align = -1.
|
|
|
|
* get subtoal + total format from intput parameter
|
|
* overwrite default format
|
|
|
|
if wa_format_temp is not initial.
|
|
describe field wa_format_temp type l_typ components li_col_num.
|
|
do li_col_num times.
|
|
if sy-index ne 1. " dun map range name
|
|
assign component sy-index of structure wa_format_temp
|
|
to <f_source>.
|
|
if <f_source> is not initial.
|
|
assign component sy-index of structure wa_format to <f_des>.
|
|
<f_des> = <f_source>.
|
|
unassign: <f_des>.
|
|
endif.
|
|
unassign: <f_source>.
|
|
endif.
|
|
enddo.
|
|
|
|
clear: li_col_num.
|
|
endif.
|
|
|
|
append wa_format to lt_format.
|
|
clear: wa_format-name.
|
|
clear: l_sub_index.
|
|
clear: wa_format_temp.
|
|
|
|
endloop.
|
|
|
|
if lt_format[] is not initial.
|
|
call method lo_spreadsheet->set_ranges_format
|
|
EXPORTING
|
|
formattable = lt_format
|
|
no_flush = no_flush.
|
|
refresh: lt_format.
|
|
endif.
|
|
*--------------------------------------------------------------------*
|
|
call method lo_spreadsheet->screen_update
|
|
EXPORTING
|
|
updating = 'X'.
|
|
|
|
call method c_oi_errors=>flush_errors.
|
|
|
|
lo_error_w = l_error.
|
|
lc_retcode = lo_error_w->error_code.
|
|
|
|
** catch no_flush -> led to dump ( optional )
|
|
* go_error = l_error.
|
|
* gc_retcode = go_error->error_code.
|
|
* error_doi.
|
|
|
|
clear:
|
|
lt_sema,
|
|
wa_sema,
|
|
lt_hkey,
|
|
wa_hkey,
|
|
lt_vkey,
|
|
wa_vkey,
|
|
l_n_hrz_keys,
|
|
l_n_att_cols,
|
|
l_n_vrt_keys,
|
|
count,
|
|
datac,
|
|
datareal,
|
|
vkeycount,
|
|
all,
|
|
mit,
|
|
li_col_pos,
|
|
li_col_num,
|
|
ranges,
|
|
rangeitem,
|
|
contents,
|
|
contentsitem,
|
|
semaitem,
|
|
hkeyitem,
|
|
vkeyitem,
|
|
li_commentary_rows,
|
|
l_retcode,
|
|
li_head_top,
|
|
<f_excel_tab>.
|
|
|
|
clear:
|
|
lo_error_w.
|
|
|
|
unassign:
|
|
<line>,
|
|
<item>,
|
|
<f_excel_tab>.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* SESSION 5: SAVE AND CLOSE FILE
|
|
*--------------------------------------------------------------------*
|
|
|
|
* ex of save path: 'FILE://C:\temp\test.xlsx'
|
|
concatenate 'FILE://' I_save_path
|
|
into ls_path.
|
|
|
|
call method lo_proxy->save_document_to_url
|
|
EXPORTING
|
|
no_flush = 'X'
|
|
url = ls_path
|
|
IMPORTING
|
|
error = lo_error
|
|
retcode = lc_retcode
|
|
CHANGING
|
|
document_size = li_document_size.
|
|
|
|
error_doi.
|
|
|
|
* if save successfully -> raise successful message
|
|
* message i499(sy) with 'Document is Exported to ' p_path.
|
|
message i499(sy) with 'Data has been exported successfully'.
|
|
|
|
clear:
|
|
ls_path,
|
|
li_document_size.
|
|
|
|
close_document.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" VERSION="1" LANGU="E" DESCRIPT="Set cell value from a table" EXPOSURE="2" STATE="1" EDITORDER="7 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="IP_TABLE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STANDARD TABLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="BIND_TABLE" SCONAME="IT_FIELD_CATALOG" VERSION="1" LANGU="E" DESCRIPT="Table binding field catalog" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_T_FIELDCATALOG" 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"/>
|
|
<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.
|
|
*--------------------------------------------------------------------*
|
|
* issue #230 - Pimp my Code
|
|
* - Stefan Schmöcker, (wi p) 2012-12-01
|
|
* - ...
|
|
* aligning code
|
|
* message made to support multilinguality
|
|
*--------------------------------------------------------------------*
|
|
* issue #237 - Check if overlapping areas exist
|
|
* - Alessandro Iannacci 2012-12-01
|
|
* changes: - Added raise if overlaps are detected
|
|
*--------------------------------------------------------------------*
|
|
|
|
CONSTANTS:
|
|
lc_top_left_column TYPE zexcel_cell_column_alpha VALUE 'B',
|
|
lc_top_left_row TYPE zexcel_cell_row VALUE 3.
|
|
|
|
DATA:
|
|
lv_row_int TYPE zexcel_cell_row,
|
|
lv_first_row TYPE zexcel_cell_row,
|
|
lv_last_row TYPE zexcel_cell_row,
|
|
lv_column_int TYPE zexcel_cell_column,
|
|
lv_column_alpha TYPE zexcel_cell_column_alpha,
|
|
lt_field_catalog TYPE zexcel_t_fieldcatalog,
|
|
lv_id TYPE i,
|
|
lv_rows TYPE i,
|
|
lv_formula TYPE string,
|
|
ls_settings TYPE zexcel_s_table_settings,
|
|
lo_table TYPE REF TO zcl_excel_table,
|
|
lt_column_name_buffer TYPE SORTED TABLE OF string WITH UNIQUE KEY table_line,
|
|
lv_value TYPE string,
|
|
lv_value_lowercase TYPE string,
|
|
lv_syindex TYPE char3,
|
|
lv_errormessage TYPE string, "ins issue #237
|
|
|
|
lv_columns TYPE i,
|
|
lt_columns TYPE zexcel_t_fieldcatalog,
|
|
lv_maxcol TYPE i,
|
|
lv_maxrow TYPE i,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_curtable TYPE REF TO zcl_excel_table.
|
|
|
|
FIELD-SYMBOLS:
|
|
<ls_field_catalog> TYPE zexcel_s_fieldcatalog,
|
|
<ls_field_catalog_custom> TYPE zexcel_s_fieldcatalog,
|
|
<fs_table_line> TYPE ANY,
|
|
<fs_fldval> TYPE ANY.
|
|
|
|
ls_settings = is_table_settings.
|
|
|
|
IF ls_settings-top_left_column IS INITIAL.
|
|
ls_settings-top_left_column = lc_top_left_column.
|
|
ENDIF.
|
|
|
|
IF ls_settings-table_style IS INITIAL.
|
|
ls_settings-table_style = zcl_excel_table=>builtinstyle_medium2.
|
|
ENDIF.
|
|
|
|
IF ls_settings-top_left_row IS INITIAL.
|
|
ls_settings-top_left_row = lc_top_left_row.
|
|
ENDIF.
|
|
|
|
IF it_field_catalog IS NOT SUPPLIED.
|
|
lt_field_catalog = zcl_excel_common=>get_fieldcatalog( ip_table = ip_table ).
|
|
ELSE.
|
|
lt_field_catalog = it_field_catalog.
|
|
ENDIF.
|
|
|
|
SORT lt_field_catalog BY position.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* issue #237 Check if overlapping areas exist Start
|
|
*--------------------------------------------------------------------*
|
|
"Get the number of columns for the current table
|
|
lt_columns = lt_field_catalog.
|
|
DELETE lt_columns WHERE dynpfld NE abap_true.
|
|
DESCRIBE TABLE lt_columns LINES lv_columns.
|
|
|
|
"Calculate the top left row of the current table
|
|
lv_column_int = zcl_excel_common=>convert_column2int( ls_settings-top_left_column ).
|
|
lv_row_int = ls_settings-top_left_row.
|
|
|
|
"Get number of row for the current table
|
|
DESCRIBE TABLE ip_table LINES lv_rows.
|
|
|
|
"Calculate the bottom right row for the current table
|
|
lv_maxcol = lv_column_int + lv_columns - 1.
|
|
lv_maxrow = lv_row_int + lv_rows - 1.
|
|
ls_settings-bottom_right_column = zcl_excel_common=>convert_column2alpha( lv_maxcol ).
|
|
ls_settings-bottom_right_row = lv_maxrow.
|
|
|
|
lv_column_int = zcl_excel_common=>convert_column2int( ls_settings-top_left_column ).
|
|
|
|
lo_iterator = me->tables->if_object_collection~get_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
|
|
lo_curtable ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
IF ( ( ls_settings-top_left_row GE lo_curtable->settings-top_left_row AND ls_settings-top_left_row LE lo_curtable->settings-bottom_right_row )
|
|
OR
|
|
( ls_settings-bottom_right_row GE lo_curtable->settings-top_left_row AND ls_settings-bottom_right_row LE lo_curtable->settings-bottom_right_row )
|
|
)
|
|
AND
|
|
( ( lv_column_int GE zcl_excel_common=>convert_column2int( lo_curtable->settings-top_left_column ) AND lv_column_int LE zcl_excel_common=>convert_column2int( lo_curtable->settings-bottom_right_column ) )
|
|
OR
|
|
( lv_maxcol GE zcl_excel_common=>convert_column2int( lo_curtable->settings-top_left_column ) AND lv_maxcol LE zcl_excel_common=>convert_column2int( lo_curtable->settings-bottom_right_column ) )
|
|
).
|
|
lv_errormessage = 'Table overlaps with previously bound table and will not be added to worksheet.'(400).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
ENDWHILE.
|
|
*--------------------------------------------------------------------*
|
|
* issue #237 Check if overlapping areas exist End
|
|
*--------------------------------------------------------------------*
|
|
|
|
CREATE OBJECT lo_table.
|
|
lo_table->settings = ls_settings.
|
|
lo_table->set_data( ir_data = ip_table ).
|
|
lv_id = me->excel->get_next_table_id( ).
|
|
lo_table->set_id( iv_id = lv_id ).
|
|
* lo_table->fieldcat = lt_field_catalog[].
|
|
|
|
me->tables->add( lo_table ).
|
|
|
|
* It is better to loop column by column (only visible column)
|
|
LOOP AT lt_field_catalog ASSIGNING <ls_field_catalog> WHERE dynpfld EQ abap_true.
|
|
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
|
|
|
|
" Due restrinction of new table object we cannot have two column with the same name
|
|
" Check if a column with the same name exists, if exists add a counter
|
|
" If no medium description is provided we try to use small or long
|
|
* lv_value = <ls_field_catalog>-scrtext_m.
|
|
IF <ls_field_catalog>-scrtext_m IS NOT INITIAL.
|
|
lv_value = <ls_field_catalog>-scrtext_m.
|
|
<ls_field_catalog>-scrtext_l = lv_value.
|
|
ELSEIF <ls_field_catalog>-scrtext_s IS NOT INITIAL.
|
|
lv_value = <ls_field_catalog>-scrtext_s.
|
|
<ls_field_catalog>-scrtext_l = lv_value.
|
|
ELSEIF <ls_field_catalog>-scrtext_l IS NOT INITIAL.
|
|
lv_value = <ls_field_catalog>-scrtext_l.
|
|
ELSE.
|
|
lv_value = 'Column'. " default value as Excel does
|
|
<ls_field_catalog>-scrtext_l = lv_value.
|
|
ENDIF.
|
|
WHILE 1 = 1.
|
|
lv_value_lowercase = lv_value.
|
|
TRANSLATE lv_value_lowercase TO LOWER CASE.
|
|
READ TABLE lt_column_name_buffer TRANSPORTING NO FIELDS WITH KEY table_line = lv_value_lowercase BINARY SEARCH.
|
|
IF sy-subrc <> 0.
|
|
<ls_field_catalog>-scrtext_l = lv_value.
|
|
INSERT lv_value_lowercase INTO TABLE lt_column_name_buffer.
|
|
EXIT.
|
|
ELSE.
|
|
lv_syindex = sy-index.
|
|
CONCATENATE <ls_field_catalog>-scrtext_l lv_syindex INTO lv_value.
|
|
ENDIF.
|
|
|
|
ENDWHILE.
|
|
" First of all write column header
|
|
IF <ls_field_catalog>-style_header IS NOT INITIAL.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = lv_value
|
|
ip_style = <ls_field_catalog>-style_header ).
|
|
ELSE.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = lv_value ).
|
|
ENDIF.
|
|
|
|
ADD 1 TO lv_row_int.
|
|
LOOP AT ip_table ASSIGNING <fs_table_line>.
|
|
|
|
ASSIGN COMPONENT <ls_field_catalog>-fieldname OF STRUCTURE <fs_table_line> TO <fs_fldval>.
|
|
" issue #290 Add formula support in table
|
|
IF <ls_field_catalog>-formula EQ abap_true.
|
|
IF <ls_field_catalog>-style IS NOT INITIAL.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_formula = <fs_fldval>
|
|
ip_style = <ls_field_catalog>-style ).
|
|
ELSE.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_formula = <fs_fldval> ).
|
|
ENDIF.
|
|
ELSE.
|
|
IF <ls_field_catalog>-style IS NOT INITIAL.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = <fs_fldval>
|
|
ip_style = <ls_field_catalog>-style ).
|
|
ELSE.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = <fs_fldval> ).
|
|
ENDIF.
|
|
ENDIF.
|
|
ADD 1 TO lv_row_int.
|
|
|
|
ENDLOOP.
|
|
IF sy-subrc <> 0. "create empty row if table has no data
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = space ).
|
|
ADD 1 TO lv_row_int.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
" totals
|
|
*--------------------------------------------------------------------*
|
|
IF <ls_field_catalog>-totals_function IS NOT INITIAL.
|
|
lv_formula = lo_table->get_totals_formula( ip_column = <ls_field_catalog>-scrtext_l ip_function = <ls_field_catalog>-totals_function ).
|
|
IF <ls_field_catalog>-style_total IS NOT INITIAL.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_formula = lv_formula
|
|
ip_style = <ls_field_catalog>-style_total ).
|
|
ELSE.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_formula = lv_formula ).
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
lv_row_int = ls_settings-top_left_row.
|
|
ADD 1 TO lv_column_int.
|
|
|
|
*--------------------------------------------------------------------*
|
|
" conditional formatting
|
|
*--------------------------------------------------------------------*
|
|
IF <ls_field_catalog>-cond_style IS NOT INITIAL.
|
|
lv_first_row = ls_settings-top_left_row + 1. " +1 to exclude header
|
|
lv_last_row = ls_settings-top_left_row + lv_rows.
|
|
<ls_field_catalog>-cond_style->set_range( ip_start_column = lv_column_alpha
|
|
ip_start_row = lv_first_row
|
|
ip_stop_column = lv_column_alpha
|
|
ip_stop_row = lv_last_row ).
|
|
ENDIF.
|
|
|
|
ENDLOOP.
|
|
|
|
*--------------------------------------------------------------------*
|
|
" Set field catalog
|
|
*--------------------------------------------------------------------*
|
|
lo_table->fieldcat = lt_field_catalog[].
|
|
|
|
es_table_settings = ls_settings.
|
|
es_table_settings-bottom_right_column = lv_column_alpha.
|
|
" >> Issue #291
|
|
IF ip_table IS INITIAL.
|
|
es_table_settings-bottom_right_row = ls_settings-top_left_row + 2. "Last rows
|
|
ELSE.
|
|
es_table_settings-bottom_right_row = ls_settings-top_left_row + lv_rows + 1. "Last rows
|
|
ENDIF.
|
|
" << Issue #291
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" VERSION="1" LANGU="E" DESCRIPT="Calculate width of cell" EXPOSURE="0" STATE="1" EDITORDER="59 " 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_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="CALCULATE_CELL_WIDTH" SCONAME="EP_WIDTH" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="FLOAT"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_CELL_WIDTH" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>*--------------------------------------------------------------------*
|
|
* issue #293 - Roberto Bianco
|
|
* - Christian Assig 2014-03-14
|
|
*
|
|
* changes: - Calculate widths using SAPscript font metrics
|
|
* (transaction SE73)
|
|
* - Calculate the width of dates
|
|
* - Add additional width for auto filter buttons
|
|
* - Add cell padding to simulate Excel behavior
|
|
*--------------------------------------------------------------------*
|
|
METHOD calculate_cell_width.
|
|
|
|
CONSTANTS:
|
|
lc_default_font_name TYPE zexcel_style_font_name VALUE 'Calibri', "#EC NOTEXT
|
|
lc_default_font_height TYPE tdfontsize VALUE '110',
|
|
lc_excel_cell_padding TYPE float VALUE '0.75'.
|
|
|
|
DATA: ld_cell_value TYPE zexcel_cell_value,
|
|
ld_current_character TYPE c LENGTH 1,
|
|
ld_style_guid TYPE zexcel_cell_style,
|
|
ls_stylemapping TYPE zexcel_s_stylemapping,
|
|
lo_table_object TYPE REF TO object,
|
|
lo_table TYPE REF TO zcl_excel_table,
|
|
ld_table_top_left_column TYPE zexcel_cell_column,
|
|
ld_table_bottom_right_column TYPE zexcel_cell_column,
|
|
ld_flag_contains_auto_filter TYPE abap_bool VALUE abap_false,
|
|
ld_flag_bold TYPE abap_bool VALUE abap_false,
|
|
ld_flag_italic TYPE abap_bool VALUE abap_false,
|
|
ld_date TYPE d,
|
|
ld_date_char TYPE c LENGTH 50,
|
|
ld_font_height TYPE tdfontsize VALUE lc_default_font_height,
|
|
lt_itcfc TYPE STANDARD TABLE OF itcfc,
|
|
ld_offset TYPE i,
|
|
ld_length TYPE i,
|
|
ld_uccp TYPE i,
|
|
ls_font_metric TYPE mty_s_font_metric,
|
|
ld_width_from_font_metrics TYPE i,
|
|
ld_font_family TYPE itcfh-tdfamily,
|
|
ld_font_name TYPE zexcel_style_font_name VALUE lc_default_font_name,
|
|
lt_font_families LIKE STANDARD TABLE OF ld_font_family,
|
|
ls_font_cache TYPE mty_s_font_cache.
|
|
|
|
FIELD-SYMBOLS: <ls_font_cache> TYPE mty_s_font_cache,
|
|
<ls_font_metric> TYPE mty_s_font_metric,
|
|
<ls_itcfc> TYPE itcfc.
|
|
|
|
" Determine cell content and cell style
|
|
me->get_cell( EXPORTING ip_column = ip_column
|
|
ip_row = ip_row
|
|
IMPORTING ep_value = ld_cell_value
|
|
ep_guid = ld_style_guid ).
|
|
|
|
" ABAP2XLSX uses tables to define areas containing headers and
|
|
" auto-filters. Find out if the current cell is in the header
|
|
" of one of these tables.
|
|
LOOP AT me->tables->collection INTO lo_table_object.
|
|
" Downcast: OBJECT -> ZCL_EXCEL_TABLE
|
|
lo_table ?= lo_table_object.
|
|
|
|
" Convert column letters to corresponding integer values
|
|
ld_table_top_left_column =
|
|
zcl_excel_common=>convert_column2int(
|
|
lo_table->settings-top_left_column ).
|
|
|
|
ld_table_bottom_right_column =
|
|
zcl_excel_common=>convert_column2int(
|
|
lo_table->settings-bottom_right_column ).
|
|
|
|
" Is the current cell part of the table header?
|
|
IF ip_column BETWEEN ld_table_top_left_column AND
|
|
ld_table_bottom_right_column AND
|
|
ip_row EQ lo_table->settings-top_left_row.
|
|
" Current cell is part of the table header
|
|
" -> Assume that an auto filter is present and that the font is
|
|
" bold
|
|
ld_flag_contains_auto_filter = abap_true.
|
|
ld_flag_bold = abap_true.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
|
|
" If a style GUID is present, read style attributes
|
|
IF ld_style_guid IS NOT INITIAL.
|
|
TRY.
|
|
" Read style attributes
|
|
ls_stylemapping = me->excel->get_style_to_guid( ld_style_guid ).
|
|
|
|
" If the current cell contains the default date format,
|
|
" convert the cell value to a date and calculate its length
|
|
IF ls_stylemapping-complete_style-number_format-format_code =
|
|
zcl_excel_style_number_format=>c_format_date_std.
|
|
|
|
" Convert excel date to ABAP date
|
|
ld_date =
|
|
zcl_excel_common=>excel_string_to_date( ld_cell_value ).
|
|
|
|
" Format ABAP date using user's formatting settings
|
|
WRITE ld_date TO ld_date_char.
|
|
|
|
" Remember the formatted date to calculate the cell size
|
|
ld_cell_value = ld_date_char.
|
|
|
|
ENDIF.
|
|
|
|
" Read the font size and convert it to the font height
|
|
" used by SAPscript (multiplication by 10)
|
|
IF ls_stylemapping-complete_stylex-font-size = abap_true.
|
|
ld_font_height = ls_stylemapping-complete_style-font-size * 10.
|
|
ENDIF.
|
|
|
|
" If set, remember the font name
|
|
IF ls_stylemapping-complete_stylex-font-name = abap_true.
|
|
ld_font_name = ls_stylemapping-complete_style-font-name.
|
|
ENDIF.
|
|
|
|
" If set, remember whether font is bold and italic.
|
|
IF ls_stylemapping-complete_stylex-font-bold = abap_true.
|
|
ld_flag_bold = ls_stylemapping-complete_style-font-bold.
|
|
ENDIF.
|
|
|
|
IF ls_stylemapping-complete_stylex-font-italic = abap_true.
|
|
ld_flag_italic = ls_stylemapping-complete_style-font-italic.
|
|
ENDIF.
|
|
|
|
CATCH zcx_excel. "#EC NO_HANDLER
|
|
" Style GUID is present, but style was not found
|
|
" Continue with default values
|
|
|
|
ENDTRY.
|
|
ENDIF.
|
|
|
|
" Check if the same font (font name and font attributes) was already
|
|
" used before
|
|
READ TABLE mth_font_cache
|
|
WITH TABLE KEY
|
|
font_name = ld_font_name
|
|
font_height = ld_font_height
|
|
flag_bold = ld_flag_bold
|
|
flag_italic = ld_flag_italic
|
|
ASSIGNING <ls_font_cache>.
|
|
|
|
IF sy-subrc <> 0.
|
|
" Font is used for the first time
|
|
" Add the font to our local font cache
|
|
ls_font_cache-font_name = ld_font_name.
|
|
ls_font_cache-font_height = ld_font_height.
|
|
ls_font_cache-flag_bold = ld_flag_bold.
|
|
ls_font_cache-flag_italic = ld_flag_italic.
|
|
INSERT ls_font_cache INTO TABLE mth_font_cache
|
|
ASSIGNING <ls_font_cache>.
|
|
|
|
" Determine the SAPscript font family name from the Excel
|
|
" font name
|
|
SELECT tdfamily
|
|
FROM tfo01
|
|
INTO TABLE lt_font_families
|
|
UP TO 1 ROWS
|
|
WHERE tdtext = ld_font_name.
|
|
|
|
" Check if a matching font family was found
|
|
" Fonts can be uploaded from TTF files using transaction SE73
|
|
IF lines( lt_font_families ) > 0.
|
|
READ TABLE lt_font_families INDEX 1 INTO ld_font_family.
|
|
|
|
" Load font metrics (returns a table with the size of each letter
|
|
" in the font)
|
|
CALL FUNCTION 'LOAD_FONT'
|
|
EXPORTING
|
|
family = ld_font_family
|
|
height = ld_font_height
|
|
printer = 'SWIN'
|
|
bold = ld_flag_bold
|
|
italic = ld_flag_italic
|
|
TABLES
|
|
metric = lt_itcfc
|
|
EXCEPTIONS
|
|
font_family = 1
|
|
codepage = 2
|
|
device_type = 3
|
|
OTHERS = 4.
|
|
IF sy-subrc <> 0.
|
|
CLEAR lt_itcfc.
|
|
ENDIF.
|
|
|
|
" For faster access, convert each character number to the actual
|
|
" character, and store the characters and their sizes in a hash
|
|
" table
|
|
LOOP AT lt_itcfc ASSIGNING <ls_itcfc>.
|
|
ld_uccp = <ls_itcfc>-cpcharno.
|
|
ls_font_metric-char =
|
|
cl_abap_conv_in_ce=>uccpi( ld_uccp ).
|
|
ls_font_metric-char_width = <ls_itcfc>-tdcwidths.
|
|
INSERT ls_font_metric
|
|
INTO TABLE <ls_font_cache>-th_font_metrics.
|
|
ENDLOOP.
|
|
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
" Calculate the cell width
|
|
" If available, use font metrics
|
|
IF lines( <ls_font_cache>-th_font_metrics ) = 0.
|
|
" Font metrics are not available
|
|
" -> Calculate the cell width using only the font size
|
|
ld_length = strlen( ld_cell_value ).
|
|
ep_width = ld_length * ld_font_height / lc_default_font_height + lc_excel_cell_padding.
|
|
|
|
ELSE.
|
|
" Font metrics are available
|
|
|
|
" Calculate the size of the text by adding the sizes of each
|
|
" letter
|
|
ld_length = strlen( ld_cell_value ).
|
|
DO ld_length TIMES.
|
|
" Subtract 1, because the first character is at offset 0
|
|
ld_offset = sy-index - 1.
|
|
|
|
" Read the current character from the cell value
|
|
ld_current_character = ld_cell_value+ld_offset(1).
|
|
|
|
" Look up the size of the current letter
|
|
READ TABLE <ls_font_cache>-th_font_metrics
|
|
WITH TABLE KEY char = ld_current_character
|
|
ASSIGNING <ls_font_metric>.
|
|
IF sy-subrc = 0.
|
|
" The size of the letter is known
|
|
" -> Add the actual size of the letter
|
|
ADD <ls_font_metric>-char_width TO ld_width_from_font_metrics.
|
|
ELSE.
|
|
" The size of the letter is unknown
|
|
" -> Add the font height as the default letter size
|
|
ADD ld_font_height TO ld_width_from_font_metrics.
|
|
ENDIF.
|
|
ENDDO.
|
|
|
|
" Add cell padding (Excel makes columns a bit wider than the space
|
|
" that is needed for the text itself) and convert unit
|
|
" (division by 100)
|
|
ep_width = ld_width_from_font_metrics / 100 + lc_excel_cell_padding.
|
|
ENDIF.
|
|
|
|
" If the current cell contains an auto filter, make it a bit wider.
|
|
" The size used by the auto filter button does not depend on the font
|
|
" size.
|
|
IF ld_flag_contains_auto_filter = abap_true.
|
|
ADD 2 TO ep_width.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_COLUMN_WIDTHS" VERSION="1" LANGU="E" DESCRIPT="Calculate widths for auto-size columns" EXPOSURE="2" STATE="1" EDITORDER="8 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CALCULATE_COLUMN_WIDTHS" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method CALCULATE_COLUMN_WIDTHS.
|
|
TYPES:
|
|
BEGIN OF t_auto_size,
|
|
col_index TYPE int4,
|
|
width TYPE float,
|
|
END OF t_auto_size.
|
|
TYPES: tt_auto_size TYPE TABLE OF t_auto_size.
|
|
|
|
DATA: column_dimensions TYPE zexcel_t_worksheet_columndime.
|
|
DATA: column_dimension TYPE REF TO zcl_excel_worksheet_columndime.
|
|
|
|
DATA: auto_size TYPE flag.
|
|
DATA: auto_sizes TYPE tt_auto_size.
|
|
* DATA: col_alpha TYPE zexcel_cell_column_alpha." issue #155 - less restrictive typing for ip_column
|
|
DATA: cell_value TYPE zexcel_cell_value.
|
|
DATA: cell_style TYPE REF TO zcl_excel_style.
|
|
DATA: count TYPE int4.
|
|
DATA: highest_row TYPE int4.
|
|
DATA: width TYPE float.
|
|
|
|
FIELD-SYMBOLS: <column_dimension> LIKE LINE OF column_dimensions.
|
|
FIELD-SYMBOLS: <auto_size> LIKE LINE OF auto_sizes.
|
|
|
|
column_dimensions[] = me->get_column_dimensions( ).
|
|
LOOP AT column_dimensions ASSIGNING <column_dimension>.
|
|
auto_size = <column_dimension>-column_dimension->get_auto_size( ).
|
|
IF auto_size = abap_true.
|
|
APPEND INITIAL LINE TO auto_sizes ASSIGNING <auto_size>.
|
|
<auto_size>-col_index = <column_dimension>-column_dimension->get_column_index( ).
|
|
<auto_size>-width = -1.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
|
|
" There is only something to do if there are some auto-size columns
|
|
IF NOT auto_sizes IS INITIAL.
|
|
highest_row = me->get_highest_row( ).
|
|
LOOP AT auto_sizes ASSIGNING <auto_size>.
|
|
* col_alpha = zcl_excel_common=>convert_column2alpha( <auto_size>-col_index )." issue #155 - less restrictive typing for ip_column
|
|
count = 1.
|
|
WHILE count <= highest_row.
|
|
* Do not check merged cells
|
|
IF is_cell_merged(
|
|
ip_column = <auto_size>-col_index
|
|
ip_row = count ) = abap_false.
|
|
* Start of change # issue 139 - Dateretention of cellstyles
|
|
* IF cell_style IS BOUND.
|
|
* CREATE OBJECT cell_style.
|
|
* ENDIF.
|
|
* me->get_cell(
|
|
* EXPORTING
|
|
* ip_column = col_alpha " Cell Column
|
|
* ip_row = count " Cell Row
|
|
* IMPORTING
|
|
* ep_value = cell_value " Cell Value
|
|
* ep_style = cell_style " Request Cell Style as well
|
|
* ).
|
|
* " For an easy start we just take the number of characters as the width
|
|
* width = strlen( cell_value ).
|
|
* " Addition to solve issue #120, contribution by Stefan Schmöcker
|
|
* " Calculate width using Font Size and Font Type
|
|
* IF cell_style IS BOUND
|
|
* AND cell_style->font IS BOUND.
|
|
* width = cell_style->font->calculate_text_width( cell_value ).
|
|
* ENDIF.
|
|
* width = calculate_cell_width( ip_column = col_alpha " issue #155 - less restrictive typing for ip_column
|
|
width = calculate_cell_width( ip_column = <auto_size>-col_index " issue #155 - less restrictive typing for ip_column
|
|
ip_row = count ).
|
|
* End of change # issue 139 - Dateretention of cellstyles
|
|
IF width > <auto_size>-width.
|
|
<auto_size>-width = width.
|
|
ENDIF.
|
|
ENDIF.
|
|
count = count + 1.
|
|
ENDWHILE.
|
|
* column_dimension = me->get_column_dimension( col_alpha ). " issue #155 - less restrictive typing for ip_column
|
|
column_dimension = me->get_column_dimension( <auto_size>-col_index ). " issue #155 - less restrictive typing for ip_column
|
|
column_dimension->set_width( <auto_size>-width ).
|
|
ENDLOOP.
|
|
ENDIF.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Change cell style" EXPOSURE="2" STATE="1" EDITORDER="9 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_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="CHANGE_CELL_STYLE" 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="CHANGE_CELL_STYLE" SCONAME="IP_COMPLETE" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles ( 1 structure holds all )" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_COMPLETE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XCOMPLETE" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles ( 1 structure holds all )" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_COMPLETE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Font" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_FONT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XFONT" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles - Font" CMPTYPE="1" MTDTYPE="0" EDITORDER="6 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_FONT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Fill" CMPTYPE="1" MTDTYPE="0" EDITORDER="7 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_FILL" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XFILL" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles - Fill" CMPTYPE="1" MTDTYPE="0" EDITORDER="8 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_FILL" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Borders" CMPTYPE="1" MTDTYPE="0" EDITORDER="9 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDERS" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles - Borders" CMPTYPE="1" MTDTYPE="0" EDITORDER="10 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDERS" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Alignment" CMPTYPE="1" MTDTYPE="0" EDITORDER="11 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_ALIGNMENT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XALIGNMENT" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles - Alignment" CMPTYPE="1" MTDTYPE="0" EDITORDER="12 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_ALIGNMENT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_NUMBER_FORMAT_FORMAT_CODE" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Number Format" CMPTYPE="1" MTDTYPE="0" EDITORDER="13 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_PROTECTION" VERSION="1" LANGU="E" DESCRIPT="Values for Cellstyles - Protection" CMPTYPE="1" MTDTYPE="0" EDITORDER="14 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_PROTECTION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XPROTECTION" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cellstyles - Protection" CMPTYPE="1" MTDTYPE="0" EDITORDER="15 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_PROTECTION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_BOLD" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="16 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="17 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="18 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="19 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="20 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="21 " 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_FONT_FAMILY" VERSION="1" LANGU="E" DESCRIPT="Font family" CMPTYPE="1" MTDTYPE="0" EDITORDER="22 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_FONT_FAMILY" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_ITALIC" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="23 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_NAME" VERSION="1" LANGU="E" DESCRIPT="Font name" CMPTYPE="1" MTDTYPE="0" EDITORDER="24 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_FONT_NAME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_SCHEME" VERSION="1" LANGU="E" DESCRIPT="Font scheme" CMPTYPE="1" MTDTYPE="0" EDITORDER="25 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_FONT_SCHEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_SIZE" VERSION="1" LANGU="E" DESCRIPT="Font size" CMPTYPE="1" MTDTYPE="0" EDITORDER="26 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_FONT_SIZE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_STRIKETHROUGH" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="27 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_UNDERLINE" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="28 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FONT_UNDERLINE_MODE" VERSION="1" LANGU="E" DESCRIPT="Font underline" CMPTYPE="1" MTDTYPE="0" EDITORDER="29 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_FONT_UNDERLINE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FILLTYPE" VERSION="1" LANGU="E" DESCRIPT="Fill Type" CMPTYPE="1" MTDTYPE="0" EDITORDER="30 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_FILL_TYPE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_ROTATION" VERSION="1" LANGU="E" DESCRIPT="Rotation" CMPTYPE="1" MTDTYPE="0" EDITORDER="31 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_ROTATION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FGCOLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="32 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FGCOLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="33 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FGCOLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="34 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FGCOLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="35 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_FGCOLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="36 " 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_FILL_BGCOLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="37 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_BGCOLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="38 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_BGCOLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="39 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_BGCOLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="40 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_BGCOLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="41 " 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_ALLBORDERS" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="42 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_TYPE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="42 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-TYPE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_DEGREE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="43 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-DEGREE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_ALLBORDERS" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="43 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="44 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_BOTTOM" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="44 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-BOTTOM" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_TOP" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="45 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-TOP" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_DIAGONAL" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="45 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_MODE" VERSION="1" LANGU="E" DESCRIPT="Diagonal" CMPTYPE="1" MTDTYPE="0" EDITORDER="46 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_DIAGONAL" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_RIGHT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="46 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-RIGHT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="47 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_LEFT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="47 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-LEFT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_POSITION1" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="48 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-POSITION1" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_DOWN" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="48 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="49 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_POSITION2" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="49 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-POSITION2" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_FILL_GRADTYPE_POSITION3" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="50 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_GRADIENT_TYPE-POSITION3" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_LEFT" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="50 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="51 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_RIGHT" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="52 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP" VERSION="1" LANGU="E" DESCRIPT="Values for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="53 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLE_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_XBORDERS_TOP" VERSION="1" LANGU="E" DESCRIPT="Changeflag for Cells - border" CMPTYPE="1" MTDTYPE="0" EDITORDER="54 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_CSTYLEX_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_HORIZONTAL" VERSION="1" LANGU="E" DESCRIPT="Alignment" CMPTYPE="1" MTDTYPE="0" EDITORDER="55 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_ALIGNMENT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_VERTICAL" VERSION="1" LANGU="E" DESCRIPT="Alignment" CMPTYPE="1" MTDTYPE="0" EDITORDER="56 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_ALIGNMENT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_TEXTROTATION" VERSION="1" LANGU="E" DESCRIPT="Text Rotation" CMPTYPE="1" MTDTYPE="0" EDITORDER="57 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_TEXT_ROTATION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_WRAPTEXT" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="58 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_SHRINKTOFIT" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="59 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_ALIGNMENT_INDENT" VERSION="1" LANGU="E" DESCRIPT="Indent" CMPTYPE="1" MTDTYPE="0" EDITORDER="60 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_INDENT" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_PROTECTION_HIDDEN" VERSION="1" LANGU="E" DESCRIPT="Cell protection indicator" CMPTYPE="1" MTDTYPE="0" EDITORDER="61 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_PROTECTION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_PROTECTION_LOCKED" VERSION="1" LANGU="E" DESCRIPT="Cell protection indicator" CMPTYPE="1" MTDTYPE="0" EDITORDER="62 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_PROTECTION" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBORDERS_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="63 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBORDERS_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="64 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBO_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="65 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBO_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="66 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBO_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="67 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_ALLBO_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="68 " 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_DIAGONAL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="69 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="70 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="71 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_COLOR_INDE" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="72 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_COLOR_THEM" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="73 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DIAGONAL_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="74 " 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_DOWN_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="75 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="76 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="77 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="78 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="79 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_DOWN_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="80 " 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_LEFT_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="81 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="82 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="83 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="84 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="85 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_LEFT_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="86 " 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_RIGHT_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="87 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="88 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="89 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="90 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="91 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_RIGHT_COLOR_TINT" VERSION="1" LANGU="E" DESCRIPT="Tint" CMPTYPE="1" MTDTYPE="0" EDITORDER="92 " 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_STYLE" VERSION="1" LANGU="E" DESCRIPT="Border style" CMPTYPE="1" MTDTYPE="0" EDITORDER="93 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_BORDER" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="94 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR_RGB" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="95 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_ARGB" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR_INDEXED" VERSION="1" LANGU="E" DESCRIPT="Indexed color value" CMPTYPE="1" MTDTYPE="0" EDITORDER="96 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_INDEXED" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CHANGE_CELL_STYLE" SCONAME="IP_BORDERS_TOP_COLOR_THEME" VERSION="1" LANGU="E" DESCRIPT="Theme Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="97 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_STYLE_COLOR_THEME" 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"/>
|
|
<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.
|
|
" issue # 139
|
|
DATA: stylemapping TYPE zexcel_s_stylemapping,
|
|
|
|
complete_style TYPE zexcel_s_cstyle_complete,
|
|
complete_stylex TYPE zexcel_s_cstylex_complete,
|
|
|
|
borderx TYPE zexcel_s_cstylex_border,
|
|
l_guid TYPE zexcel_cell_style. "issue # 177
|
|
|
|
* We have a lot of parameters. Use some macros to make the coding more structured
|
|
|
|
DEFINE clear_initial_colorxfields.
|
|
if &1-rgb is initial.
|
|
clear &2-rgb.
|
|
endif.
|
|
if &1-indexed is initial.
|
|
clear &2-indexed.
|
|
endif.
|
|
if &1-theme is initial.
|
|
clear &2-theme.
|
|
endif.
|
|
if &1-tint is initial.
|
|
clear &2-tint.
|
|
endif.
|
|
END-OF-DEFINITION.
|
|
|
|
DEFINE move_supplied_borders.
|
|
if ip_&1 is supplied. " only act if parameter was supplied
|
|
if ip_x&1 is supplied. "
|
|
borderx = ip_x&1. " use supplied x-parameter
|
|
else.
|
|
clear borderx with 'X'.
|
|
* clear in a way that would be expected to work easily
|
|
if ip_&1-border_style is initial.
|
|
clear borderx-border_style.
|
|
endif.
|
|
clear_initial_colorxfields ip_&1-border_color borderx-border_color.
|
|
endif.
|
|
move-corresponding ip_&1 to complete_style-&2.
|
|
move-corresponding borderx to complete_stylex-&2.
|
|
endif.
|
|
END-OF-DEFINITION.
|
|
|
|
* First get current stylsettings
|
|
TRY.
|
|
me->get_cell( EXPORTING ip_column = ip_column " Cell Column
|
|
ip_row = ip_row " Cell Row
|
|
IMPORTING ep_guid = l_guid )." Cell Value ). "issue # 177
|
|
|
|
|
|
stylemapping = me->excel->get_style_to_guid( l_guid ). "issue # 177
|
|
complete_style = stylemapping-complete_style.
|
|
complete_stylex = stylemapping-complete_stylex.
|
|
CATCH zcx_excel.
|
|
* Error --> use submitted style
|
|
ENDTRY.
|
|
|
|
* move_supplied_multistyles: complete.
|
|
IF ip_complete IS SUPPLIED.
|
|
IF ip_xcomplete IS NOT SUPPLIED.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Complete styleinfo has to be supplied with corresponding X-field'.
|
|
ENDIF.
|
|
MOVE-CORRESPONDING ip_complete TO complete_style.
|
|
MOVE-CORRESPONDING ip_xcomplete TO complete_stylex.
|
|
ENDIF.
|
|
|
|
|
|
|
|
IF ip_font IS SUPPLIED.
|
|
DATA: fontx LIKE ip_xfont.
|
|
IF ip_xfont IS SUPPLIED.
|
|
fontx = ip_xfont.
|
|
ELSE.
|
|
* Only supplied values should be used - exception: Flags bold and italic strikethrough underline
|
|
MOVE 'X' TO: fontx-bold,
|
|
fontx-italic,
|
|
fontx-strikethrough,
|
|
fontx-underline_mode.
|
|
CLEAR fontx-color WITH 'X'.
|
|
clear_initial_colorxfields ip_font-color fontx-color.
|
|
IF ip_font-family IS NOT INITIAL.
|
|
fontx-family = 'X'.
|
|
ENDIF.
|
|
IF ip_font-name IS NOT INITIAL.
|
|
fontx-name = 'X'.
|
|
ENDIF.
|
|
IF ip_font-scheme IS NOT INITIAL.
|
|
fontx-scheme = 'X'.
|
|
ENDIF.
|
|
IF ip_font-size IS NOT INITIAL.
|
|
fontx-size = 'X'.
|
|
ENDIF.
|
|
IF ip_font-underline_mode IS NOT INITIAL.
|
|
fontx-underline_mode = 'X'.
|
|
ENDIF.
|
|
ENDIF.
|
|
MOVE-CORRESPONDING ip_font TO complete_style-font.
|
|
MOVE-CORRESPONDING fontx TO complete_stylex-font.
|
|
* Correction for undeline mode
|
|
ENDIF.
|
|
|
|
IF ip_fill IS SUPPLIED.
|
|
DATA: fillx LIKE ip_xfill.
|
|
IF ip_xfill IS SUPPLIED.
|
|
fillx = ip_xfill.
|
|
ELSE.
|
|
CLEAR fillx WITH 'X'.
|
|
IF ip_fill-filltype IS INITIAL.
|
|
CLEAR fillx-filltype.
|
|
ENDIF.
|
|
clear_initial_colorxfields ip_fill-fgcolor fillx-fgcolor.
|
|
clear_initial_colorxfields ip_fill-bgcolor fillx-bgcolor.
|
|
|
|
ENDIF.
|
|
MOVE-CORRESPONDING ip_fill TO complete_style-fill.
|
|
MOVE-CORRESPONDING fillx TO complete_stylex-fill.
|
|
ENDIF.
|
|
|
|
|
|
IF ip_borders IS SUPPLIED.
|
|
DATA: bordersx LIKE ip_xborders.
|
|
IF ip_xborders IS SUPPLIED.
|
|
bordersx = ip_xborders.
|
|
ELSE.
|
|
CLEAR bordersx WITH 'X'.
|
|
IF ip_borders-allborders-border_style IS INITIAL.
|
|
CLEAR bordersx-allborders-border_style.
|
|
ENDIF.
|
|
IF ip_borders-diagonal-border_style IS INITIAL.
|
|
CLEAR bordersx-diagonal-border_style.
|
|
ENDIF.
|
|
IF ip_borders-down-border_style IS INITIAL.
|
|
CLEAR bordersx-down-border_style.
|
|
ENDIF.
|
|
IF ip_borders-left-border_style IS INITIAL.
|
|
CLEAR bordersx-left-border_style.
|
|
ENDIF.
|
|
IF ip_borders-right-border_style IS INITIAL.
|
|
CLEAR bordersx-right-border_style.
|
|
ENDIF.
|
|
IF ip_borders-top-border_style IS INITIAL.
|
|
CLEAR bordersx-top-border_style.
|
|
ENDIF.
|
|
clear_initial_colorxfields ip_borders-allborders-border_color bordersx-allborders-border_color.
|
|
clear_initial_colorxfields ip_borders-diagonal-border_color bordersx-diagonal-border_color.
|
|
clear_initial_colorxfields ip_borders-down-border_color bordersx-down-border_color.
|
|
clear_initial_colorxfields ip_borders-left-border_color bordersx-left-border_color.
|
|
clear_initial_colorxfields ip_borders-right-border_color bordersx-right-border_color.
|
|
clear_initial_colorxfields ip_borders-top-border_color bordersx-top-border_color.
|
|
|
|
ENDIF.
|
|
MOVE-CORRESPONDING ip_borders TO complete_style-borders.
|
|
MOVE-CORRESPONDING bordersx TO complete_stylex-borders.
|
|
ENDIF.
|
|
|
|
IF ip_alignment IS SUPPLIED.
|
|
DATA: alignmentx LIKE ip_xalignment.
|
|
IF ip_xalignment IS SUPPLIED.
|
|
alignmentx = ip_xalignment.
|
|
ELSE.
|
|
CLEAR alignmentx WITH 'X'.
|
|
IF ip_alignment-horizontal IS INITIAL.
|
|
CLEAR alignmentx-horizontal.
|
|
ENDIF.
|
|
IF ip_alignment-vertical IS INITIAL.
|
|
CLEAR alignmentx-vertical.
|
|
ENDIF.
|
|
ENDIF.
|
|
MOVE-CORRESPONDING ip_alignment TO complete_style-alignment.
|
|
MOVE-CORRESPONDING alignmentx TO complete_stylex-alignment.
|
|
ENDIF.
|
|
|
|
IF ip_protection IS SUPPLIED.
|
|
MOVE-CORRESPONDING ip_protection TO complete_style-protection.
|
|
IF ip_xprotection IS SUPPLIED.
|
|
MOVE-CORRESPONDING ip_xprotection TO complete_stylex-protection.
|
|
ELSE.
|
|
IF ip_protection-hidden IS NOT INITIAL.
|
|
complete_stylex-protection-hidden = 'X'.
|
|
ENDIF.
|
|
IF ip_protection-locked IS NOT INITIAL.
|
|
complete_stylex-protection-locked = 'X'.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
|
|
move_supplied_borders : borders_allborders borders-allborders,
|
|
borders_diagonal borders-diagonal ,
|
|
borders_down borders-down ,
|
|
borders_left borders-left ,
|
|
borders_right borders-right ,
|
|
borders_top borders-top .
|
|
|
|
DEFINE move_supplied_singlestyles.
|
|
if ip_&1 is supplied.
|
|
complete_style-&2 = ip_&1.
|
|
complete_stylex-&2 = 'X'.
|
|
endif.
|
|
END-OF-DEFINITION.
|
|
|
|
move_supplied_singlestyles: number_format_format_code number_format-format_code,
|
|
font_bold font-bold,
|
|
font_color font-color,
|
|
font_color_rgb font-color-rgb,
|
|
font_color_indexed font-color-indexed,
|
|
font_color_theme font-color-theme,
|
|
font_color_tint font-color-tint,
|
|
|
|
font_family font-family,
|
|
font_italic font-italic,
|
|
font_name font-name,
|
|
font_scheme font-scheme,
|
|
font_size font-size,
|
|
font_strikethrough font-strikethrough,
|
|
font_underline font-underline,
|
|
font_underline_mode font-underline_mode,
|
|
fill_filltype fill-filltype,
|
|
fill_rotation fill-rotation,
|
|
fill_fgcolor fill-fgcolor,
|
|
fill_fgcolor_rgb fill-fgcolor-rgb,
|
|
fill_fgcolor_indexed fill-fgcolor-indexed,
|
|
fill_fgcolor_theme fill-fgcolor-theme,
|
|
fill_fgcolor_tint fill-fgcolor-tint,
|
|
|
|
fill_bgcolor fill-bgcolor,
|
|
fill_bgcolor_rgb fill-bgcolor-rgb,
|
|
fill_bgcolor_indexed fill-bgcolor-indexed,
|
|
fill_bgcolor_theme fill-bgcolor-theme,
|
|
fill_bgcolor_tint fill-bgcolor-tint,
|
|
|
|
fill_gradtype_type fill-gradtype-TYPE,
|
|
fill_gradtype_degree fill-gradtype-DEGREE,
|
|
fill_gradtype_bottom fill-gradtype-BOTTOM,
|
|
fill_gradtype_left fill-gradtype-LEFT,
|
|
fill_gradtype_top fill-gradtype-TOP,
|
|
fill_gradtype_right fill-gradtype-RIGHT,
|
|
fill_gradtype_position1 fill-gradtype-POSITION1,
|
|
fill_gradtype_position2 fill-gradtype-POSITION2,
|
|
fill_gradtype_position3 fill-gradtype-POSITION3,
|
|
|
|
|
|
|
|
borders_diagonal_mode borders-diagonal_mode,
|
|
alignment_horizontal alignment-horizontal,
|
|
alignment_vertical alignment-vertical,
|
|
alignment_textrotation alignment-textrotation,
|
|
alignment_wraptext alignment-wraptext,
|
|
alignment_shrinktofit alignment-shrinktofit,
|
|
alignment_indent alignment-indent,
|
|
protection_hidden protection-hidden,
|
|
protection_locked protection-locked,
|
|
|
|
borders_allborders_style borders-allborders-border_style,
|
|
borders_allborders_color borders-allborders-border_color,
|
|
borders_allbo_color_rgb borders-allborders-border_color-rgb,
|
|
borders_allbo_color_indexed borders-allborders-border_color-indexed,
|
|
borders_allbo_color_theme borders-allborders-border_color-theme,
|
|
borders_allbo_color_tint borders-allborders-border_color-tint,
|
|
|
|
borders_diagonal_style borders-diagonal-border_style,
|
|
borders_diagonal_color borders-diagonal-border_color,
|
|
borders_diagonal_color_rgb borders-diagonal-border_color-rgb,
|
|
borders_diagonal_color_inde borders-diagonal-border_color-indexed,
|
|
borders_diagonal_color_them borders-diagonal-border_color-theme,
|
|
borders_diagonal_color_tint borders-diagonal-border_color-tint,
|
|
|
|
borders_down_style borders-down-border_style,
|
|
borders_down_color borders-down-border_color,
|
|
borders_down_color_rgb borders-down-border_color-rgb,
|
|
borders_down_color_indexed borders-down-border_color-indexed,
|
|
borders_down_color_theme borders-down-border_color-theme,
|
|
borders_down_color_tint borders-down-border_color-tint,
|
|
|
|
borders_left_style borders-left-border_style,
|
|
borders_left_color borders-left-border_color,
|
|
borders_left_color_rgb borders-left-border_color-rgb,
|
|
borders_left_color_indexed borders-left-border_color-indexed,
|
|
borders_left_color_theme borders-left-border_color-theme,
|
|
borders_left_color_tint borders-left-border_color-tint,
|
|
|
|
borders_right_style borders-right-border_style,
|
|
borders_right_color borders-right-border_color,
|
|
borders_right_color_rgb borders-right-border_color-rgb,
|
|
borders_right_color_indexed borders-right-border_color-indexed,
|
|
borders_right_color_theme borders-right-border_color-theme,
|
|
borders_right_color_tint borders-right-border_color-tint,
|
|
|
|
borders_top_style borders-top-border_style,
|
|
borders_top_color borders-top-border_color,
|
|
borders_top_color_rgb borders-top-border_color-rgb,
|
|
borders_top_color_indexed borders-top-border_color-indexed,
|
|
borders_top_color_theme borders-top-border_color-theme,
|
|
borders_top_color_tint borders-top-border_color-tint.
|
|
|
|
|
|
* Now we have a completly filled styles.
|
|
* This can be used to get the guid
|
|
* Return guid if requested. Might be used if copy&paste of styles is requested
|
|
ep_guid = me->excel->get_static_cellstyle_guid( ip_cstyle_complete = complete_style
|
|
ip_cstylex_complete = complete_stylex ).
|
|
me->set_cell_style( ip_column = ip_column
|
|
ip_row = ip_row
|
|
ip_style = ep_guid ).
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" VERSION="1" LANGU="E" DESCRIPT="CONSTRUCTOR" EXPOSURE="2" STATE="1" EDITORDER="10 " 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_TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" CMPTYPE="1" MTDTYPE="2" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="CONSTRUCTOR" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="2" EDITORDER="1 "/>
|
|
<source>METHOD constructor.
|
|
DATA: lv_title TYPE zexcel_sheet_title.
|
|
|
|
me->excel = ip_excel.
|
|
|
|
* CALL FUNCTION 'GUID_CREATE' " del issue #379 - function is outdated in newer releases
|
|
* IMPORTING
|
|
* ev_guid_16 = me->guid.
|
|
me->guid = zcl_excel_obsolete_func_wrap=>guid_create( ). " ins issue #379 - replacement for outdated function call
|
|
|
|
IF ip_title IS NOT INITIAL.
|
|
lv_title = ip_title.
|
|
ELSE.
|
|
* lv_title = me->guid. " del issue #154 - Names of worksheets
|
|
lv_title = me->generate_title( ). " ins issue #154 - Names of worksheets
|
|
ENDIF.
|
|
|
|
me->set_title( ip_title = lv_title ).
|
|
|
|
CREATE OBJECT sheet_setup.
|
|
CREATE OBJECT conditional_styles.
|
|
CREATE OBJECT data_validations.
|
|
CREATE OBJECT tables.
|
|
CREATE OBJECT ranges. " issue #163
|
|
CREATE OBJECT mo_pagebreaks.
|
|
CREATE OBJECT drawings
|
|
EXPORTING
|
|
ip_type = zcl_excel_drawing=>type_image.
|
|
CREATE OBJECT charts
|
|
EXPORTING
|
|
ip_type = zcl_excel_drawing=>type_chart.
|
|
me->zif_excel_sheet_protection~initialize( ).
|
|
me->zif_excel_sheet_properties~initialize( ).
|
|
CREATE OBJECT hyperlinks.
|
|
|
|
* initialize active cell coordinates
|
|
active_cell-cell_row = 1.
|
|
active_cell-cell_column = 1.
|
|
|
|
* inizialize dimension range
|
|
lower_cell-cell_row = 1.
|
|
lower_cell-cell_column = 1.
|
|
upper_cell-cell_row = 1.
|
|
upper_cell-cell_column = 1.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_MERGE" VERSION="1" LANGU="E" DESCRIPT="Delete the used merges" EXPOSURE="2" STATE="1" EDITORDER="11 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_MERGE" SCONAME="IP_CELL_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_MERGE" SCONAME="IP_CELL_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" PAROPTIONL="X"/>
|
|
<source>METHOD delete_merge.
|
|
|
|
FIELD-SYMBOLS: <ls_merged_cell> LIKE LINE OF me->mt_merged_cells.
|
|
DATA: is_merged TYPE abap_bool.
|
|
*--------------------------------------------------------------------*
|
|
* If cell information is passed delete merge including this cell,
|
|
* otherwise delete all merges
|
|
*--------------------------------------------------------------------*
|
|
IF ip_cell_column IS INITIAL
|
|
OR ip_cell_row IS INITIAL.
|
|
CLEAR me->mt_merged_cells.
|
|
ELSE.
|
|
LOOP AT me->mt_merged_cells ASSIGNING <ls_merged_cell>.
|
|
|
|
is_merged = me->is_cell_merged( ip_column = ip_cell_column
|
|
ip_row = ip_cell_row ).
|
|
IF is_merged = abap_true.
|
|
DELETE me->mt_merged_cells. " Delete this merge, that includes this cell
|
|
EXIT.
|
|
ENDIF.
|
|
|
|
ENDLOOP.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_ROW_OUTLINE" VERSION="1" LANGU="E" DESCRIPT="Delete an outline for rows" EXPOSURE="2" STATE="1" EDITORDER="12 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_ROW_OUTLINE" SCONAME="IV_ROW_FROM" VERSION="1" LANGU="E" DESCRIPT="Start-row of outline" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_ROW_OUTLINE" SCONAME="IV_ROW_TO" VERSION="1" LANGU="E" DESCRIPT="End-row of outline" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="DELETE_ROW_OUTLINE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD delete_row_outline.
|
|
|
|
DELETE me->mt_row_outlines WHERE row_from = iv_row_from
|
|
AND row_to = iv_row_to.
|
|
IF sy-subrc <> 0. " didn't find outline that was to be deleted
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Row outline to be deleted does not exist'.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANES" VERSION="1" LANGU="E" DESCRIPT="Freeze panes for supplied number of rows and/or columns" EXPOSURE="2" STATE="1" EDITORDER="13 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANES" SCONAME="IP_NUM_COLUMNS" VERSION="1" LANGU="E" DESCRIPT="Number of columns to freeze (starting from left-most)" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANES" SCONAME="IP_NUM_ROWS" VERSION="1" LANGU="E" DESCRIPT="Number of rows to freeze (starting from top-most)" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="FREEZE_PANES" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method FREEZE_PANES.
|
|
data: lv_xsplit type i,
|
|
lv_ysplit type i.
|
|
|
|
IF ip_num_columns IS NOT SUPPLIED AND ip_num_rows IS NOT SUPPLIED.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Pleas provide number of rows and/or columns to freeze'.
|
|
ENDIF.
|
|
|
|
IF ip_num_columns IS SUPPLIED AND ip_num_columns <= 0.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Number of columns to freeze should be positive'.
|
|
ENDIF.
|
|
|
|
IF ip_num_rows IS SUPPLIED AND ip_num_rows <= 0.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Number of rows to freeze should be positive'.
|
|
ENDIF.
|
|
|
|
freeze_pane_cell_column = ip_num_columns + 1.
|
|
freeze_pane_cell_row = ip_num_rows + 1.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GENERATE_TITLE" VERSION="1" LANGU="E" DESCRIPT="Generate title for worksheet (called if none is supplied )" EXPOSURE="0" STATE="1" EDITORDER="60 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GENERATE_TITLE" SCONAME="EP_TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE"/>
|
|
<source>method GENERATE_TITLE.
|
|
DATA: lo_worksheets_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
errormessage TYPE string.
|
|
|
|
DATA: t_titles TYPE HASHED TABLE OF zexcel_sheet_title WITH UNIQUE KEY table_line,
|
|
title TYPE zexcel_sheet_title,
|
|
sheetnumber TYPE i.
|
|
|
|
* Get list of currently used titles
|
|
lo_worksheets_iterator = me->excel->get_worksheets_iterator( ).
|
|
WHILE lo_worksheets_iterator->has_next( ) = abap_true.
|
|
lo_worksheet ?= lo_worksheets_iterator->get_next( ).
|
|
title = lo_worksheet->get_title( ).
|
|
INSERT title INTO TABLE t_titles.
|
|
ADD 1 TO sheetnumber.
|
|
ENDWHILE.
|
|
|
|
* Now build sheetnumber. Increase counter until we hit a number that is not used so far
|
|
ADD 1 TO sheetnumber. " Start counting with next number
|
|
DO.
|
|
title = sheetnumber.
|
|
SHIFT title LEFT DELETING LEADING space.
|
|
CONCATENATE 'Sheet'(001) title INTO ep_title.
|
|
INSERT ep_title INTO TABLE t_titles.
|
|
IF sy-subrc = 0. " Title not used so far --> take it
|
|
EXIT.
|
|
ENDIF.
|
|
|
|
ADD 1 TO sheetnumber.
|
|
ENDDO.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ACTIVE_CELL" VERSION="1" LANGU="E" DESCRIPT="Get used range dimension" EXPOSURE="2" STATE="1" EDITORDER="14 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ACTIVE_CELL" SCONAME="EP_ACTIVE_CELL" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ACTIVE_CELL" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_ACTIVE_CELL.
|
|
|
|
DATA: lv_active_column TYPE zexcel_cell_column_alpha,
|
|
lv_active_row TYPE string.
|
|
|
|
lv_active_column = zcl_excel_common=>convert_column2alpha( active_cell-cell_column ).
|
|
lv_active_row = active_cell-cell_row.
|
|
SHIFT lv_active_row RIGHT DELETING TRAILING space.
|
|
SHIFT lv_active_row LEFT DELETING LEADING space.
|
|
CONCATENATE lv_active_column lv_active_row INTO ep_active_cell.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" VERSION="1" LANGU="E" DESCRIPT="Get cell value" EXPOSURE="2" STATE="1" EDITORDER="15 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" 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="GET_CELL" 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="GET_CELL" SCONAME="EP_VALUE" VERSION="1" LANGU="E" DESCRIPT="Cell Value" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_VALUE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" SCONAME="EP_RC" VERSION="1" LANGU="E" DESCRIPT="Return Value of ABAP Statements" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="SYSUBRC"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" SCONAME="EP_STYLE" VERSION="1" LANGU="E" DESCRIPT="Style" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_STYLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" SCONAME="EP_GUID" VERSION="1" LANGU="E" DESCRIPT="Style identifier" CMPTYPE="1" MTDTYPE="0" EDITORDER="6 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_CELL" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_CELL.
|
|
|
|
DATA: lv_column TYPE zexcel_cell_column,
|
|
ls_sheet_content TYPE zexcel_s_cell_data.
|
|
|
|
FIELD-SYMBOLS: <fs_sheet_content> TYPE zexcel_s_cell_data.
|
|
|
|
lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
|
|
READ TABLE sheet_content INTO ls_sheet_content WITH TABLE KEY cell_row = ip_row
|
|
cell_column = lv_column.
|
|
|
|
ep_rc = sy-subrc.
|
|
ep_value = ls_sheet_content-cell_value.
|
|
ep_guid = ls_sheet_content-cell_style. " issue 139 - added this to be used for columnwidth calculation
|
|
|
|
" Addition to solve issue #120, contribution by Stefan Schm#ÃâÃâÃâÃâÃâÃâ ÃâÃâÃâÃâÃâÃÆÃÆâÃâÃâ¬ÃâÃÅ¡#cker
|
|
DATA: style_iterator TYPE REF TO cl_object_collection_iterator,
|
|
style TYPE REF TO zcl_excel_style.
|
|
IF ep_style IS REQUESTED.
|
|
style_iterator = me->excel->get_styles_iterator( ).
|
|
WHILE style_iterator->has_next( ) = 'X'.
|
|
style ?= style_iterator->get_next( ).
|
|
IF style->get_guid( ) = ls_sheet_content-cell_style.
|
|
ep_style = style.
|
|
EXIT.
|
|
ENDIF.
|
|
ENDWHILE.
|
|
ENDIF.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Get column dimension at a specific column" EXPOSURE="2" STATE="1" EDITORDER="16 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COLUMN_DIMENSION" 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="GET_COLUMN_DIMENSION" SCONAME="R_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet ColumnDimension" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_COLUMNDIME"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COLUMN_DIMENSION" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_COLUMN_DIMENSION.
|
|
FIELD-SYMBOLS: <fs_column_dimension> LIKE LINE OF column_dimensions.
|
|
DATA: lv_column_alpha TYPE zexcel_cell_column_alpha. " issue #155 - less restrictive typing for ip_column
|
|
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( ip_column )." issue #155 - less restrictive typing for ip_column
|
|
READ TABLE me->column_dimensions ASSIGNING <fs_column_dimension>
|
|
WITH KEY column = lv_column_alpha. " issue #155 - less restrictive typing for ip_column
|
|
|
|
IF NOT <fs_column_dimension> IS ASSIGNED.
|
|
CREATE OBJECT r_column_dimension
|
|
EXPORTING
|
|
ip_index = lv_column_alpha " issue #155 - less restrictive typing for ip_column
|
|
ip_excel = me->excel " issue #157 - Allow style for columns
|
|
ip_worksheet = me. " issue #157 - Allow style for columns
|
|
APPEND INITIAL LINE TO me->column_dimensions ASSIGNING <fs_column_dimension>.
|
|
<fs_column_dimension>-column = lv_column_alpha. " issue #155 - less restrictive typing for ip_column
|
|
<fs_column_dimension>-column_dimension = r_column_dimension.
|
|
ELSE.
|
|
r_column_dimension = <fs_column_dimension>-column_dimension.
|
|
ENDIF.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COLUMN_DIMENSIONS" VERSION="1" LANGU="E" DESCRIPT="Get column dimensions" EXPOSURE="2" STATE="1" EDITORDER="17 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COLUMN_DIMENSIONS" SCONAME="R_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Collection of column dimensions" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_T_WORKSHEET_COLUMNDIME"/>
|
|
<source>method GET_COLUMN_DIMENSIONS.
|
|
r_column_dimension[] = me->column_dimensions[].
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COND_STYLES_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get conditional styles iterator" EXPOSURE="2" STATE="1" EDITORDER="18 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_COND_STYLES_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_COND_STYLES_ITERATOR.
|
|
|
|
eo_iterator = me->conditional_styles->get_iterator( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DATA_VALIDATIONS_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get conditional styles iterator" EXPOSURE="2" STATE="1" EDITORDER="19 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DATA_VALIDATIONS_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_DATA_VALIDATIONS_ITERATOR.
|
|
|
|
eo_iterator = me->data_validations->get_iterator( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DATA_VALIDATIONS_SIZE" VERSION="1" LANGU="E" DESCRIPT="Get the number of data validation objects" EXPOSURE="2" STATE="1" EDITORDER="20 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DATA_VALIDATIONS_SIZE" SCONAME="EP_SIZE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="I"/>
|
|
<source>method GET_DATA_VALIDATIONS_SIZE.
|
|
ep_size = me->data_validations->size( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Get column dimension at a specific column" EXPOSURE="2" STATE="1" EDITORDER="21 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_COLUMN_DIMENSION" SCONAME="R_COLUMN_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet ColumnDimension" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_COLUMNDIME"/>
|
|
<source>method GET_DEFAULT_COLUMN_DIMENSION.
|
|
IF me->default_column_dimension IS NOT BOUND.
|
|
CREATE OBJECT me->default_column_dimension
|
|
EXPORTING
|
|
ip_index = 'A' " ????
|
|
ip_worksheet = me
|
|
ip_excel = me->excel.
|
|
ENDIF.
|
|
|
|
r_column_dimension = me->default_column_dimension.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_EXCEL_DATE_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Gets default date format" EXPOSURE="2" STATE="1" EDITORDER="22 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_EXCEL_DATE_FORMAT" SCONAME="EP_DEFAULT_EXCEL_DATE_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Default date format" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT"/>
|
|
<source>method GET_DEFAULT_EXCEL_DATE_FORMAT.
|
|
CONSTANTS: c_lang_e TYPE lang VALUE 'E'.
|
|
|
|
IF default_excel_date_format IS NOT INITIAL.
|
|
ep_default_excel_date_format = default_excel_date_format.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
"try to get defaults
|
|
TRY.
|
|
cl_abap_datfm=>get_date_format_des( EXPORTING im_langu = c_lang_e
|
|
IMPORTING ex_dateformat = default_excel_date_format ).
|
|
CATCH cx_abap_datfm_format_unknown.
|
|
|
|
ENDTRY.
|
|
|
|
" and fallback to fixed format
|
|
IF default_excel_date_format IS INITIAL.
|
|
default_excel_date_format = zcl_excel_style_number_format=>c_format_date_ddmmyyyydot.
|
|
ENDIF.
|
|
|
|
ep_default_excel_date_format = default_excel_date_format.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_EXCEL_TIME_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Gets default time format" EXPOSURE="2" STATE="1" EDITORDER="23 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_EXCEL_TIME_FORMAT" SCONAME="EP_DEFAULT_EXCEL_TIME_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Default date format" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT"/>
|
|
<source>method GET_DEFAULT_EXCEL_TIME_FORMAT.
|
|
DATA: l_timefm TYPE xutimefm.
|
|
|
|
IF default_excel_time_format IS NOT INITIAL.
|
|
ep_default_excel_time_format = default_excel_time_format.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
* Let's get default
|
|
l_timefm = cl_abap_timefm=>get_environment_timefm( ).
|
|
CASE l_timefm.
|
|
WHEN 0.
|
|
*0 24 Hour Format (Example: 12:05:10)
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time6.
|
|
WHEN 1.
|
|
*1 12 Hour Format (Example: 12:05:10 PM)
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time2.
|
|
WHEN 2.
|
|
*2 12 Hour Format (Example: 12:05:10 pm) for now all the same. no chnage upper lower
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time2.
|
|
WHEN 3.
|
|
*3 Hours from 0 to 11 (Example: 00:05:10 PM) for now all the same. no chnage upper lower
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time2.
|
|
WHEN 4.
|
|
*4 Hours from 0 to 11 (Example: 00:05:10 pm) for now all the same. no chnage upper lower
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time2.
|
|
WHEN OTHERS.
|
|
" and fallback to fixed format
|
|
default_excel_time_format = zcl_excel_style_number_format=>c_format_date_time6.
|
|
ENDCASE.
|
|
|
|
ep_default_excel_time_format = default_excel_time_format.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Get column dimension at a specific column" EXPOSURE="2" STATE="1" EDITORDER="24 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DEFAULT_ROW_DIMENSION" SCONAME="R_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet ColumnDimension" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_ROWDIMENSI"/>
|
|
<source>method GET_DEFAULT_ROW_DIMENSION.
|
|
IF me->default_row_dimension IS NOT BOUND.
|
|
CREATE OBJECT me->default_row_dimension.
|
|
ENDIF.
|
|
|
|
r_row_dimension = me->default_row_dimension.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DIMENSION_RANGE" VERSION="1" LANGU="E" DESCRIPT="Get used range dimension" EXPOSURE="2" STATE="1" EDITORDER="25 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DIMENSION_RANGE" SCONAME="EP_DIMENSION_RANGE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DIMENSION_RANGE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_DIMENSION_RANGE.
|
|
|
|
me->update_dimension_range( ).
|
|
IF upper_cell EQ lower_cell. "only one cell
|
|
" Worksheet not filled
|
|
* IF upper_cell-cell_coords = '0'.
|
|
IF upper_cell-cell_coords IS INITIAL.
|
|
ep_dimension_range = 'A1'.
|
|
ELSE.
|
|
ep_dimension_range = upper_cell-cell_coords.
|
|
ENDIF.
|
|
ELSE.
|
|
CONCATENATE upper_cell-cell_coords ':' lower_cell-cell_coords INTO ep_dimension_range.
|
|
ENDIF.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS" VERSION="1" LANGU="E" DESCRIPT="Gets drawing attached to the sheet" EXPOSURE="2" STATE="1" EDITORDER="26 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS" SCONAME="IP_TYPE" VERSION="1" LANGU="E" DESCRIPT="Excel Drawing type" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_DRAWING_TYPE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS" SCONAME="R_DRAWINGS" VERSION="1" LANGU="E" DESCRIPT="Drawings collection" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_DRAWINGS"/>
|
|
<source>method GET_DRAWINGS.
|
|
|
|
DATA: lo_drawing TYPE REF TO zcl_excel_drawing,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator.
|
|
|
|
CASE ip_type.
|
|
WHEN zcl_excel_drawing=>type_image.
|
|
r_drawings = drawings.
|
|
WHEN zcl_excel_drawing=>type_chart.
|
|
r_drawings = charts.
|
|
WHEN space.
|
|
CREATE OBJECT r_drawings
|
|
EXPORTING
|
|
ip_type = ''.
|
|
|
|
lo_iterator = drawings->get_iterator( ).
|
|
WHILE lo_iterator->has_next( ) = abap_true.
|
|
lo_drawing ?= lo_iterator->get_next( ).
|
|
r_drawings->include( lo_drawing ).
|
|
ENDWHILE.
|
|
lo_iterator = charts->get_iterator( ).
|
|
WHILE lo_iterator->has_next( ) = abap_true.
|
|
lo_drawing ?= lo_iterator->get_next( ).
|
|
r_drawings->include( lo_drawing ).
|
|
ENDWHILE.
|
|
WHEN OTHERS.
|
|
ENDCASE.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get iterator for drawings collection" EXPOSURE="2" STATE="1" EDITORDER="27 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS_ITERATOR" SCONAME="IP_TYPE" VERSION="1" LANGU="E" DESCRIPT="Excel Drawing type" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_DRAWING_TYPE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_DRAWINGS_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_DRAWINGS_ITERATOR.
|
|
CASE ip_type.
|
|
WHEN zcl_excel_drawing=>type_image.
|
|
eo_iterator = drawings->get_iterator( ).
|
|
WHEN zcl_excel_drawing=>type_chart.
|
|
eo_iterator = charts->get_iterator( ).
|
|
ENDCASE.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_FREEZE_CELL" VERSION="1" LANGU="E" DESCRIPT="Gets the coordinates of cell determining freeze panes" EXPOSURE="2" STATE="1" EDITORDER="28 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_FREEZE_CELL" SCONAME="EP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_FREEZE_CELL" SCONAME="EP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN"/>
|
|
<source>method GET_FREEZE_CELL.
|
|
ep_row = me->freeze_pane_cell_row.
|
|
ep_column = me->freeze_pane_cell_column.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_GUID" VERSION="1" LANGU="E" DESCRIPT="Get sheet guid" EXPOSURE="2" STATE="1" EDITORDER="29 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_GUID" SCONAME="EP_GUID" VERSION="1" LANGU="E" DESCRIPT="GUID in 'RAW' format" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="UUID"/>
|
|
<source>METHOD get_guid.
|
|
|
|
ep_guid = me->guid.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_COLUMN" VERSION="1" LANGU="E" EXPOSURE="2" STATE="1" EDITORDER="30 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_COLUMN" SCONAME="R_HIGHEST_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_COLUMN" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_HIGHEST_COLUMN.
|
|
me->update_dimension_range( ).
|
|
r_highest_column = me->lower_cell-cell_column.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_ROW" VERSION="1" LANGU="E" EXPOSURE="2" STATE="1" EDITORDER="31 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_ROW" SCONAME="R_HIGHEST_ROW" VERSION="1" LANGU="E" DESCRIPT="Natural number" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="INT4"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HIGHEST_ROW" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD get_highest_row.
|
|
me->update_dimension_range( ).
|
|
r_highest_row = me->lower_cell-cell_row.
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HYPERLINKS_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get iterator for links collection" EXPOSURE="2" STATE="1" EDITORDER="32 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HYPERLINKS_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_HYPERLINKS_ITERATOR.
|
|
eo_iterator = hyperlinks->get_iterator( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HYPERLINKS_SIZE" VERSION="1" LANGU="E" DESCRIPT="Gets the size of links collection" EXPOSURE="2" STATE="1" EDITORDER="33 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_HYPERLINKS_SIZE" SCONAME="EP_SIZE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="I"/>
|
|
<source>method GET_HYPERLINKS_SIZE.
|
|
ep_size = hyperlinks->size( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_MERGE" VERSION="1" LANGU="E" DESCRIPT="Get the merge range" EXPOSURE="2" STATE="1" EDITORDER="34 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_MERGE" SCONAME="MERGE_RANGE" VERSION="1" LANGU="E" DESCRIPT="Table of Strings" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING_TABLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_MERGE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD get_merge.
|
|
|
|
FIELD-SYMBOLS: <ls_merged_cell> LIKE LINE OF me->mt_merged_cells.
|
|
|
|
DATA: lv_col_from TYPE string,
|
|
lv_col_to TYPE string,
|
|
lv_row_from TYPE string,
|
|
lv_row_to TYPE string,
|
|
lv_merge_range TYPE string.
|
|
|
|
LOOP AT me->mt_merged_cells ASSIGNING <ls_merged_cell>.
|
|
|
|
lv_col_from = zcl_excel_common=>convert_column2alpha( <ls_merged_cell>-col_from ).
|
|
lv_col_to = zcl_excel_common=>convert_column2alpha( <ls_merged_cell>-col_to ).
|
|
lv_row_from = <ls_merged_cell>-row_from.
|
|
lv_row_to = <ls_merged_cell>-row_to .
|
|
CONCATENATE lv_col_from lv_row_from ':' lv_col_to lv_row_to
|
|
INTO lv_merge_range.
|
|
CONDENSE lv_merge_range NO-GAPS.
|
|
APPEND lv_merge_range TO merge_range.
|
|
|
|
ENDLOOP.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_PAGEBREAKS" VERSION="1" LANGU="E" DESCRIPT="Add pagebreak" EXPOSURE="2" STATE="1" EDITORDER="35 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_PAGEBREAKS" SCONAME="RO_PAGEBREAKS" VERSION="1" LANGU="E" DESCRIPT="Pagebreaks" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_PAGEBREAKS"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_PAGEBREAKS" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method GET_PAGEBREAKS.
|
|
ro_pagebreaks = mo_pagebreaks.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_RANGES_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get ranges iterator" EXPOSURE="2" STATE="1" EDITORDER="36 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_RANGES_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_RANGES_ITERATOR.
|
|
|
|
eo_iterator = me->ranges->get_iterator( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Get row dimension at a specific row" EXPOSURE="2" STATE="1" EDITORDER="37 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_DIMENSION" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="INT4"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_DIMENSION" SCONAME="R_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Worksheet ColumnDimension" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET_ROWDIMENSI"/>
|
|
<source>METHOD GET_ROW_DIMENSION.
|
|
|
|
FIELD-SYMBOLS: <ls_row_dimension> LIKE LINE OF me->row_dimensions.
|
|
|
|
DATA: ls_row_dimension LIKE LINE OF me->row_dimensions.
|
|
|
|
READ TABLE me->row_dimensions ASSIGNING <ls_row_dimension>
|
|
WITH TABLE KEY row = ip_row.
|
|
|
|
IF NOT <ls_row_dimension> IS ASSIGNED.
|
|
CREATE OBJECT r_row_dimension
|
|
EXPORTING
|
|
ip_index = ip_row.
|
|
ls_row_dimension-row = ip_row.
|
|
ls_row_dimension-row_dimension = r_row_dimension.
|
|
INSERT ls_row_dimension INTO TABLE me->row_dimensions.
|
|
ELSE.
|
|
r_row_dimension = <ls_row_dimension>-row_dimension.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_DIMENSIONS" VERSION="1" LANGU="E" DESCRIPT="Get row dimensions" EXPOSURE="2" STATE="1" EDITORDER="38 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_DIMENSIONS" SCONAME="R_ROW_DIMENSION" VERSION="1" LANGU="E" DESCRIPT="Collection of column dimensions" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_T_WORKSHEET_ROWDIMENSIO"/>
|
|
<source>METHOD get_row_dimensions.
|
|
|
|
r_row_dimension[] = me->row_dimensions[].
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_OUTLINES" VERSION="1" LANGU="E" DESCRIPT="Get all outlines for rows" EXPOSURE="2" STATE="1" EDITORDER="39 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_ROW_OUTLINES" SCONAME="RT_ROW_OUTLINES" VERSION="1" LANGU="E" DESCRIPT="All row outlines ( sorted table )" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="MTY_TS_OUTLINES_ROW"/>
|
|
<source>METHOD get_row_outlines.
|
|
|
|
rt_row_outlines = me->mt_row_outlines.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABCOLOR" VERSION="1" LANGU="E" DESCRIPT="get tabcolor" EXPOSURE="2" STATE="1" EDITORDER="40 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABCOLOR" SCONAME="EV_TABCOLOR" VERSION="1" LANGU="E" DESCRIPT="Color ARGB" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_S_TABCOLOR"/>
|
|
<source>method GET_TABCOLOR.
|
|
ev_tabcolor = me->tabcolor.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABLES_ITERATOR" VERSION="1" LANGU="E" DESCRIPT="Get iterator for tables collection" EXPOSURE="2" STATE="1" EDITORDER="41 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABLES_ITERATOR" SCONAME="EO_ITERATOR" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="3" TYPE="CL_OBJECT_COLLECTION_ITERATOR"/>
|
|
<source>method GET_TABLES_ITERATOR.
|
|
eo_iterator = tables->if_object_collection~get_iterator( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABLES_SIZE" VERSION="1" LANGU="E" DESCRIPT="Gets the size of tables collection" EXPOSURE="2" STATE="1" EDITORDER="42 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TABLES_SIZE" SCONAME="EP_SIZE" VERSION="1" LANGU="E" DESCRIPT="Size" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="I"/>
|
|
<source>method GET_TABLES_SIZE.
|
|
ep_size = tables->if_object_collection~size( ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TITLE" VERSION="1" LANGU="E" DESCRIPT="Get WorkSheet Title" EXPOSURE="2" STATE="1" EDITORDER="43 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TITLE" SCONAME="IP_ESCAPED" VERSION="1" LANGU="E" DESCRIPT="Return escaped?" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PARVALUE="''"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_TITLE" SCONAME="EP_TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE"/>
|
|
<source>method GET_TITLE.
|
|
DATA lv_value TYPE string.
|
|
IF ip_escaped EQ abap_true.
|
|
lv_value = me->title.
|
|
ep_title = zcl_excel_common=>escape_string( lv_value ).
|
|
ELSE.
|
|
ep_title = me->title.
|
|
ENDIF.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_VALUE_TYPE" VERSION="1" LANGU="E" DESCRIPT="Get abap type kind and apply conversion routine" EXPOSURE="0" STATE="1" EDITORDER="61 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_VALUE_TYPE" SCONAME="IP_VALUE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_VALUE_TYPE" SCONAME="EP_VALUE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="GET_VALUE_TYPE" SCONAME="EP_VALUE_TYPE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="1" PARPASSTYP="1" TYPTYPE="1" TYPE="ABAP_TYPEKIND"/>
|
|
<source>METHOD get_value_type.
|
|
DATA: lo_addit TYPE REF TO cl_abap_elemdescr,
|
|
ls_dfies TYPE dfies,
|
|
l_function TYPE funcname,
|
|
l_value(50) TYPE c.
|
|
|
|
ep_value = ip_value.
|
|
ep_value_type = cl_abap_typedescr=>typekind_string. " Thats our default if something goes wrong.
|
|
|
|
TRY.
|
|
lo_addit ?= cl_abap_typedescr=>describe_by_data( ip_value ).
|
|
CATCH cx_sy_move_cast_error.
|
|
CLEAR lo_addit.
|
|
ENDTRY.
|
|
IF lo_addit IS BOUND.
|
|
lo_addit->get_ddic_field( RECEIVING p_flddescr = ls_dfies
|
|
EXCEPTIONS not_found = 1
|
|
no_ddic_type = 2
|
|
OTHERS = 3 ) .
|
|
IF sy-subrc = 0.
|
|
ep_value_type = ls_dfies-inttype.
|
|
|
|
IF ls_dfies-convexit IS NOT INITIAL.
|
|
* We need to convert with output conversion function
|
|
CONCATENATE 'CONVERSION_EXIT_' ls_dfies-convexit '_OUTPUT' INTO l_function.
|
|
SELECT SINGLE funcname INTO l_function
|
|
FROM tfdir
|
|
WHERE funcname = l_function.
|
|
IF sy-subrc = 0.
|
|
CALL FUNCTION l_function
|
|
EXPORTING
|
|
input = ip_value
|
|
IMPORTING
|
|
* LONG_TEXT =
|
|
output = l_value
|
|
* SHORT_TEXT =
|
|
EXCEPTIONS
|
|
OTHERS = 1.
|
|
IF sy-subrc <> 0.
|
|
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
|
|
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
|
|
ELSE.
|
|
TRY.
|
|
ep_value = l_value.
|
|
CATCH cx_root.
|
|
ep_value = ip_value.
|
|
ENDTRY.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ELSE.
|
|
ep_value_type = lo_addit->get_data_type_kind( ip_value ).
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" VERSION="1" LANGU="E" DESCRIPT="Checks if a cell is merged" EXPOSURE="2" STATE="1" EDITORDER="44 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" 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="IS_CELL_MERGED" SCONAME="RP_IS_MERGED" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ABAP_BOOL"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD is_cell_merged.
|
|
|
|
DATA: lv_column TYPE i.
|
|
|
|
FIELD-SYMBOLS: <ls_merged_cell> LIKE LINE OF me->mt_merged_cells.
|
|
|
|
lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
|
|
rp_is_merged = abap_false. " Assume not in merged area
|
|
|
|
LOOP AT me->mt_merged_cells ASSIGNING <ls_merged_cell>.
|
|
|
|
IF <ls_merged_cell>-col_from <= lv_column
|
|
AND <ls_merged_cell>-col_to >= lv_column
|
|
AND <ls_merged_cell>-row_from <= ip_row
|
|
AND <ls_merged_cell>-row_to >= ip_row.
|
|
rp_is_merged = abap_true. " until we are proven different
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
ENDLOOP.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_SET_RANGE" VERSION="1" LANGU="E" DESCRIPT="Update range for print title" EXPOSURE="0" STATE="1" EDITORDER="62 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<source>method PRINT_TITLE_SET_RANGE.
|
|
*--------------------------------------------------------------------*
|
|
* issue#235 - repeat rows/columns
|
|
* - Stefan Schmoecker, 2012-12-02
|
|
*--------------------------------------------------------------------*
|
|
|
|
|
|
DATA: lo_range_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_range TYPE REF TO zcl_excel_range,
|
|
lv_repeat_range_sheetname TYPE string,
|
|
lv_repeat_range_col TYPE string,
|
|
lv_row_char_from TYPE char10,
|
|
lv_row_char_to TYPE char10,
|
|
lv_repeat_range_row TYPE string,
|
|
lv_repeat_range TYPE string.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Get range that represents printarea
|
|
* if non-existant, create it
|
|
*--------------------------------------------------------------------*
|
|
lo_range_iterator = me->get_ranges_iterator( ).
|
|
WHILE lo_range_iterator->has_next( ) = abap_true.
|
|
|
|
lo_range ?= lo_range_iterator->get_next( ).
|
|
IF lo_range->name = zif_excel_sheet_printsettings=>gcv_print_title_name.
|
|
EXIT. " Found it
|
|
ENDIF.
|
|
CLEAR lo_range.
|
|
|
|
ENDWHILE.
|
|
|
|
|
|
IF me->print_title_col_from IS INITIAL AND
|
|
me->print_title_row_from IS INITIAL.
|
|
*--------------------------------------------------------------------*
|
|
* No print titles are present,
|
|
*--------------------------------------------------------------------*
|
|
IF lo_range IS BOUND.
|
|
me->ranges->remove( lo_range ).
|
|
ENDIF.
|
|
ELSE.
|
|
*--------------------------------------------------------------------*
|
|
* Print titles are present,
|
|
*--------------------------------------------------------------------*
|
|
IF lo_range IS NOT BOUND.
|
|
lo_range = me->add_new_range( ).
|
|
lo_range->name = zif_excel_sheet_printsettings=>gcv_print_title_name.
|
|
ENDIF.
|
|
|
|
lv_repeat_range_sheetname = me->get_title( ).
|
|
lv_repeat_range_sheetname = zcl_excel_common=>escape_string( lv_repeat_range_sheetname ).
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Repeat-columns
|
|
*--------------------------------------------------------------------*
|
|
IF me->print_title_col_from IS NOT INITIAL.
|
|
CONCATENATE lv_repeat_range_sheetname
|
|
'!$' me->print_title_col_from
|
|
':$' me->print_title_col_to
|
|
INTO lv_repeat_range_col.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Repeat-rows
|
|
*--------------------------------------------------------------------*
|
|
IF me->print_title_row_from IS NOT INITIAL.
|
|
lv_row_char_from = me->print_title_row_from.
|
|
lv_row_char_to = me->print_title_row_to.
|
|
CONCATENATE '!$' lv_row_char_from
|
|
':$' lv_row_char_to
|
|
INTO lv_repeat_range_row.
|
|
CONDENSE lv_repeat_range_row NO-GAPS.
|
|
CONCATENATE lv_repeat_range_sheetname
|
|
lv_repeat_range_row
|
|
INTO lv_repeat_range_row.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Concatenate repeat-rows and columns
|
|
*--------------------------------------------------------------------*
|
|
IF lv_repeat_range_col IS INITIAL.
|
|
lv_repeat_range = lv_repeat_range_row.
|
|
ELSEIF lv_repeat_range_row IS INITIAL.
|
|
lv_repeat_range = lv_repeat_range_col.
|
|
ELSE.
|
|
CONCATENATE lv_repeat_range_col lv_repeat_range_row
|
|
INTO lv_repeat_range SEPARATED BY ','.
|
|
ENDIF.
|
|
|
|
|
|
lo_range->set_range_value( lv_repeat_range ).
|
|
ENDIF.
|
|
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" VERSION="1" LANGU="E" DESCRIPT="Set cell value" EXPOSURE="2" STATE="1" EDITORDER="45 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" 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" 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" SCONAME="IP_VALUE" VERSION="1" LANGU="E" DESCRIPT="Cell Value" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="IP_FORMULA" VERSION="1" LANGU="E" DESCRIPT="Cell Formula" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_FORMULA" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="IP_STYLE" VERSION="1" LANGU="E" DESCRIPT="Single-Character Indicator" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="IP_HYPERLINK" VERSION="1" LANGU="E" DESCRIPT="Hyperlink" CMPTYPE="1" MTDTYPE="0" EDITORDER="6 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_HYPERLINK" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="IP_DATA_TYPE" VERSION="1" LANGU="E" DESCRIPT="Cell data type" CMPTYPE="1" MTDTYPE="0" EDITORDER="7 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_DATA_TYPE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="IP_ABAP_TYPE" VERSION="1" LANGU="E" DESCRIPT="ABAP data type" CMPTYPE="1" MTDTYPE="0" EDITORDER="8 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ABAP_TYPEKIND" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_CELL.
|
|
|
|
DATA: lv_column TYPE zexcel_cell_column,
|
|
ls_sheet_content TYPE zexcel_s_cell_data,
|
|
lv_row_alpha TYPE string,
|
|
lv_col_alpha TYPE zexcel_cell_column_alpha,
|
|
lv_value TYPE zexcel_cell_value,
|
|
lv_data_type TYPE zexcel_cell_data_type,
|
|
lv_value_type TYPE abap_typekind,
|
|
lo_style TYPE REF TO zcl_excel_style,
|
|
lv_style_guid TYPE zexcel_cell_style,
|
|
lo_addit TYPE REF TO cl_abap_elemdescr,
|
|
lo_value TYPE REF TO data,
|
|
lo_value_new TYPE REF TO data.
|
|
|
|
FIELD-SYMBOLS: <fs_sheet_content> TYPE zexcel_s_cell_data,
|
|
<fs_numeric> TYPE numeric,
|
|
<fs_date> TYPE d,
|
|
<fs_time> TYPE t,
|
|
<fs_value> TYPE simple.
|
|
|
|
IF ip_value IS NOT SUPPLIED AND ip_formula IS NOT SUPPLIED.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Please provide the value or formula'.
|
|
ENDIF.
|
|
|
|
* Begin of change issue #152 - don't touch exisiting style if only value is passed
|
|
* lv_style_guid = ip_style.
|
|
lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
READ TABLE sheet_content ASSIGNING <fs_sheet_content> WITH TABLE KEY cell_row = ip_row " Changed to access via table key , Stefan Schmöcker, 2013-08-03
|
|
cell_column = lv_column.
|
|
IF sy-subrc = 0.
|
|
IF ip_style IS INITIAL.
|
|
" If no style is provided as method-parameter and cell is found use cell's current style
|
|
lv_style_guid = <fs_sheet_content>-cell_style.
|
|
ELSE.
|
|
" Style provided as method-parameter --> use this
|
|
lv_style_guid = ip_style.
|
|
ENDIF.
|
|
ELSE.
|
|
" No cell found --> use supplied style even if empty
|
|
lv_style_guid = ip_style.
|
|
ENDIF.
|
|
* End of change issue #152 - don't touch exisiting style if only value is passed
|
|
|
|
IF ip_value IS SUPPLIED.
|
|
"if data type is passed just write the value. Otherwise map abap type to excel and perform conversion
|
|
"IP_DATA_TYPE is passed by excel reader so source types are preserved
|
|
*First we get reference into local var.
|
|
CREATE DATA lo_value LIKE ip_value.
|
|
ASSIGN lo_value->* TO <fs_value>.
|
|
<fs_value> = ip_value.
|
|
IF ip_data_type IS SUPPLIED.
|
|
IF ip_abap_type IS NOT SUPPLIED.
|
|
get_value_type( EXPORTING ip_value = ip_value
|
|
IMPORTING ep_value = <fs_value> ) .
|
|
ENDIF.
|
|
lv_value = <fs_value>.
|
|
lv_data_type = ip_data_type.
|
|
ELSE.
|
|
IF ip_abap_type IS SUPPLIED.
|
|
lv_value_type = ip_abap_type.
|
|
ELSE.
|
|
get_value_type( EXPORTING ip_value = ip_value
|
|
IMPORTING ep_value = <fs_value>
|
|
ep_value_type = lv_value_type ).
|
|
ENDIF.
|
|
CASE lv_value_type.
|
|
WHEN cl_abap_typedescr=>typekind_int OR cl_abap_typedescr=>typekind_int1 OR cl_abap_typedescr=>typekind_int2.
|
|
lo_addit = cl_abap_elemdescr=>get_i( ).
|
|
CREATE DATA lo_value_new TYPE HANDLE lo_addit.
|
|
ASSIGN lo_value_new->* TO <fs_numeric>.
|
|
IF sy-subrc = 0.
|
|
<fs_numeric> = <fs_value>.
|
|
lv_value = zcl_excel_common=>number_to_excel_string( ip_value = <fs_numeric> ).
|
|
ENDIF.
|
|
|
|
WHEN cl_abap_typedescr=>typekind_float OR cl_abap_typedescr=>typekind_packed.
|
|
lo_addit = cl_abap_elemdescr=>get_f( ).
|
|
CREATE DATA lo_value_new TYPE HANDLE lo_addit.
|
|
ASSIGN lo_value_new->* TO <fs_numeric>.
|
|
IF sy-subrc = 0.
|
|
<fs_numeric> = <fs_value>.
|
|
lv_value = zcl_excel_common=>number_to_excel_string( ip_value = <fs_numeric> ).
|
|
ENDIF.
|
|
|
|
WHEN cl_abap_typedescr=>typekind_char OR cl_abap_typedescr=>typekind_string OR cl_abap_typedescr=>typekind_num OR
|
|
cl_abap_typedescr=>typekind_hex.
|
|
lv_value = <fs_value>.
|
|
lv_data_type = 's'.
|
|
|
|
WHEN cl_abap_typedescr=>typekind_date.
|
|
lo_addit = cl_abap_elemdescr=>get_d( ).
|
|
CREATE DATA lo_value_new TYPE HANDLE lo_addit.
|
|
ASSIGN lo_value_new->* TO <fs_date>.
|
|
IF sy-subrc = 0.
|
|
<fs_date> = <fs_value>.
|
|
lv_value = zcl_excel_common=>date_to_excel_string( ip_value = <fs_date> ) .
|
|
ENDIF.
|
|
* Begin of change issue #152 - don't touch exisiting style if only value is passed
|
|
* Moved to end of routine - apply date-format even if other styleinformation is passed
|
|
* IF ip_style IS NOT SUPPLIED. "get default date format in case parameter is initial
|
|
* lo_style = excel->add_new_style( ).
|
|
* lo_style->number_format->format_code = get_default_excel_date_format( ).
|
|
* lv_style_guid = lo_style->get_guid( ).
|
|
* ENDIF.
|
|
* End of change issue #152 - don't touch exisiting style if only value is passed
|
|
|
|
WHEN cl_abap_typedescr=>typekind_time.
|
|
lo_addit = cl_abap_elemdescr=>get_t( ).
|
|
CREATE DATA lo_value_new TYPE HANDLE lo_addit.
|
|
ASSIGN lo_value_new->* TO <fs_time>.
|
|
IF sy-subrc = 0.
|
|
<fs_time> = <fs_value>.
|
|
lv_value = zcl_excel_common=>time_to_excel_string( ip_value = <fs_time> ).
|
|
ENDIF.
|
|
* Begin of change issue #152 - don't touch exisiting style if only value is passed
|
|
* Moved to end of routine - apply time-format even if other styleinformation is passed
|
|
* IF ip_style IS NOT SUPPLIED. "get default time format for user in case parameter is initial
|
|
* lo_style = excel->add_new_style( ).
|
|
* lo_style->number_format->format_code = zcl_excel_style_number_format=>c_format_date_time6.
|
|
* lv_style_guid = lo_style->get_guid( ).
|
|
* ENDIF.
|
|
* End of change issue #152 - don't touch exisiting style if only value is passed
|
|
|
|
WHEN OTHERS.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Invalid data type of input value'.
|
|
ENDCASE.
|
|
ENDIF.
|
|
|
|
ENDIF.
|
|
|
|
IF ip_hyperlink IS BOUND.
|
|
ip_hyperlink->set_cell_reference( ip_column = ip_column
|
|
ip_row = ip_row ).
|
|
me->hyperlinks->add( ip_hyperlink ).
|
|
ENDIF.
|
|
|
|
* Begin of change issue #152 - don't touch exisiting style if only value is passed
|
|
* Read table moved up, so that current style may be evaluated
|
|
* lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
|
|
* READ TABLE sheet_content ASSIGNING <fs_sheet_content> WITH KEY cell_row = ip_row
|
|
* cell_column = lv_column.
|
|
*
|
|
* IF sy-subrc EQ 0.
|
|
IF <fs_sheet_content> IS ASSIGNED.
|
|
* End of change issue #152 - don't touch exisiting style if only value is passed
|
|
<fs_sheet_content>-cell_value = lv_value.
|
|
<fs_sheet_content>-cell_formula = ip_formula.
|
|
<fs_sheet_content>-cell_style = lv_style_guid.
|
|
<fs_sheet_content>-data_type = lv_data_type.
|
|
ELSE.
|
|
ls_sheet_content-cell_row = ip_row.
|
|
ls_sheet_content-cell_column = lv_column.
|
|
ls_sheet_content-cell_value = lv_value.
|
|
ls_sheet_content-cell_formula = ip_formula.
|
|
ls_sheet_content-cell_style = lv_style_guid.
|
|
ls_sheet_content-data_type = lv_data_type.
|
|
lv_row_alpha = ip_row.
|
|
* SHIFT lv_row_alpha RIGHT DELETING TRAILING space."del #152 - replaced with condense - should be faster
|
|
* SHIFT lv_row_alpha LEFT DELETING LEADING space. "del #152 - replaced with condense - should be faster
|
|
CONDENSE lv_row_alpha NO-GAPS. "ins #152 - replaced 2 shifts - should be faster
|
|
lv_col_alpha = zcl_excel_common=>convert_column2alpha( ip_column ). " issue #155 - less restrictive typing for ip_column
|
|
CONCATENATE lv_col_alpha lv_row_alpha INTO ls_sheet_content-cell_coords. " issue #155 - less restrictive typing for ip_column
|
|
INSERT ls_sheet_content INTO TABLE sheet_content ASSIGNING <fs_sheet_content>. "ins #152 - Now <fs_sheet_content> always holds the data
|
|
* APPEND ls_sheet_content TO sheet_content.
|
|
* SORT sheet_content BY cell_row cell_column.
|
|
" me->update_dimension_range( ).
|
|
|
|
ENDIF.
|
|
|
|
* Begin of change issue #152 - don't touch exisiting style if only value is passed
|
|
* For Date- or Timefields change the formatcode if nothing is set yet
|
|
* Enhancement option: Check if existing formatcode is a date/ or timeformat
|
|
* If not, use default
|
|
DATA: lo_format_code_datetime TYPE zexcel_number_format.
|
|
DATA: stylemapping TYPE zexcel_s_stylemapping.
|
|
CASE lv_value_type.
|
|
WHEN cl_abap_typedescr=>typekind_date.
|
|
TRY.
|
|
stylemapping = me->excel->get_style_to_guid( <fs_sheet_content>-cell_style ).
|
|
CATCH zcx_excel .
|
|
ENDTRY.
|
|
IF stylemapping-complete_stylex-number_format-format_code IS INITIAL OR
|
|
stylemapping-complete_style-number_format-format_code IS INITIAL.
|
|
lo_format_code_datetime = zcl_excel_style_number_format=>c_format_date_std.
|
|
ELSE.
|
|
lo_format_code_datetime = stylemapping-complete_style-number_format-format_code.
|
|
ENDIF.
|
|
me->change_cell_style( ip_column = ip_column
|
|
ip_row = ip_row
|
|
ip_number_format_format_code = lo_format_code_datetime ).
|
|
|
|
WHEN cl_abap_typedescr=>typekind_time.
|
|
TRY.
|
|
stylemapping = me->excel->get_style_to_guid( <fs_sheet_content>-cell_style ).
|
|
CATCH zcx_excel .
|
|
ENDTRY.
|
|
IF stylemapping-complete_stylex-number_format-format_code IS INITIAL OR
|
|
stylemapping-complete_style-number_format-format_code IS INITIAL.
|
|
lo_format_code_datetime = zcl_excel_style_number_format=>c_format_date_time6.
|
|
ELSE.
|
|
lo_format_code_datetime = stylemapping-complete_style-number_format-format_code.
|
|
ENDIF.
|
|
me->change_cell_style( ip_column = ip_column
|
|
ip_row = ip_row
|
|
ip_number_format_format_code = lo_format_code_datetime ).
|
|
|
|
ENDCASE.
|
|
* End of change issue #152 - don't touch exisiting style if only value is passed
|
|
|
|
* Fix issue #162
|
|
lv_value = ip_value.
|
|
IF lv_value CS cl_abap_char_utilities=>cr_lf.
|
|
me->change_cell_style( ip_column = ip_column
|
|
ip_row = ip_row
|
|
ip_alignment_wraptext = abap_true ).
|
|
ENDIF.
|
|
* End of Fix issue #162
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_FORMULA" VERSION="1" LANGU="E" DESCRIPT="Set cell formula" 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_FORMULA" 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_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"/>
|
|
<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.
|
|
DATA:
|
|
lv_column TYPE zexcel_cell_column,
|
|
ls_sheet_content LIKE LINE OF me->sheet_content.
|
|
|
|
FIELD-SYMBOLS:
|
|
<sheet_content> LIKE LINE OF me->sheet_content.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Get cell to set formula into
|
|
*--------------------------------------------------------------------*
|
|
lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
READ TABLE me->sheet_content ASSIGNING <sheet_content> WITH TABLE KEY cell_row = ip_row
|
|
cell_column = lv_column.
|
|
IF sy-subrc <> 0. " Create new entry in sheet_content if necessary
|
|
CHECK ip_formula IS INITIAL. " no need to create new entry in sheet_content when no formula is passed
|
|
ls_sheet_content-cell_row = ip_row.
|
|
ls_sheet_content-cell_column = lv_column.
|
|
INSERT ls_sheet_content INTO TABLE me->sheet_content ASSIGNING <sheet_content>.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Fieldsymbol now holds the relevant cell
|
|
*--------------------------------------------------------------------*
|
|
<sheet_content>-cell_formula = ip_formula.
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" VERSION="1" LANGU="E" DESCRIPT="Set cell style" EXPOSURE="2" STATE="1" EDITORDER="47 " 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_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_STYLE" SCONAME="IP_STYLE" VERSION="1" LANGU="E" DESCRIPT="Single-Character Indicator" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_CELL_STYLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_CELL_STYLE.
|
|
|
|
DATA: lv_column TYPE zexcel_cell_column,
|
|
ls_sheet_content TYPE zexcel_s_cell_data,
|
|
lv_row_alpha TYPE string,
|
|
lo_style TYPE REF TO zcl_excel_style,
|
|
lv_style_guid TYPE zexcel_cell_style.
|
|
|
|
FIELD-SYMBOLS: <fs_sheet_content> TYPE zexcel_s_cell_data.
|
|
|
|
lv_style_guid = ip_style.
|
|
|
|
lv_column = zcl_excel_common=>convert_column2int( ip_column ).
|
|
|
|
READ TABLE sheet_content ASSIGNING <fs_sheet_content> WITH KEY cell_row = ip_row
|
|
cell_column = lv_column.
|
|
|
|
IF sy-subrc EQ 0.
|
|
<fs_sheet_content>-cell_style = lv_style_guid.
|
|
ELSE.
|
|
set_cell( ip_column = ip_column ip_row = ip_row ip_value = '' ip_style = ip_style ).
|
|
ENDIF.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_COLUMN_WIDTH" VERSION="1" LANGU="E" DESCRIPT="Set column width" EXPOSURE="2" STATE="1" EDITORDER="48 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_COLUMN_WIDTH" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_COLUMN_WIDTH" SCONAME="IP_WIDTH_FIX" VERSION="1" LANGU="E" DESCRIPT="A positive value will set column width" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE" PARVALUE="0"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_COLUMN_WIDTH" SCONAME="IP_WIDTH_AUTOSIZE" VERSION="1" LANGU="E" DESCRIPT="Autosize column" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PARVALUE="'X'"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_COLUMN_WIDTH" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_COLUMN_WIDTH.
|
|
DATA: column_dimension TYPE REF TO zcl_excel_worksheet_columndime.
|
|
DATA: width TYPE float.
|
|
|
|
column_dimension = me->get_column_dimension( ip_column ).
|
|
|
|
* if a fix size is supplied use this
|
|
IF ip_width_fix IS SUPPLIED.
|
|
TRY.
|
|
width = ip_width_fix.
|
|
IF width <= 0.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Please supply a positive number as column-width'.
|
|
ENDIF.
|
|
column_dimension->set_width( width ).
|
|
EXIT.
|
|
CATCH cx_sy_conversion_no_number.
|
|
* Strange stuff passed --> raise error
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Unable to interpret supplied input as number'.
|
|
ENDTRY.
|
|
ENDIF.
|
|
|
|
* If we get down to here, we have to use whatever is found in autosize.
|
|
column_dimension->set_auto_size( ip_width_autosize ).
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_DEFAULT_EXCEL_DATE_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Sets default date format" EXPOSURE="2" STATE="1" EDITORDER="49 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_DEFAULT_EXCEL_DATE_FORMAT" SCONAME="IP_DEFAULT_EXCEL_DATE_FORMAT" VERSION="1" LANGU="E" DESCRIPT="Default date format" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_NUMBER_FORMAT"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_DEFAULT_EXCEL_DATE_FORMAT" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_DEFAULT_EXCEL_DATE_FORMAT.
|
|
|
|
IF ip_default_excel_date_format IS INITIAL.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Default date format cannot be blank'.
|
|
ENDIF.
|
|
|
|
default_excel_date_format = ip_default_excel_date_format.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" VERSION="1" LANGU="E" DESCRIPT="Set the merge range" EXPOSURE="2" STATE="1" EDITORDER="50 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" SCONAME="IP_COLUMN_START" VERSION="1" LANGU="E" DESCRIPT="Cell Column Start" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE" PARVALUE="ZCL_EXCEL_COMMON=>C_EXCEL_SHEET_MIN_COL"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" SCONAME="IP_COLUMN_END" VERSION="1" LANGU="E" DESCRIPT="Cell Column End" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE" PARVALUE="ZCL_EXCEL_COMMON=>C_EXCEL_SHEET_MAX_COL"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" PARVALUE="ZCL_EXCEL_COMMON=>C_EXCEL_SHEET_MIN_ROW"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" SCONAME="IP_ROW_TO" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" PARVALUE="ZCL_EXCEL_COMMON=>C_EXCEL_SHEET_MAX_ROW"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_MERGE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD set_merge.
|
|
|
|
DATA: ls_merge TYPE mty_merge,
|
|
lv_errormessage TYPE string.
|
|
|
|
FIELD-SYMBOLS: <ls_merge> LIKE LINE OF me->mt_merged_cells.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Build new range area to insert into range table
|
|
*--------------------------------------------------------------------*
|
|
ls_merge-row_from = ip_row.
|
|
IF ip_row IS SUPPLIED AND ip_row IS NOT INITIAL AND ip_row_to IS NOT SUPPLIED.
|
|
ls_merge-row_to = ls_merge-row_from.
|
|
ELSE.
|
|
ls_merge-row_to = ip_row_to.
|
|
ENDIF.
|
|
IF ls_merge-row_from > ls_merge-row_to.
|
|
lv_errormessage = 'Merge: First row larger then last row'(405).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
ls_merge-col_from = zcl_excel_common=>convert_column2int( ip_column_start ).
|
|
IF ip_column_start IS SUPPLIED AND ip_column_start IS NOT INITIAL AND ip_column_end IS NOT SUPPLIED.
|
|
ls_merge-col_to = ls_merge-col_from.
|
|
ELSE.
|
|
ls_merge-col_to = zcl_excel_common=>convert_column2int( ip_column_end ).
|
|
ENDIF.
|
|
IF ls_merge-col_from > ls_merge-col_to.
|
|
lv_errormessage = 'Merge: First column larger then last column'(406).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Check merge not overlapping with existing merges
|
|
*--------------------------------------------------------------------*
|
|
LOOP AT me->mt_merged_cells TRANSPORTING NO FIELDS WHERE NOT ( row_from > ls_merge-row_to
|
|
OR row_to < ls_merge-row_from
|
|
OR col_from > ls_merge-col_to
|
|
OR col_to < ls_merge-col_from ).
|
|
lv_errormessage = 'Overlapping merges'(404).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
|
|
ENDLOOP.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Everything seems ok --> add to merge table
|
|
*--------------------------------------------------------------------*
|
|
INSERT ls_merge INTO TABLE me->mt_merged_cells.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_PRINT_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Set print gridlines" EXPOSURE="2" STATE="1" EDITORDER="51 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_PRINT_GRIDLINES" SCONAME="I_PRINT_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Print Gridlines" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_PRINT_GRIDLINES"/>
|
|
<source>method SET_PRINT_GRIDLINES.
|
|
me->print_gridlines = i_print_gridlines.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_HEIGHT" VERSION="1" LANGU="E" DESCRIPT="Set row height" EXPOSURE="2" STATE="1" EDITORDER="52 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_HEIGHT" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_HEIGHT" SCONAME="IP_HEIGHT_FIX" VERSION="1" LANGU="E" DESCRIPT="A positive value will set row height" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_HEIGHT" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_ROW_HEIGHT.
|
|
DATA: row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi.
|
|
DATA: height TYPE float.
|
|
|
|
row_dimension = me->get_row_dimension( ip_row ).
|
|
|
|
* if a fix size is supplied use this
|
|
TRY.
|
|
height = ip_height_fix.
|
|
IF height <= 0.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Please supply a positive number as row-height'.
|
|
ENDIF.
|
|
row_dimension->set_row_height( height ).
|
|
EXIT.
|
|
CATCH cx_sy_conversion_no_number.
|
|
* Strange stuff passed --> raise error
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Unable to interpret supplied input as number'.
|
|
ENDTRY.
|
|
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_OUTLINE" VERSION="1" LANGU="E" DESCRIPT="Add/change an outline for rows" EXPOSURE="2" STATE="1" EDITORDER="53 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_OUTLINE" SCONAME="IV_ROW_FROM" VERSION="1" LANGU="E" DESCRIPT="First line of outline" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_OUTLINE" SCONAME="IV_ROW_TO" VERSION="1" LANGU="E" DESCRIPT="Last line of outline" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_OUTLINE" SCONAME="IV_COLLAPSED" VERSION="1" LANGU="E" DESCRIPT="Is this outline collapsed" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ABAP_BOOL"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_ROW_OUTLINE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD set_row_outline.
|
|
|
|
DATA: ls_row_outline LIKE LINE OF me->mt_row_outlines.
|
|
FIELD-SYMBOLS: <ls_row_outline> LIKE LINE OF me->mt_row_outlines.
|
|
|
|
READ TABLE me->mt_row_outlines ASSIGNING <ls_row_outline> WITH TABLE KEY row_from = iv_row_from
|
|
row_to = iv_row_to.
|
|
IF sy-subrc <> 0.
|
|
IF iv_row_from <= 0.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'First row of outline must be a positive number'.
|
|
ENDIF.
|
|
IF iv_row_to < iv_row_from.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Last row of outline may not be less than first line of outline'.
|
|
ENDIF.
|
|
ls_row_outline-row_from = iv_row_from.
|
|
ls_row_outline-row_to = iv_row_to.
|
|
INSERT ls_row_outline INTO TABLE me->mt_row_outlines ASSIGNING <ls_row_outline>.
|
|
ENDIF.
|
|
|
|
CASE iv_collapsed.
|
|
|
|
WHEN abap_true
|
|
OR abap_false.
|
|
<ls_row_outline>-collapsed = iv_collapsed.
|
|
|
|
WHEN OTHERS.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = 'Unknown collapse state'.
|
|
|
|
ENDCASE.
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_SHOW_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Set show gridlines" EXPOSURE="2" STATE="1" EDITORDER="54 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_SHOW_GRIDLINES" SCONAME="I_SHOW_GRIDLINES" VERSION="1" LANGU="E" DESCRIPT="Show Gridlines" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_SHOW_GRIDLINES"/>
|
|
<source>method SET_SHOW_GRIDLINES.
|
|
me->show_gridlines = i_show_gridlines.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_SHOW_ROWCOLHEADERS" VERSION="1" LANGU="E" DESCRIPT="Set show colum row headers" EXPOSURE="2" STATE="1" EDITORDER="55 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_SHOW_ROWCOLHEADERS" SCONAME="I_SHOW_ROWCOLHEADERS" VERSION="1" LANGU="E" DESCRIPT="Show Gridlines" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_SHOW_ROWCOLHEADER"/>
|
|
<source>method SET_SHOW_ROWCOLHEADERS.
|
|
me->show_rowcolheaders = i_show_rowcolheaders.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABCOLOR" VERSION="1" LANGU="E" DESCRIPT="Set tabcolor" EXPOSURE="2" STATE="1" EDITORDER="56 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABCOLOR" SCONAME="IV_TABCOLOR" VERSION="1" LANGU="E" DESCRIPT="Tabcolor" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_TABCOLOR"/>
|
|
<source>method SET_TABCOLOR.
|
|
me->tabcolor = iv_tabcolor.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" VERSION="1" LANGU="E" DESCRIPT="Set cell value from a table" EXPOSURE="2" STATE="1" EDITORDER="57 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_TABLE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STANDARD TABLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_HDR_STYLE" VERSION="1" LANGU="E" DESCRIPT="Style identifier" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_BODY_STYLE" VERSION="1" LANGU="E" DESCRIPT="Style identifier" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_STYLE" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_TABLE_TITLE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_TOP_LEFT_COLUMN" VERSION="1" LANGU="E" DESCRIPT="Cell Column" CMPTYPE="1" MTDTYPE="0" EDITORDER="5 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_COLUMN_ALPHA" PARVALUE="'B'"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_TOP_LEFT_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="6 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW" PARVALUE="3"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_TRANSPOSE" VERSION="1" LANGU="E" DESCRIPT="Transpose table" CMPTYPE="1" MTDTYPE="0" EDITORDER="7 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="XFELD" PAROPTIONL="X"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="IP_NO_HEADER" VERSION="1" LANGU="E" DESCRIPT="Do not write header" CMPTYPE="1" MTDTYPE="0" EDITORDER="8 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="XFELD" PAROPTIONL="X"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TABLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_TABLE.
|
|
|
|
DATA: lo_tabdescr TYPE REF TO cl_abap_structdescr,
|
|
lr_data TYPE REF TO data,
|
|
ls_newline TYPE REF TO data,
|
|
ls_header TYPE x030l,
|
|
lt_dfies TYPE ddfields,
|
|
lv_row_header TYPE zexcel_cell_row VALUE 2,
|
|
lv_col_header TYPE zexcel_cell_column_alpha VALUE 'B',
|
|
lv_row_int TYPE zexcel_cell_row,
|
|
lv_column_int TYPE zexcel_cell_column,
|
|
lv_column_alpha TYPE zexcel_cell_column_alpha,
|
|
lv_cell_value TYPE zexcel_cell_value.
|
|
|
|
|
|
FIELD-SYMBOLS: <fs_table_line> TYPE ANY,
|
|
<fs_fldval> TYPE ANY,
|
|
<fs_dfies> TYPE dfies,
|
|
<fs_cell_value> TYPE zexcel_cell_value.
|
|
|
|
lv_column_int = zcl_excel_common=>convert_column2int( ip_top_left_column ).
|
|
lv_row_int = ip_top_left_row.
|
|
|
|
CREATE DATA lr_data LIKE LINE OF ip_table.
|
|
|
|
lo_tabdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ).
|
|
|
|
ls_header = lo_tabdescr->get_ddic_header( ).
|
|
|
|
lt_dfies = lo_tabdescr->get_ddic_field_list( ).
|
|
|
|
* It is better to loop column by column
|
|
LOOP AT lt_dfies ASSIGNING <fs_dfies>.
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
|
|
|
|
IF ip_no_header = abap_false.
|
|
" First of all write column header
|
|
lv_cell_value = <fs_dfies>-scrtext_m.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = lv_cell_value
|
|
ip_style = ip_hdr_style ).
|
|
IF ip_transpose = abap_true.
|
|
ADD 1 TO lv_column_int.
|
|
ELSE.
|
|
ADD 1 TO lv_row_int.
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
LOOP AT ip_table ASSIGNING <fs_table_line>.
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
|
|
ASSIGN COMPONENT <fs_dfies>-fieldname OF STRUCTURE <fs_table_line> TO <fs_fldval>.
|
|
MOVE <fs_fldval> TO lv_cell_value.
|
|
me->set_cell( ip_column = lv_column_alpha
|
|
ip_row = lv_row_int
|
|
ip_value = <fs_fldval> "lv_cell_value
|
|
ip_style = ip_body_style ).
|
|
IF ip_transpose = abap_true.
|
|
ADD 1 TO lv_column_int.
|
|
ELSE.
|
|
ADD 1 TO lv_row_int.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
IF ip_transpose = abap_true.
|
|
lv_column_int = zcl_excel_common=>convert_column2int( ip_top_left_column ).
|
|
ADD 1 TO lv_row_int.
|
|
ELSE.
|
|
lv_row_int = ip_top_left_row.
|
|
ADD 1 TO lv_column_int.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TITLE" VERSION="1" LANGU="E" DESCRIPT="Set WorkSheet Title" EXPOSURE="2" STATE="1" EDITORDER="58 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TITLE" SCONAME="IP_TITLE" VERSION="1" LANGU="E" DESCRIPT="Title" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_SHEET_TITLE"/>
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="SET_TITLE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>method SET_TITLE.
|
|
*--------------------------------------------------------------------*
|
|
* ToDos:
|
|
* 2do §1 The current coding for replacing a named ranges name
|
|
* after renaming a sheet should be checked if it is
|
|
* really working if sheetname should be escaped
|
|
*--------------------------------------------------------------------*
|
|
|
|
*--------------------------------------------------------------------*
|
|
* issue #230 - Pimp my Code
|
|
* - Stefan Schmoecker, (wip ) 2012-12-08
|
|
* - ...
|
|
* changes: aligning code
|
|
* message made to support multilinguality
|
|
*--------------------------------------------------------------------*
|
|
* issue#243 - ' is not allowed as first character in sheet title
|
|
* - Stefan Schmoecker, 2012-12-02
|
|
* changes: added additional check for ' as first character
|
|
*--------------------------------------------------------------------*
|
|
DATA: lo_worksheets_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
errormessage TYPE string,
|
|
lv_rangesheetname_old TYPE string,
|
|
lv_rangesheetname_new TYPE string,
|
|
lo_ranges_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_range TYPE REF TO zcl_excel_range,
|
|
lv_range_value TYPE zexcel_range_value,
|
|
lv_errormessage TYPE string. " Can't pass '...'(abc) to exception-class
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Check whether title consists only of allowed characters
|
|
* Illegal characters are: / \ [ ] * ? : --> http://msdn.microsoft.com/en-us/library/ff837411.aspx
|
|
* Illegal characters not in documentation: ' as first character
|
|
*--------------------------------------------------------------------*
|
|
IF ip_title CA '/\[]*?:'.
|
|
lv_errormessage = 'Found illegal character in sheetname. List of forbidden characters: /\[]*?:'(402).
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
IF ip_title IS NOT INITIAL AND ip_title(1) = `'`.
|
|
lv_errormessage = 'Sheetname may not start with &'(403). " & used instead of ' to allow fallbacklanguage
|
|
REPLACE '&' IN lv_errormessage WITH `'`.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = lv_errormessage.
|
|
ENDIF.
|
|
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Check whether title is unique in workbook
|
|
*--------------------------------------------------------------------*
|
|
lo_worksheets_iterator = me->excel->get_worksheets_iterator( ).
|
|
WHILE lo_worksheets_iterator->has_next( ) = 'X'.
|
|
|
|
lo_worksheet ?= lo_worksheets_iterator->get_next( ).
|
|
CHECK me->guid <> lo_worksheet->get_guid( ). " Don't check against itself
|
|
IF ip_title = lo_worksheet->get_title( ). " Not unique --> raise exception
|
|
errormessage = 'Duplicate sheetname &'.
|
|
REPLACE '&' IN errormessage WITH ip_title.
|
|
RAISE EXCEPTION TYPE zcx_excel
|
|
EXPORTING
|
|
error = errormessage.
|
|
ENDIF.
|
|
|
|
ENDWHILE.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* Remember old sheetname and rename sheet to desired name
|
|
*--------------------------------------------------------------------*
|
|
CONCATENATE me->title '!' INTO lv_rangesheetname_old.
|
|
me->title = ip_title.
|
|
|
|
*--------------------------------------------------------------------*
|
|
* After changing this worksheet's title we have to adjust
|
|
* all ranges that are referring to this worksheet.
|
|
*--------------------------------------------------------------------*
|
|
* 2do §1 - Check if the following quickfix is solid
|
|
* I fear it isn't - but this implementation is better then
|
|
* nothing at all since it handles a supposed majority of cases
|
|
*--------------------------------------------------------------------*
|
|
CONCATENATE me->title '!' INTO lv_rangesheetname_new.
|
|
|
|
lo_ranges_iterator = me->excel->get_ranges_iterator( ).
|
|
WHILE lo_ranges_iterator->has_next( ) = 'X'.
|
|
|
|
lo_range ?= lo_ranges_iterator->get_next( ).
|
|
lv_range_value = lo_range->get_value( ).
|
|
REPLACE ALL OCCURRENCES OF lv_rangesheetname_old IN lv_range_value WITH lv_rangesheetname_new.
|
|
IF sy-subrc = 0.
|
|
lo_range->set_range_value( lv_range_value ).
|
|
ENDIF.
|
|
|
|
ENDWHILE.
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="UPDATE_DIMENSION_RANGE" VERSION="1" LANGU="E" DESCRIPT="Update dimension range" EXPOSURE="0" STATE="1" EDITORDER="63 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
|
|
<exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="UPDATE_DIMENSION_RANGE" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
|
|
<source>METHOD update_dimension_range.
|
|
|
|
DATA: ls_sheet_content TYPE zexcel_s_cell_data,
|
|
lt_sheet_content TYPE zexcel_t_cell_data_unsorted,
|
|
lv_row_alpha TYPE string,
|
|
lv_column_alpha TYPE zexcel_cell_column_alpha.
|
|
|
|
CHECK sheet_content IS NOT INITIAL.
|
|
|
|
* update dimension range
|
|
lt_sheet_content = sheet_content.
|
|
"upper left corner
|
|
SORT lt_sheet_content BY cell_row.
|
|
READ TABLE lt_sheet_content INDEX 1 INTO ls_sheet_content.
|
|
upper_cell-cell_row = ls_sheet_content-cell_row.
|
|
SORT lt_sheet_content BY cell_column.
|
|
READ TABLE lt_sheet_content INDEX 1 INTO ls_sheet_content.
|
|
upper_cell-cell_column = ls_sheet_content-cell_column.
|
|
|
|
lv_row_alpha = upper_cell-cell_row.
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( upper_cell-cell_column ).
|
|
SHIFT lv_row_alpha RIGHT DELETING TRAILING space.
|
|
SHIFT lv_row_alpha LEFT DELETING LEADING space.
|
|
CONCATENATE lv_column_alpha lv_row_alpha INTO upper_cell-cell_coords.
|
|
|
|
"bottom right corner
|
|
SORT lt_sheet_content BY cell_row DESCENDING.
|
|
READ TABLE lt_sheet_content INDEX 1 INTO ls_sheet_content.
|
|
lower_cell-cell_row = ls_sheet_content-cell_row.
|
|
SORT lt_sheet_content BY cell_column DESCENDING.
|
|
READ TABLE lt_sheet_content INDEX 1 INTO ls_sheet_content.
|
|
lower_cell-cell_column = ls_sheet_content-cell_column.
|
|
|
|
lv_row_alpha = lower_cell-cell_row.
|
|
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lower_cell-cell_column ).
|
|
SHIFT lv_row_alpha RIGHT DELETING TRAILING space.
|
|
SHIFT lv_row_alpha LEFT DELETING LEADING space.
|
|
CONCATENATE lv_column_alpha lv_row_alpha INTO lower_cell-cell_coords.
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
</CLAS>
|