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

Update zcl_excel_common.clas.abap

Browse Source
This commit is contained in:
Bernd 2024-02-07 15:18:33 +01:00 committed by GitHub
parent fba955bc5c
commit c4fd6fe0b7
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 9 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/zcl_excel_common.clas.abap
View File

@ -1056,7 +1056,6 @@ CLASS zcl_excel_common IMPLEMENTATION.
* Assign structure and X-structure * Assign structure and X-structure
ASSIGN COMPONENT wa_component-name OF STRUCTURE e_target TO <field>. ASSIGN COMPONENT wa_component-name OF STRUCTURE e_target TO <field>.
ASSIGN COMPONENT wa_component-name OF STRUCTURE e_targetx TO <fieldx>. ASSIGN COMPONENT wa_component-name OF STRUCTURE e_targetx TO <fieldx>.
* At least one field in the structure should be marked - otherwise continue with next field
* maybe source is just a structure - try assign component... * maybe source is just a structure - try assign component...
ASSIGN COMPONENT wa_component-name OF STRUCTURE i_source TO <attribute>. ASSIGN COMPONENT wa_component-name OF STRUCTURE i_source TO <attribute>.
IF sy-subrc <> 0. IF sy-subrc <> 0.
@ -1069,7 +1068,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
ENDIF. ENDIF.
CASE wa_component-type_kind. CASE wa_component-type_kind.
WHEN cl_abap_structdescr=>typekind_struct1 OR cl_abap_structdescr=>typekind_struct2. " Structure --> use recursio WHEN cl_abap_structdescr=>typekind_struct1 OR cl_abap_structdescr=>typekind_struct2. " Structure --> use recursion
zcl_excel_common=>recursive_class_to_struct( EXPORTING i_source = <attribute> zcl_excel_common=>recursive_class_to_struct( EXPORTING i_source = <attribute>
CHANGING e_target = <field> CHANGING e_target = <field>
e_targetx = <fieldx> ). e_targetx = <fieldx> ).
@ -1091,9 +1090,6 @@ CLASS zcl_excel_common IMPLEMENTATION.
DATA: descr TYPE REF TO cl_abap_structdescr, DATA: descr TYPE REF TO cl_abap_structdescr,
wa_component LIKE LINE OF descr->components, wa_component LIKE LINE OF descr->components,
attribute_name LIKE wa_component-name, attribute_name LIKE wa_component-name,
check_class TYPE abap_bool,
lo_refdescr TYPE REF TO cl_abap_refdescr,
lo_classdescr TYPE REF TO cl_abap_classdescr,
o_border TYPE REF TO zcl_excel_style_border. o_border TYPE REF TO zcl_excel_style_border.
FIELD-SYMBOLS: <field> TYPE any, FIELD-SYMBOLS: <field> TYPE any,
@ -1110,34 +1106,24 @@ CLASS zcl_excel_common IMPLEMENTATION.
ASSIGN COMPONENT wa_component-name OF STRUCTURE i_sourcex TO <fieldx>. ASSIGN COMPONENT wa_component-name OF STRUCTURE i_sourcex TO <fieldx>.
* At least one field in the structure should be marked - otherwise continue with next field * At least one field in the structure should be marked - otherwise continue with next field
CHECK <fieldx> CA abap_true. CHECK <fieldx> CA abap_true.
CLEAR check_class.
* maybe target is just a structure - try assign component... * maybe target is just a structure - try assign component...
ASSIGN COMPONENT wa_component-name OF STRUCTURE e_target TO <attribute>. ASSIGN COMPONENT wa_component-name OF STRUCTURE e_target TO <attribute>.
IF sy-subrc <> 0. IF sy-subrc <> 0.
* not - then it is an attribute of the class - use different assign then * not - then it is an attribute of the class - use different assign then
IF e_target IS INITIAL.
* Only borders will be passed as unbound references. But since we want to set a value we have to create an instance
CREATE OBJECT o_border.
e_target = o_border.
ENDIF.
CONCATENATE 'E_TARGET->' wa_component-name INTO attribute_name. CONCATENATE 'E_TARGET->' wa_component-name INTO attribute_name.
ASSIGN (attribute_name) TO <attribute>. ASSIGN (attribute_name) TO <attribute>.
IF sy-subrc <> 0.EXIT.ENDIF. " Should not happen if structure is built properly - otherwise just exit to create no dumps IF sy-subrc <> 0.
IF <attribute> IS INITIAL. EXIT.
check_class = abap_true. ENDIF. " Should not happen if structure is built properly - otherwise just exit to create no dumps
ENDIF.
ENDIF. ENDIF.
CASE wa_component-type_kind. CASE wa_component-type_kind.
WHEN cl_abap_structdescr=>typekind_struct1 OR cl_abap_structdescr=>typekind_struct2. " Structure --> use recursion WHEN cl_abap_structdescr=>typekind_struct1 OR cl_abap_structdescr=>typekind_struct2. " Structure --> use recursion
IF check_class = abap_true.
TRY.
lo_refdescr ?= cl_abap_typedescr=>describe_by_data( <attribute> ).
lo_classdescr ?= lo_refdescr->get_referenced_type( ).
CASE lo_classdescr->get_relative_name( ).
WHEN 'ZCL_EXCEL_STYLE_BORDER'.
* Only borders will be passed as unbound references. But since we want to set a value we have to create an instance
CREATE OBJECT o_border.
<attribute> = o_border.
ENDCASE.
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDIF.
zcl_excel_common=>recursive_struct_to_class( EXPORTING i_source = <field> zcl_excel_common=>recursive_struct_to_class( EXPORTING i_source = <field>
i_sourcex = <fieldx> i_sourcex = <fieldx>
CHANGING e_target = <attribute> ). CHANGING e_target = <attribute> ).