SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 05:46:35 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity
30990346ce
abap2xlsx/ZA2X/PROG/ZDEMO_CALENDAR_CLASSES.slnk
Gregor Wolf 2de54c6cbb Support also landscape output for the calendar demo 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@403 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
2013-01-03 10:22:31 +00:00

480 lines
16 KiB
XML
Raw Blame History

<?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 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Include ZDEMO_CALENDAR_CLASSES
*&amp;---------------------------------------------------------------------*
*&amp;---------------------------------------------------------------------*
*&amp; Class ZCL_DATE_CALCULATION
*&amp;---------------------------------------------------------------------*
* Text
*----------------------------------------------------------------------*
CLASS zcl_date_calculation DEFINITION.
PUBLIC SECTION.
CLASS-METHODS: months_between_two_dates
IMPORTING
i_date_from TYPE datum
i_date_to TYPE datum
i_incl_to TYPE flag
EXPORTING
e_month TYPE i.
ENDCLASS. &quot;ZCL_DATE_CALCULATION
*----------------------------------------------------------------------*
* CLASS ZCL_DATE_CALCULATION IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_date_calculation IMPLEMENTATION.
METHOD months_between_two_dates.
DATA: date_to TYPE datum.
DATA: BEGIN OF datum_von,
jjjj(4) TYPE n,
mm(2) TYPE n,
tt(2) TYPE n,
END OF datum_von.
DATA: BEGIN OF datum_bis,
jjjj(4) TYPE n,
mm(2) TYPE n,
tt(2) TYPE n,
END OF datum_bis.
e_month = 0.
CHECK NOT ( i_date_from IS INITIAL )
AND NOT ( i_date_to IS INITIAL ).
date_to = i_date_to.
IF i_incl_to = abap_true.
date_to = date_to + 1.
ENDIF.
datum_von = i_date_from.
datum_bis = date_to.
e_month = ( datum_bis-jjjj - datum_von-jjjj ) * 12
+ ( datum_bis-mm - datum_von-mm ).
ENDMETHOD. &quot;MONTHS_BETWEEN_TWO_DATES
ENDCLASS. &quot;ZCL_DATE_CALCULATION IMPLEMENTATION
*----------------------------------------------------------------------*
* CLASS zcl_date_calculation_test DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_date_calculation_test DEFINITION FOR TESTING
&quot; DURATION SHORT
&quot; RISK LEVEL HARMLESS
&quot;#AU Duration Medium
&quot;#AU Risk_Level Harmless
.
PUBLIC SECTION.
METHODS:
months_between_two_dates FOR TESTING.
ENDCLASS. &quot;zcl_date_calculation_test DEFINITION
*----------------------------------------------------------------------*
* CLASS zcl_date_calculation_test IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_date_calculation_test IMPLEMENTATION.
METHOD months_between_two_dates.
DATA: date_from TYPE datum VALUE &apos;20120101&apos;,
date_to TYPE datum VALUE &apos;20121231&apos;.
DATA: month TYPE i.
zcl_date_calculation=&gt;months_between_two_dates(
EXPORTING
i_date_from = date_from
i_date_to = date_to
i_incl_to = abap_true
IMPORTING
e_month = month
).
cl_aunit_assert=&gt;assert_equals(
exp = 12 &quot; Data Object with Expected Type
act = month &quot; Data Object with Current Value
msg = &apos;Calculated date is wrong&apos; &quot; Message in Case of Error
).
ENDMETHOD. &quot;months_between_two_dates
ENDCLASS. &quot;zcl_date_calculation_test IMPLEMENTATION
*----------------------------------------------------------------------*
* CLASS zcl_helper DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_helper DEFINITION.
PUBLIC SECTION.
CLASS-METHODS:
load_image
IMPORTING
filename TYPE string
RETURNING value(r_image) TYPE xstring,
add_calendar
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_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
i_row TYPE zexcel_cell_row
i_col TYPE zexcel_cell_column_alpha
i_style TYPE zexcel_cell_style
CHANGING
c_worksheet TYPE REF TO zcl_excel_worksheet.
ENDCLASS. &quot;zcl_helper DEFINITION
*----------------------------------------------------------------------*
* CLASS zcl_helper IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS zcl_helper IMPLEMENTATION.
METHOD load_image.
&quot;Load samle image
DATA: lt_bin TYPE solix_tab,
lv_len TYPE i.
CALL METHOD cl_gui_frontend_services=&gt;gui_upload
EXPORTING
filename = filename
filetype = &apos;BIN&apos;
IMPORTING
filelength = lv_len
CHANGING
data_tab = lt_bin
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
not_supported_by_gui = 17
error_no_gui = 18
OTHERS = 19.
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.
CALL FUNCTION &apos;SCMS_BINARY_TO_XSTRING&apos;
EXPORTING
input_length = lv_len
IMPORTING
buffer = r_image
TABLES
binary_tab = lt_bin
EXCEPTIONS
failed = 1
OTHERS = 2.
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.
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,
col_max TYPE i,
from_col_int TYPE zexcel_cell_column,
col TYPE zexcel_cell_column_alpha,
lr_col_dim TYPE REF TO zcl_excel_worksheet_columndime,
lr_row_dim TYPE REF TO zcl_excel_worksheet_rowdimensi.
DATA: lv_date TYPE datum,
value TYPE string,
weekday TYPE wotnr,
weekrow TYPE wotnr VALUE 1,
day TYPE i,
width TYPE f,
height TYPE f.
DATA: hyperlink TYPE REF TO zcl_excel_hyperlink.
FIELD-SYMBOLS: &lt;day_name&gt; LIKE LINE OF day_names.
lv_date = i_date_from.
from_col_int = zcl_excel_common=&gt;convert_column2int( i_from_col ).
&quot; Add description for Calendar Week
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = i_from_col &quot; Cell Column
ip_row = i_from_row &quot; Cell Row
ip_value = &apos;CW&apos;(001) &quot; Cell Value
ip_style = i_cw_style
).
&quot; Add Days
CALL FUNCTION &apos;DAY_NAMES_GET&apos;
TABLES
day_names = day_names.
LOOP AT day_names ASSIGNING &lt;day_name&gt;.
row = i_from_row.
col_int = from_col_int + &lt;day_name&gt;-wotnr.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
value = &lt;day_name&gt;-langt.
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
).
ENDLOOP.
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.
row = i_from_row + weekrow.
col_int = from_col_int + weekday.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
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
).
IF weekday = 7.
&quot; Add Calender Week
zcl_helper=&gt;add_calender_week(
EXPORTING
i_date = lv_date
i_row = row
i_col = i_from_col
i_style = i_cw_style
CHANGING
c_worksheet = c_worksheet
).
weekrow = weekrow + 1.
ENDIF.
lv_date = lv_date + 1.
ENDWHILE.
&quot; Add Calender Week
zcl_helper=&gt;add_calender_week(
EXPORTING
i_date = lv_date
i_row = row
i_col = i_from_col
i_style = i_cw_style
CHANGING
c_worksheet = c_worksheet
).
&quot; Add Created with abap2xlsx
row = row + 2.
zcl_helper=&gt;add_a2x_footer(
EXPORTING
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.
WHILE col_int &lt;= col_max.
col = zcl_excel_common=&gt;convert_column2alpha( col_int ).
IF sy-index = 1.
width = &apos;5.0&apos;.
ELSE.
width = &apos;11.4&apos;.
ENDIF.
lr_col_dim = c_worksheet-&gt;get_column_dimension( col ).
lr_col_dim-&gt;set_width( width ).
col_int = col_int + 1.
ENDWHILE.
row = i_from_row + 1.
row_max = i_from_row + 6.
WHILE row &lt;= row_max.
height = 50.
lr_row_dim = c_worksheet-&gt;get_row_dimension( row ).
lr_row_dim-&gt;set_row_height( height ).
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,
week_int TYPE i,
value TYPE string.
&quot; Add Calender Week
CALL FUNCTION &apos;DATE_GET_WEEK&apos;
EXPORTING
date = i_date &quot; Date for which the week should be calculated
IMPORTING
week = week. &quot; Week for date (format:YYYYWW)
value = week+4(2).
week_int = value.
value = week_int.
CONDENSE value.
c_worksheet-&gt;set_cell(
EXPORTING
ip_column = i_col &quot; Cell Column
ip_row = i_row &quot; Cell Row
ip_value = value &quot; Cell Value
ip_style = i_style
).
ENDMETHOD. &quot;add_calender_week
ENDCLASS. &quot;zcl_helper IMPLEMENTATION</source>
</PROG>
Reference in New Issue View Git Blame Copy Permalink