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

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

219
ZA2X/PROG/ZDEMO_CALENDAR.slnk
View File

@ -7,12 +7,15 @@
<textElement ID="R" ENTRY="abap2xlsx Demo: Erzeugen eines Kalenders mit Bildern" LENGTH="70 "/>
</language>
<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="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="S" KEY="P_FROM" ENTRY="D ." LENGTH="9 "/>
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/>
<textElement ID="S" KEY="P_TO" ENTRY="D ." LENGTH="9 "/>
<textElement ID="S" KEY="P_FROM" ENTRY="D ." LENGTH="17 "/>
<textElement ID="S" KEY="P_LANDS" ENTRY=" Landscape" LENGTH="17 "/>
<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>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
@ -28,6 +31,7 @@
*&amp; Month (with leading 0)
*&amp; Image Filename
*&amp; Image Description
*&amp; URL for the Description
*&amp;
*&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.
@ -39,24 +43,25 @@
REPORT zdemo_calendar.
TYPE-POOLS: abap.
CONSTANTS: gc_save_file_name TYPE string VALUE &apos;Calendar.xlsx&apos;.
INCLUDE zdemo_excel_outputopt_incl.
INCLUDE zdemo_calendar_classes.
DATA: lv_workdir TYPE string.
PARAMETERS: p_path TYPE zexcel_export_dir.
PARAMETERS: p_from TYPE dfrom DEFAULT &apos;20120101&apos;,
p_to TYPE dto DEFAULT &apos;20121231&apos;.
PARAMETERS: p_from TYPE dfrom DEFAULT &apos;20130101&apos;,
p_to TYPE dto DEFAULT &apos;20131231&apos;.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
lv_workdir = p_path.
cl_gui_frontend_services=&gt;directory_browse( EXPORTING initial_folder = lv_workdir
CHANGING selected_folder = lv_workdir ).
p_path = lv_workdir.
SELECTION-SCREEN BEGIN OF BLOCK orientation WITH FRAME TITLE orient.
PARAMETERS: p_portr TYPE flag RADIOBUTTON GROUP orie,
p_lands TYPE flag RADIOBUTTON GROUP orie DEFAULT &apos;X&apos;.
SELECTION-SCREEN END OF BLOCK orientation.
INITIALIZATION.
cl_gui_frontend_services=&gt;get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ).
cl_gui_cfw=&gt;flush( ).
p_path = lv_workdir.
orient = &apos;Orientation&apos;(000).
START-OF-SELECTION.
@ -64,7 +69,8 @@ START-OF-SELECTION.
lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
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.
DATA: lo_style_month TYPE REF TO zcl_excel_style,
@ -83,7 +89,9 @@ START-OF-SELECTION.
image_descr_path TYPE string,
lv_file_separator TYPE c.
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,
month_nr TYPE fcmnr,
@ -94,7 +102,9 @@ START-OF-SELECTION.
date_from TYPE datum,
date_to TYPE datum,
row TYPE zexcel_cell_row,
to_row TYPE zexcel_cell_row,
to_col TYPE zexcel_cell_column_alpha,
to_col_end TYPE zexcel_cell_column_alpha,
to_col_int TYPE i.
DATA: month_names TYPE TABLE OF t247.
@ -104,15 +114,18 @@ START-OF-SELECTION.
month_nr TYPE fcmnr,
filename TYPE string,
descr TYPE string,
url TYPE string,
END OF tt_datatab.
DATA: image_descriptions TYPE TABLE OF tt_datatab.
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
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;,
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
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.
lv_style_center_guid = lo_style_center-&gt;get_guid( ).
&quot; Get Month Names
CALL FUNCTION &apos;MONTH_NAMES_GET&apos;
TABLES
@ -221,68 +233,131 @@ START-OF-SELECTION.
lo_worksheet-&gt;set_title( title ).
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;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;.
lo_worksheet-&gt;sheet_setup-&gt;horizontal_centered = abap_true.
lo_worksheet-&gt;sheet_setup-&gt;vertical_centered = abap_true.
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 = lo_worksheet-&gt;get_column_dimension( &apos;B&apos; ).
lo_col_dim-&gt;set_width( &apos;2.0&apos; ).
IF p_lands = abap_true.
lo_worksheet-&gt;sheet_setup-&gt;orientation = zcl_excel_sheet_setup=&gt;c_orientation_landscape.
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;horizontal_centered = abap_true.
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
month_nr = date_from+4(2).
IF p_portr = abap_true.
READ TABLE month_names WITH KEY mnr = month_nr ASSIGNING &lt;month_name&gt;.
CONCATENATE &lt;month_name&gt;-ltx ` ` date_from(4) INTO value.
row = from_row - 2.
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(
EXPORTING
ip_column = from_col &quot; Cell Column
ip_column = to_col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_style = lv_style_month_guid
).
to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 7.
to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
lo_worksheet-&gt;set_merge(
EXPORTING
ip_column_start = from_col &quot; Cell Column Start
ip_column_end = to_col &quot; Cell Column End
ip_row = row &quot; Cell Row
ip_row_to = row &quot; Cell Row
).
* to_col_int = zcl_excel_common=&gt;convert_column2int( from_col ) + 7.
* to_col = zcl_excel_common=&gt;convert_column2alpha( to_col_int ).
*
* lo_worksheet-&gt;set_merge(
* EXPORTING
* ip_column_start = from_col &quot; Cell Column Start
* ip_column_end = to_col &quot; Cell Column End
* ip_row = row &quot; Cell Row
* ip_row_to = row &quot; Cell Row
* ).
&quot; Add drawing from a XSTRING read from a file
UNASSIGN &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.
value = &lt;img_descr&gt;-descr.
row = from_row - 3.
IF p_portr = abap_true.
row = lv_from_row - 3.
ELSE.
row = lv_from_row - 2.
ENDIF.
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-&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.
lo_drawing = lo_excel-&gt;add_new_drawing( ).
lo_drawing-&gt;set_position( ip_from_row = 1
ip_from_col = &apos;B&apos; ).
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
ip_media_type = zcl_excel_drawing=&gt;c_media_type_jpg
ip_width = width
ip_height = c_height ).
ip_height = lv_height ).
lo_worksheet-&gt;add_drawing( lo_drawing ).
ENDIF.
@ -292,74 +367,36 @@ START-OF-SELECTION.
day_in = date_from
IMPORTING
last_day_of_month = date_to.
IF p_portr = abap_true.
zcl_helper=&gt;add_calendar(
EXPORTING
i_date_from = date_from
i_date_to = date_to
i_from_row = from_row
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
).
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.
date_from = date_to + 1.
ENDWHILE.
lo_excel-&gt;set_active_sheet_index_by_name( &apos;1&apos; ).
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
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>
*** Create output
lcl_output=&gt;output( lo_excel ).</source>
</PROG>

141
ZA2X/PROG/ZDEMO_CALENDAR_CLASSES.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?>
<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">
<?xml version="1.0" encoding="utf-8"?>
<PROG NAME="ZDEMO_CALENDAR_CLASSES" VARCL="X" SUBC="I" RMAND="001" RLOAD="E" UCCHECK="X">
<textPool>
<language SPRAS="E">
<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
CHANGING
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
IMPORTING
i_date TYPE datum
@ -200,6 +216,7 @@ CLASS zcl_helper IMPLEMENTATION.
ENDIF.
ENDMETHOD. &quot;load_image
METHOD add_calendar.
DATA: day_names TYPE TABLE OF t246.
DATA: row TYPE zexcel_cell_row,
row_max TYPE i,
col_int TYPE zexcel_cell_column,
@ -217,7 +234,6 @@ CLASS zcl_helper IMPLEMENTATION.
height TYPE f.
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.
lv_date = i_date_from.
@ -300,14 +316,12 @@ CLASS zcl_helper IMPLEMENTATION.
).
&quot; Add Created with abap2xlsx
row = row + 2.
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(
zcl_helper=&gt;add_a2x_footer(
EXPORTING
ip_column = i_from_col &quot; Cell Column
ip_row = row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_hyperlink = hyperlink
i_from_row = row
i_from_col = i_from_col
CHANGING
c_worksheet = c_worksheet
).
col_int = from_col_int.
col_max = from_col_int + 7.
@ -331,6 +345,113 @@ CLASS zcl_helper IMPLEMENTATION.
row = row + 1.
ENDWHILE.
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.
DATA: week TYPE kweek,