TABLE CONTROL IN TAB STRIP CONTROL

[Former Member]

hi experts,

I have a problem with table control in tab strip control i have table control in first tab

and some text fields in second tab .

i enter data into table control in first tab and enter into second tab and i fill data into second tab also .

then i press save after filling data into these two tabs at that time table control data is not updating into corresponding table ,Because when the time we enter into second tab data in table control is cleared .

please give me a solution for this problem as early as possible.

Note : saving data is done after filling two tabs only.

Regards,

k.Rajesh.

[mahaboob_pathan]

Hi,

go through this code,

DIALOG PROGRAMMING

TABSTRIPS

IN SE51 FLOW LOGIC MAIN SCREEN

PROCESS BEFORE OUTPUT.

CALL SUBSCREEN PER_REF1 INCLUDING 'YMODULE_PR8' '0200'.

CALL SUBSCREEN SALE_REF1 INCLUDING 'YMODULE_PR8' '0300'.

• MODULE STATUS_0100.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

IN SE51 FLOW LOGIC FOR SCREEN 200. 1st TAB IN SUBSCREEN AREA.

PROCESS BEFORE OUTPUT.

• MODULE STATUS_0200.

PROCESS AFTER INPUT.

• MODULE USER_COMMAND_0200.

IN SE51 FLOW LOGIC FOR SCREEN 300. 2nd TAB IN SUBSCREEN AREA.

PROCESS BEFORE OUTPUT.

LOOP AT ITVBAK WITH CONTROL TABCTRL.

MODULE STATUS_0300.

ENDLOOP.

PROCESS AFTER INPUT.

• MODULE USER_COMMAND_0300.

LOOP AT ITVBAK.

ENDLOOP.

IN FLOW LOGIN OF MAIN SCREEN

PROGRAM YMODULE_PR8 .

TABLES : KNA1, VBAK.

DATA : BEGIN OF ITVBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

ERNAM LIKE VBAK-ERNAM,

NETWR LIKE VBAK-NETWR,

END OF ITVBAK.

CONTROLS : TABCTRL TYPE TABLEVIEW USING SCREEN 300,

TABSTRIP1 TYPE TABSTRIP.

*&----

---

*& Module STATUS_0300 OUTPUT

*&----

---

MODULE STATUS_0300 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

MOVE-CORRESPONDING ITVBAK TO VBAK.

ENDMODULE. " STATUS_0300 OUTPUT

*&----

---

*& Module USER_COMMAND_0100 INPUT

*&----

---

MODULE USER_COMMAND_0100 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'PERSONAL' OR SPACE.

SELECT * FROM KNA1

WHERE KUNNR = KNA1-KUNNR.

ENDSELECT.

TABSTRIP1-ACTIVETAB = 'PERSONAL'. ## TO ACTIVATE TABSTRIP & MAKE IT

FUNCTIONAL

WHEN 'SALES'.

SELECT VBELN ERDAT ERNAM NETWR

FROM VBAK

INTO TABLE ITVBAK

WHERE KUNNR = KNA1-KUNNR.

DESCRIBE TABLE ITVBAK LINES TABCTRL-LINES.

TABSTRIP1-ACTIVETAB = 'SALES'. ## TO ACTIVATE TABSTRIP & MAKE IT

FUNCTIONAL

ENDCASE.

ENDMODULE. " USER_COMMAND_0100

reward if usefull

[Former Member]

hi,

Do u append ur table control data in internal table?

<b>PROCESS AFTER INPUT</b>.

MODULE exit_0100 AT EXIT-COMMAND.

*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TAB1'

LOOP AT itab_det.

CHAIN.

• FIELD itab_det-comp_code.

FIELD itab_det-bill_no.

FIELD itab_det-bill_date.

FIELD itab_det-vend_cust_code.

FIELD itab_det-bill_amt.

MODULE <b>tab1_modify</b> ON CHAIN-REQUEST.

ENDCHAIN.

FIELD itab_det-mark

MODULE tab1_mark ON REQUEST.

ENDLOOP.

<b>MODULE tab1_modify INPUT.</b>

APPEND itab_det.

<b>ENDMODULE. "TAB1_MODIFY INPUT</b>