只有 年月 的F4帮助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_YRMN1.
  PERFORM. YRMN_HELP_F4 CHANGING P_YRMN1.

FORM. YRMN_HELP_F4 CHANGING PA_YRMN.
  DATA L_DATE TYPE ISELLIST-MONTH.
  L_DATE = SY-DATUM+0(6).
  CALL FUNCTION ‘POPUP_TO_SELECT_MONTH’
    EXPORTING
      ACTUAL_MONTH                     = L_DATE
    IMPORTINGa
      SELECTED_MONTH                   = PA_YRMN
    EXCEPTIONS
      FACTORY_CALENDAR_NOT_FOUND       = 1
      HOLIDAY_CALENDAR_NOT_FOUND       = 2
      MONTH_NOT_FOUND                  = 3
      OTHERS                           = 4.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    ” YRMN_HELP_F4

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23495244/viewspace-695408/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23495244/viewspace-695408/