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

Update zcl_excel_writer_2007.clas.abap

Browse Source
This commit is contained in:
Bernd 2024-05-17 10:44:06 +02:00 committed by GitHub
parent 6a233737dd
commit 130a49ca15
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 59 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
src/zcl_excel_writer_2007.clas.abap
View File

@ -4213,10 +4213,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
bottom TYPE i, bottom TYPE i,
END OF lty_table_area. END OF lty_table_area.
TYPES: BEGIN OF lty_sorted_rows, TYPES: BEGIN OF lty_row_data,
num TYPE zexcel_cell_row, row TYPE zexcel_cell_row,
toidx TYPE sy-tabix, toidx TYPE sy-tabix,
END OF lty_sorted_rows. hidden TYPE abap_bool, "X = hidden, space = not yet hidden, to check later
END OF lty_row_data.
CONSTANTS: lc_xml_node_sheetdata TYPE string VALUE 'sheetData', " SheetData tag CONSTANTS: lc_xml_node_sheetdata TYPE string VALUE 'sheetData', " SheetData tag
lc_xml_node_row TYPE string VALUE 'row', " Row tag lc_xml_node_row TYPE string VALUE 'row', " Row tag
@ -4231,9 +4232,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, 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,
@ -4242,11 +4240,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_table_area LIKE LINE OF lt_table_areas, ls_table_area LIKE LINE OF lt_table_areas,
lo_column TYPE REF TO zcl_excel_column, lo_column TYPE REF TO zcl_excel_column,
lt_sorted_rows TYPE SORTED TABLE OF lty_sorted_rows WITH UNIQUE KEY num, ls_row_data TYPE lty_row_data,
ls_row LIKE LINE OF lt_sorted_rows, lt_sorted_rows LIKE SORTED TABLE OF ls_row_data WITH UNIQUE KEY row,
ls_sheet_content LIKE LINE OF io_worksheet->sheet_content, ls_sheet_content LIKE LINE OF io_worksheet->sheet_content,
lv_current_row TYPE i, lv_current_row TYPE i,
lv_tabix TYPE sy-tabix, lv_sheet_index TYPE sy-tabix,
* lts_row_dimensions TYPE zexcel_t_worksheet_rowdimensio, * lts_row_dimensions TYPE zexcel_t_worksheet_rowdimensio,
lo_row_iterator TYPE REF TO zcl_excel_collection_iterator, lo_row_iterator TYPE REF TO zcl_excel_collection_iterator,
@ -4278,9 +4276,7 @@ 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( ) .
ls_area = lo_autofilter->get_filter_area( ) . ls_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
@ -4303,28 +4299,33 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
* First of all get the rows with cell content * First of all get the rows with cell content
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content. LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
AT END OF cell_row. AT END OF cell_row.
ls_row-num = ls_sheet_content-cell_row. ls_row_data-row = ls_sheet_content-cell_row.
ls_row-toidx = sy-tabix. ls_row_data-toidx = sy-tabix.
INSERT ls_row INTO TABLE lt_sorted_rows. INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDAT. ENDAT.
ENDLOOP. ENDLOOP.
IF sy-subrc = 0. IF sy-subrc = 0.
* Get first cell data to start the WHILE loop below * Get first cell data to start the WHILE loop below
lv_tabix = 1. lv_sheet_index = 1.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_tabix. READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_sheet_index.
CLEAR ls_row-toidx. "for next preparations CLEAR ls_row_data-toidx. "not set for next preparations
ENDIF. ENDIF.
* Get every row with relevant data * Get every row with relevant data
lo_row_iterator = io_worksheet->get_rows_iterator( ). lo_row_iterator = io_worksheet->get_rows_iterator( ).
WHILE lo_row_iterator->has_next( ) = abap_true. WHILE lo_row_iterator->has_next( ) = abap_true.
lo_row ?= lo_row_iterator->get_next( ). lo_row ?= lo_row_iterator->get_next( ).
CHECK lo_row->get_row_height( ) >= 0 OR lv_current_row = lo_row->get_row_index( ).
READ TABLE lt_sorted_rows TRANSPORTING NO FIELDS
WITH TABLE KEY row = lv_current_row.
CHECK: sy-subrc <> 0,
lo_row->get_row_height( ) >= 0 OR
lo_row->get_collapsed( io_worksheet ) = abap_true OR lo_row->get_collapsed( io_worksheet ) = abap_true OR
lo_row->get_outline_level( io_worksheet ) > 0 OR lo_row->get_outline_level( io_worksheet ) > 0 OR
lo_row->get_visible( io_worksheet ) = abap_false OR
lo_row->get_xf_index( ) <> 0. lo_row->get_xf_index( ) <> 0.
ls_row-num = lo_row->get_row_index( ). ls_row_data-row = lv_current_row.
INSERT ls_row INTO TABLE lt_sorted_rows. INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDWHILE. ENDWHILE.
* Get every outline row to set outline level * Get every outline row to set outline level
@ -4340,19 +4341,35 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF. ENDIF.
lv_current_row = ls_row_outline-row_from. lv_current_row = ls_row_outline-row_from.
WHILE lv_current_row <= ls_row_outline-row_to. WHILE lv_current_row <= ls_row_outline-row_to.
ls_row-num = lv_current_row. ls_row_data-row = lv_current_row.
INSERT ls_row INTO TABLE lt_sorted_rows. INSERT ls_row_data INTO TABLE lt_sorted_rows.
ADD 1 TO lv_current_row. ADD 1 TO lv_current_row.
ENDWHILE. ENDWHILE.
ENDLOOP. ENDLOOP.
* Last of all
IF lo_autofilter IS BOUND.
ls_row_data-hidden = abap_true.
lv_current_row = ls_area-row_start.
WHILE lv_current_row <= ls_area-row_end.
READ TABLE lt_sorted_rows TRANSPORTING NO FIELDS
WITH TABLE KEY row = lv_current_row.
IF sy-subrc <> 0 AND
lo_autofilter->is_row_hidden( lv_current_row ) = abap_true.
ls_row_data-row = lv_current_row.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDIF.
ADD 1 TO lv_current_row.
ENDWHILE.
ENDIF.
* Main row loop * Main row loop
LOOP AT lt_sorted_rows INTO ls_row. LOOP AT lt_sorted_rows INTO ls_row_data.
" Add new row " Add new row
lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
parent = io_document ). parent = io_document ).
" r " r
lv_value = ls_row-num. lv_value = ls_row_data-row.
SHIFT lv_value RIGHT DELETING TRAILING space. SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space. SHIFT lv_value LEFT DELETING LEADING space.
@ -4365,7 +4382,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
SHIFT lv_value LEFT DELETING LEADING space. SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = lc_xml_attr_spans lo_element_2->set_attribute_ns( name = lc_xml_attr_spans
value = lv_value ). value = lv_value ).
lo_row = io_worksheet->get_row( ls_row-num ). lo_row = io_worksheet->get_row( ls_row_data-row ).
" Row dimensions " Row dimensions
IF lo_row->get_custom_height( ) = abap_true. IF lo_row->get_custom_height( ) = abap_true.
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ). lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
@ -4385,32 +4402,25 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
SHIFT lv_value LEFT DELETING LEADING space. SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ). lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
ENDIF. ENDIF.
" Row visibility or row hidden by autofilter
IF ls_row_data-hidden = abap_true OR
lo_row->get_visible( io_worksheet ) = abap_false OR
( lo_autofilter IS BOUND AND
lo_autofilter->is_row_hidden( ls_row_data-row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true').
ENDIF.
" Style " Style
IF lo_row->get_xf_index( ) <> 0. IF lo_row->get_xf_index( ) <> 0.
lv_value = lo_row->get_xf_index( ). lv_value = lo_row->get_xf_index( ).
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.
IF ls_row-toidx > 0. IF ls_row_data-toidx > 0.
* Of course the WHILE loop corresponds to * Of course the WHILE loop corresponds to
* LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row-num. * LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row_data-row.
* but it should be faster this way * but it should be faster this way by benefiting the consecutive loop order
WHILE lv_tabix <= ls_row-toidx. WHILE lv_sheet_index <= ls_row_data-toidx.
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_sheet_content>-cell_column.
IF sy-subrc = 0 AND ls_values-value = <ls_sheet_content>-cell_value.
CLEAR l_autofilter_hidden.
ENDIF.
ENDIF.
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
parent = io_document ). parent = io_document ).
@ -4516,24 +4526,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element_2->append_child( new_child = lo_element_3 ). " column node lo_element_2->append_child( new_child = lo_element_3 ). " column node
ADD 1 TO lv_tabix. ADD 1 TO lv_sheet_index.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_tabix. READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_sheet_index.
ENDWHILE. ENDWHILE.
ENDIF. ENDIF.
IF lo_autofilter IS BOUND.
IF ls_area-row_start >= ls_row-num OR " One less for header
ls_area-row_end < ls_row-num.
CLEAR l_autofilter_hidden.
ENDIF.
ELSE.
CLEAR l_autofilter_hidden.
ENDIF.
" Row visibility or row hidden by autofilter
IF lo_row->get_visible( ) = abap_false OR
l_autofilter_hidden = 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 rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
ENDLOOP. ENDLOOP.