Report下拉框的设计

最新推荐文章于 2021-10-21 17:40:07 发布

liangziyisheng

最新推荐文章于 2021-10-21 17:40:07 发布

阅读量939

点赞数

分类专栏： 05 Dialog 01 ABAP 基础文章标签： report parameters

本文链接：https://blog.csdn.net/liangziyisheng/article/details/6166160

版权

01 ABAP 基础同时被 2 个专栏收录

93 篇文章 5 订阅

订阅专栏

05 Dialog

30 篇文章 1 订阅

订阅专栏

PARAMETERS: P_RANGE type char12 AS LISTBOX VISIBLE LENGTH 12 DEFAULT '1' modif id MKE.

INITIALIZATION.
PERFORM F_RANGE_INITIAL.

FORM F_RANGE_INITIAL .
DATA: LIT_VALUES TYPE VRM_VALUES WITH HEADER LINE.
DATA: L_NAME TYPE VRM_ID.
REFRESH: LIT_VALUES.
LIT_VALUES-KEY = '1'.
LIT_VALUES-TEXT = TEXT-001.
APPEND LIT_VALUES.
CLEAR LIT_VALUES.

LIT_VALUES-KEY = '2'.
LIT_VALUES-TEXT = TEXT-002.
APPEND LIT_VALUES.
CLEAR LIT_VALUES.

LIT_VALUES-KEY = '3'.
LIT_VALUES-TEXT = TEXT-003.
APPEND LIT_VALUES.
CLEAR LIT_VALUES.
*指定要下拉框的参数名--------------------------------------------
L_NAME = 'P_RANGE'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID                    =  L_NAME
      VALUES                = LIT_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.                    " F_RANGE_INITIAL