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

Support also landscape output for the calendar demo

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@403 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2013-01-03 10:22:31 +00:00
parent 5c0c447d6d
commit 2de54c6cbb
2 changed files with 279 additions and 121 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

259
ZA2X/PROG/ZDEMO_CALENDAR.slnk
View File

@ -7,12 +7,15 @@
<textElement ID="R" ENTRY="abap2xlsx Demo: Erzeugen eines Kalenders mit Bildern" LENGTH="70 "/> <textElement ID="R" ENTRY="abap2xlsx Demo: Erzeugen eines Kalenders mit Bildern" LENGTH="70 "/>
</language> </language>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="I" KEY="000" ENTRY="Orientation" LENGTH="11 "/>
<textElement ID="I" KEY="001" ENTRY="CW" LENGTH="4 "/> <textElement ID="I" KEY="001" ENTRY="CW" LENGTH="4 "/>
<textElement ID="I" KEY="002" ENTRY="Created with abap2xlsx. Find more information at http://abap2xlsx.org." LENGTH="100 "/> <textElement ID="I" KEY="002" ENTRY="Created with abap2xlsx. Find more information at http://abap2xlsx.org." LENGTH="100 "/>
<textElement ID="R" ENTRY="abap2xlsx Demo: Create Calendar with Pictures" LENGTH="45 "/> <textElement ID="R" ENTRY="abap2xlsx Demo: Create Calendar with Pictures" LENGTH="45 "/>
<textElement ID="S" KEY="P_FROM" ENTRY="D ." LENGTH="9 "/> <textElement ID="S" KEY="P_FROM" ENTRY="D ." LENGTH="17 "/>
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/> <textElement ID="S" KEY="P_LANDS" ENTRY=" Landscape" LENGTH="17 "/>
<textElement ID="S" KEY="P_TO" ENTRY="D ." LENGTH="9 "/> <textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="24 "/>
<textElement ID="S" KEY="P_PORTR" ENTRY=" Portrait" LENGTH="16 "/>
<textElement ID="S" KEY="P_TO" ENTRY="D ." LENGTH="15 "/>
</language> </language>
</textPool> </textPool>
<source>*&amp;---------------------------------------------------------------------* <source>*&amp;---------------------------------------------------------------------*
@ -28,6 +31,7 @@
*&amp; Month (with leading 0) *&amp; Month (with leading 0)
*&amp; Image Filename *&amp; Image Filename
*&amp; Image Description *&amp; Image Description
*&amp; URL for the Description
*&amp; *&amp;
*&amp; The Images should be landscape JPEG&apos;s with a 3:2 ratio and min. *&amp; The Images should be landscape JPEG&apos;s with a 3:2 ratio and min.
*&amp; 450 pixel height. They must also be saved in the Export Directory. *&amp; 450 pixel height. They must also be saved in the Export Directory.
@ -39,24 +43,25 @@
REPORT zdemo_calendar. REPORT zdemo_calendar.
TYPE-POOLS: abap. TYPE-POOLS: abap.
CONSTANTS: gc_save_file_name TYPE string VALUE &apos;Calendar.xlsx&apos;.
INCLUDE zdemo_excel_outputopt_incl.
INCLUDE zdemo_calendar_classes. INCLUDE zdemo_calendar_classes.
DATA: lv_workdir TYPE string. DATA: lv_workdir TYPE string.
PARAMETERS: p_path TYPE zexcel_export_dir. PARAMETERS: p_from TYPE dfrom DEFAULT &apos;20130101&apos;,
PARAMETERS: p_from TYPE dfrom DEFAULT &apos;20120101&apos;, p_to TYPE dto DEFAULT &apos;20131231&apos;.
p_to TYPE dto DEFAULT &apos;20121231&apos;.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. SELECTION-SCREEN BEGIN OF BLOCK orientation WITH FRAME TITLE orient.
lv_workdir = p_path. PARAMETERS: p_portr TYPE flag RADIOBUTTON GROUP orie,
cl_gui_frontend_services=&gt;directory_browse( EXPORTING initial_folder = lv_workdir p_lands TYPE flag RADIOBUTTON GROUP orie DEFAULT &apos;X&apos;.
CHANGING selected_folder = lv_workdir ). SELECTION-SCREEN END OF BLOCK orientation.
p_path = lv_workdir.
INITIALIZATION. INITIALIZATION.
cl_gui_frontend_services=&gt;get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ). cl_gui_frontend_services=&gt;get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ).
cl_gui_cfw=&gt;flush( ). cl_gui_cfw=&gt;flush( ).
p_path = lv_workdir. p_path = lv_workdir.
orient = &apos;Orientation&apos;(000).
START-OF-SELECTION. START-OF-SELECTION.
@ -64,7 +69,8 @@ START-OF-SELECTION.
lo_excel_writer TYPE REF TO zif_excel_writer, lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_col_dim TYPE REF TO zcl_excel_worksheet_columndime, lo_col_dim TYPE REF TO zcl_excel_worksheet_columndime,
lo_row_dim TYPE REF TO ZCL_EXCEL_WORKSHEET_ROWDIMENSI, lo_row_dim TYPE REF TO zcl_excel_worksheet_rowdimensi,
hyperlink TYPE REF TO zcl_excel_hyperlink,
lo_drawing TYPE REF TO zcl_excel_drawing. lo_drawing TYPE REF TO zcl_excel_drawing.
DATA: lo_style_month TYPE REF TO zcl_excel_style, DATA: lo_style_month TYPE REF TO zcl_excel_style,
@ -83,7 +89,9 @@ START-OF-SELECTION.
image_descr_path TYPE string, image_descr_path TYPE string,
lv_file_separator TYPE c. lv_file_separator TYPE c.
DATA: lv_content TYPE xstring, DATA: lv_content TYPE xstring,
width TYPE i. width TYPE i,
lv_height TYPE i,
lv_from_row TYPE zexcel_cell_row.
DATA: month TYPE i, DATA: month TYPE i,
month_nr TYPE fcmnr, month_nr TYPE fcmnr,
@ -94,7 +102,9 @@ START-OF-SELECTION.
date_from TYPE datum, date_from TYPE datum,
date_to TYPE datum, date_to TYPE datum,
row TYPE zexcel_cell_row, row TYPE zexcel_cell_row,
to_row TYPE zexcel_cell_row,
to_col TYPE zexcel_cell_column_alpha, to_col TYPE zexcel_cell_column_alpha,
to_col_end TYPE zexcel_cell_column_alpha,
to_col_int TYPE i. to_col_int TYPE i.
DATA: month_names TYPE TABLE OF t247. DATA: month_names TYPE TABLE OF t247.
@ -104,15 +114,18 @@ START-OF-SELECTION.
month_nr TYPE fcmnr, month_nr TYPE fcmnr,
filename TYPE string, filename TYPE string,
descr TYPE string, descr TYPE string,
url TYPE string,
END OF tt_datatab. END OF tt_datatab.
DATA: image_descriptions TYPE TABLE OF tt_datatab. DATA: image_descriptions TYPE TABLE OF tt_datatab.
FIELD-SYMBOLS: &lt;img_descr&gt; LIKE LINE OF image_descriptions. FIELD-SYMBOLS: &lt;img_descr&gt; LIKE LINE OF image_descriptions.
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;Calendar&apos;, &quot;#EC NOTEXT CONSTANTS: lv_default_file_name TYPE string VALUE &apos;Calendar&apos;, &quot;#EC NOTEXT
from_row TYPE zexcel_cell_row VALUE 28, c_from_row_portrait TYPE zexcel_cell_row VALUE 28,
c_from_row_landscape TYPE zexcel_cell_row VALUE 38,
from_col TYPE zexcel_cell_column_alpha VALUE &apos;C&apos;, from_col TYPE zexcel_cell_column_alpha VALUE &apos;C&apos;,
c_height TYPE i VALUE 450, &quot; Image Height c_height_portrait TYPE i VALUE 450, &quot; Image Height in Portrait Mode
c_height_landscape TYPE i VALUE 670, &quot; Image Height in Landscape Mode
c_factor TYPE f VALUE &apos;1.5&apos;. &quot; Image Ratio, default 3:2 c_factor TYPE f VALUE &apos;1.5&apos;. &quot; Image Ratio, default 3:2
IF p_path IS INITIAL. IF p_path IS INITIAL.
@ -187,7 +200,6 @@ START-OF-SELECTION.
lo_style_center-&gt;alignment-&gt;vertical = zcl_excel_style_alignment=&gt;c_vertical_top. lo_style_center-&gt;alignment-&gt;vertical = zcl_excel_style_alignment=&gt;c_vertical_top.
lv_style_center_guid = lo_style_center-&gt;get_guid( ). lv_style_center_guid = lo_style_center-&gt;get_guid( ).
&quot; Get Month Names &quot; Get Month Names
CALL FUNCTION &apos;MONTH_NAMES_GET&apos; CALL FUNCTION &apos;MONTH_NAMES_GET&apos;
TABLES TABLES
@ -221,68 +233,131 @@ START-OF-SELECTION.
lo_worksheet-&gt;set_title( title ). lo_worksheet-&gt;set_title( title ).
lo_worksheet-&gt;set_print_gridlines( abap_false ). lo_worksheet-&gt;set_print_gridlines( abap_false ).
lo_worksheet-&gt;sheet_setup-&gt;paper_size = zcl_excel_sheet_setup=&gt;c_papersize_a4. lo_worksheet-&gt;sheet_setup-&gt;paper_size = zcl_excel_sheet_setup=&gt;c_papersize_a4.
lo_worksheet-&gt;sheet_setup-&gt;margin_top = &apos;0.80&apos;. lo_worksheet-&gt;sheet_setup-&gt;horizontal_centered = abap_true.
lo_worksheet-&gt;sheet_setup-&gt;margin_left = &apos;0.55&apos;. lo_worksheet-&gt;sheet_setup-&gt;vertical_centered = abap_true.
lo_worksheet-&gt;sheet_setup-&gt;margin_right = &apos;0.05&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_bottom = &apos;0.30&apos;.
lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;A&apos; ). lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;A&apos; ).
lo_col_dim-&gt;set_width( &apos;1.0&apos; ). lo_col_dim-&gt;set_width( &apos;1.0&apos; ).
lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;B&apos; ). lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;B&apos; ).
lo_col_dim-&gt;set_width( &apos;2.0&apos; ). lo_col_dim-&gt;set_width( &apos;2.0&apos; ).
lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;K&apos; ). IF p_lands = abap_true.
lo_col_dim-&gt;set_width( &apos;3.0&apos; ). lo_worksheet-&gt;sheet_setup-&gt;orientation = zcl_excel_sheet_setup=&gt;c_orientation_landscape.
lo_worksheet-&gt;sheet_setup-&gt;horizontal_centered = abap_true. lv_height = c_height_landscape.
lv_from_row = c_from_row_landscape.
lo_worksheet-&gt;sheet_setup-&gt;margin_top = &apos;0.10&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_left = &apos;0.10&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_right = &apos;0.10&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_bottom = &apos;0.10&apos;.
ELSE.
lo_col_dim = lo_worksheet-&gt;get_column_dimension( &apos;K&apos; ).
lo_col_dim-&gt;set_width( &apos;3.0&apos; ).
lo_worksheet-&gt;sheet_setup-&gt;margin_top = &apos;0.80&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_left = &apos;0.55&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_right = &apos;0.05&apos;.
lo_worksheet-&gt;sheet_setup-&gt;margin_bottom = &apos;0.30&apos;.
lv_height = c_height_portrait.
lv_from_row = c_from_row_portrait.
ENDIF.
&quot; Add Month Name &quot; Add Month Name
month_nr = date_from+4(2). month_nr = date_from+4(2).
READ TABLE month_names WITH KEY mnr = month_nr ASSIGNING &lt;month_name&gt;. IF p_portr = abap_true.
CONCATENATE &lt;month_name&gt;-ltx ` ` date_from(4) INTO value. READ TABLE month_names WITH KEY mnr = month_nr ASSIGNING &lt;month_name&gt;.
row = from_row - 2. CONCATENATE &lt;month_name&gt;-ltx ` ` date_from(4) INTO value.
row = lv_from_row - 2.
to_col = from_col.
ELSE.
row = lv_from_row - 1.
to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 32.
to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
to_col_int = to_col_int + 1.
to_col_end = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
CONCATENATE month_nr &apos;/&apos; date_from+2(2) INTO value.
to_row = row + 2.
lo_worksheet-&gt;set_merge(
EXPORTING
ip_column_start = to_col &quot; Cell Column Start
ip_column_end = to_col_end &quot; Cell Column End
ip_row = row &quot; Cell Row
ip_row_to = to_row &quot; Cell Row
).
ENDIF.
lo_worksheet-&gt;set_cell( lo_worksheet-&gt;set_cell(
EXPORTING EXPORTING
ip_column = from_col &quot; Cell Column ip_column = to_col &quot; Cell Column
ip_row = row &quot; Cell Row ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value ip_value = value &quot; Cell Value
ip_style = lv_style_month_guid ip_style = lv_style_month_guid
). ).
to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 7. * to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 7.
to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ). * to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
*
lo_worksheet-&gt;set_merge( * lo_worksheet-&gt;set_merge(
EXPORTING * EXPORTING
ip_column_start = from_col &quot; Cell Column Start * ip_column_start = from_col &quot; Cell Column Start
ip_column_end = to_col &quot; Cell Column End * ip_column_end = to_col &quot; Cell Column End
ip_row = row &quot; Cell Row * ip_row = row &quot; Cell Row
ip_row_to = row &quot; Cell Row * ip_row_to = row &quot; Cell Row
). * ).
&quot; Add drawing from a XSTRING read from a file &quot; Add drawing from a XSTRING read from a file
UNASSIGN &lt;img_descr&gt;. UNASSIGN &lt;img_descr&gt;.
READ TABLE image_descriptions WITH KEY month_nr = month_nr ASSIGNING &lt;img_descr&gt;. READ TABLE image_descriptions WITH KEY month_nr = month_nr ASSIGNING &lt;img_descr&gt;.
IF &lt;img_descr&gt; IS ASSIGNED. IF &lt;img_descr&gt; IS ASSIGNED.
value = &lt;img_descr&gt;-descr. value = &lt;img_descr&gt;-descr.
row = from_row - 3. IF p_portr = abap_true.
lo_worksheet-&gt;set_cell( row = lv_from_row - 3.
EXPORTING ELSE.
ip_column = from_col &quot; Cell Column row = lv_from_row - 2.
ip_row = row &quot; Cell Row ENDIF.
ip_value = value &quot; Cell Value IF NOT &lt;img_descr&gt;-url IS INITIAL.
). hyperlink = zcl_excel_hyperlink=&gt;create_external_link( &lt;img_descr&gt;-url ).
lo_worksheet-&gt;set_cell(
EXPORTING
ip_column = from_col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_hyperlink = hyperlink
).
ELSE.
lo_worksheet-&gt;set_cell(
EXPORTING
ip_column = from_col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
).
ENDIF.
lo_row_dim = lo_worksheet-&gt;get_row_dimension( row ). lo_row_dim = lo_worksheet-&gt;get_row_dimension( row ).
lo_row_dim-&gt;set_row_height( &apos;22.0&apos; ). lo_row_dim-&gt;set_row_height( &apos;22.0&apos; ).
&quot; In Landscape mode the row between the description and the
&quot; dates should be not so high
IF p_lands = abap_true.
row = lv_from_row - 3.
lo_worksheet-&gt;set_cell(
EXPORTING
ip_column = from_col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = &apos; &apos; &quot; Cell Value
).
lo_row_dim = lo_worksheet-&gt;get_row_dimension( row ).
lo_row_dim-&gt;set_row_height( &apos;7.0&apos; ).
row = lv_from_row - 1.
lo_row_dim = lo_worksheet-&gt;get_row_dimension( row ).
lo_row_dim-&gt;set_row_height( &apos;5.0&apos; ).
ENDIF.
CONCATENATE p_path lv_file_separator &lt;img_descr&gt;-filename INTO image_path. CONCATENATE p_path lv_file_separator &lt;img_descr&gt;-filename INTO image_path.
lo_drawing = lo_excel-&gt;add_new_drawing( ). lo_drawing = lo_excel-&gt;add_new_drawing( ).
lo_drawing-&gt;set_position( ip_from_row = 1 lo_drawing-&gt;set_position( ip_from_row = 1
ip_from_col = &apos;B&apos; ). ip_from_col = &apos;B&apos; ).
lv_content = zcl_helper=&gt;load_image( image_path ). lv_content = zcl_helper=&gt;load_image( image_path ).
width = c_height * c_factor. width = lv_height * c_factor.
lo_drawing-&gt;set_media( ip_media = lv_content lo_drawing-&gt;set_media( ip_media = lv_content
ip_media_type = zcl_excel_drawing=&gt;c_media_type_jpg ip_media_type = zcl_excel_drawing=&gt;c_media_type_jpg
ip_width = width ip_width = width
ip_height = c_height ). ip_height = lv_height ).
lo_worksheet-&gt;add_drawing( lo_drawing ). lo_worksheet-&gt;add_drawing( lo_drawing ).
ENDIF. ENDIF.
@ -292,74 +367,36 @@ START-OF-SELECTION.
day_in = date_from day_in = date_from
IMPORTING IMPORTING
last_day_of_month = date_to. last_day_of_month = date_to.
IF p_portr = abap_true.
zcl_helper=&gt;add_calendar( zcl_helper=&gt;add_calendar(
EXPORTING EXPORTING
i_date_from = date_from i_date_from = date_from
i_date_to = date_to i_date_to = date_to
i_from_row = from_row i_from_row = lv_from_row
i_from_col = from_col i_from_col = from_col
i_day_style = lv_style_border_guid i_day_style = lv_style_border_guid
i_cw_style = lv_style_center_guid i_cw_style = lv_style_center_guid
CHANGING CHANGING
c_worksheet = lo_worksheet c_worksheet = lo_worksheet
). ).
ELSE.
zcl_helper=&gt;add_calendar_landscape(
EXPORTING
i_date_from = date_from
i_date_to = date_to
i_from_row = lv_from_row
i_from_col = from_col
i_day_style = lv_style_border_guid
i_cw_style = lv_style_center_guid
CHANGING
c_worksheet = lo_worksheet
).
ENDIF.
count = count + 1. count = count + 1.
date_from = date_to + 1. date_from = date_to + 1.
ENDWHILE. ENDWHILE.
lo_excel-&gt;set_active_sheet_index_by_name( &apos;1&apos; ). lo_excel-&gt;set_active_sheet_index_by_name( &apos;1&apos; ).
*** Create output
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. lcl_output=&gt;output( lo_excel ).</source>
lv_file = lo_excel_writer-&gt;write_file( lo_excel ).
&quot; Convert to binary
CALL FUNCTION &apos;SCMS_XSTRING_TO_BINARY&apos;
EXPORTING
buffer = lv_file
IMPORTING
output_length = lv_bytecount
TABLES
binary_tab = lt_file_tab.
* &quot; This method is only available on AS ABAP &gt; 6.40
* lt_file_tab = cl_bcs_convert=&gt;xstring_to_solix( iv_xstring = lv_file ).
* lv_bytecount = xstrlen( lv_file ).
&quot; Save the file
cl_gui_frontend_services=&gt;gui_download(
EXPORTING bin_filesize = lv_bytecount
filename = lv_full_path
filetype = &apos;BIN&apos;
CHANGING data_tab = lt_file_tab
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24
).
IF sy-subrc &lt;&gt; 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.</source>
</PROG> </PROG>

141
ZA2X/PROG/ZDEMO_CALENDAR_CLASSES.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?> <?xml version="1.0" encoding="utf-8"?>
<PROG NAME="ZDEMO_CALENDAR_CLASSES" VARCL="X" SUBC="I" CNAM="DEVELOPER" CDAT="20111229" UNAM="DEVELOPER" UDAT="20120619" VERN="000062" RMAND="001" RLOAD="E" SDATE="20120619" STIME="060152" IDATE="20120619" ITIME="060152" UCCHECK="X"> <PROG NAME="ZDEMO_CALENDAR_CLASSES" VARCL="X" SUBC="I" RMAND="001" RLOAD="E" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="Include ZDEMO_CALENDAR_CLASSES" LENGTH="30 "/> <textElement ID="R" ENTRY="Include ZDEMO_CALENDAR_CLASSES" LENGTH="30 "/>
@ -130,6 +130,22 @@ CLASS zcl_helper DEFINITION.
i_cw_style TYPE zexcel_cell_style i_cw_style TYPE zexcel_cell_style
CHANGING CHANGING
c_worksheet TYPE REF TO zcl_excel_worksheet, c_worksheet TYPE REF TO zcl_excel_worksheet,
add_calendar_landscape
IMPORTING
i_date_from TYPE datum
i_date_to TYPE datum
i_from_row TYPE zexcel_cell_row
i_from_col TYPE zexcel_cell_column_alpha
i_day_style TYPE zexcel_cell_style
i_cw_style TYPE zexcel_cell_style
CHANGING
c_worksheet TYPE REF TO zcl_excel_worksheet,
add_a2x_footer
IMPORTING
i_from_row TYPE zexcel_cell_row
i_from_col TYPE zexcel_cell_column_alpha
CHANGING
c_worksheet TYPE REF TO zcl_excel_worksheet,
add_calender_week add_calender_week
IMPORTING IMPORTING
i_date TYPE datum i_date TYPE datum
@ -200,6 +216,7 @@ CLASS zcl_helper IMPLEMENTATION.
ENDIF. ENDIF.
ENDMETHOD. &quot;load_image ENDMETHOD. &quot;load_image
METHOD add_calendar. METHOD add_calendar.
DATA: day_names TYPE TABLE OF t246.
DATA: row TYPE zexcel_cell_row, DATA: row TYPE zexcel_cell_row,
row_max TYPE i, row_max TYPE i,
col_int TYPE zexcel_cell_column, col_int TYPE zexcel_cell_column,
@ -217,7 +234,6 @@ CLASS zcl_helper IMPLEMENTATION.
height TYPE f. height TYPE f.
DATA: hyperlink TYPE REF TO zcl_excel_hyperlink. DATA: hyperlink TYPE REF TO zcl_excel_hyperlink.
DATA: day_names TYPE TABLE OF t246.
FIELD-SYMBOLS: &lt;day_name&gt; LIKE LINE OF day_names. FIELD-SYMBOLS: &lt;day_name&gt; LIKE LINE OF day_names.
lv_date = i_date_from. lv_date = i_date_from.
@ -300,14 +316,12 @@ CLASS zcl_helper IMPLEMENTATION.
). ).
&quot; Add Created with abap2xlsx &quot; Add Created with abap2xlsx
row = row + 2. row = row + 2.
value = &apos;Created with abap2xlsx. Find more information at http://abap2xlsx.org.&apos;(002). zcl_helper=&gt;add_a2x_footer(
hyperlink = zcl_excel_hyperlink=&gt;create_external_link( &apos;http://abap2xlsx.org&apos; ). &quot;#EC NOTEXT
c_worksheet-&gt;set_cell(
EXPORTING EXPORTING
ip_column = i_from_col &quot; Cell Column i_from_row = row
ip_row = row &quot; Cell Row i_from_col = i_from_col
ip_value = value &quot; Cell Value CHANGING
ip_hyperlink = hyperlink c_worksheet = c_worksheet
). ).
col_int = from_col_int. col_int = from_col_int.
col_max = from_col_int + 7. col_max = from_col_int + 7.
@ -331,6 +345,113 @@ CLASS zcl_helper IMPLEMENTATION.
row = row + 1. row = row + 1.
ENDWHILE. ENDWHILE.
ENDMETHOD. &quot;add_calendar ENDMETHOD. &quot;add_calendar
METHOD add_a2x_footer.
DATA: value TYPE string,
hyperlink TYPE REF TO zcl_excel_hyperlink.
value = &apos;Created with abap2xlsx. Find more information at http://abap2xlsx.org.&apos;(002).
hyperlink = zcl_excel_hyperlink=&gt;create_external_link( &apos;http://abap2xlsx.org&apos; ). &quot;#EC NOTEXT
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = i_from_col &quot; Cell Column
ip_row = i_from_row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_hyperlink = hyperlink
).
ENDMETHOD. &quot;add_a2x_footer
METHOD add_calendar_landscape.
DATA: day_names TYPE TABLE OF t246.
DATA: lv_date TYPE datum,
day TYPE i,
value TYPE string,
weekday TYPE wotnr.
DATA: row TYPE zexcel_cell_row,
from_col_int TYPE zexcel_cell_column,
col_int TYPE zexcel_cell_column,
col TYPE zexcel_cell_column_alpha.
DATA: lo_col_dim TYPE REF TO zcl_excel_worksheet_columndime,
lo_row_dim TYPE REF TO zcl_excel_worksheet_rowdimensi.
FIELD-SYMBOLS: &lt;day_name&gt; LIKE LINE OF day_names.
lv_date = i_date_from.
&quot; Add Days
CALL FUNCTION &apos;DAY_NAMES_GET&apos;
TABLES
day_names = day_names.
WHILE lv_date &lt;= i_date_to.
day = lv_date+6(2).
CALL FUNCTION &apos;FIMA_X_DAY_IN_MONTH_COMPUTE&apos;
EXPORTING
i_datum = lv_date
IMPORTING
e_wochentag_nr = weekday.
&quot; Day name row
row = i_from_row.
col_int = from_col_int + day + 2.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
READ TABLE day_names ASSIGNING &lt;day_name&gt;
WITH KEY wotnr = weekday.
value = &lt;day_name&gt;-kurzt.
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_style = i_cw_style
).
&quot; Day row
row = i_from_row + 1.
value = day.
CONDENSE value.
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_style = i_day_style &quot; Single-Character Indicator
).
&quot; width
lo_col_dim = c_worksheet-&gt;get_column_dimension( col ).
lo_col_dim-&gt;set_width( &apos;3.6&apos; ).
lv_date = lv_date + 1.
ENDWHILE.
&quot; Add ABAP2XLSX Footer
row = i_from_row + 2.
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = &apos; &apos; &quot; Cell Value
).
lo_row_dim = c_worksheet-&gt;get_row_dimension( row ).
lo_row_dim-&gt;set_row_height( &apos;5.0&apos; ).
row = i_from_row + 3.
zcl_helper=&gt;add_a2x_footer(
EXPORTING
i_from_row = row
i_from_col = i_from_col
CHANGING
c_worksheet = c_worksheet
).
&quot; Set with for all 31 coulumns
WHILE day &lt; 32.
day = day + 1.
col_int = from_col_int + day + 2.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
&quot; width
lo_col_dim = c_worksheet-&gt;get_column_dimension( col ).
lo_col_dim-&gt;set_width( &apos;3.6&apos; ).
ENDWHILE.
ENDMETHOD. &quot;ADD_CALENDAR_LANDSCAPE
METHOD add_calender_week. METHOD add_calender_week.
DATA: week TYPE kweek, DATA: week TYPE kweek,