导语:好久没有写选择屏幕了,下面分享一个选择屏幕下拉框的实现,用户认为在选择屏幕上的搜索帮助不太友好,希望做一个下拉框来选。
一、直接引用标准值
第一种是最基础的,直接依靠表字段的搜索帮助等系统自带的搜索帮助,只需要在屏幕后面加上【AS LISTBOX】关键字,就可以了,同时呢【AS LISTBOX】需要同【VISIBLE LENGTH】一起使用。
PARAMETERS : p_bwart LIKE resb-bwart VISIBLE LENGTH 20 AS LISTBOX .
效果图:
二、自定义下拉框的值
除上述的情况,还存在没有系统搜索帮助的字段,或者想要自定义下拉框种的内容,需要在保持上述所说的基础上,在【AT SELECTION-SCREEN OUTPUT】后面,添加一段代码。
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.
效果图:
作者:小飞猪猪猪猪猪猪猪–CSDN