SAP选择屏幕中实现三级联动下拉框效果
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. "111222333DATA: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.SELECT * FROM T179T INTO TABLE GT WHERE SPRAS = 1.LOADED = 'X'.LOOP AT GT.NUM = STRLEN( GT-PRODH ).IF NUM = 5.WA1-TEXT = GT-VTEXT."DescriptionWA1-KEY = GT-PRODH."Product hierarchy key fieldAPPEND: WA1.ENDIF.CLEAR: GT,NUM,WA1."CLEAR 清空WA1工作区,不清空WA1[]内表ENDLOOP.ENDIF.CALL FUNCTION 'VRM_SET_VALUES'EXPORTINGID = NAMEVALUES = 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'EXPORTINGID = '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'EXPORTINGID = 'PL3'VALUES = WA3[].CLEAR PL3.ENDCASE.
SAP选择屏幕中实现三级联动下拉框效果相关推荐
- java省市县联动 下拉框选择_原生JavaScript实现动态省市县三级联动下拉框菜单实例代码...
像平时购物选择地址时一样,通过选择的省动态加载城市列表,通过选择的城市动态加载县区列表,从而可以实现省市县的三级联动,下面使用原生的JavaScript来实现这个功能: 先给大家展示下测试结果: 未做 ...
- 2018最新版省市区三级联动下拉框+所有源代码以及数据库
2018年国家统计局最新数据,JSP+Servlet+Dao实现省市区三级联动下拉框的效果 DropdownDAO.java -–Dao层 package com;import java.sql.Co ...
- EasyUI三级联动下拉框
HTML部分: <span>一级标签:</span> <input class="easyui-combobox" style="width ...
- SharePoint:扩展DVWP - 第21部分:实现可维护的三级联动下拉框
上一次,我们通过几个简单的步骤实现了级联下拉框--一个下拉框可以过滤另一个的可选项. 但是,如果我们有三个下拉框需要做级联该怎么做呢?比如,国家-省-市.或者工作地点-组-职位. 接下来的步骤相对于前 ...
- extjs 点击下拉框三角形触发事件_省市县三级联动下拉框的具体实现
功能需求: ①页面中有三个下拉框选项,分别为省下拉框,市下拉框,区/县下拉框 ②选择省,则市下拉框中出现对应的该省下的市信息,选择市则区/县下拉框中出 现对应的该市下面的区/县信息. 需求分析(思路) ...
- android 下拉菜单触发_Android实现三级联动下拉框 城市选择器(简单)
主要实现办法:动态加载各级下拉值的适配器 在监听本级下拉框,当本级下拉框的选中值改变时,随之修改下级的适配器的绑定值 先贴出效果图: 主布局代码: xmlns:tools="http://s ...
- 微信小程序下拉框插件_微信小程序三级联动下拉框插件
//点击事件,点击弹出选择页 areaTap: function () { this.setData({ addressMenuIsShow:true }) }, cityCancel: functi ...
- dropdownlist三级联动怎么实现_Excel下拉菜单不会做?15秒教会你制作一二三级联动下拉菜单,从此做表不求人!...
Hi,各位叨友们好呀!我是叨叨君~ 我们都知道,在使用Excel表格统计数据的时候,为了方便录入,通常会在Excel中设置下拉菜单,以便我们输入相同的内容. 那么,Excel中一级.二级.三级联动下拉 ...
- layui多级联动下拉框的实现_简单三级联动的实现
当我们做一些例如注册页面的时候,可能会遇到要选择地址的操作,这时会出现三个选择框,当你选择省级单位的时候会自动在选择筐中,弹出她所属的市级单位的列表,当选择市级单位时又会弹出县级单位,我们要实现的就是 ...
最新文章
- Strutsw2与Spring整合流程-简述
- 结构体struct 联合体 union
- (转)C#操作XML的完整例子——XmlDocument篇
- MATLAB 牛顿迭代算法
- CodeForces730E Award Ceremony(拓扑排序+结论)
- arm linux 开机电路_【技术角度看问题之一】ARM到底是个啥?
- Java-Exception异常
- MPEG-7实例入门
- [论文笔记]Poly-encoders: architectures and pre-training strategies for fast and accurate multi-sentence
- SAS安装后处理错误的解决方法
- m1 mac屏幕保护程序取消不了怎么办
- 简洁404页面源码 | 自适应404页面HTML源代码下载
- 【gp数据库】你可能不知道却超级实用的函数
- 使用Coverity进行代码检测,构建C#报错,The Web-app security checkers are fully suppored only on Windwds.
- 学会了C语言/C++能做什么?我们一起来看看吧!
- 干货 实例 | 数字化时代的传统行业转型升级
- Java 切换win10壁纸
- [198].打家劫舍
- sql 语句in 使用占位符
- error LNK1123: 转换到 COFF 期间失败: 文件无效或损坏