动态选择屏幕
来源:互联网 发布:淘宝商家手机怎么注册 编辑:程序博客网 时间:2024/04/30 08:02
学习编程的最佳方法是研究他人的代码,一些我写了一段简单的代码演示动态选择屏幕
TABLES: sflight, spfli, sbook.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS p_scd RADIOBUTTON GROUP grp1 USER-COMMAND com MODIF ID scd DEFAULT 'X'.
PARAMETERS p_flt RADIOBUTTON GROUP grp1 MODIF ID flt.
PARAMETERS p_fbk RADIOBUTTON GROUP grp1 MODIF ID fbk.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME.
PARAMETERS p_carrid TYPE spfli-carrid MODIF ID scd.
PARAMETERS p_connid TYPE spfli-connid MODIF ID scd.
PARAMETERS p_fldate TYPE sflight-fldate MODIF ID flt.
PARAMETERS p_price TYPE sflight-price MODIF ID flt.
PARAMETERS p_bookid TYPE sbook-bookid MODIF ID fbk.
PARAMETERS p_ctmid TYPE sbook-customid MODIF ID fbk.
SELECTION-SCREEN END OF BLOCK blk2.
AT SELECTION-SCREEN OUTPUT.
IF p_scd = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'SCD'.
screen-active = '1'.
MODIFY SCREEN.
WHEN 'FLT'.
IF screen-name = 'P_FLDATE' OR
screen-name = 'P_PRICE' OR
screen-name = '%_P_FLDATE_%_APP_%-TEXT' OR
screen-name = '%_P_PRICE_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN 'FBK'.
IF screen-name = 'P_BOOKID' OR
screen-name = 'P_CTMID' OR
screen-name = '%_P_BOOKID_%_APP_%-TEXT' OR
screen-name = '%_P_CTMID_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDIF.
IF p_flt = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'SCD'.
IF screen-name = 'P_CARRID' OR
screen-name = 'P_CONNID' OR
screen-name = '%_P_CARRID_%_APP_%-TEXT' OR
screen-name = '%_P_CONNID_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN 'FLT'.
screen-active = '1'.
MODIFY SCREEN.
WHEN 'FBK'.
IF screen-name = 'P_BOOKID' OR
screen-name = 'P_CTMID' OR
screen-name = '%_P_BOOKID_%_APP_%-TEXT' OR
screen-name = '%_P_CTMID_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDIF.
IF p_fbk = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'SCD'.
IF screen-name = 'P_CARRID' OR
screen-name = 'P_CONNID' OR
screen-name = '%_P_CARRID_%_APP_%-TEXT' OR
screen-name = '%_P_CONNID_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN 'FLT'.
IF screen-name = 'P_FLDATE' OR
screen-name = 'P_PRICE' OR
screen-name = '%_P_FLDATE_%_APP_%-TEXT' OR
screen-name = '%_P_PRICE_%_APP_%-TEXT'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
WHEN 'FBK'.
screen-active = '1'.
MODIFY SCREEN.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDIF.
- 动态选择屏幕
- 动态隐藏/显示选择屏幕
- 选择屏幕动态显示title
- 选择屏幕动态显示title
- 动态改变选择屏幕选择文本
- ABAP选择屏幕:根据用户选择动态显示屏幕 (动态选择屏幕)
- ABAP选择屏幕:根据用户选择动态显示屏幕
- 选择屏幕元素的动态显示
- 选择屏幕动态显示BLOCK title
- Smartform 动态打印选择屏幕…
- sap 选择屏幕 设定动态标题
- SAP ABAP编程 ABAP选择屏幕:根据用户选择动态显示屏幕
- 选择屏幕动态隐藏字段(SELECT-OPT…
- Smartform 动态打印选择屏幕上传的图片
- 选择屏幕
- 选择屏幕
- 选择屏幕
- 选择屏幕
- 让IE9.0一下的IE浏览器全面支持html5和css3.0
- ACCESS连接字符串
- 可遍历的无锁队列
- C语言堆栈入门
- 安装sharepoint 2010 必备组件
- 动态选择屏幕
- mysql root密码重置
- equals和hashcode的重写规则
- 安装boost和CGAL
- cenOs vsftp配置
- 'telnet' 不是内部或外部命令,也不是可运行的程序或批处理文件
- jqGrid与Struts2的结合应用1、2、3
- SQL Server 链接服务器查询慢?
- SecureCRT.v.6.7.2破解版下载地址