SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 16:46:11 +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-06-17 08:51:23 +02:00 committed by GitHub
parent 48db7f0b1b
commit 696efc933d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 213 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

189
src/zcl_excel_writer_2007.clas.abap
View File

@ -4218,7 +4218,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
bottom TYPE i,
END OF lty_table_area.
CONSTANTS: lc_dummy_cell_content TYPE zexcel_s_cell_data-cell_value VALUE '})~~~ This is a dummy value for ABAP2XLSX and you should never find this in a real excelsheet Ihope'.
TYPES: BEGIN OF lty_row_data,
row TYPE zexcel_cell_row,
tabix_to TYPE sy-tabix,
hidden_only TYPE abap_bool,
END OF lty_row_data.
CONSTANTS: lc_xml_node_sheetdata TYPE string VALUE 'sheetData', " SheetData tag
lc_xml_node_row TYPE string VALUE 'row', " Row tag
@ -4240,19 +4244,18 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_table_area LIKE LINE OF lt_table_areas,
lo_column TYPE REF TO zcl_excel_column,
ls_row_data TYPE lty_row_data,
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_empty LIKE LINE OF io_worksheet->sheet_content,
lv_current_row TYPE i,
lv_next_row TYPE i,
lv_last_row TYPE i,
lv_cell_tabix TYPE sy-tabix,
* lts_row_dimensions TYPE zexcel_t_worksheet_rowdimensio,
lo_row_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_row TYPE REF TO zcl_excel_row,
lo_row_empty TYPE REF TO zcl_excel_row,
lts_row_outlines TYPE zcl_excel_worksheet=>mty_ts_outlines_row,
ls_row_outline LIKE LINE OF lts_row_outlines,
ls_last_row TYPE zexcel_s_cell_data,
ls_style_mapping TYPE zexcel_s_styles_mapping,
lo_element_2 TYPE REF TO if_ixml_element,
@ -4264,8 +4267,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: lt_column_formulas_used TYPE mty_column_formulas_used,
lv_si TYPE i.
FIELD-SYMBOLS: <ls_sheet_content> TYPE zexcel_s_cell_data,
<ls_row_outline> LIKE LINE OF lts_row_outlines.
FIELD-SYMBOLS: <ls_sheet_content> TYPE zexcel_s_cell_data.
" sheetData node
@ -4297,95 +4299,80 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
*--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - end
*--------------------------------------------------------------------*
*We have problems when the first rows or trailing rows are not set but we have rowinformation
*to solve this we add dummycontent into first and last line that will not be set
*Set first line if necessary
READ TABLE io_worksheet->sheet_content TRANSPORTING NO FIELDS WITH KEY cell_row = 1.
IF sy-subrc <> 0.
ls_sheet_content_empty-cell_row = 1.
ls_sheet_content_empty-cell_column = 1.
ls_sheet_content_empty-cell_value = lc_dummy_cell_content.
INSERT ls_sheet_content_empty INTO TABLE io_worksheet->sheet_content.
ENDIF.
*Set last line if necessary
*Last row with cell content
lv_last_row = io_worksheet->get_highest_row( ).
*Last line with row-information set directly ( like line height, hidden-status ... )
* Preparing the row loop
* First of all get the rows with cell content
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
AT END OF cell_row.
ls_row_data-row = ls_sheet_content-cell_row.
ls_row_data-tabix_to = sy-tabix.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDAT.
ENDLOOP.
IF sy-subrc = 0.
* Get first cell data to start the WHILE loop below
lv_cell_tabix = 1.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_cell_tabix.
CLEAR ls_row_data-tabix_to. "not set for next preparations
ENDIF.
* Get every row with relevant data
lo_row_iterator = io_worksheet->get_rows_iterator( ).
WHILE lo_row_iterator->has_next( ) = abap_true.
lo_row ?= lo_row_iterator->get_next( ).
IF lo_row->get_row_index( ) > lv_last_row.
lv_last_row = lo_row->get_row_index( ).
ENDIF.
* It is intended not to pass io_worksheet to the three concerning methods. Outline
* rows are collected next. Therefore it is sufficiently done in the main row loop.
CHECK lo_row->get_row_height( ) >= 0 OR
lo_row->get_collapsed( ) = abap_true OR
lo_row->get_outline_level( ) > 0 OR
lo_row->get_xf_index( ) <> 0 OR
lo_row->get_visible( ) = abap_false.
ls_row_data-row = lo_row->get_row_index( ).
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDWHILE.
*Last line with row-information set indirectly by row outline
* Get every outline row to set outline level
lts_row_outlines = io_worksheet->get_row_outlines( ).
LOOP AT lts_row_outlines ASSIGNING <ls_row_outline>.
IF <ls_row_outline>-collapsed = 'X'.
lv_current_row = <ls_row_outline>-row_to + 1. " collapsed-status may be set on following row
ELSE.
lv_current_row = <ls_row_outline>-row_to. " collapsed-status may be set on following row
LOOP AT lts_row_outlines INTO ls_row_outline.
IF ls_row_outline-collapsed = abap_true.
* And include the line of the collapsed-status Symbol (+) shown below/above
IF io_worksheet->zif_excel_sheet_properties~summarybelow = zif_excel_sheet_properties=>c_below_on.
ADD 1 TO ls_row_outline-row_to. " collapsed-status set on following row
ELSEIF ls_row_outline-row_from > 1.
SUBTRACT 1 FROM ls_row_outline-row_from. " collapsed-status set on previous row
ENDIF.
IF lv_current_row > lv_last_row.
lv_last_row = lv_current_row.
ENDIF.
lv_current_row = ls_row_outline-row_from.
WHILE lv_current_row <= ls_row_outline-row_to.
ls_row_data-row = lv_current_row.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ADD 1 TO lv_current_row.
ENDWHILE.
ENDLOOP.
READ TABLE io_worksheet->sheet_content TRANSPORTING NO FIELDS WITH KEY cell_row = lv_last_row.
IF sy-subrc <> 0.
ls_sheet_content_empty-cell_row = lv_last_row.
ls_sheet_content_empty-cell_column = 1.
ls_sheet_content_empty-cell_value = lc_dummy_cell_content.
INSERT ls_sheet_content_empty INTO TABLE io_worksheet->sheet_content.
* Last of all preparations
IF lo_autofilter IS BOUND.
ls_row_data-hidden_only = abap_true.
lv_current_row = ls_area-row_start + 1. "without header
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.
CLEAR ls_sheet_content.
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
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
*Get next line that may have to be added. If we have empty lines this is the next line after previous cell content
*Otherwise it is the line of the current cell content
lv_current_row = ls_last_row-cell_row + 1.
IF lv_current_row > ls_sheet_content-cell_row.
lv_current_row = ls_sheet_content-cell_row.
ENDIF.
*Fill in empty lines if necessary - assign an emtpy sheet content
lv_next_row = lv_current_row.
WHILE lv_next_row <= ls_sheet_content-cell_row.
lv_current_row = lv_next_row.
lv_next_row = lv_current_row + 1.
IF lv_current_row = ls_sheet_content-cell_row. " cell value found in this row
ASSIGN ls_sheet_content TO <ls_sheet_content>.
ELSE.
*Check if empty row is really necessary - this is basically the case when we have information in row_dimension
lo_row_empty = io_worksheet->get_row( lv_current_row ).
CHECK lo_row_empty->get_row_height( ) >= 0 OR
lo_row_empty->get_collapsed( io_worksheet ) = abap_true OR
lo_row_empty->get_outline_level( io_worksheet ) > 0 OR
lo_row_empty->get_xf_index( ) <> 0.
" Dummyentry A1
ls_sheet_content_empty-cell_row = lv_current_row.
ls_sheet_content_empty-cell_column = 1.
ASSIGN ls_sheet_content_empty TO <ls_sheet_content>.
ENDIF.
IF ls_last_row-cell_row NE <ls_sheet_content>-cell_row.
IF ls_last_row-cell_row IS NOT INITIAL.
" Row visibility of previos row.
IF lo_row->get_visible( io_worksheet ) = abap_false OR
( 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
ENDIF.
* Main row loop
LOOP AT lt_sorted_rows INTO ls_row_data.
" Add new row
lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
parent = io_document ).
" r
lv_value = <ls_sheet_content>-cell_row.
lv_value = ls_row_data-row.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
@ -4398,7 +4385,8 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = lc_xml_attr_spans
value = lv_value ).
lo_row = io_worksheet->get_row( <ls_sheet_content>-cell_row ).
IF ls_row_data-hidden_only = abap_false.
lo_row = io_worksheet->get_row( ls_row_data-row ).
" Row dimensions
IF lo_row->get_custom_height( ) = abap_true.
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
@ -4424,11 +4412,21 @@ 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.
ELSE.
" Row visibility or row hidden by autofilter
IF 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.
ELSE.
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
ENDWHILE.
IF ls_row_data-tabix_to > 0.
* Of course the WHILE loop corresponds to
* LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row_data-row.
* but it should be faster this way by benefiting the consecutive loop order
WHILE lv_cell_tabix <= ls_row_data-tabix_to.
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
parent = io_document ).
@ -4474,6 +4472,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
*--------------------------------------------------------------------*
ENDIF.
IF lv_style_guid IS NOT INITIAL.
CLEAR ls_style_mapping.
READ TABLE styles_mapping INTO ls_style_mapping WITH KEY guid = lv_style_guid.
*end of change issue #157 - allow column cellstyles
lv_value = ls_style_mapping-style.
@ -4502,8 +4501,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ct_column_formulas_used = lt_column_formulas_used
cv_si = lv_si ).
lo_element_3->append_child( new_child = lo_element_4 ).
ELSEIF <ls_sheet_content>-cell_value IS NOT INITIAL "cell can have just style or formula
AND <ls_sheet_content>-cell_value <> lc_dummy_cell_content.
ELSEIF <ls_sheet_content>-cell_value IS NOT INITIAL. "cell can have just style or formula
IF <ls_sheet_content>-data_type IS NOT INITIAL.
IF <ls_sheet_content>-data_type EQ 's_leading_blanks'.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
@ -4533,18 +4531,15 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF.
lo_element_2->append_child( new_child = lo_element_3 ). " column node
ls_last_row = <ls_sheet_content>.
ENDLOOP.
IF sy-subrc = 0.
" Row visibility of previos row.
IF lo_row->get_visible( ) = abap_false OR
( 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' ).
ADD 1 TO lv_cell_tabix.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_cell_tabix.
* sy-subrc <> 0 always corresponds to the end of the last while loop
ENDWHILE.
ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
ENDIF.
DELETE io_worksheet->sheet_content WHERE cell_value = lc_dummy_cell_content. " Get rid of dummyentries
ENDLOOP.
ENDMETHOD.