hi Sai,
u create tab strip in module pool prog in that u create a button
for update and when u click on that button u can fetch the required data from tbstrip-screen and update to the related database table,
ex:
PROGRAM ZB_DIALOG_PROGRAM5.
TABLES : LFA1,EKKO,EKPO.
DATA:BEGIN OF ITAB OCCURS 0,
EBELN LIKE EKKO-EBELN,
AEDAT LIKE EKKO-AEDAT,
ERNAM LIKE EKKO-ERNAM,
END OF ITAB.
DATA:BEGIN OF JTAB OCCURS 0,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
END OF JTAB.
*DATA:OK-CODE TYPE SY-UCOMM,
CONTROLS:TS TYPE TABSTRIP.
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
MODULE USER_COMMAND_0100 INPUT.
*CASE SY-UCOMM.
WHEN 'PORDER'.
DYNNR = '200'.
WHEN 'ITEM'.
DYNNR = '300'.
*
*
CASE SY-UCOMM.
WHEN 'DISPLAY'.
SELECT EBELN AEDAT ERNAM FROM EKKO INTO TABLE ITAB WHERE LIFNR = LFA1-LIFNR.
SELECT EBELP MATNR FROM EKPO INTO TABLE JTAB WHERE EBELN = EKPO-EBELN.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
&----
*& Module STATUS_0200 OUTPUT
&----
----
MODULE STATUS_0200 OUTPUT.
LOOP AT ITAB.
MOVE-CORRESPONDING ITAB TO EKKO.
ENDLOOP.
ENDMODULE. " STATUS_0200 OUTPUT
&----
*& Module STATUS_0300 OUTPUT
&----
----
MODULE STATUS_0300 OUTPUT.
EKPO-EBELN = EKKO-EBELN.
LOOP AT JTAB.
MOVE-CORRESPONDING JTAB TO EKPO.
ENDLOOP.
ENDMODULE. " STATUS_0300 OUTPUT
&----
*& Module STATUS_0100 OUTPUT
&----
----
MODULE STATUS_0100 OUTPUT.
*IF TS-ACTIVETAB IS INITIAL OR DYNNR IS INITIAL.
TS-ACTIVETAB = 'PORDER'.
DYNNR = '200'.
*
*
ENDMODULE. " STATUS_0100 OUTPUT.
the above is to display req list in particular tab strip.
like that u create a button and write code for that in PAI.
regards,
chandu.
Bluesky
