ABAP选择屏幕下拉框

2023-10-13 19:11:14 浏览数 (1)

一、直接引用标准值

第一种是最基础的,直接依靠表字段的搜索帮助等系统自带的搜索帮助,只需要在屏幕后面加上【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.

0 人点赞