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

Update zcl_excel_reader_2007.clas.abap

Browse Source
This commit is contained in:
Bernd 2024-01-30 15:49:04 +01:00 committed by GitHub
parent f904c0f7c1
commit 5b9d3f3803
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/zcl_excel_reader_2007.clas.abap
View File

@ -608,7 +608,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
WHEN 'fill'. WHEN 'fill'.
lo_ixml_element = lo_ixml_dxf_child->find_from_name_ns( name = 'patternFill' uri = namespace-main ). lo_ixml_element = lo_ixml_dxf_child->find_from_name_ns( name = 'patternFill' uri = namespace-main ).
IF lo_ixml_element IS BOUND. IF lo_ixml_element IS BOUND.
lo_ixml_element2 = lo_ixml_dxf_child->find_from_name_ns( name = 'bgColor' uri = namespace-main ). lo_ixml_element2 = lo_ixml_element->find_from_name_ns( name = 'bgColor' uri = namespace-main ).
IF lo_ixml_element2 IS BOUND. IF lo_ixml_element2 IS BOUND.
CLEAR lv_val. CLEAR lv_val.
lv_val = lo_ixml_element2->get_attribute_ns( 'rgb' ). lv_val = lo_ixml_element2->get_attribute_ns( 'rgb' ).
@ -1472,7 +1472,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* Patternfill - foreground color * Patternfill - foreground color
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
lo_node_fgcolor = lo_node_fill->find_from_name_ns( name = 'fgColor' uri = namespace-main ). lo_node_fgcolor = lo_node_fill_child->find_from_name_ns( name = 'fgColor' uri = namespace-main ).
IF lo_node_fgcolor IS BOUND. IF lo_node_fgcolor IS BOUND.
fill_struct_from_attributes( EXPORTING fill_struct_from_attributes( EXPORTING
ip_element = lo_node_fgcolor ip_element = lo_node_fgcolor
@ -2253,7 +2253,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
END OF lty_column. END OF lty_column.
TYPES: BEGIN OF lty_sheetview, TYPES: BEGIN OF lty_sheetview,
showgridlines TYPE zexcel_show_gridlines, showgridlines TYPE string,
tabselected TYPE string, tabselected TYPE string,
zoomscale TYPE string, zoomscale TYPE string,
zoomscalenormal TYPE string, zoomscalenormal TYPE string,
@ -2474,11 +2474,11 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
ip_element = lo_ixml_node ip_element = lo_ixml_node
CHANGING CHANGING
cp_structure = ls_relationship ). cp_structure = ls_relationship ).
CONCATENATE lv_dirname ls_relationship-target INTO lv_path.
lv_path = resolve_path( lv_path ).
CASE ls_relationship-type. CASE ls_relationship-type.
WHEN lc_rel_drawing. WHEN lc_rel_drawing.
CONCATENATE lv_dirname ls_relationship-target INTO lv_path.
lv_path = resolve_path( lv_path ).
" Read Drawings " Read Drawings
* Issue # 339 Not all drawings are in the path mentioned below. * Issue # 339 Not all drawings are in the path mentioned below.
* Some Excel elements like textfields (which we don't support ) have a drawing-part in the relationsships * Some Excel elements like textfields (which we don't support ) have a drawing-part in the relationsships
@ -2795,15 +2795,14 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
"Now we need to get information from the sheetView node "Now we need to get information from the sheetView node
lo_ixml_sheetview_elem = lo_ixml_worksheet->find_from_name_ns( name = 'sheetView' uri = namespace-main ). lo_ixml_sheetview_elem = lo_ixml_worksheet->find_from_name_ns( name = 'sheetView' uri = namespace-main ).
fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_sheetview_elem CHANGING cp_structure = ls_sheetview ). fill_struct_from_attributes( EXPORTING ip_element = lo_ixml_sheetview_elem CHANGING cp_structure = ls_sheetview ).
IF ls_sheetview-showgridlines IS INITIAL OR
ls_sheetview-showgridlines = lc_xml_attr_true OR
ls_sheetview-showgridlines = lc_xml_attr_true_int.
"If the attribute is not specified or set to true, we will show grid lines "If the attribute is not specified or set to true, we will show grid lines
ls_sheetview-showgridlines = abap_true. io_worksheet->set_show_gridlines( boolc( ls_sheetview-showgridlines IS INITIAL OR
ELSE. ls_sheetview-showgridlines = lc_xml_attr_true OR
ls_sheetview-showgridlines = abap_false. ls_sheetview-showgridlines = lc_xml_attr_true_int ) ).
ENDIF. "If the attribute is not specified or set to true, we will show rowcol headers
io_worksheet->set_show_gridlines( ls_sheetview-showgridlines ). io_worksheet->set_show_rowcolheaders( boolc( ls_sheetview-showrowcolheaders IS INITIAL OR
ls_sheetview-showrowcolheaders = lc_xml_attr_true OR
ls_sheetview-showrowcolheaders = lc_xml_attr_true_int ) ).
IF ls_sheetview-righttoleft = lc_xml_attr_true IF ls_sheetview-righttoleft = lc_xml_attr_true
OR ls_sheetview-righttoleft = lc_xml_attr_true_int. OR ls_sheetview-righttoleft = lc_xml_attr_true_int.
io_worksheet->zif_excel_sheet_properties~set_right_to_left( abap_true ). io_worksheet->zif_excel_sheet_properties~set_right_to_left( abap_true ).