标题业务场景:
选择屏幕需要提供下拉框供用户选择特定的值,通过下拉框列表形式展现:
使用函数:VRM_SET_VALUES
DATA: cv_id TYPE vrm_id,
li_list TYPE vrm_values.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = cv_id
values = li_list.
参数说明:
ID:值集名称,作为输出列表值的一个标识;
VALUES:列表值的集合输出内表。
实际案例代码:
PERFORM set_status_listbox USING 'S_STATUS' .
*&---------------------------------------------------------------------*
*& Form set_status_listbox
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
FORM set_status_listbox USING cv_id TYPE vrm_id.
DATA: li_list TYPE vrm_values,
lv_value LIKE LINE OF li_list.
**单据状态
lv_value-key = '03'.
lv_value-text = '已生效'.
APPEND lv_value TO li_list.
lv_value-key = '05'.
lv_value-text = '已结算'.
APPEND lv_value TO li_list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = cv_id
values = li_list.
ENDFORM.