设置选择屏幕下拉选项

DATA: gs_value  TYPE vrm_value,
      gt_values TYPE STANDARD TABLE OF vrm_value.

PARAMETERS: p_sfkp AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY DEFAULT '3'.

INITIALIZATION.
  PERFORM init_cond.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_sfkp.
  PERFORM search_help.

FORM init_cond .
  gs_value-key = '1'.
  gs_value-text = '已开票'.
  APPEND gs_value TO gt_values.
  gs_value-key = '2'.
  gs_value-text = '未开票'.
  APPEND gs_value TO gt_values.
  gs_value-key = '3'.
  gs_value-text = '全部'.
  APPEND gs_value TO gt_values.
ENDFORM.

FORM search_help.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'P_SFKP'
      values          = gt_values[]
    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.