mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 16:56:11 +08:00
get INT8 typekind dynamic (#1065)
This commit is contained in:
parent
df9db3d55c
commit
684c8f71e0
|
@ -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.
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user