diff --git a/ZA2X/CLAS/ZCL_EXCEL_STYLE_NUMBER_FORMAT.slnk b/ZA2X/CLAS/ZCL_EXCEL_STYLE_NUMBER_FORMAT.slnk index db0ffa4..3b485c2 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_STYLE_NUMBER_FORMAT.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_STYLE_NUMBER_FORMAT.slnk @@ -1,11 +1,11 @@ - - + - *"* local class implementation for public class *"* use this source file for the implementation part of @@ -16,8 +16,6 @@ *"* use this source file for any macro definitions you need *"* in the implementation part of the class - - diff --git a/ZA2X/CLAS/ZCL_EXCEL_TABLE.slnk b/ZA2X/CLAS/ZCL_EXCEL_TABLE.slnk index 9ff04f1..4a6bb67 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_TABLE.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_TABLE.slnk @@ -1,5 +1,5 @@ - + *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes @@ -20,29 +20,25 @@ - - - - - - - - - - - - + + + + + + + + - + - - - - - - - + + + + + + + method GET_BOTTOM_ROW_INTEGER. DATA: lv_table_lines TYPE i. diff --git a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk index 5fb310a..f60a4db 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk @@ -1,15 +1,15 @@ - - - - - - - - - - - - + + + *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes @@ -199,9 +199,6 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION *"* use this source file for any macro definitions you need *"* in the implementation part of the class - - - @@ -225,9 +222,6 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION - - - @@ -238,6 +232,7 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION ABAP SLIS SOI + @@ -251,7 +246,7 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION - + @@ -261,19 +256,19 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION - + - - - - - - + + + + + + @@ -525,7 +520,6 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION - method BIND_ALV. data: lo_converter type ref to zcl_excel_converter. @@ -539,7 +533,7 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION it_table = it_table i_row_int = i_top i_column_int = i_left - i_table = i_table + i_table = abap_true i_style_table = table_style io_worksheet = me changing @@ -2642,8 +2636,7 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION - - + method BIND_TABLE. *--------------------------------------------------------------------* @@ -2659,8 +2652,8 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION *--------------------------------------------------------------------* CONSTANTS: - lc_top_left_column TYPE zexcel_cell_column_alpha VALUE 'A', - lc_top_left_row TYPE zexcel_cell_row VALUE 1. + lc_top_left_column TYPE zexcel_cell_column_alpha VALUE 'B', + lc_top_left_row TYPE zexcel_cell_row VALUE 3. DATA: lv_row_int TYPE zexcel_cell_row, @@ -2780,43 +2773,18 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION " Check if a column with the same name exists, if exists add a counter " If no medium description is provided we try to use small or long * lv_value = <ls_field_catalog>-scrtext_m. - field-symbols: <scrtxt1> type any, - <scrtxt2> type any, - <scrtxt3> type any. - - case iv_default_descr. - when 'M'. - assign <ls_field_catalog>-scrtext_m to <scrtxt1>. - assign <ls_field_catalog>-scrtext_s to <scrtxt2>. - assign <ls_field_catalog>-scrtext_l to <scrtxt3>. - when 'S'. - assign <ls_field_catalog>-scrtext_s to <scrtxt1>. - assign <ls_field_catalog>-scrtext_m to <scrtxt2>. - assign <ls_field_catalog>-scrtext_l to <scrtxt3>. - when 'L'. - assign <ls_field_catalog>-scrtext_l to <scrtxt1>. - assign <ls_field_catalog>-scrtext_m to <scrtxt2>. - assign <ls_field_catalog>-scrtext_s to <scrtxt3>. - when others. - assign <ls_field_catalog>-scrtext_m to <scrtxt1>. - assign <ls_field_catalog>-scrtext_s to <scrtxt2>. - assign <ls_field_catalog>-scrtext_l to <scrtxt3>. - endcase. - - - if <scrtxt1> is not initial. - lv_value = <scrtxt1>. - <ls_field_catalog>-scrtext_l = lv_value. - elseif <scrtxt2> is not initial. - lv_value = <scrtxt2>. - <ls_field_catalog>-scrtext_l = lv_value. - elseif <scrtxt3> is not initial. - lv_value = <scrtxt3>. - <ls_field_catalog>-scrtext_l = lv_value. - else. - lv_value = 'Column'. " default value as Excel does - <ls_field_catalog>-scrtext_l = lv_value. - endif. + IF <ls_field_catalog>-scrtext_m IS NOT INITIAL. + lv_value = <ls_field_catalog>-scrtext_m. + <ls_field_catalog>-scrtext_l = lv_value. + ELSEIF <ls_field_catalog>-scrtext_s IS NOT INITIAL. + lv_value = <ls_field_catalog>-scrtext_s. + <ls_field_catalog>-scrtext_l = lv_value. + ELSEIF <ls_field_catalog>-scrtext_l IS NOT INITIAL. + lv_value = <ls_field_catalog>-scrtext_l. + ELSE. + lv_value = 'Column'. " default value as Excel does + <ls_field_catalog>-scrtext_l = lv_value. + ENDIF. WHILE 1 = 1. lv_value_lowercase = lv_value. TRANSLATE lv_value_lowercase TO LOWER CASE. @@ -2827,9 +2795,10 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION EXIT. ELSE. lv_syindex = sy-index. - CONCATENATE <ls_field_catalog>-scrtext_l lv_syindex INTO lv_value. + DO lv_syindex TIMES. + CONCATENATE lv_value ' ' INTO lv_value RESPECTING BLANKS. + ENDDO. ENDIF. - ENDWHILE. " First of all write column header IF <ls_field_catalog>-style_header IS NOT INITIAL. @@ -2850,7 +2819,7 @@ ENDCLASS. "lcl_gui_alv_grid DEFINITION " issue #290 Add formula support in table IF <ls_field_catalog>-formula EQ abap_true. IF <ls_field_catalog>-style IS NOT INITIAL. - IF <ls_field_catalog>-abap_type IS NOT INITIAL. + IF <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> @@ -3344,72 +3313,72 @@ ENDMETHOD. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + METHOD change_cell_style. " issue # 139