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

Merge branch 'master' of https://github.com/ivanfemia/abap2xlsx

Browse Source
This commit is contained in:
Ivan 2015-01-12 14:55:36 -06:00
commit 5d4864eab8
1 changed files with 43 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
ZA2X/CLAS/ZCL_EXCEL_CONVERTER.slnk
View File

@ -852,7 +852,8 @@ ENDMETHOD.</source>
ls_fieldcatalog TYPE zexcel_s_converter_fcat, ls_fieldcatalog TYPE zexcel_s_converter_fcat,
lo_if TYPE REF TO zif_excel_converter, lo_if TYPE REF TO zif_excel_converter,
ls_types TYPE ts_alv_types, ls_types TYPE ts_alv_types,
lo_addit TYPE REF TO cl_abap_classdescr. lo_addit TYPE REF TO cl_abap_classdescr,
lo_addit_superclass type ref to cl_abap_classdescr.
IF io_object IS BOUND. IF io_object IS BOUND.
TRY. TRY.
@ -862,36 +863,48 @@ ENDMETHOD.</source>
ENDTRY. ENDTRY.
ls_types-seoclass = lo_addit-&gt;get_relative_name( ). ls_types-seoclass = lo_addit-&gt;get_relative_name( ).
READ TABLE wt_objects INTO ls_types WITH TABLE KEY seoclass = ls_types-seoclass. READ TABLE wt_objects INTO ls_types WITH TABLE KEY seoclass = ls_types-seoclass.
IF sy-subrc = 0. if sy-subrc ne 0.
CREATE OBJECT lo_if TYPE (ls_types-clsname). do.
free lo_addit_superclass.
TRY. lo_addit_superclass = lo_addit-&gt;get_super_class_type( ).
if lo_addit_superclass is initial.
sy-subrc = &apos;4&apos;.
exit.
endif.
lo_addit = lo_addit_superclass.
ls_types-seoclass = lo_addit-&gt;get_relative_name( ).
read table wt_objects into ls_types with table key seoclass = ls_types-seoclass.
if sy-subrc eq 0.
exit.
endif.
enddo.
endif.
if sy-subrc = 0.
CREATE OBJECT lo_if type (ls_types-clsname).
try.
lo_if-&gt;create_fieldcatalog( lo_if-&gt;create_fieldcatalog(
EXPORTING exporting
is_option = ws_option is_option = ws_option
io_object = io_object io_object = io_object
it_table = it_table it_table = it_table
IMPORTING importing
es_layout = ws_layout es_layout = ws_layout
et_fieldcatalog = wt_fieldcatalog et_fieldcatalog = wt_fieldcatalog
eo_table = wo_table eo_table = wo_table
et_colors = wt_colors et_colors = wt_colors
et_filter = wt_filter et_filter = wt_filter
). ).
ENDTRY. endtry.
* data lines of highest level. * data lines of highest level.
IF ws_layout-max_subtotal_level &gt; 0. if ws_layout-max_subtotal_level &gt; 0. add 1 to ws_layout-max_subtotal_level. endif.
ADD 1 TO ws_layout-max_subtotal_level. else.
ENDIF. RAISE EXCEPTION type zcx_excel.
ELSE. endif.
RAISE EXCEPTION TYPE zcx_excel. else.
ENDIF. refresh wt_fieldcatalog.
ELSE. get reference of it_table into wo_table.
REFRESH wt_fieldcatalog. endif.
GET REFERENCE OF it_table INTO wo_table. endmethod.</source>
ENDIF.
endmethod.</source>
</method> </method>
<method CLSNAME="ZCL_EXCEL_CONVERTER" CMPNAME="GET_COLOR_STYLE" VERSION="1" LANGU="E" DESCRIPT="Look up color style and create if needed" EXPOSURE="0" STATE="1" EDITORDER="17 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0"> <method CLSNAME="ZCL_EXCEL_CONVERTER" CMPNAME="GET_COLOR_STYLE" VERSION="1" LANGU="E" DESCRIPT="Look up color style and create if needed" EXPOSURE="0" STATE="1" EDITORDER="17 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_CONVERTER" CMPNAME="GET_COLOR_STYLE" SCONAME="I_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/> <parameter CLSNAME="ZCL_EXCEL_CONVERTER" CMPNAME="GET_COLOR_STYLE" SCONAME="I_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/>