).
ENDCASE.
@@ -250,10 +243,7 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
RETURN.
ENDIF.
-
- ADD 1 TO lv_col.
-
- ENDWHILE.
+ ENDLOOP.
ENDMETHOD.
diff --git a/src/zcl_excel_comment.clas.abap b/src/zcl_excel_comment.clas.abap
index d25310e..f9ad9e0 100644
--- a/src/zcl_excel_comment.clas.abap
+++ b/src/zcl_excel_comment.clas.abap
@@ -5,29 +5,73 @@ CLASS zcl_excel_comment DEFINITION
PUBLIC SECTION.
+ CONSTANTS default_right_column TYPE i VALUE 4. "#EC NOTEXT
+ CONSTANTS default_bottom_row TYPE i VALUE 15. "#EC NOTEXT
+
METHODS constructor .
- METHODS get_name
+ METHODS get_bottom_offset
RETURNING
- VALUE(r_name) TYPE string .
+ VALUE(rp_result) TYPE i .
+ METHODS get_bottom_row
+ RETURNING
+ VALUE(rp_result) TYPE i .
METHODS get_index
RETURNING
VALUE(rp_index) TYPE string .
+ METHODS get_left_column
+ RETURNING
+ VALUE(rp_result) TYPE i .
+ METHODS get_left_offset
+ RETURNING
+ VALUE(rp_result) TYPE i .
+ METHODS get_name
+ RETURNING
+ VALUE(r_name) TYPE string .
METHODS get_ref
RETURNING
VALUE(rp_ref) TYPE string .
+ METHODS get_right_column
+ RETURNING
+ VALUE(rp_result) TYPE i .
+ METHODS get_right_offset
+ RETURNING
+ VALUE(rp_result) TYPE i .
METHODS get_text
RETURNING
VALUE(rp_text) TYPE string .
+ METHODS get_top_offset
+ RETURNING
+ VALUE(rp_result) TYPE i .
+ METHODS get_top_row
+ RETURNING
+ VALUE(rp_result) TYPE i .
METHODS set_text
IMPORTING
- !ip_text TYPE string
- !ip_ref TYPE string OPTIONAL .
+ !ip_text TYPE string
+ !ip_ref TYPE string OPTIONAL
+ !ip_left_column TYPE i DEFAULT 2
+ !ip_left_offset TYPE i DEFAULT 15
+ !ip_top_row TYPE i DEFAULT 11
+ !ip_top_offset TYPE i DEFAULT 10
+ !ip_right_column TYPE i DEFAULT default_right_column
+ !ip_right_offset TYPE i DEFAULT 31
+ !ip_bottom_row TYPE i DEFAULT default_bottom_row
+ !ip_bottom_offset TYPE i DEFAULT 9.
+
PROTECTED SECTION.
PRIVATE SECTION.
+ DATA bottom_offset TYPE i .
+ DATA bottom_row TYPE i .
DATA index TYPE string .
DATA ref TYPE string .
+ DATA left_column TYPE i .
+ DATA left_offset TYPE i .
+ DATA right_column TYPE i .
+ DATA right_offset TYPE i .
DATA text TYPE string .
+ DATA top_offset TYPE i .
+ DATA top_row TYPE i .
ENDCLASS.
@@ -40,11 +84,31 @@ CLASS zcl_excel_comment IMPLEMENTATION.
ENDMETHOD.
+ METHOD get_bottom_offset.
+ rp_result = bottom_offset.
+ ENDMETHOD.
+
+
+ METHOD get_bottom_row.
+ rp_result = bottom_row.
+ ENDMETHOD.
+
+
METHOD get_index.
rp_index = me->index.
ENDMETHOD.
+ METHOD get_left_column.
+ rp_result = left_column.
+ ENDMETHOD.
+
+
+ METHOD get_left_offset.
+ rp_result = left_offset.
+ ENDMETHOD.
+
+
METHOD get_name.
ENDMETHOD.
@@ -55,16 +119,57 @@ CLASS zcl_excel_comment IMPLEMENTATION.
ENDMETHOD.
+ METHOD get_right_column.
+ rp_result = right_column.
+ ENDMETHOD.
+
+
+ METHOD get_right_offset.
+ rp_result = right_offset.
+ ENDMETHOD.
+
+
METHOD get_text.
rp_text = me->text.
ENDMETHOD.
+ METHOD get_top_offset.
+ rp_result = top_offset.
+ ENDMETHOD.
+
+
+ METHOD get_top_row.
+ rp_result = top_row.
+ ENDMETHOD.
+
+
METHOD set_text.
me->text = ip_text.
IF ip_ref IS SUPPLIED.
me->ref = ip_ref.
ENDIF.
+
+ me->left_column = ip_left_column.
+ me->left_offset = ip_left_offset.
+
+ me->top_row = ip_top_row.
+ me->top_offset = ip_top_offset.
+
+ IF ip_right_column IS NOT INITIAL.
+ me->right_column = ip_right_column.
+ ELSE.
+ me->right_column = default_right_column.
+ ENDIF.
+ me->right_offset = ip_right_offset.
+
+ IF ip_bottom_row IS NOT INITIAL.
+ me->bottom_row = ip_bottom_row.
+ ELSE.
+ me->bottom_row = default_bottom_row.
+ ENDIF.
+ me->bottom_offset = ip_bottom_offset.
ENDMETHOD.
+
ENDCLASS.
diff --git a/src/zcl_excel_common.clas.abap b/src/zcl_excel_common.clas.abap
index ab317bf..917486b 100644
--- a/src/zcl_excel_common.clas.abap
+++ b/src/zcl_excel_common.clas.abap
@@ -48,7 +48,7 @@ CLASS zcl_excel_common DEFINITION
zcx_excel.
CLASS-METHODS convert_columnrow2column_a_row
IMPORTING
- !i_columnrow TYPE clike
+ !i_columnrow TYPE clike
EXPORTING
!e_column TYPE zexcel_cell_column_alpha
!e_column_int TYPE zexcel_cell_column
@@ -77,7 +77,7 @@ CLASS zcl_excel_common DEFINITION
!e_row TYPE zexcel_cell_row .
CLASS-METHODS clone_ixml_with_namespaces
IMPORTING
- element TYPE REF TO if_ixml_element
+ element TYPE REF TO if_ixml_element
RETURNING
VALUE(result) TYPE REF TO if_ixml_element.
CLASS-METHODS date_to_excel_string
@@ -102,9 +102,22 @@ CLASS zcl_excel_common DEFINITION
VALUE(ev_unescaped_string) TYPE string
RAISING
zcx_excel .
+ "! Convert date from Excel format to SAP
+ "! @parameter ip_value | String being an Excel number representing a date (e.g. 45141 means 2023/08/03,
+ "! 45141.58832 means 2023/08/03 14:07:11). Important: if the input is date +
+ "! time, use the additional parameter IP_EXACT = 'X'.
+ "! @parameter ip_exact | If the input value also contains the time i.e. a fractional part exists
+ "! (e.g. 45141.58832 means 2023/08/03 14:07:11), ip_exact = 'X' will
+ "! return the exact date (e.g. 2023/08/03), while ip_exact = ' ' (default) will
+ "! return the rounded-up date (e.g. 2023/08/04). NB: this rounding-up doesn't
+ "! happen if the time is before 12:00:00.
+ "! @parameter ep_value | Date corresponding to the input Excel number. It returns a null date if
+ "! the input value contains non-numeric characters.
+ "! @raising zcx_excel | The numeric input corresponds to a date before 1900/1/1 or after 9999/12/31.
CLASS-METHODS excel_string_to_date
IMPORTING
!ip_value TYPE zexcel_cell_value
+ !ip_exact TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(ep_value) TYPE d
RAISING
@@ -133,6 +146,7 @@ CLASS zcl_excel_common DEFINITION
CLASS-METHODS number_to_excel_string
IMPORTING
VALUE(ip_value) TYPE numeric
+ ip_currency TYPE waers_curc OPTIONAL
RETURNING
VALUE(ep_value) TYPE zexcel_cell_value .
CLASS-METHODS recursive_class_to_struct
@@ -152,6 +166,11 @@ CLASS zcl_excel_common DEFINITION
!ip_value TYPE t
RETURNING
VALUE(ep_value) TYPE zexcel_cell_value .
+ CLASS-METHODS utclong_to_excel_string
+ IMPORTING
+ !ip_utclong TYPE any
+ RETURNING
+ VALUE(ep_value) TYPE zexcel_cell_value .
TYPES: t_char10 TYPE c LENGTH 10.
TYPES: t_char255 TYPE c LENGTH 255.
CLASS-METHODS split_file
@@ -498,8 +517,8 @@ CLASS zcl_excel_common IMPLEMENTATION.
METHOD convert_column_a_row2columnrow.
- DATA: lv_row_alpha TYPE string,
- lv_column_alpha TYPE zexcel_cell_column_alpha.
+ DATA: lv_row_alpha TYPE string,
+ lv_column_alpha TYPE zexcel_cell_column_alpha.
lv_row_alpha = i_row.
lv_column_alpha = zcl_excel_common=>convert_column2alpha( i_column ).
@@ -846,7 +865,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
lv_value = ip_value.
- FIND REGEX `\s|'` IN lv_value. " \s finds regular and white spaces
+ FIND REGEX `\s|'|-` IN lv_value. " \s finds regular and white spaces
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF `'` IN lv_value WITH `''`.
CONCATENATE `'` lv_value `'` INTO lv_value .
@@ -859,11 +878,16 @@ CLASS zcl_excel_common IMPLEMENTATION.
METHOD excel_string_to_date.
DATA: lv_date_int TYPE i.
+ DATA lv_error_text TYPE string.
CHECK ip_value IS NOT INITIAL AND ip_value CN ' 0'.
TRY.
- lv_date_int = ip_value.
+ IF ip_exact = abap_false.
+ lv_date_int = ip_value.
+ ELSE.
+ lv_date_int = trunc( ip_value ).
+ ENDIF.
IF lv_date_int NOT BETWEEN 1 AND 2958465.
zcx_excel=>raise_text( 'Unable to interpret date' ).
ENDIF.
@@ -875,7 +899,8 @@ CLASS zcl_excel_common IMPLEMENTATION.
ep_value = ep_value + 1.
ENDIF.
CATCH cx_sy_conversion_error.
- zcx_excel=>raise_text( 'Index out of bounds' ).
+ lv_error_text = |String "{ ip_value }" is not a valid Excel date|.
+ zcx_excel=>raise_text( lv_error_text ).
ENDTRY.
ENDMETHOD.
@@ -897,7 +922,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
TRY.
- lv_day_fraction = ip_value.
+ lv_day_fraction = frac( ip_value ).
lv_seconds_in_day = lv_day_fraction * lc_seconds_in_day.
ep_value = lv_seconds_in_day.
@@ -944,6 +969,15 @@ CLASS zcl_excel_common IMPLEMENTATION.
-scrtext_s = ls_salv_t_column_ref-r_column->get_short_text( ).
-scrtext_m = ls_salv_t_column_ref-r_column->get_medium_text( ).
-scrtext_l = ls_salv_t_column_ref-r_column->get_long_text( ).
+ -currency_column = ls_salv_t_column_ref-r_column->get_currency_column( ).
+ " If currency column not in structure then clear the field again
+ IF -currency_column IS NOT INITIAL.
+ READ TABLE lt_salv_t_column_ref WITH KEY columnname = -currency_column TRANSPORTING NO FIELDS.
+ IF sy-subrc <> 0.
+ CLEAR -currency_column.
+ ENDIF.
+ ENDIF.
+
IF ip_conv_exit_length = abap_false.
-abap_type = lo_salv_column_table->get_ddic_inttype( ).
ENDIF.
@@ -1007,7 +1041,11 @@ CLASS zcl_excel_common IMPLEMENTATION.
METHOD number_to_excel_string.
DATA: lv_value_c TYPE c LENGTH 100.
- WRITE ip_value TO lv_value_c EXPONENT 0 NO-GROUPING NO-SIGN.
+ IF ip_currency IS INITIAL.
+ WRITE ip_value TO lv_value_c EXPONENT 0 NO-GROUPING NO-SIGN.
+ ELSE.
+ WRITE ip_value TO lv_value_c EXPONENT 0 NO-GROUPING NO-SIGN CURRENCY ip_currency.
+ ENDIF.
REPLACE ALL OCCURRENCES OF ',' IN lv_value_c WITH '.'.
ep_value = lv_value_c.
@@ -1691,4 +1729,20 @@ CLASS zcl_excel_common IMPLEMENTATION.
ENDMETHOD.
+
+ METHOD utclong_to_excel_string.
+ DATA lv_timestamp TYPE timestamp.
+ DATA lv_date TYPE d.
+ DATA lv_time TYPE t.
+
+ " The data type UTCLONG and the method UTCLONG2TSTMP_SHORT are not available before ABAP 7.54
+ " -> Need of a dynamic call to avoid compilation error before ABAP 7.54
+
+ CALL METHOD cl_abap_tstmp=>('UTCLONG2TSTMP_SHORT')
+ EXPORTING utclong = ip_utclong
+ RECEIVING timestamp = lv_timestamp.
+ CONVERT TIME STAMP lv_timestamp TIME ZONE 'UTC ' INTO DATE lv_date TIME lv_time.
+ ep_value = |{ date_to_excel_string( lv_date ) + time_to_excel_string( lv_time ) }|.
+ ENDMETHOD.
+
ENDCLASS.
diff --git a/src/zcl_excel_common.clas.testclasses.abap b/src/zcl_excel_common.clas.testclasses.abap
index e4b0987..a6e2970 100644
--- a/src/zcl_excel_common.clas.testclasses.abap
+++ b/src/zcl_excel_common.clas.testclasses.abap
@@ -45,6 +45,9 @@ CLASS lcl_excel_common_test DEFINITION FOR TESTING
METHODS date_to_excel_string4 FOR TESTING RAISING cx_static_check.
METHODS date_to_excel_string5 FOR TESTING RAISING cx_static_check.
METHODS date_to_excel_string6 FOR TESTING RAISING cx_static_check.
+ METHODS amount_to_excel_string1 FOR TESTING RAISING cx_static_check.
+ METHODS amount_to_excel_string2 FOR TESTING RAISING cx_static_check.
+ METHODS amount_to_excel_string3 FOR TESTING RAISING cx_static_check.
METHODS: encrypt_password FOR TESTING.
METHODS: excel_string_to_date FOR TESTING.
METHODS excel_string_to_time1 FOR TESTING RAISING cx_static_check.
@@ -52,6 +55,7 @@ CLASS lcl_excel_common_test DEFINITION FOR TESTING
METHODS excel_string_to_time3 FOR TESTING RAISING cx_static_check.
METHODS excel_string_to_time4 FOR TESTING RAISING cx_static_check.
METHODS excel_string_to_time5 FOR TESTING RAISING cx_static_check.
+ METHODS excel_string_to_time6 FOR TESTING RAISING cx_static_check.
METHODS time_to_excel_string1 FOR TESTING RAISING cx_static_check.
METHODS time_to_excel_string2 FOR TESTING RAISING cx_static_check.
METHODS time_to_excel_string3 FOR TESTING RAISING cx_static_check.
@@ -122,6 +126,25 @@ CLASS lcl_excel_common_test DEFINITION FOR TESTING
METHODS is_cell_in_range_upperside_out FOR TESTING.
METHODS is_cell_in_range_rightside_out FOR TESTING.
METHODS is_cell_in_range_lowerside_out FOR TESTING.
+ METHODS recursive_struct_to_class FOR TESTING RAISING cx_static_check.
+ METHODS escape_string_whitespace1 FOR TESTING.
+ METHODS escape_string_whitespace2 FOR TESTING.
+ METHODS escape_string_whitespace3 FOR TESTING.
+ METHODS escape_string_quote FOR TESTING.
+ METHODS escape_string_hyphen FOR TESTING.
+ METHODS escape_string_regular FOR TESTING.
+
+ENDCLASS.
+
+CLASS ltc_utclong_to_excel_string DEFINITION
+ FOR TESTING
+ RISK LEVEL HARMLESS
+ DURATION SHORT.
+
+ PRIVATE SECTION.
+
+ METHODS simple FOR TESTING.
+
ENDCLASS.
@@ -341,37 +364,37 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
METHOD convert_column_a_row2columnrow.
- DATA: cell_coords TYPE string.
+ DATA: cell_coords TYPE string.
- cell_coords = zcl_excel_common=>convert_column_a_row2columnrow( i_column = 'B' i_row = 6 ).
+ cell_coords = zcl_excel_common=>convert_column_a_row2columnrow( i_column = 'B' i_row = 6 ).
- cl_abap_unit_assert=>assert_equals( act = cell_coords exp = 'B6' ).
+ cl_abap_unit_assert=>assert_equals( act = cell_coords exp = 'B6' ).
- cell_coords = zcl_excel_common=>convert_column_a_row2columnrow( i_column = 2 i_row = 6 ).
+ cell_coords = zcl_excel_common=>convert_column_a_row2columnrow( i_column = 2 i_row = 6 ).
- cl_abap_unit_assert=>assert_equals( act = cell_coords exp = 'B6' ).
+ cl_abap_unit_assert=>assert_equals( act = cell_coords exp = 'B6' ).
ENDMETHOD.
METHOD convert_columnrow2column_a_row.
- DATA: column TYPE zexcel_cell_column_alpha,
- column_int TYPE zexcel_cell_column,
- row TYPE zexcel_cell_row.
+ DATA: column TYPE zexcel_cell_column_alpha,
+ column_int TYPE zexcel_cell_column,
+ row TYPE zexcel_cell_row.
- zcl_excel_common=>convert_columnrow2column_a_row(
- EXPORTING
- i_columnrow = 'B6'
- IMPORTING
- e_column = column
- e_column_int = column_int
- e_row = row ).
+ zcl_excel_common=>convert_columnrow2column_a_row(
+ EXPORTING
+ i_columnrow = 'B6'
+ IMPORTING
+ e_column = column
+ e_column_int = column_int
+ e_row = row ).
- cl_abap_unit_assert=>assert_equals( act = column exp = 'B' msg = 'Invalid column (alpha)' ).
- cl_abap_unit_assert=>assert_equals( act = column_int exp = 2 msg = 'Invalid column (numeric)' ).
- cl_abap_unit_assert=>assert_equals( act = row exp = 6 msg = 'Invalid row' ).
+ cl_abap_unit_assert=>assert_equals( act = column exp = 'B' msg = 'Invalid column (alpha)' ).
+ cl_abap_unit_assert=>assert_equals( act = column_int exp = 2 msg = 'Invalid column (numeric)' ).
+ cl_abap_unit_assert=>assert_equals( act = row exp = 6 msg = 'Invalid row' ).
ENDMETHOD.
@@ -461,6 +484,47 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
ENDMETHOD.
+ METHOD amount_to_excel_string1.
+ DATA ep_value TYPE zexcel_cell_value.
+
+ ep_value = zcl_excel_common=>number_to_excel_string( ip_value = '1003.99'
+ ip_currency = 'EUR' ).
+
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '1003.99'
+ msg = 'Wrong currency amount conversion'
+ level = if_aunit_constants=>critical ).
+
+ ENDMETHOD.
+
+ METHOD amount_to_excel_string2.
+ DATA ep_value TYPE zexcel_cell_value.
+
+ ep_value = zcl_excel_common=>number_to_excel_string( ip_value = '-1003.99'
+ ip_currency = 'HUF' ).
+
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '-100399'
+ msg = 'Wrong currency amount conversion'
+ level = if_aunit_constants=>critical ).
+
+ ENDMETHOD.
+
+ METHOD amount_to_excel_string3.
+ DATA ep_value TYPE zexcel_cell_value.
+
+ ep_value = zcl_excel_common=>number_to_excel_string( ip_value = '0'
+ ip_currency = 'HUF' ).
+
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '0'
+ msg = 'Wrong currency amount conversion'
+ level = if_aunit_constants=>critical ).
+
+ ENDMETHOD.
METHOD encrypt_password.
* ========================
@@ -636,6 +700,45 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
level = if_aunit_constants=>fatal
).
ENDTRY.
+
+* 45141.58832 (2023/08/03 14:07:11) ip_exact = abap_false -> 2023/08/04
+ TRY.
+ ep_value = zcl_excel_common=>excel_string_to_date( ip_value = '45141.58832'
+ ip_exact = abap_false ).
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '20230804' ).
+ CATCH zcx_excel INTO lx_excel.
+ cl_abap_unit_assert=>fail(
+ msg = 'unexpected exception'
+ level = if_aunit_constants=>critical ).
+ ENDTRY.
+
+* 45141.58832 (2023/08/03 14:07:11) ip_exact = abap_true -> 2023/08/03
+ TRY.
+ ep_value = zcl_excel_common=>excel_string_to_date( ip_value = '45141.58832'
+ ip_exact = abap_true ).
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '20230803' ).
+ CATCH zcx_excel INTO lx_excel.
+ cl_abap_unit_assert=>fail(
+ msg = 'unexpected exception'
+ level = if_aunit_constants=>critical ).
+ ENDTRY.
+
+* 45141.48832 (2023/08/03 11:43:11) ip_exact = abap_false -> 2023/08/03
+ TRY.
+ ep_value = zcl_excel_common=>excel_string_to_date( ip_value = '45141.48832'
+ ip_exact = abap_false ).
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '20230803' ).
+ CATCH zcx_excel INTO lx_excel.
+ cl_abap_unit_assert=>fail(
+ msg = 'unexpected exception'
+ level = if_aunit_constants=>critical ).
+ ENDTRY.
ENDMETHOD. "excel_String_To_Date
@@ -715,6 +818,21 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
ENDTRY.
ENDMETHOD.
+ METHOD excel_string_to_time6.
+ DATA ep_value TYPE t.
+* 45141.58832 (2023/08/03 14:07:11) -> 14:07:11
+ TRY.
+ ep_value = zcl_excel_common=>excel_string_to_time( ip_value = '45141.58832' ).
+
+ cl_abap_unit_assert=>assert_equals(
+ act = ep_value
+ exp = '140711' ).
+
+ CATCH zcx_excel INTO lx_excel.
+ cl_abap_unit_assert=>fail( lx_excel->get_text( ) ).
+ ENDTRY.
+ ENDMETHOD.
+
METHOD time_to_excel_string1.
DATA ep_value TYPE zexcel_cell_value.
@@ -1597,4 +1715,141 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
ENDTRY.
ENDMETHOD. "is_cell_in_range_lowerside_out.
+ METHOD recursive_struct_to_class.
+
+ DATA style TYPE REF TO zcl_excel_style.
+ DATA complete_style TYPE zexcel_s_cstyle_complete.
+ DATA complete_stylex TYPE zexcel_s_cstylex_complete.
+
+ CREATE OBJECT style.
+
+ complete_style-number_format-format_code = 'hello'.
+ complete_stylex-number_format-format_code = abap_true.
+
+ zcl_excel_common=>recursive_struct_to_class(
+ EXPORTING
+ i_source = complete_style
+ i_sourcex = complete_stylex
+ CHANGING
+ e_target = style ).
+
+ cl_abap_unit_assert=>assert_equals(
+ act = style->number_format->format_code
+ exp = 'hello' ).
+ ENDMETHOD.
+
+ METHOD escape_string_hyphen.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `A-B`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `'A-B'`
+ msg = 'Escaping - failed' ).
+
+ ENDMETHOD.
+
+ METHOD escape_string_quote.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `A'B`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `'A''B'`
+ msg = `Escaping ' failed` ).
+
+ ENDMETHOD.
+
+ METHOD escape_string_regular.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `Ab1`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `Ab1`
+ msg = 'Escaped for no reason' ).
+
+ ENDMETHOD.
+
+ METHOD escape_string_whitespace1.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `A B`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `'A B'`
+ msg = `Escaping ' ' (space) failed` ).
+
+ ENDMETHOD.
+
+ METHOD escape_string_whitespace2.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `A` && cl_abap_char_utilities=>horizontal_tab && `B`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `'A` && cl_abap_char_utilities=>horizontal_tab && `B'`
+ msg = `Escaping TAB failed` ).
+
+ ENDMETHOD.
+
+ METHOD escape_string_whitespace3.
+ DATA: name TYPE string,
+ escaped_name TYPE string.
+
+ name = `A` && cl_abap_char_utilities=>newline && `B`.
+
+ escaped_name = zcl_excel_common=>escape_string( name ).
+
+ cl_abap_unit_assert=>assert_equals( act = escaped_name
+ exp = `'A` && cl_abap_char_utilities=>newline && `B'`
+ msg = `Escaping LF failed` ).
+
+ ENDMETHOD.
+
+ENDCLASS.
+
+
+CLASS ltc_utclong_to_excel_string IMPLEMENTATION.
+ METHOD simple.
+ FIELD-SYMBOLS TYPE abap_typekind.
+ FIELD-SYMBOLS TYPE simple.
+ DATA lo_rtti_utclong TYPE REF TO cl_abap_datadescr.
+ DATA lv_variable_utclong TYPE REF TO data.
+ DATA lv_excel_string TYPE zexcel_cell_value.
+
+ " Skip this test before ABAP 7.54 (UTCLONG does not exist).
+ " Need of dynamic referencing and dynamic call to avoid compilation error before ABAP 7.54.
+
+ ASSIGN ('CL_ABAP_TYPEDESCR=>TYPEKIND_UTCLONG') TO .
+ IF sy-subrc <> 0.
+ RETURN.
+ ENDIF.
+
+ CALL METHOD cl_abap_elemdescr=>('GET_UTCLONG')
+ RECEIVING p_result = lo_rtti_utclong.
+ CREATE DATA lv_variable_utclong TYPE HANDLE lo_rtti_utclong.
+ ASSIGN lv_variable_utclong->* TO .
+
+ = '2024-08-04 19:47:00.9999999'.
+ lv_excel_string = zcl_excel_common=>utclong_to_excel_string( ).
+
+ cl_abap_unit_assert=>assert_equals( exp = '45508.82430555555556'
+ act = lv_excel_string ).
+ ENDMETHOD.
ENDCLASS.
diff --git a/src/zcl_excel_font.clas.abap b/src/zcl_excel_font.clas.abap
index b670008..343d90e 100644
--- a/src/zcl_excel_font.clas.abap
+++ b/src/zcl_excel_font.clas.abap
@@ -5,6 +5,21 @@ CLASS zcl_excel_font DEFINITION
PUBLIC SECTION.
+ TYPES ty_font_height TYPE n LENGTH 3.
+ CONSTANTS lc_default_font_height TYPE ty_font_height VALUE '110' ##NO_TEXT.
+ CONSTANTS lc_default_font_name TYPE zexcel_style_font_name VALUE 'Calibri' ##NO_TEXT.
+
+ CLASS-METHODS calculate_text_width
+ IMPORTING
+ !iv_font_name TYPE zexcel_style_font_name
+ !iv_font_height TYPE ty_font_height
+ !iv_flag_bold TYPE abap_bool
+ !iv_flag_italic TYPE abap_bool
+ !iv_cell_value TYPE zexcel_cell_value
+ RETURNING
+ VALUE(rv_width) TYPE f .
+ PROTECTED SECTION.
+ PRIVATE SECTION.
TYPES:
BEGIN OF mty_s_font_metric,
char TYPE c LENGTH 1,
@@ -17,7 +32,7 @@ CLASS zcl_excel_font DEFINITION
TYPES:
BEGIN OF mty_s_font_cache,
font_name TYPE zexcel_style_font_name,
- font_height TYPE tdfontsize,
+ font_height TYPE ty_font_height,
flag_bold TYPE abap_bool,
flag_italic TYPE abap_bool,
th_font_metrics TYPE mty_th_font_metrics,
@@ -27,21 +42,8 @@ CLASS zcl_excel_font DEFINITION
TYPE HASHED TABLE OF mty_s_font_cache
WITH UNIQUE KEY font_name font_height flag_bold flag_italic .
- CONSTANTS lc_default_font_height TYPE tdfontsize VALUE '110' ##NO_TEXT.
- CONSTANTS lc_default_font_name TYPE zexcel_style_font_name VALUE 'Calibri' ##NO_TEXT.
CLASS-DATA mth_font_cache TYPE mty_th_font_cache .
- CLASS-METHODS calculate_text_width
- IMPORTING
- !iv_font_name TYPE zexcel_style_font_name
- !iv_font_height TYPE tdfontsize
- !iv_flag_bold TYPE abap_bool
- !iv_flag_italic TYPE abap_bool
- !iv_cell_value TYPE zexcel_cell_value
- RETURNING
- VALUE(rv_width) TYPE f .
- PROTECTED SECTION.
- PRIVATE SECTION.
ENDCLASS.
diff --git a/src/zcl_excel_reader_2007.clas.abap b/src/zcl_excel_reader_2007.clas.abap
index a6cf882..19a6c57 100644
--- a/src/zcl_excel_reader_2007.clas.abap
+++ b/src/zcl_excel_reader_2007.clas.abap
@@ -110,6 +110,13 @@ CLASS zcl_excel_reader_2007 DEFINITION
END OF t_shared_string .
TYPES:
t_shared_strings TYPE STANDARD TABLE OF t_shared_string WITH DEFAULT KEY .
+ TYPES:
+ BEGIN OF t_table,
+ id TYPE string,
+ target TYPE string,
+ END OF t_table .
+ TYPES:
+ t_tables TYPE HASHED TABLE OF t_table WITH UNIQUE KEY id .
DATA shared_strings TYPE t_shared_strings .
DATA styles TYPE t_style_refs .
@@ -272,6 +279,15 @@ CLASS zcl_excel_reader_2007 DEFINITION
!io_worksheet TYPE REF TO zcl_excel_worksheet
RAISING
zcx_excel .
+ "! Load worksheet tables
+ METHODS load_worksheet_tables
+ IMPORTING
+ io_ixml_worksheet TYPE REF TO if_ixml_document
+ io_worksheet TYPE REF TO zcl_excel_worksheet
+ iv_dirname TYPE string
+ it_tables TYPE t_tables
+ RAISING
+ zcx_excel .
CLASS-METHODS resolve_path
IMPORTING
!ip_path TYPE string
@@ -294,7 +310,12 @@ CLASS zcl_excel_reader_2007 DEFINITION
iv_path TYPE string
!ip_excel TYPE REF TO zcl_excel
RAISING
- zcx_excel .
+ zcx_excel.
+ METHODS provided_string_is_escaped
+ IMPORTING
+ !value TYPE string
+ RETURNING
+ VALUE(is_escaped) TYPE abap_bool.
CONSTANTS: BEGIN OF namespace,
x14ac TYPE string VALUE 'http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac',
@@ -2176,6 +2197,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ENDIF.
WHEN OTHERS.
+ lo_range = -worksheet->add_new_range( ).
ENDCASE.
ENDIF.
@@ -2239,12 +2261,16 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
END OF lty_column.
TYPES: BEGIN OF lty_sheetview,
- showgridlines TYPE zexcel_show_gridlines,
- tabselected TYPE string,
- zoomscalenormal TYPE string,
- workbookviewid TYPE string,
- showrowcolheaders TYPE string,
- righttoleft TYPE string,
+ showgridlines TYPE zexcel_show_gridlines,
+ tabselected TYPE string,
+ zoomscale TYPE string,
+ zoomscalenormal TYPE string,
+ zoomscalepagelayoutview TYPE string,
+ zoomscalesheetlayoutview TYPE string,
+ workbookviewid TYPE string,
+ showrowcolheaders TYPE string,
+ righttoleft TYPE string,
+ topleftcell TYPE string,
END OF lty_sheetview.
TYPES: BEGIN OF lty_mergecell,
@@ -2321,6 +2347,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lc_rel_hyperlink TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink',
lc_rel_comments TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/comments',
lc_rel_printer TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/printerSettings'.
+ CONSTANTS lc_rel_table TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/table'.
DATA: lo_ixml_worksheet TYPE REF TO if_ixml_document,
lo_ixml_cells TYPE REF TO if_ixml_node_collection,
@@ -2415,6 +2442,8 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lt_datavalidation_range TYPE TABLE OF string,
lt_rtf TYPE zexcel_t_rtf,
ex TYPE REF TO cx_root.
+ DATA lt_tables TYPE t_tables.
+ DATA ls_table TYPE t_table.
FIELD-SYMBOLS:
TYPE t_shared_string.
@@ -2485,6 +2514,10 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
CATCH zcx_excel.
ENDTRY.
+ WHEN lc_rel_table.
+ MOVE-CORRESPONDING ls_relationship TO ls_table.
+ INSERT ls_table INTO TABLE lt_tables.
+
WHEN OTHERS.
ENDCASE.
@@ -2508,6 +2541,16 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ENDIF.
ENDIF.
+ " Read tables (must be done before loading sheet contents)
+ TRY.
+ me->load_worksheet_tables( io_ixml_worksheet = lo_ixml_worksheet
+ io_worksheet = io_worksheet
+ iv_dirname = lv_dirname
+ it_tables = lt_tables ).
+ CATCH zcx_excel. " Ignore reading errors - pass everything we were able to identify
+ ENDTRY.
+
+ " Sheet contents
lo_ixml_rows = lo_ixml_worksheet->get_elements_by_tag_name_ns( name = 'row' uri = namespace-main ).
lo_ixml_iterator = lo_ixml_rows->create_iterator( ).
lo_ixml_row_elem ?= lo_ixml_iterator->get_next( ).
@@ -2523,6 +2566,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lv_max_col = lv_index.
ENDIF.
lv_cell_row = ls_row-r.
+ lv_cell_column = ''.
lo_row = io_worksheet->get_row( lv_cell_row ).
IF ls_row-customheight = '1'.
lo_row->set_row_height( ip_row_height = ls_row-ht ip_custom_height = abap_true ).
@@ -2559,6 +2603,26 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_cell_elem CHANGING cp_structure = ls_cell ).
+ " Determine the column number
+ IF ls_cell-r IS NOT INITIAL.
+ " Note that the row should remain unchanged = the one defined by
+ " i.e. in ..., ls_cell-r would be "A1",
+ " the "1" of A1 should always be equal to the "1" of convert_columnrow2column_a_row( EXPORTING
+ i_columnrow = ls_cell-r
+ IMPORTING
+ e_column = lv_cell_column
+ e_row = lv_cell_row ).
+ ELSE.
+ " The column is the column after the last cell previously initialized in the same row.
+ " NB: the row is unchanged = the one defined by e.g. "1" in ...
+ IF lv_cell_column IS INITIAL.
+ lv_cell_column = 'A'.
+ ELSE.
+ lv_cell_column = zcl_excel_common=>convert_column2alpha( zcl_excel_common=>convert_column2int( lv_cell_column ) + 1 ).
+ ENDIF.
+ ENDIF.
+
lo_ixml_value_elem = lo_ixml_cell_elem->find_from_name_ns( name = 'v' uri = namespace-main ).
CASE ls_cell-t.
@@ -2607,11 +2671,6 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_formula_elem CHANGING cp_structure = ls_formula_attributes ).
IF ls_formula_attributes-t = 'shared'.
- zcl_excel_common=>convert_columnrow2column_a_row( EXPORTING
- i_columnrow = ls_cell-r
- IMPORTING
- e_column = lv_cell_column
- e_row = lv_cell_row ).
TRY.
CLEAR ls_ref_formula.
@@ -2636,11 +2695,6 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
IF lv_cell_value IS NOT INITIAL
OR lv_cell_formula IS NOT INITIAL
OR lv_style_guid IS NOT INITIAL.
- zcl_excel_common=>convert_columnrow2column_a_row( EXPORTING
- i_columnrow = ls_cell-r
- IMPORTING
- e_column = lv_cell_column
- e_row = lv_cell_row ).
io_worksheet->set_cell( ip_column = lv_cell_column " cell_elem Column
ip_row = lv_cell_row " cell_elem row_elem
ip_value = lv_cell_value " cell_elem Value
@@ -2743,7 +2797,8 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
* issue #367 - hide columns from
IF ls_column-max = zcl_excel_common=>c_excel_sheet_max_col. " Max = very right column
- IF ls_column-hidden = 1 " all hidden
+ IF ( ls_column-hidden = lc_xml_attr_true
+ OR ls_column-hidden = lc_xml_attr_true_int ) " all hidden
AND ls_column-min > 0.
io_worksheet->zif_excel_sheet_properties~hide_columns_from = zcl_excel_common=>convert_column2alpha( ls_column-min ).
ELSEIF ls_column-style > ''.
@@ -2774,7 +2829,13 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
OR ls_sheetview-righttoleft = lc_xml_attr_true_int.
io_worksheet->zif_excel_sheet_properties~set_right_to_left( abap_true ).
ENDIF.
-
+ io_worksheet->zif_excel_sheet_properties~zoomscale = ls_sheetview-zoomscale.
+ io_worksheet->zif_excel_sheet_properties~zoomscale_normal = ls_sheetview-zoomscalenormal.
+ io_worksheet->zif_excel_sheet_properties~zoomscale_pagelayoutview = ls_sheetview-zoomscalepagelayoutview.
+ io_worksheet->zif_excel_sheet_properties~zoomscale_sheetlayoutview = ls_sheetview-zoomscalesheetlayoutview.
+ IF ls_sheetview-topleftcell IS NOT INITIAL.
+ io_worksheet->set_sheetview_top_left_cell( ls_sheetview-topleftcell ).
+ ENDIF.
"Add merge cell information
lo_ixml_mergecells = lo_ixml_worksheet->get_elements_by_tag_name_ns( name = 'mergeCell' uri = namespace-main ).
@@ -2866,6 +2927,21 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ls_odd_footer-left_value = lo_ixml_hf_value_elem->get_value( ).
ENDIF.
+ lo_ixml_hf_value_elem = lo_ixml_headerfooter_elem->find_from_name_ns( name = 'oddHeader' uri = namespace-main ).
+ IF lo_ixml_hf_value_elem IS NOT INITIAL.
+ ls_odd_header-left_value = lo_ixml_hf_value_elem->get_value( ).
+ ENDIF.
+
+ lo_ixml_hf_value_elem = lo_ixml_headerfooter_elem->find_from_name_ns( name = 'evenFooter' uri = namespace-main ).
+ IF lo_ixml_hf_value_elem IS NOT INITIAL.
+ ls_even_footer-left_value = lo_ixml_hf_value_elem->get_value( ).
+ ENDIF.
+
+ lo_ixml_hf_value_elem = lo_ixml_headerfooter_elem->find_from_name_ns( name = 'evenHeader' uri = namespace-main ).
+ IF lo_ixml_hf_value_elem IS NOT INITIAL.
+ ls_even_header-left_value = lo_ixml_hf_value_elem->get_value( ).
+ ENDIF.
+
* 2do§1 Header/footer
" TODO.. get the rest.
@@ -2876,21 +2952,12 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ENDIF.
- " Start fix 194 Read attributes HIDDEN, OUTLINELEVEL, COLLAPSED in ZCL_EXCEL_READER_2007
" Read pane
lo_ixml_pane_elem = lo_ixml_sheetview_elem->find_from_name_ns( name = 'pane' uri = namespace-main ).
IF lo_ixml_pane_elem IS BOUND.
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_pane_elem CHANGING cp_structure = ls_excel_pane ).
- " Issue #194
- " Replace REGEX with method from the common class
- zcl_excel_common=>convert_columnrow2column_a_row( EXPORTING
- i_columnrow = ls_excel_pane-topleftcell
- IMPORTING
- e_column = lv_pane_cell_col_a " Cell Column
- e_row = lv_pane_cell_row ). " Natural number
- lv_pane_cell_col = zcl_excel_common=>convert_column2int( lv_pane_cell_col_a ).
- SUBTRACT 1 FROM: lv_pane_cell_col,
- lv_pane_cell_row.
+ lv_pane_cell_col = ls_excel_pane-xsplit.
+ lv_pane_cell_row = ls_excel_pane-ysplit.
IF lv_pane_cell_col > 0
AND lv_pane_cell_row > 0.
io_worksheet->freeze_panes( ip_num_rows = lv_pane_cell_row
@@ -2900,8 +2967,10 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ELSE.
io_worksheet->freeze_panes( ip_num_columns = lv_pane_cell_col ).
ENDIF.
+ IF ls_excel_pane-topleftcell IS NOT INITIAL.
+ io_worksheet->set_pane_top_left_cell( ls_excel_pane-topleftcell ).
+ ENDIF.
ENDIF.
- " End fix 194 Read attributes HIDDEN, OUTLINELEVEL, COLLAPSED in ZCL_EXCEL_READER_2007
" Start fix 276 Read data validations
lo_ixml_datavalidations = lo_ixml_worksheet->get_elements_by_tag_name_ns( name = 'dataValidation' uri = namespace-main ).
@@ -3877,6 +3946,130 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ENDMETHOD.
+ METHOD load_worksheet_tables.
+
+ DATA lo_ixml_table_columns TYPE REF TO if_ixml_node_collection.
+ DATA lo_ixml_table_column TYPE REF TO if_ixml_element.
+ DATA lo_ixml_table TYPE REF TO if_ixml_element.
+ DATA lo_ixml_table_style TYPE REF TO if_ixml_element.
+ DATA lt_field_catalog TYPE zexcel_t_fieldcatalog.
+ DATA ls_field_catalog TYPE zexcel_s_fieldcatalog.
+ DATA lo_ixml_iterator TYPE REF TO if_ixml_node_iterator.
+ DATA ls_table_settings TYPE zexcel_s_table_settings.
+ DATA lv_path TYPE string.
+ DATA lt_components TYPE abap_component_tab.
+ DATA ls_component TYPE abap_componentdescr.
+ DATA lo_rtti_table TYPE REF TO cl_abap_tabledescr.
+ DATA lv_dref_table TYPE REF TO data.
+ DATA lv_num_lines TYPE i.
+ DATA lo_line_type TYPE REF TO cl_abap_structdescr.
+
+ DATA: BEGIN OF ls_table,
+ id TYPE string,
+ name TYPE string,
+ displayname TYPE string,
+ ref TYPE string,
+ totalsrowshown TYPE string,
+ END OF ls_table.
+
+ DATA: BEGIN OF ls_table_style,
+ name TYPE string,
+ showrowstripes TYPE string,
+ showcolumnstripes TYPE string,
+ END OF ls_table_style.
+
+ DATA: BEGIN OF ls_table_column,
+ id TYPE string,
+ name TYPE string,
+ END OF ls_table_column.
+
+ FIELD-SYMBOLS LIKE LINE OF it_tables.
+ FIELD-SYMBOLS TYPE STANDARD TABLE.
+ FIELD-SYMBOLS TYPE zexcel_s_fieldcatalog.
+
+ LOOP AT it_tables ASSIGNING .
+
+ CONCATENATE iv_dirname -target INTO lv_path.
+ lv_path = resolve_path( lv_path ).
+
+ lo_ixml_table = me->get_ixml_from_zip_archive( lv_path )->get_root_element( ).
+ fill_struct_from_attributes( EXPORTING
+ ip_element = lo_ixml_table
+ CHANGING
+ cp_structure = ls_table ).
+
+ lo_ixml_table_style ?= lo_ixml_table->find_from_name( 'tableStyleInfo' ).
+ fill_struct_from_attributes( EXPORTING
+ ip_element = lo_ixml_table_style
+ CHANGING
+ cp_structure = ls_table_style ).
+
+ ls_table_settings-table_name = ls_table-name.
+ ls_table_settings-table_style = ls_table_style-name.
+ ls_table_settings-show_column_stripes = boolc( ls_table_style-showcolumnstripes = '1' ).
+ ls_table_settings-show_row_stripes = boolc( ls_table_style-showrowstripes = '1' ).
+
+ zcl_excel_common=>convert_range2column_a_row(
+ EXPORTING
+ i_range = ls_table-ref
+ IMPORTING
+ e_column_start = ls_table_settings-top_left_column
+ e_column_end = ls_table_settings-bottom_right_column
+ e_row_start = ls_table_settings-top_left_row
+ e_row_end = ls_table_settings-bottom_right_row ).
+
+ lo_ixml_table_columns = lo_ixml_table->get_elements_by_tag_name( name = 'tableColumn' ).
+ lo_ixml_iterator = lo_ixml_table_columns->create_iterator( ).
+ lo_ixml_table_column ?= lo_ixml_iterator->get_next( ).
+ CLEAR lt_field_catalog.
+ WHILE lo_ixml_table_column IS BOUND.
+
+ CLEAR ls_table_column.
+ fill_struct_from_attributes( EXPORTING
+ ip_element = lo_ixml_table_column
+ CHANGING
+ cp_structure = ls_table_column ).
+
+ ls_field_catalog-position = lines( lt_field_catalog ) + 1.
+ ls_field_catalog-fieldname = |COMP_{ ls_field_catalog-position PAD = '0' ALIGN = RIGHT WIDTH = 4 }|.
+ ls_field_catalog-scrtext_l = ls_table_column-name.
+ ls_field_catalog-dynpfld = abap_true.
+ ls_field_catalog-abap_type = cl_abap_typedescr=>typekind_string.
+ APPEND ls_field_catalog TO lt_field_catalog.
+
+ lo_ixml_table_column ?= lo_ixml_iterator->get_next( ).
+
+ ENDWHILE.
+
+ CLEAR lt_components.
+ LOOP AT lt_field_catalog ASSIGNING .
+ CLEAR ls_component.
+ ls_component-name = -fieldname.
+ ls_component-type = cl_abap_elemdescr=>get_string( ).
+ APPEND ls_component TO lt_components.
+ ENDLOOP.
+
+ lo_line_type = cl_abap_structdescr=>get( lt_components ).
+ lo_rtti_table = cl_abap_tabledescr=>get( lo_line_type ).
+ CREATE DATA lv_dref_table TYPE HANDLE lo_rtti_table.
+ ASSIGN lv_dref_table->* TO .
+
+ lv_num_lines = ls_table_settings-bottom_right_row - ls_table_settings-top_left_row.
+ DO lv_num_lines TIMES.
+ APPEND INITIAL LINE TO .
+ ENDDO.
+
+ io_worksheet->bind_table(
+ EXPORTING
+ ip_table =
+ it_field_catalog = lt_field_catalog
+ is_table_settings = ls_table_settings ).
+
+ ENDLOOP.
+
+ ENDMETHOD.
+
+
METHOD read_from_applserver.
DATA: lv_filelength TYPE i,
@@ -4115,17 +4308,21 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
METHOD unescape_string_value.
- DATA: lt_character_positions TYPE TABLE OF i,
- lv_character_position TYPE i,
- lv_character_position_plus_2 TYPE i,
- lv_character_position_plus_6 TYPE i,
- lv_unescaped_value TYPE string.
+ DATA:
+ "Marks the Position before the searched Pattern occurs in the String
+ "For example in String A_X_TEST_X, the Table is filled with 1 and 8
+ lt_character_positions TYPE TABLE OF i,
+ lv_character_position TYPE i,
+ lv_character_position_plus_2 TYPE i,
+ lv_character_position_plus_6 TYPE i,
+ lv_unescaped_value TYPE string.
- " The text "_x...._", with "_x" not "_X", with exactly 4 ".", each being 0-9 a-f or A-F (case insensitive), is interpreted
- " like Unicode character U+.... (e.g. "_x0041_" is rendered like "A") is for characters.
+ " The text "_x...._", with "_x" not "_X". Each "." represents one character, being 0-9 a-f or A-F (case insensitive),
+ " is interpreted like Unicode character U+.... (e.g. "_x0041_" is rendered like "A") is for characters.
" To not interpret it, Excel replaces the first "_" with "_x005f_".
result = i_value.
- IF result CS '_x'.
+
+ IF provided_string_is_escaped( i_value ) = abap_true.
CLEAR lt_character_positions.
APPEND sy-fdpos TO lt_character_positions.
lv_character_position = sy-fdpos + 1.
@@ -4138,10 +4335,11 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
LOOP AT lt_character_positions INTO lv_character_position.
lv_character_position_plus_2 = lv_character_position + 2.
lv_character_position_plus_6 = lv_character_position + 6.
- IF substring( val = result off = lv_character_position_plus_2 len = 4 ) CO '0123456789ABCDEFGHIJKLMNOPQRSTUVWabcdefghijklmnopqrstuvw'
- AND substring( val = result off = lv_character_position_plus_6 len = 1 ) = '_'.
- lv_unescaped_value = cl_abap_conv_in_ce=>uccp( to_upper( substring( val = result off = lv_character_position_plus_2 len = 4 ) ) ).
- REPLACE SECTION OFFSET lv_character_position LENGTH 7 OF result WITH lv_unescaped_value.
+ IF substring( val = result off = lv_character_position_plus_2 len = 4 ) CO '0123456789ABCDEFabcdef'.
+ IF substring( val = result off = lv_character_position_plus_6 len = 1 ) = '_'.
+ lv_unescaped_value = cl_abap_conv_in_ce=>uccp( to_upper( substring( val = result off = lv_character_position_plus_2 len = 4 ) ) ).
+ REPLACE SECTION OFFSET lv_character_position LENGTH 7 OF result WITH lv_unescaped_value.
+ ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
@@ -4264,4 +4462,19 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
iv_zcl_excel_classname = iv_zcl_excel_classname ).
ENDMETHOD.
+ METHOD provided_string_is_escaped.
+
+ "Check if passed value is really an escaped Character
+ IF value CS '_x'.
+ is_escaped = abap_true.
+ TRY.
+ IF substring( val = value off = sy-fdpos + 6 len = 1 ) <> '_'.
+ is_escaped = abap_false.
+ ENDIF.
+ CATCH cx_sy_range_out_of_bounds.
+ is_escaped = abap_false.
+ ENDTRY.
+ ENDIF.
+ ENDMETHOD.
+
ENDCLASS.
diff --git a/src/zcl_excel_reader_2007.clas.testclasses.abap b/src/zcl_excel_reader_2007.clas.testclasses.abap
index 8d0f7a9..9d47491 100644
--- a/src/zcl_excel_reader_2007.clas.testclasses.abap
+++ b/src/zcl_excel_reader_2007.clas.testclasses.abap
@@ -15,6 +15,7 @@ CLASS ltc_unescape_string_value DEFINITION
METHODS no_escaping FOR TESTING.
METHODS one_escaped_character FOR TESTING.
METHODS two_escaped_characters FOR TESTING.
+ METHODS skip_when_not_escaped FOR TESTING RAISING cx_static_check.
METHODS run_cut
IMPORTING
@@ -52,4 +53,18 @@ CLASS ltc_unescape_string_value IMPLEMENTATION.
run_cut( input = '_x0000_ and _xFFFF_' exp = |{ cl_abap_conv_in_ce=>uccp( '0000' ) } and { cl_abap_conv_in_ce=>uccp( 'FFFF' ) }| ).
ENDMETHOD.
+ METHOD skip_when_not_escaped.
+ DATA: lo_excel TYPE REF TO zcl_excel_reader_2007,
+ value TYPE string VALUE 'TEST_X'.
+
+ CREATE OBJECT lo_excel.
+
+ "Method is used to check for "_x", but its not an escaped charcater, output should input.
+ lo_excel->unescape_string_value( i_value = value ).
+
+ cl_abap_unit_assert=>assert_equals(
+ exp = value
+ act = value ).
+ ENDMETHOD.
+
ENDCLASS.
diff --git a/src/zcl_excel_reader_2007.clas.xml b/src/zcl_excel_reader_2007.clas.xml
index d7843d3..e03ffa7 100644
--- a/src/zcl_excel_reader_2007.clas.xml
+++ b/src/zcl_excel_reader_2007.clas.xml
@@ -253,6 +253,11 @@
E
Loads pagemargings of worksheet
+
+ LOAD_WORKSHEET_TABLES
+ E
+ Load worksheet tables
+
MT_DXF_STYLES
E
diff --git a/src/zcl_excel_style_changer.clas.testclasses.abap b/src/zcl_excel_style_changer.clas.testclasses.abap
new file mode 100644
index 0000000..352d324
--- /dev/null
+++ b/src/zcl_excel_style_changer.clas.testclasses.abap
@@ -0,0 +1,41 @@
+CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL.
+
+ PRIVATE SECTION.
+ DATA mi_cut TYPE REF TO zif_excel_style_changer.
+ DATA mo_excel TYPE REF TO zcl_excel.
+ DATA mo_worksheet TYPE REF TO zcl_excel_worksheet.
+
+ METHODS setup RAISING cx_static_check.
+ METHODS apply FOR TESTING RAISING cx_static_check.
+ENDCLASS.
+
+
+CLASS ltcl_test IMPLEMENTATION.
+
+ METHOD setup.
+ CREATE OBJECT mo_excel.
+ mo_worksheet = mo_excel->get_active_worksheet( ).
+ mi_cut = zcl_excel_style_changer=>create( mo_excel ).
+ ENDMETHOD.
+
+ METHOD apply.
+
+ DATA lv_guid TYPE zexcel_cell_style.
+
+ mo_worksheet->set_cell(
+ ip_column = 'B'
+ ip_row = 2
+ ip_value = 'Hello' ).
+
+ mi_cut->set_font_bold( abap_true ).
+
+ lv_guid = mi_cut->apply(
+ ip_worksheet = mo_worksheet
+ ip_column = 'B'
+ ip_row = 2 ).
+
+ mo_excel->get_style_to_guid( lv_guid ).
+
+ ENDMETHOD.
+
+ENDCLASS.
diff --git a/src/zcl_excel_style_changer.clas.xml b/src/zcl_excel_style_changer.clas.xml
index 5b262b8..a357d83 100644
--- a/src/zcl_excel_style_changer.clas.xml
+++ b/src/zcl_excel_style_changer.clas.xml
@@ -10,6 +10,7 @@
X
X
X
+ X
diff --git a/src/zcl_excel_style_fill.clas.abap b/src/zcl_excel_style_fill.clas.abap
index f20b06d..0ca8cc7 100644
--- a/src/zcl_excel_style_fill.clas.abap
+++ b/src/zcl_excel_style_fill.clas.abap
@@ -135,10 +135,10 @@ CLASS zcl_excel_style_fill IMPLEMENTATION.
gradtype-type = c_fill_gradient_path.
gradtype-position1 = '0'.
gradtype-position2 = '1'.
- gradtype-bottom = '0.5'.
- gradtype-top = '0.5'.
- gradtype-left = '0.5'.
- gradtype-right = '0.5'.
+ gradtype-bottom = '1'.
+ gradtype-top = '1'.
+ gradtype-left = '1'.
+ gradtype-right = '1'.
ENDCASE.
ENDMETHOD. "build_gradient
diff --git a/src/zcl_excel_style_number_format.clas.abap b/src/zcl_excel_style_number_format.clas.abap
index 9064556..c0717dd 100644
--- a/src/zcl_excel_style_number_format.clas.abap
+++ b/src/zcl_excel_style_number_format.clas.abap
@@ -25,7 +25,10 @@ CLASS zcl_excel_style_number_format DEFINITION
CONSTANTS c_format_currency_simple2 TYPE zexcel_number_format VALUE '$#,##0.00_);($#,##0.00)'. "#EC NOTEXT
CONSTANTS c_format_currency_simple_red2 TYPE zexcel_number_format VALUE '$#,##0.00_);[Red]($#,##0.00)'. "#EC NOTEXT
CONSTANTS c_format_date_datetime TYPE zexcel_number_format VALUE 'd/m/y h:mm'. "#EC NOTEXT
+ "! Deprecated. Do not use this one, its value is dd/mm/yy, instead use the constant *_ddmmyyyy_new
CONSTANTS c_format_date_ddmmyyyy TYPE zexcel_number_format VALUE 'dd/mm/yy'. "#EC NOTEXT
+ CONSTANTS c_format_date_ddmmyyyy_new TYPE zexcel_number_format VALUE 'dd/mm/yyyy'. "#EC NOTEXT
+ CONSTANTS c_format_date_ddmmyy TYPE zexcel_number_format VALUE 'dd/mm/yy'. "#EC NOTEXT
CONSTANTS c_format_date_ddmmyyyydot TYPE zexcel_number_format VALUE 'dd\.mm\.yyyy'. "#EC NOTEXT
CONSTANTS c_format_date_dmminus TYPE zexcel_number_format VALUE 'd-m'. "#EC NOTEXT
CONSTANTS c_format_date_dmyminus TYPE zexcel_number_format VALUE 'd-m-y'. "#EC NOTEXT
diff --git a/src/zcl_excel_theme.clas.abap b/src/zcl_excel_theme.clas.abap
index c712349..fffd590 100644
--- a/src/zcl_excel_theme.clas.abap
+++ b/src/zcl_excel_theme.clas.abap
@@ -71,10 +71,7 @@ CLASS zcl_excel_theme DEFINITION
DATA extlst TYPE REF TO zcl_excel_theme_extlst .
PRIVATE SECTION.
- DATA theme_changed TYPE abap_bool .
- DATA theme_read TYPE abap_bool .
DATA name TYPE string .
- DATA xmls_a TYPE string .
ENDCLASS.
@@ -100,7 +97,6 @@ CLASS zcl_excel_theme IMPLEMENTATION.
lo_node_theme = io_theme_xml->get_root_element( )." find_from_name( name = c_theme ).
IF lo_node_theme IS BOUND.
name = lo_node_theme->get_attribute( name = c_theme_name ).
- xmls_a = lo_node_theme->get_attribute( name = c_theme_xmlns ).
lo_theme_children = lo_node_theme->get_children( ).
lo_theme_iterator = lo_theme_children->create_iterator( ).
lo_theme_element ?= lo_theme_iterator->get_next( ).
@@ -208,7 +204,6 @@ CLASS zcl_excel_theme IMPLEMENTATION.
lo_document = lo_ixml->create_document( ).
lo_document->set_encoding( lo_encoding ).
lo_document->set_standalone( abap_true ).
- lo_document->set_namespace_prefix( prefix = 'a' ).
lo_element_root = lo_document->create_simple_element_ns( prefix = c_theme_prefix
name = c_theme
diff --git a/src/zcl_excel_theme_color_scheme.clas.abap b/src/zcl_excel_theme_color_scheme.clas.abap
index eb0cc04..887b64f 100644
--- a/src/zcl_excel_theme_color_scheme.clas.abap
+++ b/src/zcl_excel_theme_color_scheme.clas.abap
@@ -100,7 +100,7 @@ CLASS zcl_excel_theme_color_scheme IMPLEMENTATION.
parent = lo_elements ).
lo_scheme_element->set_attribute( name = c_name value = name ).
- "! Adding colors to scheme
+ " Adding colors to scheme
lo_color ?= io_document->create_simple_element_ns( prefix = zcl_excel_theme=>c_theme_prefix
name = c_dark1
parent = lo_scheme_element ).
diff --git a/src/zcl_excel_worksheet.clas.abap b/src/zcl_excel_worksheet.clas.abap
index 394e3cf..bfa660a 100644
--- a/src/zcl_excel_worksheet.clas.abap
+++ b/src/zcl_excel_worksheet.clas.abap
@@ -110,6 +110,8 @@ CLASS zcl_excel_worksheet DEFINITION
formula_in_other_column TYPE string,
END OF c_messages .
DATA mt_merged_cells TYPE mty_ts_merge READ-ONLY .
+ DATA pane_top_left_cell TYPE string READ-ONLY.
+ DATA sheetview_top_left_cell TYPE string READ-ONLY.
METHODS add_comment
IMPORTING
@@ -180,6 +182,7 @@ CLASS zcl_excel_worksheet DEFINITION
VALUE(iv_default_descr) TYPE c OPTIONAL
!iv_no_line_if_empty TYPE abap_bool DEFAULT abap_false
!ip_conv_exit_length TYPE abap_bool DEFAULT abap_false
+ !ip_conv_curr_amt_ext TYPE abap_bool DEFAULT abap_false
EXPORTING
!es_table_settings TYPE zexcel_s_table_settings
RAISING
@@ -507,6 +510,7 @@ CLASS zcl_excel_worksheet DEFINITION
!ip_hyperlink TYPE REF TO zcl_excel_hyperlink OPTIONAL
!ip_data_type TYPE zexcel_cell_data_type OPTIONAL
!ip_abap_type TYPE abap_typekind OPTIONAL
+ !ip_currency TYPE waers_curc OPTIONAL
!it_rtf TYPE zexcel_t_rtf OPTIONAL
!ip_column_formula_id TYPE mty_s_column_formula-id OPTIONAL
!ip_conv_exit_length TYPE abap_bool DEFAULT abap_false
@@ -555,6 +559,11 @@ CLASS zcl_excel_worksheet DEFINITION
!ip_formula TYPE zexcel_cell_formula OPTIONAL "added parameter
RAISING
zcx_excel .
+ METHODS set_pane_top_left_cell
+ IMPORTING
+ !iv_columnrow TYPE csequence
+ RAISING
+ zcx_excel.
METHODS set_print_gridlines
IMPORTING
!i_print_gridlines TYPE zexcel_print_gridlines .
@@ -571,6 +580,11 @@ CLASS zcl_excel_worksheet DEFINITION
!iv_collapsed TYPE abap_bool
RAISING
zcx_excel .
+ METHODS set_sheetview_top_left_cell
+ IMPORTING
+ !iv_columnrow TYPE csequence
+ RAISING
+ zcx_excel.
METHODS set_show_gridlines
IMPORTING
!i_show_gridlines TYPE zexcel_show_gridlines .
@@ -681,6 +695,7 @@ CLASS zcl_excel_worksheet DEFINITION
IMPORTING
!it_field_catalog TYPE zexcel_t_fieldcatalog OPTIONAL
!iv_begin_row TYPE int4 DEFAULT 2
+ !iv_end_row TYPE int4 DEFAULT 0
EXPORTING
!et_data TYPE STANDARD TABLE
!er_data TYPE REF TO data
@@ -701,6 +716,11 @@ CLASS zcl_excel_worksheet DEFINITION
*"* private components of class ZCL_EXCEL_WORKSHEET
*"* do not include other source files here!!!
TYPES ty_table_settings TYPE STANDARD TABLE OF zexcel_s_table_settings WITH DEFAULT KEY.
+
+ CONSTANTS typekind_utclong TYPE abap_typekind VALUE 'p'.
+
+ CLASS-DATA variable_utclong TYPE REF TO data.
+
DATA active_cell TYPE zexcel_s_cell_data .
DATA charts TYPE REF TO zcl_excel_drawings .
DATA columns TYPE REF TO zcl_excel_columns .
@@ -982,7 +1002,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
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_row TYPE zexcel_cell_row VALUE 1,
+ lc_no_currency TYPE waers_curc VALUE IS INITIAL.
DATA:
lv_row_int TYPE zexcel_cell_row,
@@ -1008,7 +1029,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
TYPE zexcel_s_fieldcatalog,
TYPE zexcel_s_fieldcatalog,
TYPE any,
- TYPE any.
+ TYPE any,
+ TYPE waers.
ls_settings = is_table_settings.
@@ -1074,6 +1096,10 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
+ IF -width IS NOT INITIAL.
+ set_column_width( ip_column = lv_column_alpha ip_width_fix = -width ).
+ ENDIF.
+
" First of all write column header
IF -style_header IS NOT INITIAL.
me->set_cell( ip_column = lv_column_alpha
@@ -1107,6 +1133,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
LOOP AT ip_table ASSIGNING .
ASSIGN COMPONENT -fieldname OF STRUCTURE TO .
+
" issue #290 Add formula support in table
IF -formula EQ abap_true.
IF -style IS NOT INITIAL.
@@ -1158,18 +1185,26 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ip_column_formula_id = ls_column_formula-id ).
ENDIF.
ELSE.
+ IF -currency_column IS INITIAL OR ip_conv_curr_amt_ext = abap_false.
+ ASSIGN lc_no_currency TO .
+ ELSE.
+ ASSIGN COMPONENT -currency_column OF STRUCTURE TO .
+ ENDIF.
+
IF -style IS NOT INITIAL.
IF -abap_type IS NOT INITIAL.
- me->set_cell( ip_column = lv_column_alpha
- ip_row = lv_row_int
- ip_value =
- ip_abap_type = -abap_type
- ip_style = -style
- ip_conv_exit_length = ip_conv_exit_length ).
+ me->set_cell( ip_column = lv_column_alpha
+ ip_row = lv_row_int
+ ip_value =
+ ip_abap_type = -abap_type
+ ip_currency =
+ ip_style = -style
+ ip_conv_exit_length = ip_conv_exit_length ).
ELSE.
me->set_cell( ip_column = lv_column_alpha
ip_row = lv_row_int
ip_value =
+ ip_currency =
ip_style = -style
ip_conv_exit_length = ip_conv_exit_length ).
ENDIF.
@@ -1178,11 +1213,13 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
me->set_cell( ip_column = lv_column_alpha
ip_row = lv_row_int
ip_abap_type = -abap_type
+ ip_currency =
ip_value =
ip_conv_exit_length = ip_conv_exit_length ).
ELSE.
me->set_cell( ip_column = lv_column_alpha
ip_row = lv_row_int
+ ip_currency =
ip_value =
ip_conv_exit_length = ip_conv_exit_length ).
ENDIF.
@@ -1275,7 +1312,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ld_flag_italic TYPE abap_bool VALUE abap_false,
ld_date TYPE d,
ld_date_char TYPE c LENGTH 50,
- ld_font_height TYPE tdfontsize VALUE zcl_excel_font=>lc_default_font_height,
+ ld_font_height TYPE zcl_excel_font=>ty_font_height VALUE zcl_excel_font=>lc_default_font_height,
ld_font_name TYPE zexcel_style_font_name VALUE zcl_excel_font=>lc_default_font_name.
" Determine cell content and cell style
@@ -1999,12 +2036,20 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD class_constructor.
+ FIELD-SYMBOLS TYPE abap_typekind.
+ DATA lo_rtti TYPE REF TO cl_abap_datadescr.
c_messages-formula_id_only_is_possible = |{ 'If Formula ID is used, value and formula must be empty'(008) }|.
c_messages-column_formula_id_not_found = |{ 'The Column Formula does not exist'(009) }|.
c_messages-formula_not_in_this_table = |{ 'The cell uses a Column Formula which should be part of the same table'(010) }|.
c_messages-formula_in_other_column = |{ 'The cell uses a Column Formula which is in a different column'(011) }|.
+ ASSIGN ('CL_ABAP_TYPEDESCR=>TYPEKIND_UTCLONG') TO .
+ IF sy-subrc = 0.
+ CALL METHOD cl_abap_elemdescr=>('GET_UTCLONG') RECEIVING p_result = lo_rtti.
+ CREATE DATA variable_utclong TYPE HANDLE lo_rtti.
+ ENDIF.
+
ENDMETHOD.
@@ -2271,6 +2316,10 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
LOOP AT me->sheet_content ASSIGNING FROM lv_index.
AT NEW cell_row.
+ IF iv_end_row <> 0
+ AND -cell_row > iv_end_row.
+ EXIT.
+ ENDIF.
" New line
APPEND INITIAL LINE TO ASSIGNING .
lv_index = sy-tabix.
@@ -2304,7 +2353,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
IF sy-subrc EQ 0.
CASE ls_style_conv-abap_type.
WHEN cl_abap_typedescr=>typekind_date.
- = zcl_excel_common=>excel_string_to_date( -cell_value ).
+ = zcl_excel_common=>excel_string_to_date( ip_value = -cell_value
+ ip_exact = abap_true ).
WHEN cl_abap_typedescr=>typekind_time.
= zcl_excel_common=>excel_string_to_time( -cell_value ).
ENDCASE.
@@ -3818,6 +3868,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
TYPE abap_typekind.
FIELD-SYMBOLS: TYPE mty_s_column_formula.
FIELD-SYMBOLS: TYPE zexcel_s_fieldcatalog.
+ FIELD-SYMBOLS TYPE simple.
IF ip_value IS NOT SUPPLIED
AND ip_formula IS NOT SUPPLIED
@@ -3908,12 +3959,18 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
cl_abap_typedescr=>typekind_decfloat OR
cl_abap_typedescr=>typekind_decfloat16 OR
cl_abap_typedescr=>typekind_decfloat34.
- lo_addit = cl_abap_elemdescr=>get_f( ).
- CREATE DATA lo_value_new TYPE HANDLE lo_addit.
- ASSIGN lo_value_new->* TO .
- IF sy-subrc = 0.
- = .
- lv_value = zcl_excel_common=>number_to_excel_string( ip_value = ).
+ IF lv_value_type = cl_abap_typedescr=>typekind_packed
+ AND ip_currency IS NOT INITIAL.
+ lv_value = zcl_excel_common=>number_to_excel_string( ip_value =
+ ip_currency = ip_currency ).
+ ELSE.
+ lo_addit = cl_abap_elemdescr=>get_f( ).
+ CREATE DATA lo_value_new TYPE HANDLE lo_addit.
+ ASSIGN lo_value_new->* TO .
+ IF sy-subrc = 0.
+ = .
+ lv_value = zcl_excel_common=>number_to_excel_string( ip_value = ).
+ ENDIF.
ENDIF.
WHEN cl_abap_typedescr=>typekind_char OR cl_abap_typedescr=>typekind_string OR cl_abap_typedescr=>typekind_num OR
@@ -3955,6 +4012,13 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
* ENDIF.
* End of change issue #152 - don't touch exisiting style if only value is passed
+ WHEN typekind_utclong.
+ ASSIGN variable_utclong->* TO .
+ IF sy-subrc = 0.
+ = .
+ lv_value = zcl_excel_common=>utclong_to_excel_string( ).
+ ENDIF.
+
WHEN OTHERS.
zcx_excel=>raise_text( 'Invalid data type of input value' ).
ENDCASE.
@@ -4060,6 +4124,21 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ip_row = lv_row
ip_number_format_format_code = lo_format_code_datetime ).
+ WHEN typekind_utclong.
+ TRY.
+ stylemapping = me->excel->get_style_to_guid( -cell_style ).
+ CATCH zcx_excel .
+ ENDTRY.
+ IF stylemapping-complete_stylex-number_format-format_code IS INITIAL OR
+ stylemapping-complete_style-number_format-format_code IS INITIAL.
+ lo_format_code_datetime = zcl_excel_style_number_format=>c_format_date_datetime.
+ ELSE.
+ lo_format_code_datetime = stylemapping-complete_style-number_format-format_code.
+ ENDIF.
+ me->change_cell_style( ip_column = lv_column
+ ip_row = lv_row
+ ip_number_format_format_code = lo_format_code_datetime ).
+
ENDCASE.
* End of change issue #152 - don't touch exisiting style if only value is passed
@@ -4292,6 +4371,25 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDMETHOD. "set_merge_style
+ METHOD set_pane_top_left_cell.
+ DATA lv_column_int TYPE zexcel_cell_column.
+ DATA lv_row TYPE zexcel_cell_row.
+
+ " Validate input value
+ zcl_excel_common=>convert_columnrow2column_a_row(
+ EXPORTING
+ i_columnrow = iv_columnrow
+ IMPORTING
+ e_column_int = lv_column_int
+ e_row = lv_row ).
+ IF lv_column_int NOT BETWEEN zcl_excel_common=>c_excel_sheet_min_col AND zcl_excel_common=>c_excel_sheet_max_col
+ OR lv_row NOT BETWEEN zcl_excel_common=>c_excel_sheet_min_row AND zcl_excel_common=>c_excel_sheet_max_row.
+ RAISE EXCEPTION TYPE zcx_excel EXPORTING error = 'Invalid column/row coordinates (valid values: A1 to XFD1048576)'.
+ ENDIF.
+ pane_top_left_cell = iv_columnrow.
+ ENDMETHOD.
+
+
METHOD set_print_gridlines.
me->print_gridlines = i_print_gridlines.
ENDMETHOD. "SET_PRINT_GRIDLINES
@@ -4348,6 +4446,25 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDMETHOD. "SET_ROW_OUTLINE
+ METHOD set_sheetview_top_left_cell.
+ DATA lv_column_int TYPE zexcel_cell_column.
+ DATA lv_row TYPE zexcel_cell_row.
+
+ " Validate input value
+ zcl_excel_common=>convert_columnrow2column_a_row(
+ EXPORTING
+ i_columnrow = iv_columnrow
+ IMPORTING
+ e_column_int = lv_column_int
+ e_row = lv_row ).
+ IF lv_column_int NOT BETWEEN zcl_excel_common=>c_excel_sheet_min_col AND zcl_excel_common=>c_excel_sheet_max_col
+ OR lv_row NOT BETWEEN zcl_excel_common=>c_excel_sheet_min_row AND zcl_excel_common=>c_excel_sheet_max_row.
+ RAISE EXCEPTION TYPE zcx_excel EXPORTING error = 'Invalid column/row coordinates (valid values: A1 to XFD1048576)'.
+ ENDIF.
+ sheetview_top_left_cell = iv_columnrow.
+ ENDMETHOD.
+
+
METHOD set_show_gridlines.
me->show_gridlines = i_show_gridlines.
ENDMETHOD. "SET_SHOW_GRIDLINES
@@ -4365,7 +4482,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD set_table.
- DATA: lo_tabdescr TYPE REF TO cl_abap_structdescr,
+ DATA: lo_structdescr TYPE REF TO cl_abap_structdescr,
lr_data TYPE REF TO data,
lt_dfies TYPE ddfields,
lv_row_int TYPE zexcel_cell_row,
@@ -4383,9 +4500,9 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
CREATE DATA lr_data LIKE LINE OF ip_table.
- lo_tabdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ).
+ lo_structdescr ?= cl_abap_structdescr=>describe_by_data_ref( lr_data ).
- lt_dfies = lo_tabdescr->get_ddic_field_list( ).
+ lt_dfies = zcl_excel_common=>describe_structure( io_struct = lo_structdescr ).
* It is better to loop column by column
LOOP AT lt_dfies ASSIGNING .
@@ -4432,27 +4549,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD set_title.
-*--------------------------------------------------------------------*
-* ToDos:
-* 2do §1 The current coding for replacing a named ranges name
-* after renaming a sheet should be checked if it is
-* really working if sheetname should be escaped
-*--------------------------------------------------------------------*
-
-*--------------------------------------------------------------------*
-* issue #230 - Pimp my Code
-* - Stefan Schmoecker, (wip ) 2012-12-08
-* - ...
-* changes: aligning code
-* message made to support multilinguality
-*--------------------------------------------------------------------*
-* issue#243 - ' is not allowed as first character in sheet title
-* - Stefan Schmoecker, 2012-12-02
-* changes: added additional check for ' as first character
-*--------------------------------------------------------------------*
DATA: lo_worksheets_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
- errormessage TYPE string,
lv_rangesheetname_old TYPE string,
lv_rangesheetname_new TYPE string,
lo_ranges_iterator TYPE REF TO zcl_excel_collection_iterator,
@@ -4482,14 +4580,14 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
* Check whether title is unique in workbook
*--------------------------------------------------------------------*
lo_worksheets_iterator = me->excel->get_worksheets_iterator( ).
- WHILE lo_worksheets_iterator->has_next( ) = 'X'.
+ WHILE lo_worksheets_iterator->has_next( ) = abap_true.
lo_worksheet ?= lo_worksheets_iterator->get_next( ).
CHECK me->guid <> lo_worksheet->get_guid( ). " Don't check against itself
IF ip_title = lo_worksheet->get_title( ). " Not unique --> raise exception
- errormessage = 'Duplicate sheetname &'.
- REPLACE '&' IN errormessage WITH ip_title.
- zcx_excel=>raise_text( errormessage ).
+ lv_errormessage = 'Duplicate sheetname &'.
+ REPLACE '&' IN lv_errormessage WITH ip_title.
+ zcx_excel=>raise_text( lv_errormessage ).
ENDIF.
ENDWHILE.
@@ -4497,21 +4595,17 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
*--------------------------------------------------------------------*
* Remember old sheetname and rename sheet to desired name
*--------------------------------------------------------------------*
- CONCATENATE me->title '!' INTO lv_rangesheetname_old.
+ lv_rangesheetname_old = zcl_excel_common=>escape_string( me->title ) && '!'.
me->title = ip_title.
*--------------------------------------------------------------------*
* After changing this worksheet's title we have to adjust
* all ranges that are referring to this worksheet.
*--------------------------------------------------------------------*
-* 2do §1 - Check if the following quickfix is solid
-* I fear it isn't - but this implementation is better then
-* nothing at all since it handles a supposed majority of cases
-*--------------------------------------------------------------------*
- CONCATENATE me->title '!' INTO lv_rangesheetname_new.
+ lv_rangesheetname_new = zcl_excel_common=>escape_string( me->title ) && '!'.
- lo_ranges_iterator = me->excel->get_ranges_iterator( ).
- WHILE lo_ranges_iterator->has_next( ) = 'X'.
+ lo_ranges_iterator = me->excel->get_ranges_iterator( ). "workbookglobal ranges
+ WHILE lo_ranges_iterator->has_next( ) = abap_true.
lo_range ?= lo_ranges_iterator->get_next( ).
lv_range_value = lo_range->get_value( ).
@@ -4522,6 +4616,20 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDWHILE.
+ IF me->ranges IS BOUND. "not yet bound if called from worksheet's constructor
+ lo_ranges_iterator = me->get_ranges_iterator( ). "sheetlocal ranges, repeat rows and columns
+ WHILE lo_ranges_iterator->has_next( ) = abap_true.
+
+ lo_range ?= lo_ranges_iterator->get_next( ).
+ lv_range_value = lo_range->get_value( ).
+ REPLACE ALL OCCURRENCES OF lv_rangesheetname_old IN lv_range_value WITH lv_rangesheetname_new.
+ IF sy-subrc = 0.
+ lo_range->set_range_value( lv_range_value ).
+ ENDIF.
+
+ ENDWHILE.
+ ENDIF.
+
ENDMETHOD. "SET_TITLE
diff --git a/src/zcl_excel_worksheet.clas.testclasses.abap b/src/zcl_excel_worksheet.clas.testclasses.abap
index 65d9be1..3493506 100644
--- a/src/zcl_excel_worksheet.clas.testclasses.abap
+++ b/src/zcl_excel_worksheet.clas.testclasses.abap
@@ -30,9 +30,15 @@ CLASS lcl_excel_worksheet_test DEFINITION FOR TESTING
METHODS: setup.
METHODS: teardown.
METHODS: set_merge FOR TESTING RAISING cx_static_check.
- METHODS: delete_merge FOR TESTING RAISING cx_static_check.
- METHODS: get_dimension_range FOR TESTING RAISING cx_static_check.
-ENDCLASS. "lcl_Excel_Worksheet_Test
+ METHODS delete_merge1 FOR TESTING RAISING cx_static_check.
+ METHODS delete_merge2 FOR TESTING RAISING cx_static_check.
+ METHODS delete_merge3 FOR TESTING RAISING cx_static_check.
+ METHODS delete_merge4 FOR TESTING RAISING cx_static_check.
+ METHODS delete_merge5 FOR TESTING RAISING cx_static_check.
+ METHODS delete_merge6 FOR TESTING RAISING cx_static_check.
+ METHODS get_dimension_range FOR TESTING RAISING cx_static_check.
+ METHODS get_rows_iterator FOR TESTING RAISING cx_static_check.
+ENDCLASS.
CLASS ltc_calculate_table_bottom_rig DEFINITION FOR TESTING
@@ -465,12 +471,11 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
ENDMETHOD.
- METHOD delete_merge.
+ METHOD delete_merge1.
* ====================
DATA lt_merge TYPE string_table.
DATA lv_merge TYPE string.
DATA lv_size TYPE i.
- DATA lv_index TYPE i.
* Test 1. Simple test delete all merges
@@ -491,6 +496,13 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
msg = 'Expect merge table with 1 line fully cleared'
level = if_aunit_constants=>critical
).
+ ENDMETHOD.
+
+ METHOD delete_merge2.
+* ====================
+ DATA lt_merge TYPE string_table.
+ DATA lv_merge TYPE string.
+ DATA lv_size TYPE i.
* Test 2. Simple test delete all merges
@@ -513,7 +525,14 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
msg = 'Expect merge table with few lines fully cleared'
level = if_aunit_constants=>critical
).
+ ENDMETHOD.
+ METHOD delete_merge3.
+* ====================
+ DATA lt_merge TYPE string_table.
+ DATA lv_merge TYPE string.
+ DATA lv_size TYPE i.
+ DATA lv_index TYPE i.
* Test 3. Delete concrete merge with success
DO 4 TIMES.
@@ -529,10 +548,14 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
).
CASE lv_index.
- WHEN 1. f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 2 ).
- WHEN 2. f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 3 ).
- WHEN 3. f_cut->delete_merge( ip_cell_column = 3 ip_cell_row = 2 ).
- WHEN 4. f_cut->delete_merge( ip_cell_column = 3 ip_cell_row = 3 ).
+ WHEN 1.
+ f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 2 ).
+ WHEN 2.
+ f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 3 ).
+ WHEN 3.
+ f_cut->delete_merge( ip_cell_column = 3 ip_cell_row = 2 ).
+ WHEN 4.
+ f_cut->delete_merge( ip_cell_column = 3 ip_cell_row = 3 ).
ENDCASE.
lt_merge = f_cut->get_merge( ).
@@ -545,7 +568,14 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
level = if_aunit_constants=>critical
).
ENDDO.
+ ENDMETHOD.
+ METHOD delete_merge4.
+* ====================
+ DATA lt_merge TYPE string_table.
+ DATA lv_merge TYPE string.
+ DATA lv_size TYPE i.
+ DATA lv_index TYPE i.
* Test 4. Delete concrete merge with fail
DO 4 TIMES.
@@ -561,10 +591,14 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
).
CASE lv_index.
- WHEN 1. f_cut->delete_merge( ip_cell_column = 1 ip_cell_row = 2 ).
- WHEN 2. f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 1 ).
- WHEN 3. f_cut->delete_merge( ip_cell_column = 4 ip_cell_row = 2 ).
- WHEN 4. f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 4 ).
+ WHEN 1.
+ f_cut->delete_merge( ip_cell_column = 1 ip_cell_row = 2 ).
+ WHEN 2.
+ f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 1 ).
+ WHEN 3.
+ f_cut->delete_merge( ip_cell_column = 4 ip_cell_row = 2 ).
+ WHEN 4.
+ f_cut->delete_merge( ip_cell_column = 2 ip_cell_row = 4 ).
ENDCASE.
lt_merge = f_cut->get_merge( ).
@@ -577,6 +611,13 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
level = if_aunit_constants=>critical
).
ENDDO.
+ ENDMETHOD.
+
+ METHOD delete_merge5.
+* ====================
+ DATA lt_merge TYPE string_table.
+ DATA lv_merge TYPE string.
+ DATA lv_size TYPE i.
* Test 5. Delete concrete merge #1
@@ -614,6 +655,13 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
msg = 'Expect delete B2:C3 merge'
level = if_aunit_constants=>critical
).
+ ENDMETHOD.
+
+ METHOD delete_merge6.
+* ====================
+ DATA lt_merge TYPE string_table.
+ DATA lv_merge TYPE string.
+ DATA lv_size TYPE i.
* Test 6. Delete concrete merge #2
@@ -682,6 +730,18 @@ CLASS lcl_excel_worksheet_test IMPLEMENTATION.
).
ENDMETHOD.
+ METHOD get_rows_iterator.
+ DATA lo_iterator TYPE REF TO zcl_excel_collection_iterator.
+ DATA lv_index TYPE i.
+
+ f_cut->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ).
+ lo_iterator = f_cut->get_rows_iterator( ).
+ lv_index = lo_iterator->get_index( ).
+ cl_abap_unit_assert=>assert_equals(
+ act = lv_index
+ exp = 0 ).
+ ENDMETHOD.
+
ENDCLASS. "lcl_Excel_Worksheet_Test
diff --git a/src/zcl_excel_writer_2007.clas.abap b/src/zcl_excel_writer_2007.clas.abap
index 5fd5658..4789767 100644
--- a/src/zcl_excel_writer_2007.clas.abap
+++ b/src/zcl_excel_writer_2007.clas.abap
@@ -145,8 +145,10 @@ CLASS zcl_excel_writer_2007 DEFINITION
METHODS create_xl_sheet_rels
IMPORTING
!io_worksheet TYPE REF TO zcl_excel_worksheet
- !iv_drawing_index TYPE i
- !iv_comment_index TYPE i
+ !iv_drawing_index TYPE i OPTIONAL
+ !iv_comment_index TYPE i OPTIONAL
+ !iv_cmnt_vmlindex TYPE i OPTIONAL
+ !iv_hdft_vmlindex TYPE i OPTIONAL
RETURNING
VALUE(ep_content) TYPE xstring .
METHODS create_xl_styles
@@ -267,6 +269,11 @@ CLASS zcl_excel_writer_2007 DEFINITION
!ip_flag TYPE flag
RETURNING
VALUE(ep_boolean) TYPE tv_charbool .
+ METHODS number2string
+ IMPORTING
+ !ip_number TYPE numeric
+ RETURNING
+ VALUE(ep_string) TYPE string.
ENDCLASS.
@@ -323,10 +330,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_nested_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_table TYPE REF TO zcl_excel_table,
- lo_drawing TYPE REF TO zcl_excel_drawing,
- lo_drawings TYPE REF TO zcl_excel_drawings,
- lo_comment TYPE REF TO zcl_excel_comment, " (+) Issue #180
- lo_comments TYPE REF TO zcl_excel_comments. " (+) Issue #180
+ lo_drawing TYPE REF TO zcl_excel_drawing.
DATA: lv_content TYPE xstring,
lv_active TYPE flag,
@@ -339,8 +343,13 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_index_str TYPE string,
lv_value TYPE string,
lv_sheet_index TYPE i,
+ lv_drawing_counter TYPE i,
+ lv_comment_counter TYPE i,
+ lv_vml_counter TYPE i,
lv_drawing_index TYPE i,
- lv_comment_index TYPE i. " (+) Issue #180
+ lv_comment_index TYPE i, " (+) Issue #180
+ lv_cmnt_vmlindex TYPE i,
+ lv_hdft_vmlindex TYPE i.
**********************************************************************
@@ -433,37 +442,44 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
* Begin - Add - Issue #180
* Add comments **********************************
- lo_comments = lo_worksheet->get_comments( ).
- IF lo_comments->is_empty( ) = abap_false.
- lv_comment_index = lv_comment_index + 1.
-
+ IF lo_worksheet->get_comments( )->is_empty( ) = abap_false.
" Create comment itself
- lv_content = me->create_xl_comments( lo_worksheet ).
- lv_xl_comment = me->c_xl_comments.
+ ADD 1 TO lv_comment_counter.
+ lv_comment_index = lv_comment_counter.
lv_index_str = lv_comment_index.
CONDENSE lv_index_str NO-GAPS.
+
+ lv_content = me->create_xl_comments( lo_worksheet ).
+ lv_xl_comment = me->c_xl_comments.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_comment WITH lv_index_str.
lo_zip->add( name = lv_xl_comment
content = lv_content ).
" Create vmlDrawing that will host the comment
+ ADD 1 TO lv_vml_counter.
+ lv_cmnt_vmlindex = lv_vml_counter.
+ lv_index_str = lv_cmnt_vmlindex.
+ CONDENSE lv_index_str NO-GAPS.
+
lv_content = me->create_xl_drawing_for_comments( lo_worksheet ).
lv_xl_drawing_for_comment = me->cl_xl_drawing_for_comments.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing_for_comment WITH lv_index_str.
lo_zip->add( name = lv_xl_drawing_for_comment
content = lv_content ).
+ ELSE.
+ CLEAR: lv_comment_index, lv_cmnt_vmlindex.
ENDIF.
* End - Add - Issue #180
* Add drawings **********************************
- lo_drawings = lo_worksheet->get_drawings( ).
- IF lo_drawings->is_empty( ) = abap_false.
- lv_drawing_index = lv_drawing_index + 1.
+ IF lo_worksheet->get_drawings( )->is_empty( ) = abap_false.
+ ADD 1 TO lv_drawing_counter.
+ lv_drawing_index = lv_drawing_counter.
+ lv_index_str = lv_drawing_index.
+ CONDENSE lv_index_str NO-GAPS.
lv_content = me->create_xl_drawings( lo_worksheet ).
lv_xl_drawing = me->c_xl_drawings.
- lv_index_str = lv_drawing_index.
- CONDENSE lv_index_str NO-GAPS.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing WITH lv_index_str.
lo_zip->add( name = lv_xl_drawing
content = lv_content ).
@@ -473,15 +489,15 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing_rels WITH lv_index_str.
lo_zip->add( name = lv_xl_drawing_rels
content = lv_content ).
+ ELSE.
+ CLEAR lv_drawing_index.
ENDIF.
* Add Header/Footer image
- DATA: lt_drawings TYPE zexcel_t_drawings.
- lt_drawings = lo_worksheet->get_header_footer_drawings( ).
- IF lines( lt_drawings ) > 0. "Header or footer image exist
-
- lv_comment_index = lv_comment_index + 1.
- lv_index_str = lv_comment_index.
+ IF lines( lo_worksheet->get_header_footer_drawings( ) ) > 0. "Header or footer image exist
+ ADD 1 TO lv_vml_counter.
+ lv_hdft_vmlindex = lv_vml_counter.
+ lv_index_str = lv_hdft_vmlindex.
CONDENSE lv_index_str NO-GAPS.
" Create vmlDrawing that will host the image
@@ -497,13 +513,17 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing_rels WITH lv_index_str.
lo_zip->add( name = lv_xl_drawing_rels
content = lv_content ).
+ ELSE.
+ CLEAR lv_hdft_vmlindex.
ENDIF.
lv_xl_sheet_rels = me->c_xl_sheet_rels.
lv_content = me->create_xl_sheet_rels( io_worksheet = lo_worksheet
iv_drawing_index = lv_drawing_index
- iv_comment_index = lv_comment_index ). " (+) Issue #180
+ iv_comment_index = lv_comment_index " (+) Issue #180
+ iv_cmnt_vmlindex = lv_cmnt_vmlindex
+ iv_hdft_vmlindex = lv_hdft_vmlindex ).
lv_index_str = lv_sheet_index.
CONDENSE lv_index_str NO-GAPS.
@@ -2666,7 +2686,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
METHOD create_xl_drawings_vml.
DATA:
- lo_xml_document TYPE REF TO cl_xml_document,
ld_stream TYPE string.
@@ -2677,11 +2696,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
* BODY
ld_stream = set_vml_string( ).
- CREATE OBJECT lo_xml_document.
- CALL METHOD lo_xml_document->parse_string
- EXPORTING
- stream = ld_stream.
-
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = ld_stream
@@ -3166,6 +3180,15 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_int_value TYPE i,
lv_int_value_string TYPE string.
DATA: lv_rel_id TYPE i.
+ DATA lv_anchor TYPE string.
+ DATA lv_bottom_row TYPE i.
+ DATA lv_right_column TYPE i.
+ DATA lv_bottom_row_str TYPE string.
+ DATA lv_right_column_str TYPE string.
+ DATA lv_top_row TYPE i.
+ DATA lv_left_column TYPE i.
+ DATA lv_top_row_str TYPE string.
+ DATA lv_left_column_str TYPE string.
**********************************************************************
@@ -3288,7 +3311,23 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element_clientdata->append_child( new_child = lo_element_sizewithcells ).
lo_element_anchor = lo_document->create_simple_element( name = lc_xml_node_anchor
parent = lo_document ).
- lo_element_anchor->set_value( '2, 15, 11, 10, 4, 31, 15, 9' ).
+
+ " Anchor represents 4 pairs of numbers:
+ " ( left column, left offset ), ( top row, top offset ),
+ " ( right column, right offset ), ( bottom row, botton offset )
+ " Offsets are a number of pixels.
+ " Reference: Anchor Class at
+ " https://learn.microsoft.com/en-us/dotnet/api/documentformat.openxml.vml.spreadsheet.anchor?view=openxml-3.0.1
+ lv_anchor = number2string( lo_comment->get_left_column( ) )
+ && `, ` && number2string( lo_comment->get_left_offset( ) )
+ && `, ` && number2string( lo_comment->get_top_row( ) )
+ && `, ` && number2string( lo_comment->get_top_offset( ) )
+ && `, ` && number2string( lo_comment->get_right_column( ) )
+ && `, ` && number2string( lo_comment->get_right_offset( ) )
+ && `, ` && number2string( lo_comment->get_bottom_row( ) )
+ && `, ` && number2string( lo_comment->get_bottom_offset( ) ).
+ lo_element_anchor->set_value( lv_anchor ).
+
lo_element_clientdata->append_child( new_child = lo_element_anchor ).
lo_element_autofill = lo_document->create_simple_element( name = lc_xml_node_autofill
parent = lo_document ).
@@ -3334,8 +3373,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_odd_footer TYPE zexcel_s_worksheet_head_foot,
ls_even_header TYPE zexcel_s_worksheet_head_foot,
ls_even_footer TYPE zexcel_s_worksheet_head_foot,
- lv_content TYPE string,
- lo_xml_document TYPE REF TO cl_xml_document.
+ lv_content TYPE string.
* INIT_RESULT
@@ -3383,11 +3421,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ld_7
INTO lv_content.
- CREATE OBJECT lo_xml_document.
- CALL METHOD lo_xml_document->parse_string
- EXPORTING
- stream = lv_content.
-
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = lv_content
@@ -4002,8 +4035,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: lv_value TYPE string,
lv_relation_id TYPE i,
- lv_index_str TYPE string,
- lv_comment_index TYPE i.
+ lv_index_str TYPE string.
**********************************************************************
* STEP 1: Create [Content_Types].xml into the root of the ZIP
@@ -4047,10 +4079,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDWHILE.
* drawing
- DATA: lo_drawings TYPE REF TO zcl_excel_drawings.
-
- lo_drawings = io_worksheet->get_drawings( ).
- IF lo_drawings->is_empty( ) = abap_false.
+ IF iv_drawing_index > 0.
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
parent = lo_document ).
ADD 1 TO lv_relation_id.
@@ -4074,18 +4103,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF.
* Begin - Add - Issue #180
- DATA: lo_comments TYPE REF TO zcl_excel_comments.
-
- lv_comment_index = iv_comment_index.
-
- lo_comments = io_worksheet->get_comments( ).
- IF lo_comments->is_empty( ) = abap_false.
+ IF iv_cmnt_vmlindex > 0 AND iv_comment_index > 0.
" Drawing for comment
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
parent = lo_document ).
-
ADD 1 TO lv_relation_id.
- ADD 1 TO lv_comment_index.
lv_value = lv_relation_id.
CONDENSE lv_value.
@@ -4095,7 +4117,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element->set_attribute_ns( name = lc_xml_attr_type
value = lc_xml_node_rid_drawing_cmt_tp ).
- lv_index_str = iv_comment_index.
+ lv_index_str = iv_cmnt_vmlindex.
CONDENSE lv_index_str NO-GAPS.
lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value.
@@ -4130,13 +4152,12 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
**********************************************************************
* header footer image
- DATA: lt_drawings TYPE zexcel_t_drawings.
- lt_drawings = io_worksheet->get_header_footer_drawings( ).
- IF lines( lt_drawings ) > 0. "Header or footer image exist
- ADD 1 TO lv_relation_id.
+ IF iv_hdft_vmlindex > 0. "Header or footer image exist
" Drawing for comment/header/footer
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
parent = lo_document ).
+ ADD 1 TO lv_relation_id.
+
lv_value = lv_relation_id.
CONDENSE lv_value.
CONCATENATE 'rId' lv_value INTO lv_value.
@@ -4145,7 +4166,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element->set_attribute_ns( name = lc_xml_attr_type
value = lc_xml_node_rid_drawing_cmt_tp ).
- lv_index_str = lv_comment_index.
+ lv_index_str = iv_hdft_vmlindex.
CONDENSE lv_index_str NO-GAPS.
lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value.
@@ -4212,10 +4233,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: col_count TYPE int4,
lo_autofilters TYPE REF TO zcl_excel_autofilters,
lo_autofilter TYPE REF TO zcl_excel_autofilter,
- l_autofilter_hidden TYPE flag,
- lt_values TYPE zexcel_t_autofilter_values,
- ls_values TYPE zexcel_s_autofilter_values,
- ls_area TYPE zexcel_s_autofilter_area,
lo_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_table TYPE REF TO zcl_excel_table,
@@ -4266,9 +4283,8 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_autofilters = excel->get_autofilters_reference( ).
lo_autofilter = lo_autofilters->get( io_worksheet = io_worksheet ) .
IF lo_autofilter IS BOUND.
- lt_values = lo_autofilter->get_values( ) .
- ls_area = lo_autofilter->get_filter_area( ) .
- l_autofilter_hidden = abap_true. " First defautl is not showing
+* Area not used here, but makes the validation for lo_autofilter->is_row_hidden
+ lo_autofilter->get_filter_area( ) .
ENDIF.
*--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - start
@@ -4331,14 +4347,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
CLEAR ls_sheet_content.
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
- IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
- CLEAR l_autofilter_hidden.
- ELSE.
- READ TABLE lt_values INTO ls_values WITH KEY column = ls_last_row-cell_column.
- IF sy-subrc = 0 AND ls_values-value = ls_last_row-cell_value.
- CLEAR l_autofilter_hidden.
- ENDIF.
- ENDIF.
CLEAR ls_style_mapping.
*Create row element
*issues #346,#154, #195 - problems when we have information in row_dimension but no cell content in that row
@@ -4369,18 +4377,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF.
IF ls_last_row-cell_row NE -cell_row.
- IF lo_autofilter IS BOUND.
- IF ls_area-row_start >= ls_last_row-cell_row OR " One less for header
- ls_area-row_end < ls_last_row-cell_row .
- CLEAR l_autofilter_hidden.
- ENDIF.
- ELSE.
- CLEAR l_autofilter_hidden.
- ENDIF.
IF ls_last_row-cell_row IS NOT INITIAL.
" Row visibility of previos row.
IF lo_row->get_visible( io_worksheet ) = abap_false OR
- l_autofilter_hidden = abap_true.
+ ( lo_autofilter IS BOUND AND
+ lo_autofilter->is_row_hidden( ls_last_row-cell_row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
@@ -4428,11 +4429,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element_2->set_attribute_ns( name = 's' value = lv_value ).
lo_element_2->set_attribute_ns( name = 'customFormat' value = '1' ).
ENDIF.
- IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
- CLEAR l_autofilter_hidden.
- ELSE.
- l_autofilter_hidden = abap_true. " First default is not showing
- ENDIF.
ELSE.
ENDIF.
@@ -4545,21 +4541,10 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_last_row = .
ENDLOOP.
IF sy-subrc = 0.
- READ TABLE lt_values INTO ls_values WITH KEY column = ls_last_row-cell_column.
- IF sy-subrc = 0 AND ls_values-value = ls_last_row-cell_value.
- CLEAR l_autofilter_hidden.
- ENDIF.
- IF lo_autofilter IS BOUND.
- IF ls_area-row_start >= ls_last_row-cell_row OR " One less for header
- ls_area-row_end < ls_last_row-cell_row .
- CLEAR l_autofilter_hidden.
- ENDIF.
- ELSE.
- CLEAR l_autofilter_hidden.
- ENDIF.
" Row visibility of previos row.
IF lo_row->get_visible( ) = abap_false OR
- l_autofilter_hidden = abap_true.
+ ( lo_autofilter IS BOUND AND
+ lo_autofilter->is_row_hidden( ls_last_row-cell_row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
@@ -6213,6 +6198,12 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDMETHOD.
+ METHOD number2string.
+ ep_string = ip_number.
+ CONDENSE ep_string.
+ ENDMETHOD.
+
+
METHOD render_xml_document.
DATA lo_streamfactory TYPE REF TO if_ixml_stream_factory.
DATA lo_ostream TYPE REF TO if_ixml_ostream.
diff --git a/src/zcl_excel_writer_2007.clas.locals_imp.abap b/src/zcl_excel_writer_2007.clas.locals_imp.abap
index 988607c..ae9def7 100644
--- a/src/zcl_excel_writer_2007.clas.locals_imp.abap
+++ b/src/zcl_excel_writer_2007.clas.locals_imp.abap
@@ -327,15 +327,17 @@ CLASS lcl_create_xl_sheet IMPLEMENTATION.
value = '0' ).
ENDIF.
" Zoom scale
- IF o_worksheet->zif_excel_sheet_properties~zoomscale GT 400.
- o_worksheet->zif_excel_sheet_properties~zoomscale = 400.
- ELSEIF o_worksheet->zif_excel_sheet_properties~zoomscale LT 10.
- o_worksheet->zif_excel_sheet_properties~zoomscale = 10.
+ IF o_worksheet->zif_excel_sheet_properties~zoomscale NE 0.
+ IF o_worksheet->zif_excel_sheet_properties~zoomscale GT 400.
+ o_worksheet->zif_excel_sheet_properties~zoomscale = 400.
+ ELSEIF o_worksheet->zif_excel_sheet_properties~zoomscale LT 10.
+ o_worksheet->zif_excel_sheet_properties~zoomscale = 10.
+ ENDIF.
+ lv_value = o_worksheet->zif_excel_sheet_properties~zoomscale.
+ CONDENSE lv_value.
+ lo_element_2->set_attribute_ns( name = lc_xml_attr_zoomscale
+ value = lv_value ).
ENDIF.
- lv_value = o_worksheet->zif_excel_sheet_properties~zoomscale.
- CONDENSE lv_value.
- lo_element_2->set_attribute_ns( name = lc_xml_attr_zoomscale
- value = lv_value ).
IF o_worksheet->zif_excel_sheet_properties~zoomscale_normal NE 0.
IF o_worksheet->zif_excel_sheet_properties~zoomscale_normal GT 400.
o_worksheet->zif_excel_sheet_properties~zoomscale_normal = 400.
@@ -393,6 +395,11 @@ CLASS lcl_create_xl_sheet IMPLEMENTATION.
value = '0' ).
ENDIF.
+ IF o_worksheet->sheetview_top_left_cell IS NOT INITIAL.
+ lo_element_2->set_attribute_ns( name = 'topLeftCell'
+ value = o_worksheet->sheetview_top_left_cell ).
+ ENDIF.
+
" freeze panes
o_worksheet->get_freeze_cell( IMPORTING ep_row = lv_freeze_cell_row
ep_column = lv_freeze_cell_column ).
@@ -415,11 +422,15 @@ CLASS lcl_create_xl_sheet IMPLEMENTATION.
value = lv_value ).
ENDIF.
- lv_freeze_cell_column_alpha = zcl_excel_common=>convert_column2alpha( ip_column = lv_freeze_cell_column ).
- lv_value = zcl_excel_common=>number_to_excel_string( ip_value = lv_freeze_cell_row ).
- CONCATENATE lv_freeze_cell_column_alpha lv_value INTO lv_value.
- lo_element_3->set_attribute_ns( name = 'topLeftCell'
- value = lv_value ).
+ IF o_worksheet->pane_top_left_cell IS NOT INITIAL.
+ lo_element_3->set_attribute_ns( name = 'topLeftCell'
+ value = o_worksheet->pane_top_left_cell ).
+ ELSE.
+ lv_value = zcl_excel_common=>convert_column_a_row2columnrow( i_column = lv_freeze_cell_column
+ i_row = lv_freeze_cell_row ).
+ lo_element_3->set_attribute_ns( name = 'topLeftCell'
+ value = lv_value ).
+ ENDIF.
lo_element_3->set_attribute_ns( name = 'activePane'
value = 'bottomRight' ).
@@ -1719,7 +1730,7 @@ CLASS lcl_create_xl_sheet IMPLEMENTATION.
value = lv_value ).
o_element_root->append_child( new_child = lo_element ).
- ADD 1 TO v_relation_id. " +1 for comments (not referenced in XL sheet but let's reserve the rId)
+ ADD 1 TO v_relation_id. "for xl/comments.xml (not referenced in XL sheet but counted in sheet rels)
ENDIF.
* End - Add - Issue #180
ENDMETHOD.
@@ -1742,7 +1753,6 @@ CLASS lcl_create_xl_sheet IMPLEMENTATION.
lo_element->set_attribute( name = 'r:id'
value = lv_value ).
o_element_root->append_child( new_child = lo_element ).
- ADD 1 TO v_relation_id. " +1 for comments (not referenced in XL sheet but let's reserve the rId)
ENDIF.
*
ENDMETHOD.
diff --git a/src/zcl_excel_writer_csv.clas.abap b/src/zcl_excel_writer_csv.clas.abap
index 5c1bd82..7aa976b 100644
--- a/src/zcl_excel_writer_csv.clas.abap
+++ b/src/zcl_excel_writer_csv.clas.abap
@@ -9,6 +9,9 @@ CLASS zcl_excel_writer_csv DEFINITION
INTERFACES zif_excel_writer .
+ "! Default value for initial dates e.g. user's format (DD.MM.YYYY, MM.DD.YYYY, etc.)
+ CONSTANTS c_default TYPE c LENGTH 10 VALUE 'DEFAULT' ##NO_TEXT.
+
CLASS-METHODS set_delimiter
IMPORTING
VALUE(ip_value) TYPE c DEFAULT ';' .
@@ -24,7 +27,10 @@ CLASS zcl_excel_writer_csv DEFINITION
CLASS-METHODS set_active_sheet_index_by_name
IMPORTING
!i_worksheet_name TYPE zexcel_worksheets_name .
-*"* protected components of class ZCL_EXCEL_WRITER_2007
+ CLASS-METHODS set_initial_ext_date
+ IMPORTING
+ !ip_value TYPE char10 DEFAULT c_default .
+*"* protected components of class ZCL_EXCEL_WRITER_CSV
*"* do not include other source files here!!!
PROTECTED SECTION.
*"* private components of class ZCL_EXCEL_WRITER_CSV
@@ -38,6 +44,7 @@ CLASS zcl_excel_writer_csv DEFINITION
eol TYPE c LENGTH 2 VALUE cl_abap_char_utilities=>cr_lf ##NO_TEXT.
CLASS-DATA worksheet_name TYPE zexcel_worksheets_name .
CLASS-DATA worksheet_index TYPE zexcel_active_worksheet .
+ CLASS-DATA initial_ext_date TYPE char10 VALUE c_default.
METHODS create
RETURNING
@@ -53,13 +60,17 @@ ENDCLASS.
-CLASS zcl_excel_writer_csv IMPLEMENTATION.
+CLASS ZCL_EXCEL_WRITER_CSV IMPLEMENTATION.
METHOD create.
* .csv format with ; delimiter
+* Start of insertion # issue 1134 - Dateretention of cellstyles(issue #139)
+ me->excel->add_static_styles( ).
+* End of insertion # issue 1134 - Dateretention of cellstyles(issue #139)
+
ep_excel = me->create_csv( ).
ENDMETHOD.
@@ -216,24 +227,28 @@ CLASS zcl_excel_writer_csv IMPLEMENTATION.
CASE -data_type.
WHEN 'd' OR 'D'.
- lc_value = zcl_excel_common=>excel_string_to_date( ip_value = -cell_value ).
- TRY.
- lv_date = lc_value.
- CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
- EXPORTING
- date_internal = lv_date
- IMPORTING
- date_external = lv_tmp
- EXCEPTIONS
- date_internal_is_invalid = 1
- OTHERS = 2.
- IF sy-subrc = 0.
- lc_value = lv_tmp.
- ENDIF.
+ IF -cell_value IS INITIAL AND initial_ext_date <> c_default.
+ lc_value = initial_ext_date.
+ ELSE.
+ lc_value = zcl_excel_common=>excel_string_to_date( ip_value = -cell_value ).
+ TRY.
+ lv_date = lc_value.
+ CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
+ EXPORTING
+ date_internal = lv_date
+ IMPORTING
+ date_external = lv_tmp
+ EXCEPTIONS
+ date_internal_is_invalid = 1
+ OTHERS = 2.
+ IF sy-subrc = 0.
+ lc_value = lv_tmp.
+ ENDIF.
- CATCH cx_sy_conversion_no_number.
+ CATCH cx_sy_conversion_no_number.
- ENDTRY.
+ ENDTRY.
+ ENDIF.
WHEN 't' OR 'T'.
lc_value = zcl_excel_common=>excel_string_to_time( ip_value = -cell_value ).
@@ -298,6 +313,11 @@ CLASS zcl_excel_writer_csv IMPLEMENTATION.
ENDMETHOD.
+ METHOD set_initial_ext_date.
+ initial_ext_date = ip_value.
+ ENDMETHOD.
+
+
METHOD zif_excel_writer~write_file.
me->excel = io_excel.
ep_file = me->create( ).
diff --git a/src/zcl_excel_writer_csv.clas.xml b/src/zcl_excel_writer_csv.clas.xml
index 2a13c78..7b1d8ad 100644
--- a/src/zcl_excel_writer_csv.clas.xml
+++ b/src/zcl_excel_writer_csv.clas.xml
@@ -32,6 +32,11 @@
I
Create CSV ; Delimited format
+
+ C_DEFAULT
+ E
+ Constant for string 'DEFAULT'
+
DELIMITER
E
@@ -72,6 +77,11 @@
I
Excel creator
+
+ INITIAL_EXT_DATE
+ E
+ Initial External Date
+
SET_ACTIVE_SHEET_INDEX
E
@@ -122,6 +132,11 @@
I
Set End Of Line character
+
+ SET_INITIAL_EXT_DATE
+ E
+ Set Initial External Date (replacing default '00.00.0000')
+
WORKSHEET_INDEX
E
@@ -143,6 +158,14 @@
Worksheets name
+
+
+ SET_INITIAL_EXT_DATE
+ IP_VALUE
+ E
+ Input Value
+
+
diff --git a/src/zcl_excel_writer_xlsm.clas.abap b/src/zcl_excel_writer_xlsm.clas.abap
index bb7835c..aa6ce92 100644
--- a/src/zcl_excel_writer_xlsm.clas.abap
+++ b/src/zcl_excel_writer_xlsm.clas.abap
@@ -262,8 +262,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
lo_ostream TYPE REF TO if_ixml_ostream,
lo_renderer TYPE REF TO if_ixml_renderer.
- DATA: lv_subrc TYPE sysubrc,
- lv_contenttype TYPE string.
+ DATA: lv_contenttype TYPE string.
**********************************************************************
* STEP 3: Create standard contentType
@@ -273,7 +272,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
* STEP 2: modify XML adding the extension bin definition
CREATE OBJECT lo_document_xml.
- lv_subrc = lo_document_xml->parse_xstring( ep_content ).
+ lo_document_xml->parse_xstring( ep_content ).
lo_document ?= lo_document_xml->m_document.
lo_element_root = lo_document->if_ixml_node~get_first_child( ).
@@ -342,7 +341,6 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
DATA: lv_xml_node_ridx_id TYPE string,
lv_size TYPE i,
- lv_subrc TYPE sysubrc,
lv_syindex(2) TYPE c.
**********************************************************************
@@ -353,7 +351,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
* STEP 2: modify XML adding the vbaProject relation
CREATE OBJECT lo_document_xml.
- lv_subrc = lo_document_xml->parse_xstring( ep_content ).
+ lo_document_xml->parse_xstring( ep_content ).
lo_document ?= lo_document_xml->m_document.
lo_element_root = lo_document->if_ixml_node~get_first_child( ).
@@ -406,8 +404,6 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
lo_ostream TYPE REF TO if_ixml_ostream,
lo_renderer TYPE REF TO if_ixml_renderer.
- DATA: lv_subrc TYPE sysubrc.
-
**********************************************************************
* STEP 3: Create standard relationship
ep_content = super->create_xl_sheet( io_worksheet = io_worksheet
@@ -417,7 +413,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
* STEP 2: modify XML adding the vbaProject relation
CREATE OBJECT lo_document_xml.
- lv_subrc = lo_document_xml->parse_xstring( ep_content ).
+ lo_document_xml->parse_xstring( ep_content ).
lo_document ?= lo_document_xml->m_document.
lo_element_root = lo_document->if_ixml_node~get_first_child( ).
@@ -458,8 +454,6 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
lo_ostream TYPE REF TO if_ixml_ostream,
lo_renderer TYPE REF TO if_ixml_renderer.
- DATA: lv_subrc TYPE sysubrc.
-
**********************************************************************
* STEP 3: Create standard relationship
ep_content = super->create_xl_workbook( ).
@@ -468,7 +462,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
* STEP 2: modify XML adding the vbaProject relation
CREATE OBJECT lo_document_xml.
- lv_subrc = lo_document_xml->parse_xstring( ep_content ).
+ lo_document_xml->parse_xstring( ep_content ).
lo_document ?= lo_document_xml->m_document.
lo_element_root = lo_document->if_ixml_node~get_first_child( ).
diff --git a/src/zcx_excel.clas.xml b/src/zcx_excel.clas.xml
index 5bbc56e..23ddcb3 100644
--- a/src/zcx_excel.clas.xml
+++ b/src/zcx_excel.clas.xml
@@ -42,6 +42,14 @@
0001
+
+
+ LIMU
+
+ ZCX_EXCEL
+ 0001
+
+
CONSTRUCTOR
diff --git a/src/zexcel_s_fieldcatalog.tabl.xml b/src/zexcel_s_fieldcatalog.tabl.xml
index b7958b7..30e2add 100644
--- a/src/zexcel_s_fieldcatalog.tabl.xml
+++ b/src/zexcel_s_fieldcatalog.tabl.xml
@@ -25,31 +25,31 @@
POSITION
- TABFDPOS
+ ZEXCEL_COMPONENT_POSITION
0
E
SCRTEXT_S
- SCRTEXT_S
+ ZEXCEL_DISP_TEXT_SHORT
0
E
SCRTEXT_M
- SCRTEXT_M
+ ZEXCEL_DISP_TEXT_MEDIUM
0
E
SCRTEXT_L
- SCRTEXT_L
+ ZEXCEL_DISP_TEXT_LONG
0
E
DYNPFLD
- DYNPROFLD
+ ZEXCEL_SCREEN_DISPLAY
0
X
F
@@ -117,7 +117,138 @@
0
E
+
+ CURRENCY_COLUMN
+ ZEXCEL_FIELDNAME
+ 0
+ E
+
+
+ WIDTH
+ INT4
+ 0
+ E
+