How to get tabs in screen painter?

Question

Hi friends i am having 3 screens with numbers 100, 200, 300.
I want to make this 3 screens into tabs like basicdata1, basicdata2 in mm02. Like when i click basicdata1 it has to open basicdata1 screen.
Please can anyone share me the solution

Answer 1

Hi,
For this requirement you can create one screen with no .100.In that create 3 tabstrips.Tabstrips allow users to access multiple subscreens on one normal screen.For three tabs maintain properties, one sub screen is sufficient for the three tabs , design the layout and write the respective logic in flowlogic to switch between different tabs.
Here is the sample code.....
&----DECLARETION OF STRUCTURE -
TYPES: BEGIN OF ST_KNA1,
        KUNNR TYPE KUNNR,
        LAND1 TYPE LAND1,
        NAME1 TYPE NAME1,
        ORT01 TYPE ORT01,
        PSTLZ TYPE PSTLZ,
        REGIO TYPE REGIO,
        TELF1 TYPE TELF1,
        BANKS TYPE BANKS,
        BANKL TYPE BANKL,
        BANKN TYPE BANKN,
        KOINH TYPE KOINH_FI,
        EBPP_ACCNAME TYPE EBPP_ACCNAME,
        END OF ST_KNA1,
        BEGIN OF ST_KNBK,
        BANKS TYPE BANKS,
        BANKL TYPE BANKL,
        BANKN TYPE BANKN,
        KOINH TYPE KOINH_FI,
        EBPP_ACCNAME TYPE EBPP_ACCNAME,
        END OF ST_KNBK.
&--DECLARATION OF WORK AREA--
DATA: WA_KNA1 TYPE ST_KNA1,
      WA_KNBK TYPE ST_KNBK.
DATA: V_SCREEN TYPE SY-DYNNR VALUE '0110',
      OK_CODE TYPE SY-UCOMM,
      V_KUNNR TYPE KNA1-KUNNR.
CONTROLS: TAB TYPE TABSTRIP.
*&      Module  STATUS_0100  OUTPUT
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'TABSTRIPS'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
MODULE USER_COMMAND_0100 INPUT.
  CASE OK_CODE.
    WHEN 'DISP'.
      CLEAR WA_KNA1.
      SELECT
             KUNNR
             LAND1
             NAME1
             ORT01
             PSTLZ
             REGIO
             TELF1
             INTO WA_KNA1
          FROM KNA1
          WHERE KNA1~KUNNR = V_KUNNR.
      ENDSELECT.
      IF NOT WA_KNA1 IS INITIAL.
        TAB-ACTIVETAB = 'TAB1'.
        V_SCREEN = '110'.
      ELSE.
        MESSAGE I003(Z50850MESSAGE).
      ENDIF.
  ENDCASE.
  CASE OK_CODE.
&--CALLS SUBSCREEN  TO DISPLAY CUSTOMER NAME AND NUMBER--
    WHEN 'TAB1'.
      TAB-ACTIVETAB = 'TAB1'.
      V_SCREEN = '110'.
&--CALLS SUBSCREEN TO DISPLAY CUSTOMER PERSONAL DETAILS--
    WHEN 'TAB2'.
      TAB-ACTIVETAB = 'TAB2'.
      V_SCREEN = '120'.
&--CALLS SUBSCREEN TO DISPLAY CUSTOMER BANK DETAILS--
    WHEN 'TAB3'.
      CLEAR WA_KNBK.
      SELECT
             BANKS
             BANKL
             BANKN
             KOINH
             EBPP_ACCNAME
             INTO WA_KNBK
          FROM KNBK
          WHERE KUNNR = WA_KNA1-KUNNR.
      ENDSELECT.
      IF WA_KNBK-BANKN IS INITIAL.
        MESSAGE I003(Z50850MESSAGE).
      ELSE.
        TAB-ACTIVETAB = 'TAB3'.
        V_SCREEN = '130'.
      ENDIF.
    WHEN 'EXIT' OR 'BACK' OR 'CANCEL' OR 'STOP'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
Regards,
kavitha