Tabstrip实例

Tabstrip实例

                            ————Author:东园公

 

Design steps:

1,Create Main Screen

  Screen Number :0200

  Screen Type:Normal

 

Attributes

Flow logic

PROCESS BEFORE OUTPUT.
 MODULE STATUS_0200.
*
CALL SUBSCREEN :  PUSH01_REF1 INCLUDING SY-REPID '0301',
                  PUSH02_REF1 INCLUDING SY-REPID '0302',
                  PUSH03_REF1 INCLUDING SY-REPID '0303'.

PROCESS AFTER INPUT.

CALL SUBSCREEN :  PUSH01_REF1 ,
                  PUSH02_REF1 ,
                  PUSH03_REF1 .

 MODULE USER_COMMAND_0200.

 

2,Create Subscreen

  Subscreen Number:0301,0302,0303

3,Write Code

*&---------------------------------------------------------------------*
*& Report  ZMYP_TABSTRIP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZMYP_TABSTRIP.


DATA:     OK_CODE LIKE SY-UCOMM,
          SAVE_CODE LIKE SY-UCOMM.
data:f_field01 type string.


controls mystrip type tabstrip.
mystrip-activetab = 'PUSH01'.     "activation PuSH01


START-OF-SELECTION .

f_field01 = 'you  can  insert  your  pushbutton,field,table control and so on' .

call screen 0200.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS '0200'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.

  SAVE_CODE = OK_CODE.
  CLEAR OK_CODE.

  CASE save_code.

      WHEN 'PUSH01'.
          mystrip-activetab = save_code.
      WHEN 'PUSH02'.
          mystrip-activetab = save_code.
      WHEN 'PUSH03'.
          mystrip-activetab = save_code.
      when 'BACK'  .
        LEAVE TO SCREEN 0.
      when 'CANCEL' .
        LEAVE TO SCREEN 0.
      when 'ENV_OK'.
        LEAVE TO SCREEN 0.
      when 'ENV_CANCEL'.

        LEAVE TO SCREEN 0.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0200  INPUT

 

4,result