登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

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

 
 
 

日志

 
 
 
 

选择屏幕选项卡  

2011-01-07 19:34:44|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

tables vbkd,lips,likp.
*---------------------------------- 例二 -----------------------------------
selection-screen begin of screen 1100 as subscreen .
selection-screen begin of block b1 with frame title text-011.
parametersp_vstel type  likp-vstel.
selection-screen skip 5.
parametersp_mark1 type c as checkbox.
selection-screen end of block b1.
selection-screen end of screen 1100.

selection-screen begin of screen 1200 as subscreen.
selection-screen begin of block b2 with frame title text-001.
select-optionss_lgort2 for lips-lgort.

parametersp_mark type c as checkbox.

selection-screen end of block b2.
selection-screen end of screen 1200.

selection
-screenbegin of tabbed block mytab for 12 lines,
                  tab 
(20button1 user-command push1,
                  tab 
(20button2 user-command push2,
                  
end of block mytab.

initialization.
  button1 
'No.1'.
  button2 
'No.2'.
  mytab
-prog sy-repid.
  mytab
-dynnr 1100.
  mytab
-activetab 'BUTTON1'.

at selection-screen.
  
case sy-dynnr.
    
when 1000.
      
case sy-ucomm.
        
when 'PUSH1'.
          mytab
-dynnr 1100.
          mytab
-activetab 'BUTTON1'.
        
when 'PUSH2'.
          mytab
-dynnr 1200.
          mytab
-activetab 'BUTTON2'.
      
endcase.

  
endcase.
*--- 根据不同的选项卡输出不同的数据
start
-of-selection.
  
if mytab-dynnr 1100.
    
perform frm_get_1100.
    
perform frm_alv_output.
  
endif.

  
if mytab-dynnr 1200.
    
perform frm_get_1200.
    
perform frm_avl_output2.
  
endif.


*---------------------------------- 例二 -------------------------------------
  
selection-screen begin of tabbed block tabb1 for 12 lines.
  
selection-screen tab (10text-001 user-command ucomm1
   
default screen 101.
  
selection-screen tab (10text-002 user-command ucomm2
   
default screen 102.
  
selection-screen tab (10text-003 user-command ucomm3
   
default screen 103.
  
selection-screen end of block tabb1.
  
selection-screen begin of screen 101 as subscreen.
  
parameterp_field1(10).
  
selection-screen end of screen 101.
  
selection-screen begin of screen 102 as subscreen.
  
parameterp_field2(10).
  
selection-screen end of screen 102.
  
selection-screen begin of screen 103 as subscreen.
  
parameterp_field3(10).
  
selection-screen end of screen 103.

  
write:/ p_field1.
  
write:/ p_field2.
  
write:/ p_field3.

  评论这张
 
阅读(323)| 评论(0)

历史上的今天

评论

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

页脚

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