注册 登录  
 加关注

网易博客网站关停、迁移的公告:

将从2018年11月30日00:00起正式停止网易博客运营
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

[转]调用选择屏幕以及获得选择屏幕的操作  

2011-09-19 09:46:58|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

在自定义屏幕如何调用选择屏幕呢,通过选择屏幕输入查询条件,然后进行相关的操作。在这里有两个技术难点:
1
、如何定义可以调用的选择屏幕、调用选择屏幕;
2
、如何捕捉到选择屏幕的操作、选择屏幕的屏幕号;

定义可调用的选择屏幕:
SELECTION-SCREEN  BEGIN  OF  SCREEN  700 .
SELECT-OPTIONSS_CPTNR FOR  ZTMM0141-CPTNR,
S_MAKTX 
FOR  ZTMM0141-MAKTX.
SELECTION-SCREEN  END    OF  SCREEN  700 .

调用选择屏幕:
CALL  SELECTION-SCREEN 700  STARTING  AT  15  2  ENDING AT  100  4 .

捕捉选择屏幕的操作:
*----------------------------------------------------------------------*
*  AT SELECTION-SCREEN OUTPUT.
*  在屏幕输出之前处理
*
*----------------------------------------------------------------------*
at selection-screen .
  
case  sy-dynnr.                   "对应的是屏幕编号
    
when  '0700' .
      
if  sy-ucomm 'CRET' .        "对应的是执行的功能码
        
perform  frm_display_history using  .   "调用子例程执行相关操作
      
endif .
    
when  '0800' .
      
if  sy-ucomm 'CRET' .
        
perform  frm_display_history using  .
      
endif .
    
when  '0900' .
      
if  sy-ucomm 'CRET' .
        
perform  frm_display_history using  .
      
endif .
  
endcase .< xmlnamespace prefix ="o" ns ="urn:schemas-microsoft-com:office:office" />

  评论这张
 
阅读(241)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018