SAP 下拉框(选择屏幕)

一、选择屏幕下拉框。

DATA:
  g_vrmid  TYPE vrm_id,       "id of value set
  gt_vlist TYPE vrm_values,   "internal table of list
  gs_vlist TYPE vrm_value.    "wa of gt_vlist.

SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
PARAMETERS:
          p_lsbox TYPE c AS LISTBOX VISIBLE LENGTH 20 DEFAULT '1'.
SELECTION-SCREEN END   OF BLOCK bl1.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.
  REFRESH gt_vlist.

  CLEAR gs_vlist.
  gs_vlist-key = '1'.
  gs_vlist-text = '一级部件'.
  APPEND gs_vlist TO gt_vlist.

  CLEAR gs_vlist.
  gs_vlist-key = '2'.
  gs_vlist-text = '二级部件'.
  APPEND gs_vlist TO gt_vlist.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_LSBOX'
      values = gt_vlist.