SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 13:46:17 +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-04-04 17:02:45 +02:00 committed by GitHub
parent 471008e84e
commit 61766c5830
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 11 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/zcl_excel_writer_2007.clas.abap
View File

@ -145,10 +145,10 @@ CLASS zcl_excel_writer_2007 DEFINITION
METHODS create_xl_sheet_rels METHODS create_xl_sheet_rels
IMPORTING IMPORTING
!io_worksheet TYPE REF TO zcl_excel_worksheet !io_worksheet TYPE REF TO zcl_excel_worksheet
!iv_drawing_index TYPE i optional !iv_drawing_index TYPE i OPTIONAL
!iv_comment_index TYPE i optional !iv_comment_index TYPE i OPTIONAL
!iv_cmnt_vmlindex type I optional !iv_cmnt_vmlindex TYPE i OPTIONAL
!iv_hdft_vmlindex type I optional !iv_hdft_vmlindex TYPE i OPTIONAL
RETURNING RETURNING
VALUE(ep_content) TYPE xstring . VALUE(ep_content) TYPE xstring .
METHODS create_xl_styles METHODS create_xl_styles
@ -325,10 +325,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_iterator TYPE REF TO zcl_excel_collection_iterator, lo_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_nested_iterator TYPE REF TO zcl_excel_collection_iterator, lo_nested_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_table TYPE REF TO zcl_excel_table, lo_table TYPE REF TO zcl_excel_table,
lo_drawing TYPE REF TO zcl_excel_drawing, lo_drawing TYPE REF TO zcl_excel_drawing.
lo_drawings TYPE REF TO zcl_excel_drawings,
lo_comment TYPE REF TO zcl_excel_comment, " (+) Issue #180
lo_comments TYPE REF TO zcl_excel_comments. " (+) Issue #180
DATA: lv_content TYPE xstring, DATA: lv_content TYPE xstring,
lv_active TYPE flag, lv_active TYPE flag,
@ -4008,8 +4005,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: lv_value TYPE string, DATA: lv_value TYPE string,
lv_relation_id TYPE i, lv_relation_id TYPE i,
lv_index_str TYPE string, lv_index_str TYPE string.
lv_comment_index TYPE i.
********************************************************************** **********************************************************************
* STEP 1: Create [Content_Types].xml into the root of the ZIP * STEP 1: Create [Content_Types].xml into the root of the ZIP
@ -4053,10 +4049,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDWHILE. ENDWHILE.
* drawing * drawing
DATA: lo_drawings TYPE REF TO zcl_excel_drawings. IF iv_drawing_index > 0.
lo_drawings = io_worksheet->get_drawings( ).
IF lo_drawings->is_empty( ) = abap_false.
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
parent = lo_document ). parent = lo_document ).
ADD 1 TO lv_relation_id. ADD 1 TO lv_relation_id.
@ -4080,18 +4073,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ENDIF. ENDIF.
* Begin - Add - Issue #180 * Begin - Add - Issue #180
DATA: lo_comments TYPE REF TO zcl_excel_comments. IF iv_cmnt_vmlindex > 0 AND iv_comment_index > 0.
lv_comment_index = iv_comment_index.
lo_comments = io_worksheet->get_comments( ).
IF lo_comments->is_empty( ) = abap_false.
" Drawing for comment " Drawing for comment
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
parent = lo_document ). parent = lo_document ).
ADD 1 TO lv_relation_id. ADD 1 TO lv_relation_id.
ADD 1 TO lv_comment_index.
lv_value = lv_relation_id. lv_value = lv_relation_id.
CONDENSE lv_value. CONDENSE lv_value.
@ -4101,7 +4087,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element->set_attribute_ns( name = lc_xml_attr_type lo_element->set_attribute_ns( name = lc_xml_attr_type
value = lc_xml_node_rid_drawing_cmt_tp ). value = lc_xml_node_rid_drawing_cmt_tp ).
lv_index_str = iv_comment_index. lv_index_str = iv_cmnt_vmlindex.
CONDENSE lv_index_str NO-GAPS. CONDENSE lv_index_str NO-GAPS.
lv_value = me->cl_xl_drawing_for_comments. lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value. REPLACE 'xl' WITH '..' INTO lv_value.
@ -4136,9 +4122,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
********************************************************************** **********************************************************************
* header footer image * header footer image
DATA: lt_drawings TYPE zexcel_t_drawings. IF iv_hdft_vmlindex > 0.. "Header or footer image exist
lt_drawings = io_worksheet->get_header_footer_drawings( ).
IF lines( lt_drawings ) > 0. "Header or footer image exist
ADD 1 TO lv_relation_id. ADD 1 TO lv_relation_id.
" Drawing for comment/header/footer " Drawing for comment/header/footer
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
@ -4151,7 +4135,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element->set_attribute_ns( name = lc_xml_attr_type lo_element->set_attribute_ns( name = lc_xml_attr_type
value = lc_xml_node_rid_drawing_cmt_tp ). value = lc_xml_node_rid_drawing_cmt_tp ).
lv_index_str = lv_comment_index. lv_index_str = iv_hdft_vmlindex.
CONDENSE lv_index_str NO-GAPS. CONDENSE lv_index_str NO-GAPS.
lv_value = me->cl_xl_drawing_for_comments. lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value. REPLACE 'xl' WITH '..' INTO lv_value.