1.创建屏幕100.放入一个选项卡控件(表条目控制)到屏幕上,命名为TAB,默认是两个选项卡(按钮名称是TAB1,TAB2),可以放上一个按钮来增加一个选项卡,因为选项卡控件的组成元素是:按钮,子屏幕.
2.分别往每个选项卡上放置一个子屏幕范围,名称是:REF1,REF2.
3.创建屏幕101,102,属性是:子屏幕,在逻辑流中关联到子屏幕区域中.
report.
controls tab type tabstrip.
data ok_code type sy-ucomm.
data dynnr type sy-dynnr.
call screen 100.
*call SCREEN 101.
*call SCREEN 102.
*&---------------------------------------------------------------------*
*& Module TABSTRIP_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
module tabstrip_display output.
case tab-activetab.
when 'TAB1'.
dynnr = '101'.
tab-activetab = 'TAB1'.
when 'TAB2'.
dynnr = '102'.
tab-activetab = 'TAB2'.
when others.
dynnr = '101'.
tab-activetab = 'TAB1'.
endcase.
endmodule. " TABSTRIP_DISPLAY OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
module user_command_0100 input.
case ok_code.
when 'TAB1' or 'TAB2'.
tab-activetab = ok_code.
when '&F03'.
leave to screen 0.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
module status_0100 output.
set pf-status 'STATUS100'.
endmodule. " STATUS_0100 OUTPUT
*----------------------- 逻辑流如下 -----------------------------------------
process before output.
module status_0100.
module tabstrip_display.
call subscreen ref1 including sy-repid '101'.
call subscreen ref2 including sy-repid '102'.
process after input.
module user_command_0100.
效果如图所示:
"设置屏幕焦点,须在主屏幕或子屏幕某个module下,如:
module status_0100 output.
set pf-status 'STATUS100'. "每个I/O字段都可以设置它的搜索帮助。把STATUS100里面的:'保留'->F4 去掉,否则屏幕选择帮助没用
set cursor field 'SPART'. "设置主屏幕焦点
endmodule. "status_0100 OUTPUT
module status_0101 output.
set cursor field 'GT_ZSDT014-POSNR' line 1 offset 2. "设置子屏幕焦点,line:行,offset:在指定字段上的偏移
endmodule. "status_0101 OUTPUT
"注意:table control中的字段用F6从程序内表或字典中选择,不要手工创建
评论