使用SAP选项卡控件

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从程序内表或字典中选择，不要手工创建