SAP选择屏幕中实现三级联动下拉框效果

最新推荐文章于 2024-07-18 11:02:35 发布

ChampaignWolf

最新推荐文章于 2024-07-18 11:02:35 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： SAP 文章标签： SAP选择屏幕中实现三级联动下拉框效果

本文链接：https://blog.youkuaiyun.com/champaignwolf/article/details/78676716

SAP 专栏收录该内容

341 篇文章

订阅专栏

本文介绍了一个ABAP程序实例，展示了如何通过不同层级的选择框填充数据，并实现产品层级结构的选择。程序中详细解释了如何根据选择的层级动态更新下一级的选择框选项。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

REPORT TEST.

TYPE-POOLS:vrm.
DATA: name TYPE vrm_id.
DATA:num TYPE i. "根据PRODH字段长度判断某行属于哪一级
DATA:loaded TYPE c LENGTH 1."控制不重复查询数据库和不反复append数据 to WA1[]

TYPES: BEGIN OF wa,
         key(40),
         text(80) TYPE c,
       END OF wa.
DATA:gt LIKE t179t OCCURS 0 WITH HEADER LINE.
DATA:wa1 TYPE TABLE OF wa WITH HEADER LINE."111
DATA:wa2 TYPE TABLE OF wa WITH HEADER LINE.                 "111222
DATA:wa3 TYPE TABLE OF wa WITH HEADER LINE.                 "111222333

DATA:itab LIKE t179t OCCURS 0 WITH HEADER LINE.
DATA: ps_t(15) TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK t1 WITH FRAME TITLE TEXT-001.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) TEXT-003.
PARAMETERS: pl1 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15 USER-COMMAND p1.
"一级类
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) TEXT-004.
PARAMETERS: pl2 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15 USER-COMMAND p2.
"二级类
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) TEXT-005.
PARAMETERS: pl3 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15.
"三级类
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK t1.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.
  name = 'PL1'.
  IF loaded  IS INITIAL.

    gt-prodh = '00001'.
    gt-vtext = '服务器'.
    append gt.
    clear gt.

    gt-prodh = '0000100001'.
    gt-vtext = '服务器00001'.
    append gt.
    clear gt.

    gt-prodh = '000010000100000001'.
    gt-vtext = '服务器0000100000001'.
    append gt.
    clear gt.

    gt-prodh = '000010000100000002'.
    gt-vtext = '服务器0000100000002'.
    append gt.
    clear gt.

    gt-prodh = '00002'.
    gt-vtext = 'PC'.
    append gt.
    clear gt.

    gt-prodh = '0000200001'.
    gt-vtext = 'PC0000200001'.
    append gt.
    clear gt.

    gt-prodh = '000020000100000001'.
    gt-vtext = 'PC000020000100000001'.
    append gt.
    clear gt.

    gt-prodh = '000020000100000002'.
    gt-vtext = 'PC000020000100000002'.
    append gt.
    clear gt.

    loaded = 'X'.
    LOOP AT gt.
      num = strlen( gt-prodh ).
      IF num = 5.
        wa1-text  = gt-vtext."Description
        wa1-key   = gt-prodh."Product hierarchy   key field
        APPEND: wa1.
      ENDIF.
      CLEAR: gt,num,wa1."CLEAR 清空WA1工作区，不清空WA1[]内表
    ENDLOOP.
  ENDIF.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = wa1[].

AT SELECTION-SCREEN.

  CASE sy-ucomm.
    WHEN 'P1'.
      CLEAR: pl2,pl3.
      "清空2、3级下拉空默认值，当用户在选择屏幕上重新选择时需要清除
      CLEAR:wa2,wa2[].
      "清空2级下拉内表对应的值，当用户在选择屏幕上重新选择时需要清除
      CLEAR num.
      LOOP AT gt .
        num = strlen( gt-prodh ).
        IF num = 10 AND gt-prodh+0(5) = pl1.

          wa2-text  = gt-vtext.
          wa2-key   = gt-prodh.
          APPEND: wa2.

        ENDIF.
        CLEAR:gt,num,wa2.
      ENDLOOP.

      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id     = 'PL2'
          values = wa2[].
      CLEAR pl2.
    WHEN 'P2'.
      CLEAR pl3.
      "清空3级下拉空默认值，当用户在选择屏幕上重新选择时需要清除
      CLEAR:wa3,wa3[].
      "清空3级下拉内表对应的值，当用户在选择屏幕上重新选择时需要清除
      CLEAR num.
      LOOP AT gt .
        num = strlen( gt-prodh ).
        IF num = 18 AND gt-prodh+0(10) = pl2.

          wa3-text  = gt-vtext.
          wa3-key   = gt-prodh.
          APPEND: wa3.

        ENDIF.
        CLEAR:gt,num,wa3.
      ENDLOOP.

      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          id     = 'PL3'
          values = wa3[].
      CLEAR pl3.
  ENDCASE.