年月的搜索帮助

REPORT ZLIMF_MONTH_HELP.

DATA: l_code  LIKE  sy-subrc.
DATA:lv_ny TYPE  ISELLIST-MONTH .  "这个定义自己要注意下

SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:  s_ny     FOR lv_ny  OBLIGATORY."年月
SELECTION-SCREEN END OF BLOCK bl01.




INITIALIZATION .

AT SELECTION-SCREEN OUTPUT .

  lv_ny = sy-datum+0(6).
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ny-low. "对SELECT-OPTIONS第一个值进行搜索帮助
  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      actual_month               = lv_ny  "默认值：当前年月
      language                   = sy-langu
      start_column               = 8
      start_row                  = 5
    IMPORTING
      selected_month             = s_ny-low  "选择完成之后赋值给S_NY的low值
      return_code                = l_code
    EXCEPTIONS
      factory_calendar_not_found = 1
      holiday_calendar_not_found = 2
      month_not_found            = 3
      OTHERS                     = 4.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_ny-high.
    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      actual_month               = lv_ny
      language                   = sy-langu
      start_column               = 8
      start_row                  = 5
    IMPORTING
      selected_month             = s_ny-high
      return_code                = l_code
    EXCEPTIONS
      factory_calendar_not_found = 1
      holiday_calendar_not_found = 2
      month_not_found            = 3
      OTHERS                     = 4.

    START-OF-SELECTION.