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

Update zcl_excel_writer_2007.clas.abap

Browse Source
This commit is contained in:
RixarSAP 2024-05-03 08:17:21 +02:00 committed by GitHub
parent 317cbaffd5
commit a2fd4227f1
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/zcl_excel_writer_2007.clas.abap
View File

@ -3301,31 +3301,33 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
* Ricardo R. - 2024.05.02 * Ricardo R. - 2024.05.02
* https://github.com/abap2xlsx/abap2xlsx/pull/1219
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
DATA: DATA:
lv_anchor TYPE string, lv_anchor TYPE string,
lv_height TYPE i, lv_bottom_row TYPE i,
lv_width TYPE i, lv_right_col TYPE i,
lv_height_str TYPE string, lv_bottom_row_str TYPE string,
lv_width_str TYPE string. lv_right_col_str TYPE string.
CONSTANTS: CONSTANTS:
lc_anchor_init TYPE string VALUE '2, 15, 11, 10, &width&, 31, &height&, 9'. lc_anchor_init TYPE string VALUE '2, 15, 11, 10, &right_col&, 31, &bottom_row&, 9'.
CALL METHOD lo_comment->get_size CALL METHOD lo_comment->get_position
IMPORTING IMPORTING
ep_width = lv_width ep_right_column = lv_right_col
ep_height = lv_height. ep_bottom_row = lv_bottom_row.
lv_width_str = lv_width. lv_right_col_str = lv_right_col.
lv_height_str = lv_height. lv_bottom_row_str = lv_bottom_row.
lv_anchor = lc_anchor_init. lv_anchor = lc_anchor_init.
REPLACE '&height&' WITH lv_height_str INTO lv_anchor. REPLACE '&right_col&' WITH lv_bottom_row_str INTO lv_anchor.
REPLACE '&width&' WITH lv_width_str INTO lv_anchor. REPLACE '&bottom_row&' WITH lv_right_col_str INTO lv_anchor.
lo_element_anchor->set_value( lv_anchor ). lo_element_anchor->set_value( lv_anchor ).
* lo_element_anchor->set_value( '2, 15, 11, 10, 4, 31, 15, 9' ). "Original line ** lo_element_anchor->set_value( '2, 15, 11, 10, 4, 31, 15, 9' ). "Original line
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
lo_element_clientdata->append_child( new_child = lo_element_anchor ). lo_element_clientdata->append_child( new_child = lo_element_anchor ).