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

Merge pull request #507 from larshp/master

Browse Source 
simplify some IFs
This commit is contained in:
Ivan 2017-11-15 10:04:15 -06:00 committed by GitHub
commit 58d98d362b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 65 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/zcl_excel_common.clas.abap
View File

@ -1029,11 +1029,10 @@ METHOD get_fieldcatalog.
<fcat>-abap_type = lo_salv_column_table->get_ddic_inttype( ).
<fcat>-dynpfld = 'X'. " What in the world would we exclude here?
IF <fcat>-position = 1. " except for the MANDT-field of most tables ( 1st column that is )
IF lo_salv_column_table->get_ddic_datatype( ) = 'CLNT'.
" except for the MANDT-field of most tables ( 1st column that is )
IF <fcat>-position = 1 AND lo_salv_column_table->get_ddic_datatype( ) = 'CLNT'.
CLEAR <fcat>-dynpfld.
ENDIF.
ENDIF.
* For fields that don't a description ( i.e. defined by "field type i," )
* just use the fieldname as description - that is better than nothing

9
src/zcl_excel_converter.clas.abap
View File

@ -302,8 +302,7 @@ METHOD ask_option.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
IF l_returncode = 'A'.
ELSEIF l_returncode = 'A'.
RAISE EXCEPTION TYPE zcx_excel.
ELSE.
LOOP AT lt_sval INTO ls_sval.
@ -315,7 +314,6 @@ METHOD ask_option.
set_option( is_option = ws_option ) .
rs_option = ws_option.
ENDIF.
ENDIF.
ENDMETHOD.
@ -865,9 +863,8 @@ method CREATE_WORKSHEET.
IF i_table = abap_true.
l_freeze_col = bind_table( i_style_table = i_style_table ) .
ELSE.
ELSEIF wt_filter IS NOT INITIAL.
* Let's check for filter.
IF wt_filter IS NOT INITIAL.
wo_autofilter = wo_excel->add_new_autofilter( io_sheet = wo_worksheet ).
l_freeze_col = bind_cells( ) .
set_autofilter_area( ) .
@ -875,8 +872,6 @@ method CREATE_WORKSHEET.
l_freeze_col = bind_cells( ) .
ENDIF.
ENDIF.
* Check for freeze panes
IF ws_layout-is_fixed = abap_true.
IF l_freeze_col = 0.

4
src/zcl_excel_converter_alv.clas.abap
View File

@ -323,8 +323,7 @@ method GET_COLOR.
l_line = sy-tabix.
IF ws_layo-info_fname IS NOT INITIAL.
ASSIGN COMPONENT ws_layo-info_fname OF STRUCTURE <fs_stab> TO <fs>.
IF sy-subrc = 0.
IF <fs> IS NOT INITIAL.
IF sy-subrc = 0 AND <fs> IS NOT INITIAL.
l_color = <fs>.
IF l_color(1) = 'C'.
READ TABLE wt_colors INTO ls_color WITH TABLE KEY col = l_color+1(1)
@ -340,7 +339,6 @@ method GET_COLOR.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
if ws_layo-ctab_fname is not initial.
assign component ws_layo-ctab_fname of structure <fs_stab> to <ft_slis>.

17
src/zcl_excel_worksheet.clas.abap
View File

@ -2176,10 +2176,8 @@ method BIND_ALV_OLE2.
clear: wa_subtot_indexs.
read table lt_subtot_indexs into wa_subtot_indexs
with key index = l_save_index.
IF sy-subrc = 0.
if <item> = '0'.
IF sy-subrc = 0 AND <item> = '0'.
clear: contentsitem-value.
endif.
ENDIF.
endif.
endif.
@ -2422,8 +2420,7 @@ method BIND_ALV_OLE2.
read table currcells index counter into curritem2.
if curritem-left eq curritem2-left.
length = curritem-top + curritem-rows.
if length eq curritem2-top.
if curritem-decimals eq curritem2-decimals.
if length eq curritem2-top and curritem-decimals eq curritem2-decimals.
move curritem to curritem3.
curritem3-rows = curritem3-rows + curritem2-rows.
curritem-left = -1.
@ -2434,7 +2431,6 @@ method BIND_ALV_OLE2.
found = 'X'.
endif.
endif.
endif.
enddo.
if found is initial.
exit.
@ -2460,8 +2456,7 @@ method BIND_ALV_OLE2.
if curritem-top eq curritem2-top and curritem-rows eq
curritem2-rows.
length = curritem-left + curritem-columns.
if length eq curritem2-left.
if curritem-decimals eq curritem2-decimals.
if length eq curritem2-left and curritem-decimals eq curritem2-decimals.
move curritem to curritem3.
curritem3-columns = curritem3-columns + curritem2-columns.
curritem-left = -1.
@ -2472,7 +2467,6 @@ method BIND_ALV_OLE2.
found = 'X'.
endif.
endif.
endif.
enddo.
if found is initial.
exit.
@ -2922,11 +2916,9 @@ METHOD bind_table.
ip_formula = <fs_fldval>
ip_style = <ls_field_catalog>-style ).
ENDIF.
ELSE.
IF <ls_field_catalog>-abap_type IS NOT INITIAL.
ELSEIF <ls_field_catalog>-abap_type IS NOT INITIAL.
me->set_cell( ip_column = lv_column_alpha
ip_row = lv_row_int
ip_formula = <fs_fldval>
ip_abap_type = <ls_field_catalog>-abap_type ).
ELSE.
@ -2934,7 +2926,6 @@ METHOD bind_table.
ip_row = lv_row_int
ip_formula = <fs_fldval> ).
ENDIF.
ENDIF.
ELSE.
IF <ls_field_catalog>-style IS NOT INITIAL.
IF <ls_field_catalog>-abap_type IS NOT INITIAL.

4
src/zcl_excel_writer_2007.clas.abap
View File

@ -3395,15 +3395,13 @@ METHOD create_xl_sheet.
value = lv_value ).
" defaultColWidth
lo_column_default = io_worksheet->get_default_column( ).
IF lo_column_default IS BOUND.
IF lo_column_default->get_width( ) >= 0.
IF lo_column_default IS BOUND AND lo_column_default->get_width( ) >= 0.
lv_value = lo_column_default->get_width( ).
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_defaultcolwidth
value = lv_value ).
ENDIF.
ENDIF.
" outlineLevelCol
WHILE lo_column_iterator->has_next( ) = abap_true.

4
src/zcl_excel_writer_huge_file.clas.abap
View File

@ -433,11 +433,9 @@ METHOD create_xl_sheet.
ENDIF.
lo_column_default = io_worksheet->get_default_column( ).
IF lo_column_default IS BOUND.
IF lo_column_default->get_width( ) >= 0.
IF lo_column_default IS BOUND AND lo_column_default->get_width( ) >= 0.
l_worksheet-defaultcolwidth = lo_column_default->get_width( ).
ENDIF.
ENDIF.
lo_row_default = io_worksheet->get_default_row( ).
IF lo_row_default IS BOUND.