在TC中设置下拉列表

首先要引入类型池VRM

TYPE-POOLS：VRM.

主程序的代码：

 FORM SET_LIST.
  DATA:L_ID TYPE VRM_ID,
        LT_LIST TYPE VRM_VALUES,
        LG_LIST LIKE LINE OF LT_LIST,
        L_MONAT TYPE N LENGTH 2.
  DO 12 TIMES.
    L_MONAT = L_MONAT + 1.
    LG_LIST-KEY = L_MONAT.
    LG_LIST-TEXT = L_MONAT.
    APPEND LG_LIST TO LT_LIST.
    CLEAR :LG_LIST.
  ENDDO.

  L_ID =  'G_BKPF-MONAT'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = L_ID
      VALUES          = LT_LIST
    EXCEPTIONS
      ID_ILLEGAL_NAME = 1
      OTHERS          = 2.
  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.

 

在screen中的元素清单的text I/O templates将G_BKPF-BLART设置下拉属性。