一、直接引用标准值
第一种是最基础的,直接依靠表字段的搜索帮助等系统自带的搜索帮助,只需要在屏幕后面加上【AS LISTBOX】关键字,就可以了,同时呢【AS LISTBOX】需要同【VISIBLE LENGTH】一起使用。
代码语言:javascript复制PARAMETERS : p_bwart LIKE resb-bwart VISIBLE LENGTH 20 AS LISTBOX .
二、自定义下拉框的值
除上述的情况,还存在没有系统搜索帮助的字段,或者想要自定义下拉框种的内容,需要在保持上述所说的基础上,在【AT SELECTION-SCREEN OUTPUT】后面,添加一段代码。
代码语言:javascript复制PARAMETERS : p_bwart LIKE resb-bwart VISIBLE LENGTH 20 AS LISTBOX ."USER-COMMAND p1 ."OBLIGATORY." DEFAULT '261'.
AT SELECTION-SCREEN OUTPUT.
DATA: lt_list TYPE vrm_values,
ls_list LIKE LINE OF lt_list.
REFRESH: lt_list.
ls_list-key = '261' .
ls_list-text = '计划内领料单'.
APPEND ls_list TO lt_list.
CLEAR ls_list.
ls_list-key = 'XXX' .
ls_list-text = '计划外领料单'.
APPEND ls_list TO lt_list.
CLEAR ls_list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_BWART'
values = lt_list.