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

refactor some ddic uses to builtin (#824)

Browse Source 
reference = #692
This commit is contained in:
Lars Hvam 2021-10-06 08:08:11 +02:00 committed by GitHub
parent e0052bbb9e
commit e9386fd022
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/zcl_excel_common.clas.abap
View File

@ -128,11 +128,12 @@ CLASS zcl_excel_common DEFINITION
VALUE(ep_value) TYPE zexcel_cell_value . VALUE(ep_value) TYPE zexcel_cell_value .
TYPE-POOLS abap . TYPE-POOLS abap .
TYPES: t_char10 TYPE c LENGTH 10. TYPES: t_char10 TYPE c LENGTH 10.
TYPES: t_char255 TYPE c LENGTH 255.
CLASS-METHODS split_file CLASS-METHODS split_file
IMPORTING IMPORTING
!ip_file TYPE text255 !ip_file TYPE t_char255
EXPORTING EXPORTING
!ep_file TYPE text255 !ep_file TYPE t_char255
!ep_extension TYPE t_char10 !ep_extension TYPE t_char10
!ep_dotextension TYPE t_char10 . !ep_dotextension TYPE t_char10 .
CLASS-METHODS calculate_cell_distance CLASS-METHODS calculate_cell_distance
@ -181,7 +182,7 @@ CLASS zcl_excel_common DEFINITION
CLASS-DATA c_excel_col_module TYPE int2 VALUE 64. "#EC NOTEXT . . . . . . . . . . . . . . . " . CLASS-DATA c_excel_col_module TYPE int2 VALUE 64. "#EC NOTEXT . . . . . . . . . . . . . . . " .
CLASS-DATA sv_prev_in1 TYPE zexcel_cell_column. CLASS-DATA sv_prev_in1 TYPE zexcel_cell_column.
CLASS-DATA sv_prev_out1 TYPE zexcel_cell_column_alpha. CLASS-DATA sv_prev_out1 TYPE zexcel_cell_column_alpha.
CLASS-DATA sv_prev_in2 TYPE char10. CLASS-DATA sv_prev_in2 TYPE c LENGTH 10.
CLASS-DATA sv_prev_out2 TYPE zexcel_cell_column. CLASS-DATA sv_prev_out2 TYPE zexcel_cell_column.
CLASS-METHODS structure_case CLASS-METHODS structure_case
IMPORTING IMPORTING
@ -193,9 +194,10 @@ CLASS zcl_excel_common DEFINITION
!is_component TYPE abap_componentdescr !is_component TYPE abap_componentdescr
RETURNING RETURNING
VALUE(rt_components) TYPE abap_component_tab . VALUE(rt_components) TYPE abap_component_tab .
TYPES ty_char1 TYPE c LENGTH 1.
CLASS-METHODS char2hex CLASS-METHODS char2hex
IMPORTING IMPORTING
!i_char TYPE char1 !i_char TYPE ty_char1
RETURNING RETURNING
VALUE(r_hex) TYPE zexcel_pwd_hash . VALUE(r_hex) TYPE zexcel_pwd_hash .
CLASS-METHODS shl01 CLASS-METHODS shl01
@ -280,7 +282,7 @@ CLASS ZCL_EXCEL_COMMON IMPLEMENTATION.
METHOD convert_column2alpha. METHOD convert_column2alpha.
DATA: lv_uccpi TYPE i, DATA: lv_uccpi TYPE i,
lv_text TYPE sychar02, lv_text TYPE c LENGTH 2,
lv_module TYPE int4, lv_module TYPE int4,
lv_column TYPE zexcel_cell_column. lv_column TYPE zexcel_cell_column.
@ -351,7 +353,7 @@ CLASS ZCL_EXCEL_COMMON IMPLEMENTATION.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
DATA: lv_column TYPE zexcel_cell_column_alpha, DATA: lv_column TYPE zexcel_cell_column_alpha,
lv_column_c TYPE char10, lv_column_c TYPE c LENGTH 10,
lv_column_s TYPE string, lv_column_s TYPE string,
lv_errormessage TYPE string, " Can't pass '...'(abc) to exception-class lv_errormessage TYPE string, " Can't pass '...'(abc) to exception-class
lv_modulo TYPE i. lv_modulo TYPE i.

5
src/zexcel_aes_password.dtel.xml
View File

@ -5,7 +5,6 @@
<DD04V> <DD04V>
<ROLLNAME>ZEXCEL_AES_PASSWORD</ROLLNAME> <ROLLNAME>ZEXCEL_AES_PASSWORD</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE> <DDLANGUAGE>E</DDLANGUAGE>
<DOMNAME>CHAR50</DOMNAME>
<HEADLEN>20</HEADLEN> <HEADLEN>20</HEADLEN>
<SCRLEN1>10</SCRLEN1> <SCRLEN1>10</SCRLEN1>
<SCRLEN2>15</SCRLEN2> <SCRLEN2>15</SCRLEN2>
@ -16,7 +15,9 @@
<SCRTEXT_M>AES Password</SCRTEXT_M> <SCRTEXT_M>AES Password</SCRTEXT_M>
<SCRTEXT_L>AES Password</SCRTEXT_L> <SCRTEXT_L>AES Password</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER> <DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND> <DATATYPE>CHAR</DATATYPE>
<LENG>000050</LENG>
<OUTPUTLEN>000050</OUTPUTLEN>
</DD04V> </DD04V>
</asx:values> </asx:values>
</asx:abap> </asx:abap>

5
src/zexcel_cell_column_alpha.dtel.xml
View File

@ -5,7 +5,6 @@
<DD04V> <DD04V>
<ROLLNAME>ZEXCEL_CELL_COLUMN_ALPHA</ROLLNAME> <ROLLNAME>ZEXCEL_CELL_COLUMN_ALPHA</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE> <DDLANGUAGE>E</DDLANGUAGE>
<DOMNAME>CHAR3</DOMNAME>
<HEADLEN>11</HEADLEN> <HEADLEN>11</HEADLEN>
<SCRLEN1>06</SCRLEN1> <SCRLEN1>06</SCRLEN1>
<SCRLEN2>11</SCRLEN2> <SCRLEN2>11</SCRLEN2>
@ -16,7 +15,9 @@
<SCRTEXT_M>Cell Column</SCRTEXT_M> <SCRTEXT_M>Cell Column</SCRTEXT_M>
<SCRTEXT_L>Cell Column</SCRTEXT_L> <SCRTEXT_L>Cell Column</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER> <DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND> <DATATYPE>CHAR</DATATYPE>
<LENG>000003</LENG>
<OUTPUTLEN>000003</OUTPUTLEN>
</DD04V> </DD04V>
</asx:values> </asx:values>
</asx:abap> </asx:abap>

3
src/zexcel_cell_value.dtel.xml
View File

@ -5,7 +5,6 @@
<DD04V> <DD04V>
<ROLLNAME>ZEXCEL_CELL_VALUE</ROLLNAME> <ROLLNAME>ZEXCEL_CELL_VALUE</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE> <DDLANGUAGE>E</DDLANGUAGE>
<DOMNAME>STRING</DOMNAME>
<HEADLEN>10</HEADLEN> <HEADLEN>10</HEADLEN>
<SCRLEN1>10</SCRLEN1> <SCRLEN1>10</SCRLEN1>
<SCRLEN2>15</SCRLEN2> <SCRLEN2>15</SCRLEN2>
@ -16,7 +15,7 @@
<SCRTEXT_M>Cell Value</SCRTEXT_M> <SCRTEXT_M>Cell Value</SCRTEXT_M>
<SCRTEXT_L>Cell Value</SCRTEXT_L> <SCRTEXT_L>Cell Value</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER> <DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND> <DATATYPE>STRG</DATATYPE>
</DD04V> </DD04V>
</asx:values> </asx:values>
</asx:abap> </asx:abap>