Skip to Content
0
Former Member
Sep 19, 2005 at 04:35 AM

How to update the table control,

45 Views

Hi,

My table control is saving data in the database,

But i want it to display and update data in the database,

I am pasting my code which basically saves data,

Please help me out in updating & displaying data using this table cotnrol.

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

In PBO

MODULE ETABDM_TABCON OUTPUT.

LOOPS = SY-LOOPC.

READ TABLE IT_ZETABDM INDEX TABCON-CURRENT_LINE.

IF SY-SUBRC = 0.

ZETABDM-BDM = IT_ZETABDM-BDM.

ZETABDM-CNAME = IT_ZETABDM-CNAME.

ZETABDM-CITY = IT_ZETABDM-CITY.

ZETABDM-ETANO = IT_ZETABDM-ETANO.

ZETABDM-ISSUE_DATE = IT_ZETABDM-ISSUE_DATE.

ZETABDM-APPROVED_DATE = IT_ZETABDM-APPROVED_DATE.

ENDIF.

ENDMODULE.

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

In PAI

ODULE USER_COMMAND_9003 INPUT.

CASE OK_CODE.

WHEN 'SAVE'.

IF ZETABDM-BDM IS INITIAL.

MESSAGE E000(38) WITH 'Enter BDM'.

ELSE.

SELECT SINGLE * FROM PA0000

WHERE PERNR = ZETABDM-BDM

AND BEGDA LE SY-DATUM

AND ENDDA GE SY-DATUM

AND STAT2 EQ 3.

IF SY-SUBRC NE 0.

MESSAGE E000(38) WITH ZETABDM-BDM 'Enter Active Employee'.

ENDIF.

ENDIF.

LOOP AT IT_ZETABDM.

IT_ZETABDM-BDM = ZETABDM-BDM.

MODIFY IT_ZETABDM.

ENDLOOP.

MODIFY ZETABDM FROM TABLE IT_ZETABDM.

COMMIT WORK AND WAIT.

IF SY-SUBRC = 0.

MESSAGE S000(38) WITH 'Records updated sucessfully.'

ENDIF.

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

Thanks in advance

Irfan Hussain