Release Date cannot be before system date using mesages type
DATA : it_eban TYPE TABLE OF eban WITH HEADER LINE,
messages TYPE bapiret2.
it_eban[] = im_t_eban[].
READ TABLE it_eban INDEX 1.
IF it_eban-frgdt < sy-datum.
CLEAR : messages.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
type = 'E'
cl = 'ZCS_MSG'
number = '042'
par1 = ' '
par2 = ' '
par3 = ' '
par4 = ' '
IMPORTING
return = messages.
APPEND messages TO ex_messages.
RAISE error_messages.
EXIT.
MESSAGE 'Release Date cannot be before system date.' TYPE 'E'.
ENDIF.
messages TYPE bapiret2.
it_eban[] = im_t_eban[].
READ TABLE it_eban INDEX 1.
IF it_eban-frgdt < sy-datum.
CLEAR : messages.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
type = 'E'
cl = 'ZCS_MSG'
number = '042'
par1 = ' '
par2 = ' '
par3 = ' '
par4 = ' '
IMPORTING
return = messages.
APPEND messages TO ex_messages.
RAISE error_messages.
EXIT.
MESSAGE 'Release Date cannot be before system date.' TYPE 'E'.
ENDIF.
Comments
Post a Comment