Populating custom tables via Table Events.

Question

Hi  ,
I have a ztable having the following fields:
MANDT
FAREA
REVID
NAME
EMAIL
Out of this fields I need to populate the field REVID  and EMAIL from two standard table USR21 and ADR6.
Like if I  enter user id and hit enter  tab, then the fields like  email address will automatically be fetched from given tables and populated
I found that via tablemaintenance --> events this can be done.
Can you please suggest as to how to proceed with the coding...do I have to use Select from those standard tables and then pass it to the ztable.
Please help.
Thanks,
Suchi.

Answer 1

I have created  a event via the table maintenance generator-environment events.
I have used 05-- create new entry as the event code and inserted the following code :
FORM zat_newentry.
  TYPES : BEGIN OF ty_requester,
          bname      TYPE usr21-bname ,
          persnumber TYPE usr21-persnumber,
          addrnumber TYPE usr21-addrnumber,
          END OF ty_requester,
          BEGIN OF ty_addreq,
          persnumber TYPE adr6-persnumber,
          addrnumber TYPE adr6-addrnumber,
          smtp_addr TYPE adr6-smtp_addr,
          END OF ty_addreq.
  DATA : i_requester TYPE STANDARD TABLE OF ty_requester WITH HEADER LINE,
         i_addreq TYPE STANDARD TABLE OF ty_addreq WITH HEADER LINE.
  SELECT bname
         persnumber
         addrnumber
         FROM usr21
    INTO TABLE i_requester
    WHERE bname = zinf_reviewer-rev.
  IF i_requester[] IS NOT INITIAL.
    SELECT persnumber
           addrnumber
           smtp_addr
           FROM adr6
           INTO TABLE i_addreq
           FOR ALL ENTRIES IN i_requester
           WHERE persnumber = i_requester-persnumber
           AND addrnumber = i_requester-addrnumber .
  ENDIF.
  zinf_reviewer-rev = i_requester-bname.
  zinf_reviewer-email = i_addreq-smtp_addr.
endform.
But while trying to create a new entry I am getting the error message saying : "An entry with the key already exists".
Please suggest.