Tabstrip

[pradiptakumar_mishra]

Hi All

Can we have another tabstrip inside a tabstrip? If yes then plz lemme know how to process the second tabstrip ? As its purely a sub screen and they don't have a ok_code.

Suggest me with some examples if possible.

Thnx in adv

With Luv

Pradipta

[Former Member]

Hi Pradipta,

Yes we can have tabstrip within a tabstrip. For example You can check the outbound delivery(vl03n) under the header- > Foreign Trade/ Customs screen which has tabstrip within a tabstrip.

Havent done such complex coding so might not be able to help you with ready code.

Hope this gets u started.

Cheers

VJ

[pradiptakumar_mishra]

Hi Vijay

Sorry for the late reply. I went through that particular transaction u had mentioned.

Thnx for your reply.

With Regards

Pradipta

[naimesh_patel]

Hello Pradipta,

Yes we can put 2 tabstrips...

Try with this code.

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

1. Create Normal screen 1001.

Put Tab control TABCNT on the screen with 2 tabs.

Name of tabs: TAB1, TAB2

Text of tabs: First Tab, Second tab

Function code: FC1, FC2

Reference field : SUB

Put Subscreen SUB on the Tabcontrol.

Flow logic of screen 1001 is like

PROCESS BEFORE OUTPUT.

MODULE STATUS_1001.

CALL SUBSCREEN SUB INCLUDING SY-REPID NUMBER.

*

PROCESS AFTER INPUT.

CALL SUBSCREEN SUB.

MODULE USER_COMMAND_1001.

2. Create a screen 0100 as Subscreen

Put Tab control TABCNT2 on the screen with 2 tabs.

Name of tabs: TAB11, TAB21

Text of tabs: Tab 1.1, tab 1.2

Function code: FC11, FC21

Reference field : SUB11

Put Subscreen SUB11 on the Tabcontrol.

Flow logic is like

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN SUB11 INCLUDING SY-REPID NUMBER2.

PROCESS AFTER INPUT.

CALL SUBSCREEN SUB11.

3. Create screens 101, 102, 200 as subscreens.

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

PROGRAM ZTEST_NP_M1 .

CONTROLS TABCNT TYPE TABSTRIP.

CONTROLS TABCNT2 TYPE TABSTRIP.

DATA: COUNTER TYPE I,

NUMBER TYPE SY-DYNNR,

OK_CODE LIKE SY-UCOMM.

DATA: NUMBER2 TYPE SY-DYNNR.

START-OF-SELECTION.

CALL SCREEN 1001.

&----

---

*& Module STATUS_1001 OUTPUT

&----

---

MODULE STATUS_1001 OUTPUT.

IF COUNTER = 0.

TABCNT-ACTIVETAB = 'TAB1'.

NUMBER = '0100'.

TABCNT2-ACTIVETAB = 'TAB11'.

NUMBER2 = '0101'.

ENDIF.

COUNTER = 1.

CASE OK_CODE.

WHEN 'FC1'.

NUMBER = '0100'.

TABCNT-ACTIVETAB = 'FC1'.

WHEN 'FC11'.

NUMBER2 = '0101'.

TABCNT2-ACTIVETAB = 'FC11'.

WHEN 'FC12'.

NUMBER2 = '0102'.

TABCNT2-ACTIVETAB = 'FC12'.

WHEN 'FC2'.

NUMBER = '0200'.

TABCNT-ACTIVETAB = 'FC2'.

ENDCASE.

ENDMODULE. " STATUS_1001 OUTPUT

&----

---

*& Module USER_COMMAND_1001 INPUT

&----

---

MODULE USER_COMMAND_1001 INPUT.

CASE OK_CODE.

WHEN 'BACK' OR 'EXIT' OR 'CANC'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_1001 INPUT