Application Development 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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Tabstrip Control

Former Member

‎04-21-2008 12:04 PM

0 Kudos

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.

3 REPLIES 3

Former Member

‎04-21-2008 12:20 PM

0 Kudos

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

Former Member

‎04-21-2008 12:40 PM

0 Kudos

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

Former Member

‎04-21-2008 12:45 PM

0 Kudos

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.