diff --git a/ZA2X/CLAS/ZCL_EXCEL.slnk b/ZA2X/CLAS/ZCL_EXCEL.slnk index a3edb5b..aa008b9 100644 --- a/ZA2X/CLAS/ZCL_EXCEL.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL.slnk @@ -111,19 +111,19 @@ CLASS zcl_tc_excel IMPLEMENTATION. ENDCLASS. "zcl_Tc_Excel - - - - - - - - - - - - - + + + + + + + + + + + + + METHOD zif_excel_book_properties~initialize. DATA: lv_timestamp TYPE timestampl. @@ -242,7 +242,7 @@ ENDMETHOD. endmethod. - method ADD_STATIC_STYLES. + METHOD add_static_styles. " # issue 139 FIELD-SYMBOLS: <style1> LIKE LINE OF t_stylemapping1, <style2> LIKE LINE OF t_stylemapping2. @@ -259,7 +259,7 @@ ENDMETHOD. CHANGING e_target = style ). ENDLOOP. - endmethod. +ENDMETHOD. method CONSTRUCTOR. diff --git a/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk b/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk index 34bbeaf..a5c0f20 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk @@ -2132,7 +2132,7 @@ endmethod. - method RECURSIVE_STRUCT_TO_CLASS. + METHOD recursive_struct_to_class. " # issue 139 * is working for me - but after looking through this coding I guess * I'll rewrite this to a version w/o recursion @@ -2172,6 +2172,13 @@ endmethod. CASE wa_component-type_kind. WHEN cl_abap_structdescr=>typekind_struct1 OR cl_abap_structdescr=>typekind_struct2. " Structure --> use recursion + " To avoid dump with attribute GRADTYPE of class ZCL_EXCEL_STYLE_FILL + " quick and really dirty fix -> check the attribute name + " Border has to be initialized somewhere else + IF wa_component-name EQ 'GRADTYPE'. + flag_class = abap_false. + ENDIF. + IF flag_class = abap_true AND <attribute> IS INITIAL. * Only borders will be passed as unbound references. But since we want to set a value we have to create an instance CREATE OBJECT o_border. @@ -2190,7 +2197,7 @@ endmethod. ENDCASE. ENDLOOP. -endmethod. +ENDMETHOD. @@ -2213,7 +2220,7 @@ endmethod. lv_numchars TYPE i, " Number of characters counter lv_tchar(1) TYPE c, " Temp character lv_tchar2(1) TYPE c, " Temp character - lv_cur_form(132) TYPE c, " Formula for current cell + lv_cur_form(2000) TYPE c, " Formula for current cell lv_ref_cell_addr TYPE string, " Reference cell address lv_tcol1 TYPE string, " Temp column letter lv_tcol2 TYPE string, " Temp column letter diff --git a/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk b/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk index dfef180..d0acdb0 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk @@ -1,25 +1,5 @@ - -