Parameter下拉列表

最新推荐文章于 2022-07-06 14:20:13 发布

blackpig5210

最新推荐文章于 2022-07-06 14:20:13 发布

阅读量420

点赞数 1

分类专栏： ABAP

本文链接：https://blog.csdn.net/cj5210_/article/details/53883710

版权

ABAP 专栏收录该内容

7 篇文章 2 订阅

订阅专栏

*&---------------------------------------------------------------------*
*& Report  ZTEST_CJ01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST_CJ01.

DATA:
      bname   TYPE vrm_id,
      vbukrs  TYPE vrm_values,
      lvbukrs LIKE LINE OF vbukrs.

DATA:
      gname   TYPE vrm_id,
      vgjahr  TYPE vrm_values,
      lvgjahr LIKE LINE OF vgjahr.

PARAMETERS:
            p_bukrs TYPE bseg-bukrs AS LISTBOX VISIBLE LENGTH 30 DEFAULT 'A001',
            p_gjahr TYPE bseg-gjahr AS LISTBOX VISIBLE LENGTH 30 DEFAULT '2016'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs.

CLEAR lvbukrs.
bname = 'P_BUKRS'.
lvbukrs-key = 'A001'.
APPEND lvbukrs TO vbukrs.

CLEAR lvbukrs.
bname = 'P_BUKRS'.
lvbukrs-key = 'A002'.
APPEND lvbukrs TO vbukrs.

CLEAR lvbukrs.
bname = 'P_BUKRS'.
lvbukrs-key = 'A003'.
APPEND lvbukrs TO vbukrs.

CLEAR lvbukrs.
CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = bname
    VALUES                = vbukrs
 EXCEPTIONS
   ID_ILLEGAL_NAME       = 1
   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_gjahr.

CLEAR lvgjahr.
gname = 'P_GJAHR'.
lvgjahr-key = '2016'.
APPEND lvgjahr TO vgjahr.

CLEAR lvgjahr.
gname = 'P_GJAHR'.
lvgjahr-key = '2015'.
APPEND lvgjahr TO vgjahr.

CLEAR lvgjahr.
gname = 'P_GJAHR'.
lvgjahr-key = '2014'.
APPEND lvgjahr TO vgjahr.

CLEAR lvgjahr.
CALL FUNCTION 'VRM_SET_VALUES'
  EXPORTING
    ID                    = gname
    VALUES                = vgjahr
* EXCEPTIONS
*   ID_ILLEGAL_NAME       = 1
*   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.