mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 19:26:10 +08:00
Update zcl_excel_writer_2007.clas.abap
This commit is contained in:
Bernd
GitHub
parent
a9e1068e44
commit
ae3e3aa881
|
|
@ -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,285 +4297,221 @@ 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.
|
||||||
|
" Add new row
|
||||||
|
lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
|
||||||
|
parent = io_document ).
|
||||||
|
" r
|
||||||
|
lv_value = ls_row-num.
|
||||||
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
||||||
|
SHIFT lv_value LEFT DELETING LEADING space.
|
||||||
|
|
||||||
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_r
|
||||||
|
value = lv_value ).
|
||||||
|
" Spans
|
||||||
|
lv_value = col_count.
|
||||||
|
CONCATENATE '1:' lv_value INTO lv_value.
|
||||||
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
||||||
|
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_row-num ).
|
||||||
|
" Row dimensions
|
||||||
|
IF lo_row->get_custom_height( ) = abap_true.
|
||||||
|
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
|
||||||
|
ENDIF.
|
||||||
|
IF lo_row->get_row_height( ) > 0.
|
||||||
|
lv_value = lo_row->get_row_height( ).
|
||||||
|
lo_element_2->set_attribute_ns( name = 'ht' value = lv_value ).
|
||||||
|
ENDIF.
|
||||||
|
" Collapsed
|
||||||
|
IF lo_row->get_collapsed( io_worksheet ) = abap_true.
|
||||||
|
lo_element_2->set_attribute_ns( name = 'collapsed' value = 'true' ).
|
||||||
|
ENDIF.
|
||||||
|
" Outline level
|
||||||
|
IF lo_row->get_outline_level( io_worksheet ) > 0.
|
||||||
|
lv_value = lo_row->get_outline_level( io_worksheet ).
|
||||||
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
||||||
|
SHIFT lv_value LEFT DELETING LEADING space.
|
||||||
|
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
|
||||||
|
ENDIF.
|
||||||
|
" Style
|
||||||
|
IF lo_row->get_xf_index( ) <> 0.
|
||||||
|
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 = 'customFormat' value = '1' ).
|
||||||
|
ENDIF.
|
||||||
IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
|
IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
|
||||||
CLEAR l_autofilter_hidden.
|
CLEAR l_autofilter_hidden.
|
||||||
ELSE.
|
ELSE.
|
||||||
READ TABLE lt_values INTO ls_values WITH KEY column = ls_last_row-cell_column.
|
l_autofilter_hidden = abap_true. " First default is not showing
|
||||||
IF sy-subrc = 0 AND ls_values-value = ls_last_row-cell_value.
|
|
||||||
CLEAR l_autofilter_hidden.
|
|
||||||
ENDIF.
|
|
||||||
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 ls_row-content IS NOT INITIAL.
|
||||||
IF lo_autofilter IS BOUND.
|
LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row-num.
|
||||||
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
|
|
||||||
lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
|
|
||||||
parent = io_document ).
|
|
||||||
" r
|
|
||||||
lv_value = <ls_sheet_content>-cell_row.
|
|
||||||
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
||||||
SHIFT lv_value LEFT DELETING LEADING space.
|
|
||||||
|
|
||||||
lo_element_2->set_attribute_ns( name = lc_xml_attr_r
|
|
||||||
value = lv_value ).
|
|
||||||
" Spans
|
|
||||||
lv_value = col_count.
|
|
||||||
CONCATENATE '1:' lv_value INTO lv_value.
|
|
||||||
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
||||||
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 ).
|
|
||||||
" Row dimensions
|
|
||||||
IF lo_row->get_custom_height( ) = abap_true.
|
|
||||||
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
|
|
||||||
ENDIF.
|
|
||||||
IF lo_row->get_row_height( ) > 0.
|
|
||||||
lv_value = lo_row->get_row_height( ).
|
|
||||||
lo_element_2->set_attribute_ns( name = 'ht' value = lv_value ).
|
|
||||||
ENDIF.
|
|
||||||
" Collapsed
|
|
||||||
IF lo_row->get_collapsed( io_worksheet ) = abap_true.
|
|
||||||
lo_element_2->set_attribute_ns( name = 'collapsed' value = 'true' ).
|
|
||||||
ENDIF.
|
|
||||||
" Outline level
|
|
||||||
IF lo_row->get_outline_level( io_worksheet ) > 0.
|
|
||||||
lv_value = lo_row->get_outline_level( io_worksheet ).
|
|
||||||
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
||||||
SHIFT lv_value LEFT DELETING LEADING space.
|
|
||||||
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
|
|
||||||
ENDIF.
|
|
||||||
" Style
|
|
||||||
IF lo_row->get_xf_index( ) <> 0.
|
|
||||||
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 = 'customFormat' value = '1' ).
|
|
||||||
ENDIF.
|
|
||||||
IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
|
IF lt_values IS INITIAL. " no values attached to autofilter " issue #368 autofilter filtering too much
|
||||||
CLEAR l_autofilter_hidden.
|
CLEAR l_autofilter_hidden.
|
||||||
ELSE.
|
ELSE.
|
||||||
l_autofilter_hidden = abap_true. " First default is not showing
|
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.
|
||||||
ELSE.
|
|
||||||
|
|
||||||
ENDIF.
|
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
|
||||||
ENDWHILE.
|
parent = io_document ).
|
||||||
|
|
||||||
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_r
|
||||||
parent = io_document ).
|
value = <ls_sheet_content>-cell_coords ).
|
||||||
|
|
||||||
lo_element_3->set_attribute_ns( name = lc_xml_attr_r
|
|
||||||
value = <ls_sheet_content>-cell_coords ).
|
|
||||||
|
|
||||||
*begin of change issue #157 - allow column cellstyle
|
*begin of change issue #157 - allow column cellstyle
|
||||||
*if no cellstyle is set, look into column, then into sheet
|
*if no cellstyle is set, look into column, then into sheet
|
||||||
IF <ls_sheet_content>-cell_style IS NOT INITIAL.
|
IF <ls_sheet_content>-cell_style IS NOT INITIAL.
|
||||||
lv_style_guid = <ls_sheet_content>-cell_style.
|
lv_style_guid = <ls_sheet_content>-cell_style.
|
||||||
ELSE.
|
ELSE.
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - start
|
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - start
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
*Check if cell in any of the table areas
|
*Check if cell in any of the table areas
|
||||||
LOOP AT lt_table_areas TRANSPORTING NO FIELDS WHERE top <= <ls_sheet_content>-cell_row
|
LOOP AT lt_table_areas TRANSPORTING NO FIELDS WHERE top <= <ls_sheet_content>-cell_row
|
||||||
AND bottom >= <ls_sheet_content>-cell_row
|
AND bottom >= <ls_sheet_content>-cell_row
|
||||||
AND left <= <ls_sheet_content>-cell_column
|
AND left <= <ls_sheet_content>-cell_column
|
||||||
AND right >= <ls_sheet_content>-cell_column.
|
AND right >= <ls_sheet_content>-cell_column.
|
||||||
EXIT.
|
EXIT.
|
||||||
ENDLOOP.
|
ENDLOOP.
|
||||||
IF sy-subrc = 0.
|
IF sy-subrc = 0.
|
||||||
CLEAR lv_style_guid. " No style --> EXCEL will use built-in-styles as declared in the tables-section
|
CLEAR lv_style_guid. " No style --> EXCEL will use built-in-styles as declared in the tables-section
|
||||||
ELSE.
|
ELSE.
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - end
|
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - end
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
|
|
||||||
lo_column ?= io_worksheet->get_column( <ls_sheet_content>-cell_column ).
|
|
||||||
IF lo_column->get_column_index( ) = <ls_sheet_content>-cell_column.
|
|
||||||
lv_style_guid = lo_column->get_column_style_guid( ).
|
|
||||||
IF lv_style_guid IS INITIAL.
|
|
||||||
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
|
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
|
||||||
ENDIF.
|
lo_column ?= io_worksheet->get_column( <ls_sheet_content>-cell_column ).
|
||||||
ENDIF.
|
IF lo_column->get_column_index( ) = <ls_sheet_content>-cell_column.
|
||||||
|
lv_style_guid = lo_column->get_column_style_guid( ).
|
||||||
|
IF lv_style_guid IS INITIAL.
|
||||||
|
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
|
||||||
|
ENDIF.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - start
|
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - start
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
ENDIF.
|
ENDIF.
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - end
|
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - end
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
ENDIF.
|
|
||||||
IF lv_style_guid IS NOT INITIAL.
|
|
||||||
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.
|
|
||||||
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
||||||
SHIFT lv_value LEFT DELETING LEADING space.
|
|
||||||
lo_element_3->set_attribute_ns( name = lc_xml_attr_s
|
|
||||||
value = lv_value ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
" For cells with formula ignore the value - Excel will calculate it
|
|
||||||
IF <ls_sheet_content>-cell_formula IS NOT INITIAL.
|
|
||||||
" fomula node
|
|
||||||
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_f
|
|
||||||
parent = io_document ).
|
|
||||||
lo_element_4->set_value( value = <ls_sheet_content>-cell_formula ).
|
|
||||||
lo_element_3->append_child( new_child = lo_element_4 ). " formula node
|
|
||||||
ELSEIF <ls_sheet_content>-column_formula_id <> 0.
|
|
||||||
create_xl_sheet_column_formula(
|
|
||||||
EXPORTING
|
|
||||||
io_document = io_document
|
|
||||||
it_column_formulas = io_worksheet->column_formulas
|
|
||||||
is_sheet_content = <ls_sheet_content>
|
|
||||||
IMPORTING
|
|
||||||
eo_element = lo_element_4
|
|
||||||
CHANGING
|
|
||||||
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.
|
|
||||||
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
|
|
||||||
value = 's' ).
|
|
||||||
ELSE.
|
|
||||||
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
|
|
||||||
value = <ls_sheet_content>-data_type ).
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDIF.
|
IF lv_style_guid IS NOT INITIAL.
|
||||||
|
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.
|
||||||
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
||||||
|
SHIFT lv_value LEFT DELETING LEADING space.
|
||||||
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_s
|
||||||
|
value = lv_value ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
" value node
|
" For cells with formula ignore the value - Excel will calculate it
|
||||||
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_v
|
IF <ls_sheet_content>-cell_formula IS NOT INITIAL.
|
||||||
parent = io_document ).
|
" fomula node
|
||||||
|
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_f
|
||||||
|
parent = io_document ).
|
||||||
|
lo_element_4->set_value( value = <ls_sheet_content>-cell_formula ).
|
||||||
|
lo_element_3->append_child( new_child = lo_element_4 ). " formula node
|
||||||
|
ELSEIF <ls_sheet_content>-column_formula_id <> 0.
|
||||||
|
create_xl_sheet_column_formula(
|
||||||
|
EXPORTING
|
||||||
|
io_document = io_document
|
||||||
|
it_column_formulas = io_worksheet->column_formulas
|
||||||
|
is_sheet_content = <ls_sheet_content>
|
||||||
|
IMPORTING
|
||||||
|
eo_element = lo_element_4
|
||||||
|
CHANGING
|
||||||
|
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
|
||||||
|
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
|
||||||
|
value = 's' ).
|
||||||
|
ELSE.
|
||||||
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
|
||||||
|
value = <ls_sheet_content>-data_type ).
|
||||||
|
ENDIF.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
IF <ls_sheet_content>-data_type EQ 's' OR <ls_sheet_content>-data_type EQ 's_leading_blanks'.
|
" value node
|
||||||
lv_value = me->get_shared_string_index( ip_cell_value = <ls_sheet_content>-cell_value
|
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_v
|
||||||
it_rtf = <ls_sheet_content>-rtf_tab ).
|
parent = io_document ).
|
||||||
CONDENSE lv_value.
|
|
||||||
lo_element_4->set_value( value = lv_value ).
|
|
||||||
ELSE.
|
|
||||||
lv_value = <ls_sheet_content>-cell_value.
|
|
||||||
CONDENSE lv_value.
|
|
||||||
lo_element_4->set_value( value = lv_value ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
lo_element_3->append_child( new_child = lo_element_4 ). " value node
|
IF <ls_sheet_content>-data_type EQ 's' OR <ls_sheet_content>-data_type EQ 's_leading_blanks'.
|
||||||
|
lv_value = me->get_shared_string_index( ip_cell_value = <ls_sheet_content>-cell_value
|
||||||
|
it_rtf = <ls_sheet_content>-rtf_tab ).
|
||||||
|
CONDENSE lv_value.
|
||||||
|
lo_element_4->set_value( value = lv_value ).
|
||||||
|
ELSE.
|
||||||
|
lv_value = <ls_sheet_content>-cell_value.
|
||||||
|
CONDENSE lv_value.
|
||||||
|
lo_element_4->set_value( value = lv_value ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lo_element_3->append_child( new_child = lo_element_4 ). " value node
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lo_element_2->append_child( new_child = lo_element_3 ). " column node
|
||||||
|
ENDLOOP.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
lo_element_2->append_child( new_child = lo_element_3 ). " column node
|
|
||||||
ls_last_row = <ls_sheet_content>.
|
|
||||||
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 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.
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user