SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 19:26: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-09 10:54:58 +02:00 committed by GitHub
parent a9e1068e44
commit ae3e3aa881
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 166 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

160
src/zcl_excel_writer_2007.clas.abap
View File

@ -4213,7 +4213,10 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
bottom TYPE i, bottom TYPE i,
END OF lty_table_area. 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_sorted_rows,
num TYPE zexcel_cell_row,
content TYPE abap_bool,
END OF lty_sorted_rows.
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
@ -4239,19 +4242,16 @@ 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 LIKE LINE OF lt_sorted_rows,
ls_sheet_content LIKE LINE OF io_worksheet->sheet_content, 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_current_row TYPE i,
lv_next_row TYPE i,
lv_last_row TYPE i,
* 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,
lo_row TYPE REF TO zcl_excel_row, 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, lts_row_outlines TYPE zcl_excel_worksheet=>mty_ts_outlines_row,
ls_last_row TYPE zexcel_s_cell_data,
ls_style_mapping TYPE zexcel_s_styles_mapping, ls_style_mapping TYPE zexcel_s_styles_mapping,
lo_element_2 TYPE REF TO if_ixml_element, lo_element_2 TYPE REF TO if_ixml_element,
@ -4297,110 +4297,45 @@ 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 *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
ls_row-content = abap_true.
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
AT NEW cell_row.
ls_row-num = ls_sheet_content-cell_row.
INSERT ls_row INTO TABLE lt_sorted_rows.
ENDAT.
ENDLOOP.
CLEAR ls_row. "w/o content mark
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( ).
IF lo_row->get_row_index( ) > lv_last_row. CHECK lo_row->get_row_height( ) >= 0 OR
lv_last_row = lo_row->get_row_index( ). lo_row->get_collapsed( io_worksheet ) = abap_true OR
ENDIF. lo_row->get_outline_level( io_worksheet ) > 0 OR
lo_row->get_xf_index( ) <> 0.
ls_row-num = lo_row->get_row_index( ).
INSERT ls_row INTO TABLE lt_sorted_rows.
ENDWHILE. ENDWHILE.
*Last line with row-information set indirectly by row outline
lts_row_outlines = io_worksheet->get_row_outlines( ). lts_row_outlines = io_worksheet->get_row_outlines( ).
LOOP AT lts_row_outlines ASSIGNING <ls_row_outline>. LOOP AT lts_row_outlines ASSIGNING <ls_row_outline>.
IF <ls_row_outline>-collapsed = 'X'. lv_current_row = <ls_row_outline>-row_from.
lv_current_row = <ls_row_outline>-row_to + 1. " collapsed-status may be set on following row WHILE lv_current_row LE <ls_row_outline>-row_to.
ELSE. ls_row-num = lv_current_row.
lv_current_row = <ls_row_outline>-row_to. " collapsed-status may be set on following row INSERT ls_row INTO TABLE lt_sorted_rows.
ENDIF. ADD 1 TO lv_current_row.
IF lv_current_row > lv_last_row. ENDWHILE.
lv_last_row = lv_current_row.
ENDIF.
ENDLOOP. 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.
ENDIF.
CLEAR ls_sheet_content. * Main row loop
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content. LOOP AT lt_sorted_rows INTO ls_row.
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
*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 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_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.
" 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_sheet_content>-cell_row. lv_value = ls_row-num.
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.
@ -4413,7 +4348,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_sheet_content>-cell_row ). lo_row = io_worksheet->get_row( ls_row-num ).
" 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' ).
@ -4444,10 +4379,17 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ELSE. ELSE.
l_autofilter_hidden = abap_true. " First default is not showing l_autofilter_hidden = abap_true. " First default is not showing
ENDIF. ENDIF.
ELSE.
IF ls_row-content IS NOT INITIAL.
LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row-num.
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. ENDIF.
ENDWHILE.
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 ).
@ -4522,8 +4464,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ct_column_formulas_used = lt_column_formulas_used ct_column_formulas_used = lt_column_formulas_used
cv_si = lv_si ). cv_si = lv_si ).
lo_element_3->append_child( new_child = lo_element_4 ). 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 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.
IF <ls_sheet_content>-data_type IS NOT INITIAL. IF <ls_sheet_content>-data_type IS NOT INITIAL.
IF <ls_sheet_content>-data_type EQ 's_leading_blanks'. IF <ls_sheet_content>-data_type EQ 's_leading_blanks'.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t lo_element_3->set_attribute_ns( name = lc_xml_attr_t
@ -4553,29 +4494,24 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF. ENDIF.
lo_element_2->append_child( new_child = lo_element_3 ). " column node lo_element_2->append_child( new_child = lo_element_3 ). " column node
ls_last_row = <ls_sheet_content>.
ENDLOOP. 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. ENDIF.
IF lo_autofilter IS BOUND. IF lo_autofilter IS BOUND.
IF ls_area-row_start >= ls_last_row-cell_row OR " One less for header IF ls_area-row_start >= ls_row-num OR " One less for header
ls_area-row_end < ls_last_row-cell_row . ls_area-row_end < ls_row-num.
CLEAR l_autofilter_hidden. CLEAR l_autofilter_hidden.
ENDIF. ENDIF.
ELSE. ELSE.
CLEAR l_autofilter_hidden. CLEAR l_autofilter_hidden.
ENDIF. ENDIF.
" Row visibility of previos row. " Row visibility or row hidden by autofilter
IF lo_row->get_visible( ) = abap_false OR IF lo_row->get_visible( ) = abap_false OR
l_autofilter_hidden = abap_true. l_autofilter_hidden = 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
ENDIF. ENDLOOP.
DELETE io_worksheet->sheet_content WHERE cell_value = lc_dummy_cell_content. " Get rid of dummyentries
ENDMETHOD. ENDMETHOD.