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

worksheet: remove unused header variable (#876)

Browse Source 
* workseet: remove unused header variable

* pretty print with SE80

Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com>
This commit is contained in:
Lars Hvam 2021-11-06 17:23:36 +01:00 committed by GitHub
parent a83d322a87
commit d60571434d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 56 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
src/zcl_excel_worksheet.clas.abap
View File

@ -1,8 +1,3 @@
*----------------------------------------------------------------------*
* CLASS ZCL_EXCEL_WORKSHEET DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_excel_worksheet DEFINITION CLASS zcl_excel_worksheet DEFINITION
PUBLIC PUBLIC
CREATE PUBLIC . CREATE PUBLIC .
@ -465,15 +460,15 @@ CLASS zcl_excel_worksheet DEFINITION
zcx_excel . zcx_excel .
METHODS set_cell METHODS set_cell
IMPORTING IMPORTING
!ip_column TYPE simple !ip_column TYPE simple
!ip_row TYPE zexcel_cell_row !ip_row TYPE zexcel_cell_row
!ip_value TYPE simple OPTIONAL !ip_value TYPE simple OPTIONAL
!ip_formula TYPE zexcel_cell_formula OPTIONAL !ip_formula TYPE zexcel_cell_formula OPTIONAL
!ip_style TYPE zexcel_cell_style OPTIONAL !ip_style TYPE zexcel_cell_style OPTIONAL
!ip_hyperlink TYPE REF TO zcl_excel_hyperlink OPTIONAL !ip_hyperlink TYPE REF TO zcl_excel_hyperlink OPTIONAL
!ip_data_type TYPE zexcel_cell_data_type OPTIONAL !ip_data_type TYPE zexcel_cell_data_type OPTIONAL
!ip_abap_type TYPE abap_typekind OPTIONAL !ip_abap_type TYPE abap_typekind OPTIONAL
!it_rtf TYPE zexcel_t_rtf OPTIONAL !it_rtf TYPE zexcel_t_rtf OPTIONAL
!ip_column_formula_id TYPE mty_s_column_formula-id OPTIONAL !ip_column_formula_id TYPE mty_s_column_formula-id OPTIONAL
RAISING RAISING
zcx_excel . zcx_excel .
@ -701,10 +696,10 @@ CLASS zcl_excel_worksheet DEFINITION
zcx_excel. zcx_excel.
METHODS check_rtf METHODS check_rtf
IMPORTING IMPORTING
!ip_value TYPE simple !ip_value TYPE simple
VALUE(ip_style) TYPE zexcel_cell_style OPTIONAL VALUE(ip_style) TYPE zexcel_cell_style OPTIONAL
CHANGING CHANGING
!ct_rtf TYPE zexcel_t_rtf !ct_rtf TYPE zexcel_t_rtf
RAISING RAISING
zcx_excel . zcx_excel .
METHODS clear_initial_colorxfields METHODS clear_initial_colorxfields
@ -723,13 +718,13 @@ CLASS zcl_excel_worksheet DEFINITION
!ep_value_type TYPE abap_typekind . !ep_value_type TYPE abap_typekind .
METHODS move_supplied_borders METHODS move_supplied_borders
IMPORTING IMPORTING
iv_border_supplied TYPE abap_bool iv_border_supplied TYPE abap_bool
is_border TYPE zexcel_s_cstyle_border is_border TYPE zexcel_s_cstyle_border
iv_xborder_supplied TYPE abap_bool iv_xborder_supplied TYPE abap_bool
is_xborder TYPE zexcel_s_cstylex_border is_xborder TYPE zexcel_s_cstylex_border
CHANGING CHANGING
cs_complete_style_border TYPE zexcel_s_cstyle_border cs_complete_style_border TYPE zexcel_s_cstyle_border
cs_complete_stylex_border TYPE zexcel_s_cstylex_border. cs_complete_stylex_border TYPE zexcel_s_cstylex_border.
METHODS print_title_set_range . METHODS print_title_set_range .
METHODS update_dimension_range METHODS update_dimension_range
RAISING RAISING
@ -738,7 +733,7 @@ ENDCLASS.
CLASS zcl_excel_worksheet IMPLEMENTATION. CLASS ZCL_EXCEL_WORKSHEET IMPLEMENTATION.
METHOD add_comment. METHOD add_comment.
@ -845,7 +840,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
dim_mismatch_vkey = 5 dim_mismatch_vkey = 5
dim_mismatch_sema = 6 dim_mismatch_sema = 6
error_in_sema = 7 error_in_sema = 7
others = 8. OTHERS = 8.
IF sy-subrc <> 0. IF sy-subrc <> 0.
CASE sy-subrc. CASE sy-subrc.
WHEN 1. RAISE miss_guide. WHEN 1. RAISE miss_guide.
@ -3360,42 +3355,6 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDMETHOD. "set_area_formula ENDMETHOD. "set_area_formula
METHOD set_area_style.
DATA: ld_row_start TYPE zexcel_cell_row,
ld_row_end TYPE zexcel_cell_row,
ld_column_start_int TYPE zexcel_cell_column,
ld_column_end_int TYPE zexcel_cell_column,
ld_current_column TYPE zexcel_cell_column_alpha,
ld_current_row TYPE zexcel_cell_row.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row_start.
IF ld_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
ld_row_end = ld_row_start.
ENDIF.
ld_column_start_int = zcl_excel_common=>convert_column2int( ip_column_start ).
ld_column_end_int = zcl_excel_common=>convert_column2int( ip_column_end ).
IF ld_column_end_int IS INITIAL OR ip_column_end IS NOT SUPPLIED.
ld_column_end_int = ld_column_start_int.
ENDIF.
WHILE ld_column_start_int <= ld_column_end_int.
ld_current_column = zcl_excel_common=>convert_column2alpha( ld_column_start_int ).
ld_current_row = ld_row_start.
WHILE ld_current_row <= ld_row_end.
me->set_cell_style( ip_row = ld_current_row ip_column = ld_current_column
ip_style = ip_style ).
ADD 1 TO ld_current_row.
ENDWHILE.
ADD 1 TO ld_column_start_int.
ENDWHILE.
IF ip_merge IS SUPPLIED AND ip_merge = abap_true.
me->set_merge( ip_column_start = ip_column_start ip_row = ld_row_start
ip_column_end = ld_current_column ip_row_to = ld_row_end ).
ENDIF.
ENDMETHOD. "SET_AREA_STYLE
METHOD set_area_hyperlink. METHOD set_area_hyperlink.
DATA: ld_row_start TYPE zexcel_cell_row, DATA: ld_row_start TYPE zexcel_cell_row,
ld_row_end TYPE zexcel_cell_row, ld_row_end TYPE zexcel_cell_row,
@ -3442,6 +3401,42 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDMETHOD. "SET_AREA_HYPERLINK ENDMETHOD. "SET_AREA_HYPERLINK
METHOD set_area_style.
DATA: ld_row_start TYPE zexcel_cell_row,
ld_row_end TYPE zexcel_cell_row,
ld_column_start_int TYPE zexcel_cell_column,
ld_column_end_int TYPE zexcel_cell_column,
ld_current_column TYPE zexcel_cell_column_alpha,
ld_current_row TYPE zexcel_cell_row.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row_start.
IF ld_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
ld_row_end = ld_row_start.
ENDIF.
ld_column_start_int = zcl_excel_common=>convert_column2int( ip_column_start ).
ld_column_end_int = zcl_excel_common=>convert_column2int( ip_column_end ).
IF ld_column_end_int IS INITIAL OR ip_column_end IS NOT SUPPLIED.
ld_column_end_int = ld_column_start_int.
ENDIF.
WHILE ld_column_start_int <= ld_column_end_int.
ld_current_column = zcl_excel_common=>convert_column2alpha( ld_column_start_int ).
ld_current_row = ld_row_start.
WHILE ld_current_row <= ld_row_end.
me->set_cell_style( ip_row = ld_current_row ip_column = ld_current_column
ip_style = ip_style ).
ADD 1 TO ld_current_row.
ENDWHILE.
ADD 1 TO ld_column_start_int.
ENDWHILE.
IF ip_merge IS SUPPLIED AND ip_merge = abap_true.
me->set_merge( ip_column_start = ip_column_start ip_row = ld_row_start
ip_column_end = ld_current_column ip_row_to = ld_row_end ).
ENDIF.
ENDMETHOD. "SET_AREA_STYLE
METHOD set_cell. METHOD set_cell.
DATA: lv_column TYPE zexcel_cell_column, DATA: lv_column TYPE zexcel_cell_column,
@ -3539,7 +3534,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lv_value = zcl_excel_common=>number_to_excel_string( ip_value = <fs_numeric> ). lv_value = zcl_excel_common=>number_to_excel_string( ip_value = <fs_numeric> ).
ENDIF. ENDIF.
WHEN cl_abap_typedescr=>typekind_float OR cl_abap_typedescr=>typekind_packed or WHEN cl_abap_typedescr=>typekind_float OR cl_abap_typedescr=>typekind_packed OR
cl_abap_typedescr=>typekind_decfloat OR cl_abap_typedescr=>typekind_decfloat OR
cl_abap_typedescr=>typekind_decfloat16 OR cl_abap_typedescr=>typekind_decfloat16 OR
cl_abap_typedescr=>typekind_decfloat34. cl_abap_typedescr=>typekind_decfloat34.
@ -3987,7 +3982,6 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
DATA: lo_tabdescr TYPE REF TO cl_abap_structdescr, DATA: lo_tabdescr TYPE REF TO cl_abap_structdescr,
lr_data TYPE REF TO data, lr_data TYPE REF TO data,
ls_header TYPE x030l,
lt_dfies TYPE ddfields, lt_dfies TYPE ddfields,
lv_row_int TYPE zexcel_cell_row, lv_row_int TYPE zexcel_cell_row,
lv_column_int TYPE zexcel_cell_column, lv_column_int TYPE zexcel_cell_column,
@ -4006,8 +4000,6 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lo_tabdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ). lo_tabdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ).
ls_header = lo_tabdescr->get_ddic_header( ).
lt_dfies = lo_tabdescr->get_ddic_field_list( ). lt_dfies = lo_tabdescr->get_ddic_field_list( ).
* It is better to loop column by column * It is better to loop column by column