diff --git a/ZA2X/CLAS/ZCL_EXCEL_STYLE_FONT.slnk b/ZA2X/CLAS/ZCL_EXCEL_STYLE_FONT.slnk index 7137ada..1964558 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_STYLE_FONT.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_STYLE_FONT.slnk @@ -1,5 +1,5 @@ - + class ZCL_EXCEL_STYLE_FONT definition public final @@ -12,6 +12,8 @@ public section. data BOLD type FLAG . data COLOR type ZEXCEL_S_STYLE_COLOR . + constants C_NAME_ARIAL type CHAR255 value 'Arial'. "#EC NOTEXT + constants C_NAME_CALIBRI type CHAR255 value 'Calibri'. "#EC NOTEXT constants C_SCHEME_MAJOR type ZEXCEL_STYLE_FONT_SCHEME value 'major'. "#EC NOTEXT constants C_SCHEME_MINOR type ZEXCEL_STYLE_FONT_SCHEME value 'minor'. "#EC NOTEXT constants C_UNDERLINE_DOUBLE type CHAR20 value 'double'. "#EC NOTEXT @@ -35,9 +37,9 @@ public section. *"* protected components of class ZCL_EXCEL_STYLE_FONT *"* do not include other source files here!!! protected section. - *"* private components of class ZCL_EXCEL_STYLE_FONT -*"* do not include other source files here!!! -private section. + private section. +*"* private components of class ZCL_EXCEL_STYLE_FONT +*"* do not include other source files here!!! *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes @@ -48,24 +50,26 @@ private section. *"* in the implementation part of the class ABAP - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + method CONSTRUCTOR. me->color-rgb = zcl_excel_style_color=>c_black. me->color-theme = zcl_excel_style_color=>c_theme_not_set. @@ -74,8 +78,8 @@ private section. me->underline_mode = zcl_excel_style_font=>c_underline_single. endmethod. - - + + method GET_STRUCTURE. es_font-bold = me->bold. diff --git a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk index 1d7a0f1..5df6b30 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk @@ -2676,25 +2676,25 @@ endmethod. * lv_value = <ls_field_catalog>-scrtext_m. 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_m = lv_value. + <ls_field_catalog>-scrtext_l = lv_value. ELSEIF <ls_field_catalog>-scrtext_l IS NOT INITIAL. lv_value = <ls_field_catalog>-scrtext_l. - <ls_field_catalog>-scrtext_m = lv_value. ELSE. lv_value = 'Column'. " default value as Excel does - <ls_field_catalog>-scrtext_m = lv_value. + <ls_field_catalog>-scrtext_l = lv_value. ENDIF. WHILE 1 = 1. READ TABLE lt_column_name_buffer TRANSPORTING NO FIELDS WITH KEY table_line = lv_value BINARY SEARCH. IF sy-subrc <> 0. - <ls_field_catalog>-scrtext_m = lv_value. + <ls_field_catalog>-scrtext_l = lv_value. INSERT lv_value INTO TABLE lt_column_name_buffer. EXIT. ELSE. lv_syindex = sy-index. - CONCATENATE <ls_field_catalog>-scrtext_m lv_syindex INTO lv_value. + CONCATENATE <ls_field_catalog>-scrtext_l lv_syindex INTO lv_value. ENDIF. ENDWHILE. " First of all write column header @@ -2733,7 +2733,7 @@ endmethod. " totals IF <ls_field_catalog>-totals_function IS NOT INITIAL. - lv_formula = lo_table->get_totals_formula( ip_column = <ls_field_catalog>-scrtext_m ip_function = <ls_field_catalog>-totals_function ). + lv_formula = lo_table->get_totals_formula( ip_column = <ls_field_catalog>-scrtext_l ip_function = <ls_field_catalog>-totals_function ). IF <ls_field_catalog>-style_total IS NOT INITIAL. me->set_cell( ip_column = lv_column_alpha ip_row = lv_row_int diff --git a/ZA2X/CLAS/ZCL_EXCEL_WRITER_2007.slnk b/ZA2X/CLAS/ZCL_EXCEL_WRITER_2007.slnk index c6f2a1a..051f0fb 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_WRITER_2007.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_WRITER_2007.slnk @@ -4023,7 +4023,7 @@ endmethod. SHIFT lv_value LEFT DELETING LEADING '0'. lo_element2->set_attribute_ns( name = 'id' value = lv_value ). - lv_value = ls_fieldcat-scrtext_m. + lv_value = ls_fieldcat-scrtext_l. lo_element2->set_attribute_ns( name = 'name' value = lv_value ).