TABSTRIP

[Former Member]

HI GURU'S,

I DEVELOPED MODULE POOL USING TABSTRIP.I PROVIDED 2 TABS FOR TABSTRIP.

IF I PRESS SALES TAB IT WOUL DIPLAY SALES DEATILS OF CUSTOMER AND I PRESS ITEMS IT WOULD DISPLY ITEM DETAILS.

BUT MY CODE IDS LIKE BELOW .IT IS NOT GIVING OUTPUT.

&----

---

*& Module pool ZTABSTRIP

*&

&----

---

*&

*&

&----

---

PROGRAM ZTABSTRIP.

TABLES : KNA1, VBAK, VBAP.

DATA : BEGIN OF ITAB OCCURS 0,

VBELN TYPE VBELN,

ERDAT TYPE ERDAT,

NETWR TYPE NETWR,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

POSNR TYPE POSNR,

MATNR TYPE MATNR,

MATWA TYPE MATWA,

END OF JTAB.

CONTROLS : TAB1 TYPE TABSTRIP.

CONTROLS : TABLE1 TYPE TABLEVIEW USING SCREEN '110'.

CONTROLS : TABLE2 TYPE TABLEVIEW USING SCREEN '120'.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

---

*& Module USER_COMMAND_0110 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0110 INPUT.

CASE SY-UCOMM.

WHEN 'SALES'.

SELECT VBELN ERDAT NETWR FROM VBAK INTO ITAB WHERE KUNNR = KNA1-KUNNR.

APPEND ITAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0110 INPUT

&----

---

*& Module STATUS_0110 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0110 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING ITAB TO VBAK.

ENDMODULE. " STATUS_0110 OUTPUT

&----

---

*& Module USER_COMMAND_0120 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0120 INPUT.

CASE SY-UCOMM.

WHEN 'ITEMS'.

SELECT POSNR MATNR MATWA FROM VBAP INTO JTAB .

APPEND JTAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0120 INPUT

&----

---

*& Module STATUS_0120 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0120 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING JTAB TO VBAP.

ENDMODULE. " STATUS_0120 OUTPUT

PLEASE SOLVE MY PROBLEM

THANKS IN ADVANCE.

[Former Member]

HI GURU'S,

I DEVELOPED MODULE POOL USING TABSTRIP.I PROVIDED 2 TABS FOR TABSTRIP.

IF I PRESS SALES TAB IT WOUL DIPLAY SALES DEATILS OF CUSTOMER AND I PRESS ITEMS IT WOULD DISPLY ITEM DETAILS.

BUT MY CODE IDS LIKE BELOW .IT IS NOT GIVING OUTPUT.

&----

---

*& Module pool ZTABSTRIP

*&

&----

---

*&

*&

&----

---

PROGRAM ZTABSTRIP.

TABLES : KNA1, VBAK, VBAP.

DATA : BEGIN OF ITAB OCCURS 0,

VBELN TYPE VBELN,

ERDAT TYPE ERDAT,

NETWR TYPE NETWR,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

POSNR TYPE POSNR,

MATNR TYPE MATNR,

MATWA TYPE MATWA,

END OF JTAB.

CONTROLS : TAB1 TYPE TABSTRIP.

CONTROLS : TABLE1 TYPE TABLEVIEW USING SCREEN '110'.

CONTROLS : TABLE2 TYPE TABLEVIEW USING SCREEN '120'.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

---

*& Module USER_COMMAND_0110 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0110 INPUT.

CASE SY-UCOMM.

WHEN 'SALES'.

SELECT VBELN ERDAT NETWR FROM VBAK INTO ITAB WHERE KUNNR = KNA1-KUNNR.

APPEND ITAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0110 INPUT

&----

---

*& Module STATUS_0110 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0110 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING ITAB TO VBAK.

ENDMODULE. " STATUS_0110 OUTPUT

&----

---

*& Module USER_COMMAND_0120 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0120 INPUT.

CASE SY-UCOMM.

WHEN 'ITEMS'.

SELECT POSNR MATNR MATWA FROM VBAP INTO JTAB .

APPEND JTAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0120 INPUT

&----

---

*& Module STATUS_0120 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0120 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING JTAB TO VBAP.

ENDMODULE. " STATUS_0120 OUTPUT

PLEASE SOLVE MY PROBLEM

THANKS IN ADVANCE.

[Former Member]

Change your code as below:

PROGRAM ZTABSTRIP.

TABLES : KNA1, VBAK, VBAP.

DATA : BEGIN OF ITAB OCCURS 0,

VBELN TYPE VBELN,

ERDAT TYPE ERDAT,

NETWR TYPE NETWR,

END OF ITAB.

DATA : BEGIN OF JTAB OCCURS 0,

POSNR TYPE POSNR,

MATNR TYPE MATNR,

MATWA TYPE MATWA,

END OF JTAB.

CONTROLS : TAB1 TYPE TABSTRIP.

CONTROLS : TABLE1 TYPE TABLEVIEW USING SCREEN '110'.

CONTROLS : TABLE2 TYPE TABLEVIEW USING SCREEN '120'.

&----

---

*& Module USER_COMMAND_0100 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

---

*& Module USER_COMMAND_0110 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0110 INPUT.

CASE SY-UCOMM.

WHEN 'SALES'.

SELECT VBELN ERDAT NETWR FROM VBAK INTO ITAB WHERE KUNNR = KNA1-KUNNR.

APPEND ITAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0110 INPUT

&----

---

*& Module STATUS_0110 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0110 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING ITAB TO VBAK.

<b>TAB1-ACTIVETAB = 'SALES'.</b> "Your Sales Tab name

ENDMODULE. " STATUS_0110 OUTPUT

&----

---

*& Module USER_COMMAND_0120 INPUT

&----

---

• text

----

---

MODULE USER_COMMAND_0120 INPUT.

CASE SY-UCOMM.

WHEN 'ITEMS'.

SELECT POSNR MATNR MATWA FROM VBAP INTO JTAB .

APPEND JTAB.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_0120 INPUT

&----

---

*& Module STATUS_0120 OUTPUT

&----

---

• text

----

---

MODULE STATUS_0120 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING JTAB TO VBAP.

<b>TAB1-ACTIVETAB = 'ITEMS'.</b> "Your Items tab name

ENDMODULE. " STATUS_0120 OUTPUT

Please mark points if the solution was useful.

Manoj

[Former Member]

DEAR MANOJ,

IT IS NOT BEEN GIVING ANY OUTPUT.

PLEASE GOTHROUGH YTHE CODE ONCE AGAINE.

[Former Member]

Set the correct screen number and the program name to the variables which you are using in the CALL SUBSCREEN statement.

Please reward if it helps.

Regards,

Manoj

[Former Member]

hi,

You have to activate the tabs and the screens which hold values.

in MODULE xxxxx INPUT.

use like this

MODULE USER_COMMAND_9003 INPUT.

CASE SY-UCOMM.

WHEN 'TAB1'.

MYTAB-ACTIVETAB = 'TAB1'.

SY-DYNNR = 9002.

WHEN 'TAB2'.

MYTAB-ACTIVETAB = 'TAB2'.

SY-DYNNR = 9003

ENDCASE.

ENDMODULE.

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

http://help.sap.com/saphelp_46c/helpdata/en/17/5bf1b52ba211d2954f0000e8353423/frameset.htm

check this program

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.

The screen flow logic for screen 100 is as follows:

PROCESS BEFORE OUTPUT.

MODULE STATUS_0100.

CALL SUBSCREEN: SUB1 INCLUDING SY-REPID '0110',

SUB2 INCLUDING SY-REPID '0120',

SUB3 INCLUDING SY-REPID '0130'.

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

CALL SUBSCREEN: SUB1,

SUB2,

SUB3.

MODULE USER_COMMAND.

<b>Reward Useful points</b>

Siva

Message was edited by:

SivaKumar