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

Merge branch 'main' into hvam/npm1404

Browse Source
This commit is contained in:
Lars Hvam 2024-08-05 18:12:25 +02:00 committed by GitHub
commit 1b5cee6a31
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
6 changed files with 163 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/zcl_excel_autofilter.clas.abap
View File

@ -19,7 +19,7 @@ CLASS zcl_excel_autofilter DEFINITION
tr_textfilter2 TYPE RANGE OF string, tr_textfilter2 TYPE RANGE OF string,
END OF ts_filter . END OF ts_filter .
TYPES: TYPES:
tt_filters TYPE HASHED TABLE OF ts_filter WITH UNIQUE KEY column . tt_filters TYPE SORTED TABLE OF ts_filter WITH UNIQUE KEY column .
DATA filter_area TYPE zexcel_s_autofilter_area . DATA filter_area TYPE zexcel_s_autofilter_area .
CONSTANTS mc_filter_rule_single_values TYPE tv_filter_rule VALUE 'single_values'. "#EC NOTEXT CONSTANTS mc_filter_rule_single_values TYPE tv_filter_rule VALUE 'single_values'. "#EC NOTEXT
@ -208,9 +208,6 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
METHOD is_row_hidden. METHOD is_row_hidden.
DATA: lr_filter TYPE REF TO ts_filter,
lv_col TYPE i.
FIELD-SYMBOLS: <ls_filter> TYPE ts_filter. FIELD-SYMBOLS: <ls_filter> TYPE ts_filter.
rv_is_hidden = abap_false. rv_is_hidden = abap_false.
@ -219,29 +216,25 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
* 1st row of filter area is never hidden, because here the filter * 1st row of filter area is never hidden, because here the filter
* symbol is being shown * symbol is being shown
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
IF iv_row = me->filter_area-row_start. IF iv_row <= me->filter_area-row_start OR
iv_row > me->filter_area-row_end.
RETURN. RETURN.
ENDIF. ENDIF.
lv_col = me->filter_area-col_start. LOOP AT mt_filters ASSIGNING <ls_filter> WHERE column >= me->filter_area-col_start
AND column <= me->filter_area-col_end.
WHILE lv_col <= me->filter_area-col_end.
lr_filter = me->get_column_filter( lv_col ).
ASSIGN lr_filter->* TO <ls_filter>.
CASE <ls_filter>-rule. CASE <ls_filter>-rule.
WHEN mc_filter_rule_single_values. WHEN mc_filter_rule_single_values.
rv_is_hidden = me->is_row_hidden_single_values( iv_row = iv_row rv_is_hidden = me->is_row_hidden_single_values( iv_row = iv_row
iv_col = lv_col iv_col = <ls_filter>-column
is_filter = <ls_filter> ). is_filter = <ls_filter> ).
WHEN mc_filter_rule_text_pattern. WHEN mc_filter_rule_text_pattern.
rv_is_hidden = me->is_row_hidden_text_pattern( iv_row = iv_row rv_is_hidden = me->is_row_hidden_text_pattern( iv_row = iv_row
iv_col = lv_col iv_col = <ls_filter>-column
is_filter = <ls_filter> ). is_filter = <ls_filter> ).
ENDCASE. ENDCASE.
@ -250,10 +243,7 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
RETURN. RETURN.
ENDIF. ENDIF.
ENDLOOP.
ADD 1 TO lv_col.
ENDWHILE.
ENDMETHOD. ENDMETHOD.

76
src/zcl_excel_comment.clas.abap
View File

@ -9,12 +9,21 @@ CLASS zcl_excel_comment DEFINITION
CONSTANTS default_bottom_row TYPE i VALUE 15. "#EC NOTEXT CONSTANTS default_bottom_row TYPE i VALUE 15. "#EC NOTEXT
METHODS constructor . METHODS constructor .
METHODS get_bottom_offset
RETURNING
VALUE(rp_result) TYPE i .
METHODS get_bottom_row METHODS get_bottom_row
RETURNING RETURNING
VALUE(rp_result) TYPE i . VALUE(rp_result) TYPE i .
METHODS get_index METHODS get_index
RETURNING RETURNING
VALUE(rp_index) TYPE string . 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 METHODS get_name
RETURNING RETURNING
VALUE(r_name) TYPE string . VALUE(r_name) TYPE string .
@ -24,24 +33,45 @@ CLASS zcl_excel_comment DEFINITION
METHODS get_right_column METHODS get_right_column
RETURNING RETURNING
VALUE(rp_result) TYPE i . VALUE(rp_result) TYPE i .
METHODS get_right_offset
RETURNING
VALUE(rp_result) TYPE i .
METHODS get_text METHODS get_text
RETURNING RETURNING
VALUE(rp_text) TYPE string . 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 METHODS set_text
IMPORTING IMPORTING
!ip_text TYPE string !ip_text TYPE string
!ip_ref TYPE string OPTIONAL !ip_ref TYPE string OPTIONAL
!ip_right_column TYPE i OPTIONAL !ip_left_column TYPE i DEFAULT 2
!ip_bottom_row TYPE i OPTIONAL . !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. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
DATA bottom_offset TYPE i .
DATA bottom_row TYPE i . DATA bottom_row TYPE i .
DATA index TYPE string . DATA index TYPE string .
DATA ref TYPE string . DATA ref TYPE string .
DATA left_column TYPE i .
DATA left_offset TYPE i .
DATA right_column TYPE i . DATA right_column TYPE i .
DATA right_offset TYPE i .
DATA text TYPE string . DATA text TYPE string .
DATA top_offset TYPE i .
DATA top_row TYPE i .
ENDCLASS. ENDCLASS.
@ -54,6 +84,11 @@ CLASS zcl_excel_comment IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD get_bottom_offset.
rp_result = bottom_offset.
ENDMETHOD.
METHOD get_bottom_row. METHOD get_bottom_row.
rp_result = bottom_row. rp_result = bottom_row.
ENDMETHOD. ENDMETHOD.
@ -64,6 +99,16 @@ CLASS zcl_excel_comment IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD get_left_column.
rp_result = left_column.
ENDMETHOD.
METHOD get_left_offset.
rp_result = left_offset.
ENDMETHOD.
METHOD get_name. METHOD get_name.
ENDMETHOD. ENDMETHOD.
@ -79,11 +124,26 @@ CLASS zcl_excel_comment IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD get_right_offset.
rp_result = right_offset.
ENDMETHOD.
METHOD get_text. METHOD get_text.
rp_text = me->text. rp_text = me->text.
ENDMETHOD. ENDMETHOD.
METHOD get_top_offset.
rp_result = top_offset.
ENDMETHOD.
METHOD get_top_row.
rp_result = top_row.
ENDMETHOD.
METHOD set_text. METHOD set_text.
me->text = ip_text. me->text = ip_text.
@ -91,17 +151,25 @@ CLASS zcl_excel_comment IMPLEMENTATION.
me->ref = ip_ref. me->ref = ip_ref.
ENDIF. 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. IF ip_right_column IS NOT INITIAL.
me->right_column = ip_right_column. me->right_column = ip_right_column.
ELSE. ELSE.
me->right_column = default_right_column. me->right_column = default_right_column.
ENDIF. ENDIF.
me->right_offset = ip_right_offset.
IF ip_bottom_row IS NOT INITIAL. IF ip_bottom_row IS NOT INITIAL.
me->bottom_row = ip_bottom_row. me->bottom_row = ip_bottom_row.
ELSE. ELSE.
me->bottom_row = default_bottom_row. me->bottom_row = default_bottom_row.
ENDIF. ENDIF.
me->bottom_offset = ip_bottom_offset.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

32
src/zcl_excel_reader_2007.clas.abap
View File

@ -2190,6 +2190,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ENDIF. ENDIF.
WHEN OTHERS. WHEN OTHERS.
lo_range = <worksheet>-worksheet->add_new_range( ).
ENDCASE. ENDCASE.
ENDIF. ENDIF.
@ -2558,6 +2559,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lv_max_col = lv_index. lv_max_col = lv_index.
ENDIF. ENDIF.
lv_cell_row = ls_row-r. lv_cell_row = ls_row-r.
lv_cell_column = ''.
lo_row = io_worksheet->get_row( lv_cell_row ). lo_row = io_worksheet->get_row( lv_cell_row ).
IF ls_row-customheight = '1'. IF ls_row-customheight = '1'.
lo_row->set_row_height( ip_row_height = ls_row-ht ip_custom_height = abap_true ). lo_row->set_row_height( ip_row_height = ls_row-ht ip_custom_height = abap_true ).
@ -2594,6 +2596,26 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_cell_elem CHANGING cp_structure = ls_cell ). 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 <row>
" i.e. in <row r="1"...><c r="A1" s="2"><v>..., ls_cell-r would be "A1",
" the "1" of A1 should always be equal to the "1" of <row r="1"...
zcl_excel_common=>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 <row> e.g. "1" in <row r="1"...><c r="" s="2"><v>...
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 ). lo_ixml_value_elem = lo_ixml_cell_elem->find_from_name_ns( name = 'v' uri = namespace-main ).
CASE ls_cell-t. CASE ls_cell-t.
@ -2642,11 +2664,6 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_formula_elem CHANGING cp_structure = ls_formula_attributes ). fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_formula_elem CHANGING cp_structure = ls_formula_attributes ).
IF ls_formula_attributes-t = 'shared'. 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. TRY.
CLEAR ls_ref_formula. CLEAR ls_ref_formula.
@ -2671,11 +2688,6 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
IF lv_cell_value IS NOT INITIAL IF lv_cell_value IS NOT INITIAL
OR lv_cell_formula IS NOT INITIAL OR lv_cell_formula IS NOT INITIAL
OR lv_style_guid 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 io_worksheet->set_cell( ip_column = lv_cell_column " cell_elem Column
ip_row = lv_cell_row " cell_elem row_elem ip_row = lv_cell_row " cell_elem row_elem
ip_value = lv_cell_value " cell_elem Value ip_value = lv_cell_value " cell_elem Value

57
src/zcl_excel_worksheet.clas.abap
View File

@ -1083,6 +1083,10 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ). lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
IF <ls_field_catalog>-width IS NOT INITIAL.
set_column_width( ip_column = lv_column_alpha ip_width_fix = <ls_field_catalog>-width ).
ENDIF.
" First of all write column header " First of all write column header
IF <ls_field_catalog>-style_header IS NOT INITIAL. IF <ls_field_catalog>-style_header IS NOT INITIAL.
me->set_cell( ip_column = lv_column_alpha me->set_cell( ip_column = lv_column_alpha
@ -4501,27 +4505,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD set_title. 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, DATA: lo_worksheets_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
errormessage TYPE string,
lv_rangesheetname_old TYPE string, lv_rangesheetname_old TYPE string,
lv_rangesheetname_new TYPE string, lv_rangesheetname_new TYPE string,
lo_ranges_iterator TYPE REF TO zcl_excel_collection_iterator, lo_ranges_iterator TYPE REF TO zcl_excel_collection_iterator,
@ -4551,14 +4536,14 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
* Check whether title is unique in workbook * Check whether title is unique in workbook
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
lo_worksheets_iterator = me->excel->get_worksheets_iterator( ). 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( ). lo_worksheet ?= lo_worksheets_iterator->get_next( ).
CHECK me->guid <> lo_worksheet->get_guid( ). " Don't check against itself CHECK me->guid <> lo_worksheet->get_guid( ). " Don't check against itself
IF ip_title = lo_worksheet->get_title( ). " Not unique --> raise exception IF ip_title = lo_worksheet->get_title( ). " Not unique --> raise exception
errormessage = 'Duplicate sheetname &'. lv_errormessage = 'Duplicate sheetname &'.
REPLACE '&' IN errormessage WITH ip_title. REPLACE '&' IN lv_errormessage WITH ip_title.
zcx_excel=>raise_text( errormessage ). zcx_excel=>raise_text( lv_errormessage ).
ENDIF. ENDIF.
ENDWHILE. ENDWHILE.
@ -4566,21 +4551,17 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* Remember old sheetname and rename sheet to desired name * 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. me->title = ip_title.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* After changing this worksheet's title we have to adjust * After changing this worksheet's title we have to adjust
* all ranges that are referring to this worksheet. * all ranges that are referring to this worksheet.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* 2do §1 - Check if the following quickfix is solid lv_rangesheetname_new = zcl_excel_common=>escape_string( me->title ) && '!'.
* 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.
lo_ranges_iterator = me->excel->get_ranges_iterator( ). lo_ranges_iterator = me->excel->get_ranges_iterator( ). "workbookglobal ranges
WHILE lo_ranges_iterator->has_next( ) = 'X'. WHILE lo_ranges_iterator->has_next( ) = abap_true.
lo_range ?= lo_ranges_iterator->get_next( ). lo_range ?= lo_ranges_iterator->get_next( ).
lv_range_value = lo_range->get_value( ). lv_range_value = lo_range->get_value( ).
@ -4591,6 +4572,20 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDWHILE. 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 ENDMETHOD. "SET_TITLE

83
src/zcl_excel_writer_2007.clas.abap
View File

@ -269,6 +269,11 @@ CLASS zcl_excel_writer_2007 DEFINITION
!ip_flag TYPE flag !ip_flag TYPE flag
RETURNING RETURNING
VALUE(ep_boolean) TYPE tv_charbool . VALUE(ep_boolean) TYPE tv_charbool .
METHODS number2string
IMPORTING
!ip_number TYPE numeric
RETURNING
VALUE(ep_string) TYPE string.
ENDCLASS. ENDCLASS.
@ -3139,7 +3144,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lc_xml_attr_val_none TYPE string VALUE 'none', lc_xml_attr_val_none TYPE string VALUE 'none',
lc_xml_attr_val_msodir TYPE string VALUE 'mso-direction-alt:auto', lc_xml_attr_val_msodir TYPE string VALUE 'mso-direction-alt:auto',
lc_xml_attr_val_note TYPE string VALUE 'Note'. lc_xml_attr_val_note TYPE string VALUE 'Note'.
CONSTANTS lc_anchor_init TYPE string VALUE '2, 15, 11, 10, &right_column&, 31, &bottom_row&, 9'.
DATA: lo_document TYPE REF TO if_ixml_document, DATA: lo_document TYPE REF TO if_ixml_document,
@ -3181,6 +3185,10 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA lv_right_column TYPE i. DATA lv_right_column TYPE i.
DATA lv_bottom_row_str TYPE string. DATA lv_bottom_row_str TYPE string.
DATA lv_right_column_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.
********************************************************************** **********************************************************************
@ -3310,17 +3318,14 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
" Offsets are a number of pixels. " Offsets are a number of pixels.
" Reference: Anchor Class at " Reference: Anchor Class at
" https://learn.microsoft.com/en-us/dotnet/api/documentformat.openxml.vml.spreadsheet.anchor?view=openxml-3.0.1 " https://learn.microsoft.com/en-us/dotnet/api/documentformat.openxml.vml.spreadsheet.anchor?view=openxml-3.0.1
lv_right_column = lo_comment->get_right_column( ). lv_anchor = number2string( lo_comment->get_left_column( ) )
lv_bottom_row = lo_comment->get_bottom_row( ). && `, ` && number2string( lo_comment->get_left_offset( ) )
&& `, ` && number2string( lo_comment->get_top_row( ) )
lv_right_column_str = lv_right_column. && `, ` && number2string( lo_comment->get_top_offset( ) )
CONDENSE lv_right_column_str. && `, ` && number2string( lo_comment->get_right_column( ) )
lv_bottom_row_str = lv_bottom_row. && `, ` && number2string( lo_comment->get_right_offset( ) )
CONDENSE lv_bottom_row_str. && `, ` && number2string( lo_comment->get_bottom_row( ) )
&& `, ` && number2string( lo_comment->get_bottom_offset( ) ).
lv_anchor = lc_anchor_init.
REPLACE '&right_column&' WITH lv_right_column_str INTO lv_anchor.
REPLACE '&bottom_row&' WITH lv_bottom_row_str INTO lv_anchor.
lo_element_anchor->set_value( lv_anchor ). lo_element_anchor->set_value( lv_anchor ).
lo_element_clientdata->append_child( new_child = lo_element_anchor ). lo_element_clientdata->append_child( new_child = lo_element_anchor ).
@ -4228,10 +4233,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: col_count TYPE int4, DATA: col_count TYPE int4,
lo_autofilters TYPE REF TO zcl_excel_autofilters, lo_autofilters TYPE REF TO zcl_excel_autofilters,
lo_autofilter TYPE REF TO zcl_excel_autofilter, 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_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_table TYPE REF TO zcl_excel_table, lo_table TYPE REF TO zcl_excel_table,
@ -4277,9 +4278,8 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_autofilters = excel->get_autofilters_reference( ). lo_autofilters = excel->get_autofilters_reference( ).
lo_autofilter = lo_autofilters->get( io_worksheet = io_worksheet ) . lo_autofilter = lo_autofilters->get( io_worksheet = io_worksheet ) .
IF lo_autofilter IS BOUND. IF lo_autofilter IS BOUND.
lt_values = lo_autofilter->get_values( ) . * Area not used here, but makes the validation for lo_autofilter->is_row_hidden
ls_area = lo_autofilter->get_filter_area( ) . lo_autofilter->get_filter_area( ) .
l_autofilter_hidden = abap_true. " First defautl is not showing
ENDIF. ENDIF.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - start *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - start
@ -4342,14 +4342,6 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
CLEAR ls_sheet_content. CLEAR ls_sheet_content.
LOOP AT io_worksheet->sheet_content INTO 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. CLEAR ls_style_mapping.
*Create row element *Create row element
*issues #346,#154, #195 - problems when we have information in row_dimension but no cell content in that row *issues #346,#154, #195 - problems when we have information in row_dimension but no cell content in that row
@ -4380,18 +4372,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF. ENDIF.
IF ls_last_row-cell_row NE <ls_sheet_content>-cell_row. IF ls_last_row-cell_row NE <ls_sheet_content>-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. IF ls_last_row-cell_row IS NOT INITIAL.
" Row visibility of previos row. " Row visibility of previos row.
IF lo_row->get_visible( io_worksheet ) = abap_false OR 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' ). lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF. ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
@ -4439,11 +4424,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 = 's' value = lv_value ).
lo_element_2->set_attribute_ns( name = 'customFormat' value = '1' ). lo_element_2->set_attribute_ns( name = 'customFormat' value = '1' ).
ENDIF. 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. ELSE.
ENDIF. ENDIF.
@ -4556,21 +4536,10 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_last_row = <ls_sheet_content>. ls_last_row = <ls_sheet_content>.
ENDLOOP. ENDLOOP.
IF sy-subrc = 0. 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. " Row visibility of previos row.
IF lo_row->get_visible( ) = abap_false OR 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' ). lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF. ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
@ -6224,6 +6193,12 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD number2string.
ep_string = ip_number.
CONDENSE ep_string.
ENDMETHOD.
METHOD render_xml_document. METHOD render_xml_document.
DATA lo_streamfactory TYPE REF TO if_ixml_stream_factory. DATA lo_streamfactory TYPE REF TO if_ixml_stream_factory.
DATA lo_ostream TYPE REF TO if_ixml_ostream. DATA lo_ostream TYPE REF TO if_ixml_ostream.

6
src/zexcel_s_fieldcatalog.tabl.xml
View File

@ -123,6 +123,12 @@
<ADMINFIELD>0</ADMINFIELD> <ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE> <COMPTYPE>E</COMPTYPE>
</DD03P> </DD03P>
<DD03P>
<FIELDNAME>WIDTH</FIELDNAME>
<ROLLNAME>INT4</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE> </DD03P_TABLE>
<I18N_LANGS> <I18N_LANGS>
<LANGU>1</LANGU> <LANGU>1</LANGU>