PARAMETERS
:pr
(
4
)
TYPE
c
.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pr .
DATA :l_date TYPE sy -datum .
CALL FUNCTION 'F4_DATE'
EXPORTING
date_for_first_month = sy -datum
IMPORTING
select_date = l_date
EXCEPTIONS
calendar_buffer_not_loadable = 1
date_after_range = 2
date_before_range = 3
date_invalid = 4
factory_calendar_not_found = 5
holiday_calendar_not_found = 6
parameter_conflict = 7
OTHERS = 8 .
IF sy -subrc <> 0 .
MESSAGE ID sy -msgid TYPE sy -msgty NUMBER sy -msgno
WITH sy -msgv1 sy -msgv2 sy -msgv3 sy -msgv4 .
ENDIF .
pr1 = l_date+4 ( 4 ) .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR pr .
DATA :l_date TYPE sy -datum .
CALL FUNCTION 'F4_DATE'
EXPORTING
date_for_first_month = sy -datum
IMPORTING
select_date = l_date
EXCEPTIONS
calendar_buffer_not_loadable = 1
date_after_range = 2
date_before_range = 3
date_invalid = 4
factory_calendar_not_found = 5
holiday_calendar_not_found = 6
parameter_conflict = 7
OTHERS = 8 .
IF sy -subrc <> 0 .
MESSAGE ID sy -msgid TYPE sy -msgty NUMBER sy -msgno
WITH sy -msgv1 sy -msgv2 sy -msgv3 sy -msgv4 .
ENDIF .
pr1 = l_date+4 ( 4 ) .