Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Tabstrip control in Module pool program

Former Member
0 Likes
1,918

Hi All

I am creating a Tab strip control in SE51 ( M - Type program ). In my screen i have 3 tabs . I want the second tab to be default tab in my screen . How to to work on this scenario.

If i get a sample program it will be easy for me.

5 REPLIES 5
Read only

Former Member
0 Likes
1,043

hi ,

u try to do one thing.

write following code in main screens process before output module.

tabstrip-activetab = 'tab2'.

screen2 = 'screen number'.

Read only

Former Member
0 Likes
1,043

hii

just go to tcode ABAPDOCU in thr will se abap user dialog in this node go for complex screen and u will get a tabstip demo program

thanks

Read only

Former Member
0 Likes
1,043

hi ,

u try to do one thing.

write following code in main screens process before output module.

*****************************************************

tabstrip-activetab = 'tab2'.

screen2 = 'screen number'.

case sy-ucomm.

when 'tab1'.

tabstrip-activetab = 'tab1'.

screen1 = 'scr no'.

tabstrip-activetab = 'tab2'.

screen1 = 'scr no'.

tabstrip-activetab = 'tab3'.

screen1 = 'scr no'.

endcase.

*****************************************************

DONT WRITE CASE SY-UCOMM IN PAI.WRITE ABOVE CODE IN PBO MODULE.

Read only

Former Member
0 Likes
1,043

Just go through this code.

Here just check the bold fonts give the function code of the second tab here which is shown at initialization of the screen. Use the screen active field also.

REPORT DEMO_DYNPRO_TABSTRIP_LOCAL.

CONTROLS MYTABSTRIP TYPE TABSTRIP.

DATA: OK_CODE TYPE SY-UCOMM,

SAVE_OK TYPE SY-UCOMM.

MYTABSTRIP-ACTIVETAB = 'PUSH2'.

CALL SCREEN 100.

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'SCREEN_100'.

ENDMODULE.

MODULE CANCEL INPUT.

LEAVE PROGRAM.

ENDMODULE.

MODULE USER_COMMAND INPUT.

SAVE_OK = OK_CODE.

CLEAR OK_CODE.

IF SAVE_OK = 'OK'.

MESSAGE I888(SABAPDOCU) WITH 'MYTABSTRIP-ACTIVETAB ='

MYTABSTRIP-ACTIVETAB.

ENDIF.

ENDMODULE.

Thanks,

Sakthi

Read only

Former Member
0 Likes
1,043

Hi,

Please write the following code in the PBO of ur screen

CASE SY-UCOMM.

WHEN 'TAB2'.

TAB_G3-activetab = 'TAB2'.

ENDCASE.

HOPE THIS SOLVES THE PURPOSE AS i DID THE SAME IN MY CASE AS WELL.

MANISH