Skip to Content
0
Former Member
Sep 09, 2007 at 03:41 PM

how to put things on the tabstrip (wizard)

209 Views

I created a tabstrip control using the wizard. My question is how can i put selection-screen elements (like radio button, textbox, etc) on that tabstrip? im a newbie. pls help. <b>thanks!</b>

_________________________

<b>Program looks like this now:</b>

REPORT  TABSTRIP001.

call screen 100.

*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TABSTRIP1'
CONSTANTS: BEGIN OF C_TABSTRIP1,
             TAB1 LIKE SY-UCOMM VALUE 'TABSTRIP1_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TABSTRIP1_FC2',
             TAB3 LIKE SY-UCOMM VALUE 'TABSTRIP1_FC3',
             TAB4 LIKE SY-UCOMM VALUE 'TABSTRIP1_FC4',
           END OF C_TABSTRIP1.
*&SPWIZARD: DATA FOR TABSTRIP 'TABSTRIP1'
CONTROLS:  TABSTRIP1 TYPE TABSTRIP.
DATA:      BEGIN OF G_TABSTRIP1,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'Z_AAA',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TABSTRIP1-TAB1,
           END OF G_TABSTRIP1.
DATA:      OK_CODE LIKE SY-UCOMM.

*&SPWIZARD: OUTPUT MODULE FOR TS 'TABSTRIP1'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: SETS ACTIVE TAB
MODULE TABSTRIP1_ACTIVE_TAB_SET OUTPUT.
  TABSTRIP1-ACTIVETAB = G_TABSTRIP1-PRESSED_TAB.
  CASE G_TABSTRIP1-PRESSED_TAB.
    WHEN C_TABSTRIP1-TAB1.
      G_TABSTRIP1-SUBSCREEN = '0101'.
    WHEN C_TABSTRIP1-TAB2.
      G_TABSTRIP1-SUBSCREEN = '0102'.
    WHEN C_TABSTRIP1-TAB3.
      G_TABSTRIP1-SUBSCREEN = '0103'.
    WHEN C_TABSTRIP1-TAB4.
      G_TABSTRIP1-SUBSCREEN = '0104'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

*&SPWIZARD: INPUT MODULE FOR TS 'TABSTRIP1'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TABSTRIP1_ACTIVE_TAB_GET INPUT.
  OK_CODE = SY-UCOMM.
  CASE OK_CODE.
    WHEN C_TABSTRIP1-TAB1.
      G_TABSTRIP1-PRESSED_TAB = C_TABSTRIP1-TAB1.
    WHEN C_TABSTRIP1-TAB2.
      G_TABSTRIP1-PRESSED_TAB = C_TABSTRIP1-TAB2.
    WHEN C_TABSTRIP1-TAB3.
      G_TABSTRIP1-PRESSED_TAB = C_TABSTRIP1-TAB3.
    WHEN C_TABSTRIP1-TAB4.
      G_TABSTRIP1-PRESSED_TAB = C_TABSTRIP1-TAB4.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
  ENDCASE.
ENDMODULE.

_________________________

<b>Flow Logic goes like this now:</b>

PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABSTRIP 'TABSTRIP1'
  MODULE TABSTRIP1_ACTIVE_TAB_SET.
  CALL SUBSCREEN:
       0101_SCA INCLUDING G_TABSTRIP1-PROG '0101',
       0102_SCA INCLUDING G_TABSTRIP1-PROG '0102',
       0103_SCA INCLUDING G_TABSTRIP1-PROG '0103',
       0104_SCA INCLUDING G_TABSTRIP1-PROG '0104'.

  module pbo.

PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABSTRIP 'TABSTRIP1'
  CALL SUBSCREEN:
       0101_SCA,
       0102_SCA,
       0103_SCA,
       0104_SCA.
  MODULE TABSTRIP1_ACTIVE_TAB_GET.

  module pai.