SAP abap 选择屏幕（多选）默认值是本月的第一天和最后一天

显示日期默认值：

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.