mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 16:12:24 +08:00
0ccae1ac59
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@254 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
152 lines
7.4 KiB
XML
152 lines
7.4 KiB
XML
<?xml version="1.0" encoding="utf-16"?>
|
|
<CLAS CLSNAME="ZCL_EXCEL_CONVERTER_SALV_TABLE" VERSION="1" LANGU="E" DESCRIPT="SALV converter" UUID="4F03DFB5DA5D00BFE1008000C008015A" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" AUTHOR="RTURNHEIM" CREATEDON="20120106" CHANGEDBY="FEMIA" CHANGEDON="20120120" CHGDANYON="00000000" CLSFINAL="X" CLSCCINCL="X" FIXPT="X" UNICODE="X" R3RELEASE="702" CLSBCCAT="00" DURATION_TYPE="0 " RISK_LEVEL="0 ">
|
|
<implementing CLSNAME="ZCL_EXCEL_CONVERTER_SALV_TABLE" REFCLSNAME="ZIF_EXCEL_CONVERTER" VERSION="1" EXPOSURE="2" STATE="1" AUTHOR="FEMIA" CREATEDON="20120120" CHANGEDBY="FEMIA" CHANGEDON="20120120" RELTYPE="1" EDITORDER="0 "/>
|
|
<publicSection>class ZCL_EXCEL_CONVERTER_SALV_TABLE definition
|
|
public
|
|
final
|
|
create public .
|
|
|
|
public section.
|
|
*"* public components of class ZCL_EXCEL_CONVERTER_SALV_TABLE
|
|
*"* do not include other source files here!!!
|
|
|
|
interfaces ZIF_EXCEL_CONVERTER .</publicSection>
|
|
<protectedSection>*"* protected components of class ZCL_EXCEL_CONVERTER_SALV_TABLE
|
|
*"* do not include other source files here!!!
|
|
protected section.</protectedSection>
|
|
<privateSection>*"* private components of class ZCL_EXCEL_CONVERTER_SALV_TABLE
|
|
*"* do not include other source files here!!!
|
|
private section.</privateSection>
|
|
<localImplementation>*"* local class implementation for public class
|
|
*"* use this source file for the implementation part of
|
|
*"* local helper classes</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</localTypes>
|
|
<localMacros>*"* use this source file for any macro definitions you need
|
|
*"* in the implementation part of the class</localMacros>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_CONVERTER_SALV_TABLE" CPDNAME="ZIF_EXCEL_CONVERTER~CAN_CONVERT_OBJECT">
|
|
<source>method ZIF_EXCEL_CONVERTER~CAN_CONVERT_OBJECT.
|
|
data: lo_salv type ref to cl_salv_table.
|
|
|
|
try.
|
|
lo_salv ?= io_object.
|
|
catch cx_sy_move_cast_error .
|
|
raise exception type zcx_excel.
|
|
endtry.
|
|
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_CONVERTER_SALV_TABLE" CPDNAME="ZIF_EXCEL_CONVERTER~CREATE_FIELDCATALOG">
|
|
<source>METHOD zif_excel_converter~create_fieldcatalog.
|
|
DATA: lo_salv TYPE REF TO cl_salv_table.
|
|
|
|
DATA: lo_columns TYPE REF TO cl_salv_columns_table,
|
|
lo_column TYPE REF TO cl_salv_column_table,
|
|
lo_aggregations TYPE REF TO cl_salv_aggregations,
|
|
lo_aggregation TYPE REF TO cl_salv_aggregation,
|
|
lo_sorts TYPE REF TO cl_salv_sorts,
|
|
lo_sort TYPE REF TO cl_salv_sort,
|
|
lo_display TYPE REF TO cl_salv_display_settings,
|
|
l_agre TYPE salv_de_aggregation,
|
|
lt_column TYPE salv_t_column_ref,
|
|
ls_column TYPE salv_s_column_ref,
|
|
ls_fieldcatalog TYPE zexcel_s_converter_fcat,
|
|
ls_ref TYPE salv_s_ddic_reference,
|
|
l_alignment TYPE salv_de_alignment,
|
|
l_fix TYPE sap_bool,
|
|
l_optimized TYPE sap_bool.
|
|
|
|
FIELD-SYMBOLS: <fs_stable> TYPE any.
|
|
TRY.
|
|
zif_excel_converter~can_convert_object( io_object = io_object ).
|
|
ENDTRY.
|
|
|
|
lo_salv ?= io_object.
|
|
|
|
CLEAR: es_layout,
|
|
et_fieldcatalog.
|
|
|
|
IF lo_salv IS BOUND.
|
|
lo_columns = lo_salv->get_columns( ).
|
|
lt_column = lo_columns->get( ) .
|
|
lo_aggregations = lo_salv->get_aggregations( ) .
|
|
lo_display = lo_salv->get_display_settings( ) .
|
|
es_layout-is_stripped = lo_display->is_striped_pattern( ) .
|
|
l_optimized = lo_columns->is_optimized( ).
|
|
LOOP AT lt_column INTO ls_column.
|
|
CLEAR ls_fieldcatalog.
|
|
IF ls_column-r_column->is_technical( ) = abap_false.
|
|
TRY.
|
|
lo_column ?= lo_columns->get_column( columnname = ls_column-columnname ).
|
|
CATCH cx_salv_not_found.
|
|
RAISE EXCEPTION TYPE zcx_excel.
|
|
ENDTRY.
|
|
ls_ref = ls_column-r_column->get_ddic_reference( ).
|
|
ls_fieldcatalog-tabname = ls_ref-table.
|
|
ls_fieldcatalog-fieldname = ls_ref-field.
|
|
ls_fieldcatalog-columnname = ls_column-columnname.
|
|
TRY.
|
|
ls_fieldcatalog-position = lo_columns->get_column_position( columnname = ls_column-columnname ).
|
|
CATCH cx_salv_not_found.
|
|
RAISE EXCEPTION TYPE zcx_excel.
|
|
ENDTRY.
|
|
ls_fieldcatalog-inttype = ls_column-r_column->get_ddic_inttype( ).
|
|
ls_fieldcatalog-scrtext_s = ls_column-r_column->get_short_text( ) .
|
|
ls_fieldcatalog-scrtext_m = ls_column-r_column->get_medium_text( ) .
|
|
ls_fieldcatalog-scrtext_l = ls_column-r_column->get_long_text( ).
|
|
TRY.
|
|
lo_aggregation = lo_aggregations->get_aggregation( columnname = ls_column-columnname ) .
|
|
CATCH cx_salv_not_found.
|
|
CLEAR lo_aggregation.
|
|
ENDTRY.
|
|
IF lo_aggregation IS BOUND.
|
|
l_agre = lo_aggregation->get( ).
|
|
CASE l_agre.
|
|
WHEN if_salv_c_aggregation=>total. " Total
|
|
ls_fieldcatalog-totals_function = zcl_excel_table=>totals_function_sum.
|
|
WHEN if_salv_c_aggregation=>minimum. " Minimum
|
|
ls_fieldcatalog-totals_function = zcl_excel_table=>totals_function_min.
|
|
WHEN if_salv_c_aggregation=>maximum. " Maximum
|
|
ls_fieldcatalog-totals_function = zcl_excel_table=>totals_function_max.
|
|
WHEN if_salv_c_aggregation=>average. " Mean Value
|
|
ls_fieldcatalog-totals_function = zcl_excel_table=>totals_function_average.
|
|
WHEN OTHERS.
|
|
CLEAR ls_fieldcatalog-totals_function.
|
|
ENDCASE.
|
|
ENDIF.
|
|
ls_fieldcatalog-is_visible = ls_column-r_column->is_visible( ).
|
|
ls_fieldcatalog-fix_column = lo_column->is_key( ).
|
|
l_fix = lo_column->is_key_presence_required( ).
|
|
|
|
IF l_optimized = '1' OR l_optimized = abap_true.
|
|
ls_fieldcatalog-is_optimized = abap_true.
|
|
ELSE.
|
|
l_optimized = ls_column-r_column->is_optimized( ).
|
|
IF l_optimized = '1' OR l_optimized = abap_true.
|
|
ls_fieldcatalog-is_optimized = abap_true.
|
|
ENDIF.
|
|
ENDIF.
|
|
l_alignment = ls_column-r_column->get_alignment( ) .
|
|
CASE l_alignment.
|
|
WHEN if_salv_c_alignment=>left. " Align left
|
|
ls_fieldcatalog-alignment = zcl_excel_style_alignment=>c_horizontal_left.
|
|
WHEN if_salv_c_alignment=>right. " Align right
|
|
ls_fieldcatalog-alignment = zcl_excel_style_alignment=>c_horizontal_right.
|
|
WHEN if_salv_c_alignment=>centered. " Centered
|
|
ls_fieldcatalog-alignment = zcl_excel_style_alignment=>c_horizontal_center.
|
|
WHEN OTHERS.
|
|
CLEAR ls_fieldcatalog-alignment.
|
|
ENDCASE.
|
|
APPEND ls_fieldcatalog TO et_fieldcatalog.
|
|
ENDIF.
|
|
ENDLOOP.
|
|
IF l_fix IS NOT INITIAL.
|
|
es_layout-is_fixed = abap_true.
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.</source>
|
|
</interfaceMethod>
|
|
</CLAS>
|