显示日期默认值:
DATA:FIRSTDAY TYPE ERDAT,
LASTDAY TYPE ERDAT.
SELECT-OPTIONS: S_ERDAT FOR LIKP-ERDAT.
*--------------------------------------------------------------------*
* 初始化
*--------------------------------------------------------------------*
INITIALIZATION.
IF FIRSTDAY IS INITIAL.
FIRSTDAY = SY-DATUM.
FIRSTDAY+6(2) = '01'.
ENDIF.
IF LASTDAY IS INITIAL.
LASTDAY = SY-DATUM.
CALL FUNCTION 'LAST_DAY_OF_MONTHS'
EXPORTING
DAY_IN = FIRSTDAY “当前月的第一天
IMPORTING
LAST_DAY_OF_MONTH = LASTDAY “当前月的最后一天
EXCEPTIONS
DAY_IN_NO_DATE = 1
OTHERS = 2.
ENDIF.
S_ERDAT-SIGN = 'I'.
S_ERDAT-OPTION = 'EQ'.
S_ERDAT-LOW = FIRSTDAY.
S_ERDAT-HIGH = LASTDAY.
APPEND S_ERDAT TO S_ERDAT.
CLEAR S_ERDAT.