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

最新推荐文章于 2024-01-22 16:38:06 发布

ChampaignWolf

最新推荐文章于 2024-01-22 16:38:06 发布

阅读量1.3k

点赞数

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

本文链接：https://blog.csdn.net/champaignwolf/article/details/78676716

版权

SAP 专栏收录该内容

341 篇文章 61 订阅

订阅专栏

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 .