topic Tabstrip Control in Application Development and Automation Discussions

Tabstrip Control

Former Member — Mon, 21 Apr 2008 11:04:10 GMT

Hi Guy's,

Please help me, using Tabstrip control i created one subscreen it displays the 1(PA0002) table related information. I would like to display 2nd subscreen displays (pa0001) information.

(Created main screen 100 contain 2 tabs, 1st tab related 110 Subscreen, 2nd tab related 120 Sucbscreen

Presently i strucked at to display 2nd tab related information.

It is very urgent.

Thanks and Regards,

Sai.

Re: Tabstrip Control

Former Member — Mon, 21 Apr 2008 11:20:06 GMT

hi,

this sample code

prog:

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

CALL SUBSCREEN SUB1 INCLUDING SY-REPID '200'.

CALL SUBSCREEN SUB2 INCLUDING SY-REPID '300'.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

CALL SUBSCREEN SUB1.

CALL SUBSCREEN SUB2.

PROGRAM ZMTABSTRIP.

CONTROLS TS TYPE TABSTRIP.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CALL SUBSCREEN SUB1 INCLUDING SY-REPID '200'.
CALL SUBSCREEN SUB2 INCLUDING SY-REPID '300'.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE TO SCREEN '0'.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

hope it may help u.

regards,

chandu

Re: Tabstrip Control

Former Member — Mon, 21 Apr 2008 11:40:17 GMT

Hi,

Have a look on the following code.

It displays the Header data in first tab,based on selected header it displays the item data.

1.TOP-INCLUDE

TABLES: KNA1,VBAK,VBAP.

DATA: BEGIN OF IT_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

NETWR LIKE VBAK-NETWR,

END OF IT_VBAK.

DATA: BEGIN OF IT_VBAP OCCURS 0,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

END OF IT_VBAP.

CONTROLS: TBCONTROL1 TYPE TABLEVIEW USING SCREEN '120',

TBCONTROL2 TYPE TABLEVIEW USING SCREEN '130',

TBSTRIP TYPE TABSTRIP.

DATA: DYNNR LIKE SY-DYNNR VALUE '120'.

DATA: V_FNAM(10),V_FVAL(10) TYPE N.

DATA: OK_CODE TYPE SY-UCOMM.

2.100 Screen code

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN SUB INCLUDING SY-REPID DYNNR.

MODULE STATUS_0100.

PROCESS AFTER INPUT.

CALL SUBSCREEN SUB.

MODULE USER_COMMAND_0100.

120 Screen code

PROCESS BEFORE OUTPUT.

LOOP AT IT_VBAK WITH CONTROL TBCONTROL1.

MODULE STATUS_0120.

ENDLOOP.

PROCESS AFTER INPUT.

LOOP AT IT_VBAK.

ENDLOOP.

MODULE USER_COMMAND_0120.

130 Screen code

PROCESS BEFORE OUTPUT.

LOOP AT IT_VBAP WITH CONTROL TBCONTROL2.

MODULE STATUS_0130.

ENDLOOP.

PROCESS AFTER INPUT.

LOOP AT IT_VBAP.

ENDLOOP.

3.PBO

I created 120 and 130 screens

120 PBO

MOVE-CORRESPONDING IT_VBAK TO VBAK.

130

MOVE-CORRESPONDING IT_VBAP TO VBAP.

VBAK-VBELN = V_FVAL.

3.PAI

100 is the main screen

100 PAI

CASE OK_CODE.

WHEN 'DIS'.

SELECT VBELN ERDAT NETWR FROM VBAK

INTO TABLE IT_VBAK

WHERE KUNNR = KNA1-KUNNR.

WHEN 'SALDET'.

TBSTRIP-ACTIVETAB = 'SALDET'.

DYNNR = '120'.

WHEN 'ITMDET'.

TBSTRIP-ACTIVETAB = 'ITMDET'.

DYNNR = '130'.

SELECT POSNR MATNR FROM VBAP

INTO TABLE IT_VBAP

WHERE VBELN = V_FVAL.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

120 PAI

CASE SY-UCOMM.

WHEN 'ITMDET'.

GET CURSOR FIELD V_FNAM VALUE V_FVAL.

ENDCASE.

4.Layout

100 Layout

take one input field for customer

Create Tabstrip(TBSTRIP) with two tabs

120 Layout

Create Table control(TBCONTROL1) with 3 fields

130 Layout

Create Table control(TBCONTROL2) with 2 fields

save,activate and create the Tcode.

Execute TCode

If u didn't get give ur mail id ,i will send screen shots.

Reward,if useful.

Thanks,

Chandu

Re: Tabstrip Control

Former Member — Mon, 21 Apr 2008 11:45:35 GMT

Hi,

In PBO of main screen.

and u should observer carefully

CALL SUBSCREEN SUB1 INCLUDING SY-REPID '200'.

CALL SUBSCREEN SUB2 INCLUDING SY-REPID '300'.

and u should select fcttype in properties window for tabstrips as "P"

sample code is

PROGRAM ZMPP_TABSTRIP.

TABLES : KNA1,VBAK.

TYPES : BEGIN OF TY_KNA1,

KUNNR TYPE KNA1-KUNNR,

NAME1 TYPE KNA1-NAME1,

LAND1 TYPE KNA1-LAND1,

ORT01 TYPE KNA1-ORT01,

TELF1 TYPE KNA1-TELF1,

END OF TY_KNA1.

TYPES : BEGIN OF TY_VBAK,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

ERNAM TYPE VBAK-ERNAM,

END OF TY_VBAK.

DATA : IT_KNA1 TYPE TABLE OF TY_KNA1,

WA_KNA1 TYPE TY_KNA1,

IT_VBAK TYPE TABLE OF TY_VBAK WITH HEADER LINE.

DATA : SCRNO TYPE SY-DYNNR VALUE '201'.

CONTROLS TABLE1 TYPE TABLEVIEW USING SCREEN '202'.

CONTROLS TABSTRIP1 TYPE TABSTRIP.

&----

*& Module USER_COMMAND_0200 INPUT

&----

text

----

MODULE USER_COMMAND_0200 INPUT.

CASE SY-UCOMM.

WHEN 'DISP'.

SELECT SINGLE KUNNR NAME1 LAND1 ORT01 TELF1

FROM KNA1

INTO WA_KNA1

WHERE KUNNR = KNA1-KUNNR.

SELECT VBELN ERDAT ERNAM

FROM VBAK

INTO TABLE IT_VBAK

WHERE KUNNR = KNA1-KUNNR.

WHEN 'REFRESH'.

REFRESH IT_VBAK.

CLEAR WA_KNA1.

CLEAR KNA1-KUNNR.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0200 INPUT

&----

*& Module STATUS_0201 OUTPUT

&----

text

----

MODULE STATUS_0201 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

MOVE WA_KNA1-KUNNR TO KNA1-KUNNR.

MOVE WA_KNA1-NAME1 TO KNA1-NAME1.

MOVE WA_KNA1-LAND1 TO KNA1-LAND1.

MOVE WA_KNA1-ORT01 TO KNA1-ORT01.

MOVE WA_KNA1-TELF1 TO KNA1-TELF1.

ENDMODULE. " STATUS_0201 OUTPUT

&----

*& Module STATUS_0202 OUTPUT

&----

text

----

MODULE STATUS_0202 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING IT_VBAK TO VBAK.

ENDMODULE. " STATUS_0202 OUTPUT

&----

*& Module SUBSCREENAREA INPUT

&----

text

----

MODULE SUBSCREENAREA INPUT.

CASE TABSTRIP1-ACTIVETAB.

WHEN 'CUST'.

SCRNO = '0201'.

WHEN 'SALE' .

SCRNO = '0202'.

ENDCASE.

ENDMODULE. " SUBSCREENAREA INPUT

Plz rewards points,

Thanks & Regards,

ganesh.