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

get INT8 typekind dynamic (#1065)

Browse Source
This commit is contained in:
Domi Bigl 2022-11-20 20:44:47 +01:00 committed by GitHub
parent df9db3d55c
commit 684c8f71e0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/zcl_excel_worksheet.clas.abap
View File

@ -2115,7 +2115,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
<lv_data2> TYPE data, <lv_data2> TYPE data,
<ls_field_conv> TYPE ts_field_conv, <ls_field_conv> TYPE ts_field_conv,
<ls_ddic_object> TYPE x031l, <ls_ddic_object> TYPE x031l,
<ls_sheet_content> TYPE zexcel_s_cell_data. <ls_sheet_content> TYPE zexcel_s_cell_data,
<fs_typekind_int8> TYPE abap_typekind.
CLEAR: et_data, er_data. CLEAR: et_data, er_data.
@ -2162,18 +2163,18 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lo_line_type ?= lo_tab_type->get_table_line_type( ). lo_line_type ?= lo_tab_type->get_table_line_type( ).
lo_line_type->get_ddic_object( lo_line_type->get_ddic_object(
RECEIVING RECEIVING
p_object = lt_ddic_object p_object = lt_ddic_object
EXCEPTIONS EXCEPTIONS
OTHERS = 3 OTHERS = 3
). ).
IF lt_ddic_object IS INITIAL. IF lt_ddic_object IS INITIAL.
lt_comp_view = lo_line_type->get_included_view( ). lt_comp_view = lo_line_type->get_included_view( ).
LOOP AT lt_comp_view INTO ls_comp_view. LOOP AT lt_comp_view INTO ls_comp_view.
ls_comp_view-type->get_ddic_object( ls_comp_view-type->get_ddic_object(
RECEIVING RECEIVING
p_object = lt_ddic_object_comp p_object = lt_ddic_object_comp
EXCEPTIONS EXCEPTIONS
OTHERS = 3 OTHERS = 3
). ).
IF lt_ddic_object_comp IS NOT INITIAL. IF lt_ddic_object_comp IS NOT INITIAL.
READ TABLE lt_ddic_object_comp INTO ls_ddic_object INDEX 1. READ TABLE lt_ddic_object_comp INTO ls_ddic_object INDEX 1.
@ -2189,10 +2190,16 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
MOVE-CORRESPONDING ls_field_catalog TO <ls_field_conv>. MOVE-CORRESPONDING ls_field_catalog TO <ls_field_conv>.
READ TABLE lt_ddic_object ASSIGNING <ls_ddic_object> WITH KEY fieldname = <ls_field_conv>-fieldname BINARY SEARCH. READ TABLE lt_ddic_object ASSIGNING <ls_ddic_object> WITH KEY fieldname = <ls_field_conv>-fieldname BINARY SEARCH.
CHECK: sy-subrc EQ 0. CHECK: sy-subrc EQ 0.
ASSIGN ('CL_ABAP_TYPEDESCR=>TYPEKIND_INT8') TO <fs_typekind_int8>.
IF sy-subrc <> 0.
ASSIGN space TO <fs_typekind_int8>. "not used as typekind!
ENDIF.
CASE <ls_ddic_object>-exid. CASE <ls_ddic_object>-exid.
WHEN cl_abap_typedescr=>typekind_int WHEN cl_abap_typedescr=>typekind_int
OR cl_abap_typedescr=>typekind_int1 OR cl_abap_typedescr=>typekind_int1
OR cl_abap_typedescr=>typekind_int8 OR <fs_typekind_int8>
OR cl_abap_typedescr=>typekind_int2 OR cl_abap_typedescr=>typekind_int2
OR cl_abap_typedescr=>typekind_packed OR cl_abap_typedescr=>typekind_packed
OR cl_abap_typedescr=>typekind_decfloat OR cl_abap_typedescr=>typekind_decfloat