Events for changed entry in data dictionary

Question

Hi ,
I  have a requirement as mentioned below:
my table has four fields : 1. vkorg 2. validity_period 3. modification_date and 4. modification_time.
I have to capture the modification date and modification time if a user changes an entry (or entries) in the table and update the date and time fields in the table.  I have done it by creating an event "creating a new entry"which is triggered when a new entry is added to the table. But if an existing entry is modifies then the entry is not triggered. when I use  " before saving the data " event then only the last record of the table moves to the "Routine"  of the event. So I am not able to capture the date and time when an entry (or entries ) is modified.  Can anyone suggest me what I should do?
Regards
Amit kumar
Edited by: amitku1201 on Jan 15, 2010 3:05 PM

Answer 1

This question has been asked many times before. Please see:
*&      Form  FILL_SY_FIELDS                                    FISKROB
*       Add the creation date and userid if the line is being created.
*       Add the change date and userid if the line is being changed.
form fill_sy_fields.
  data: f_index like sy-tabix. "Index to note the lines found
  data begin of total_s.
          include structure zzv_my_tab.
  data action.
  data mark.
  data end of total_s.
  data extract_s like total_s.
  loop at total.
    if <action> = 'U'.
      move total to total_s.
      read table extract with key total.
      if sy-subrc eq 0.
        f_index = sy-tabix.
        extract_s = extract.
      else.
        clear f_index.
      endif.
*       (make desired changes to the line TOTAL)
      total_s-zzfchdate = sy-datum.
      total_s-zzfchusr  = sy-uname.
      move total_s to total.
      modify total.
      check f_index gt 0.
      extract = total.
      modify extract index f_index.
    elseif <action> = 'N'.
      move total to total_s.
      read table extract with key total.
      if sy-subrc eq 0.
        f_index = sy-tabix.
        extract_s = extract.
      else.
        clear f_index.
      endif.
*       (make desired changes to the line TOTAL)
      total_s-zzfcredate = sy-datum.
      total_s-zzfcreusr  = sy-uname.
      move total_s to total.
      modify total.
      check f_index gt 0.
      extract = total.
      modify extract index f_index.
    elseif total is initial.
      move total to total_s.
      read table extract with key total.
      if sy-subrc eq 0.
        f_index = sy-tabix.
        extract_s = extract.
      else.
        clear f_index.
      endif.
*       (make desired changes to the line TOTAL)
      delete total.
      check f_index gt 0.
      delete extract index f_index.
    endif.
  endloop.
  sy-subrc = 0.
endform.                    " FILL_SY_FIELDS
Rob
The link I posted earlier may not work now. The above code does.
Edited by: Rob Burbank on Jan 15, 2010 12:20 PM