Events in Table Maintenance

Scenario: We have a following custom table which contains the fields “Date on which record was created” and “Name of the person who created the object”. We would like to have these to be filled up with SY-DATUM and SY-UNAME respectively.

Go to Table Maintenance Generator:

Enter the details as shown below:

Now click on Environment -> Modification -> Events

Following screen is displayed.

Click on F4. Following entries are displayed:

Here you can observe that there are different types of events available like before saving the data, after saving the data, before deleting, after deleting and others. Let us go with “Creating a new entry”.

Click on the button in the Editor column and enter the following code: (Please note that you should also code FORM and ENDFORM as well).

Save and activate the table.

Testing the scenario:

Go to SM30 and try creating new entries. Do not enter the values for “Created on” and “Created by”.

Check your entries in the database table. You can observe that the date and user name are automatically filled-in. See the screenshot below:

Using the Table Maintenance event you can populate those fields.

You need to use the event 01

FORM f_actions_event_01.
IF vim_abort_saving IS INITIAL.
* Update Change history fields
INCLUDE ZZFSAI086_UPD_CHG_HSTY .
ENDIF.
ENDFORM. " f_actions_event_01

include code

*&---------------------------------------------------------------------*
*& Include ZZFSAI086_UPD_CHG_HSTY
*&---------------------------------------------------------------------*

DATA:

lv_index1 TYPE sy-tabix, "Index for Table 'TOTAL'
lv_index2 TYPE sy-tabix, "Index for Table 'EXTRACT'
lr_data TYPE REF TO data, "Reference Data object
lv_action TYPE char1, "Variable for View action
lv_mark TYPE char1. "Variable for View mark

 

FIELD-SYMBOLS:

<lf_fval> TYPE ANY, "For field value
<ls_str> TYPE ANY, "For data string
<ls_xfrom> TYPE x, "Hexadecimal value of from value
<ls_xto> TYPE x. "Hexadecimal value of to value
* Dynamic creation of data object using the table name
CREATE DATA lr_data TYPE (x_header-viewname).
ASSIGN lr_data->* TO <ls_str>.

CLEAR: lv_index1, lv_index2, lr_data.
* Looping through all the records in the M.View
LOOP AT total.
CLEAR lv_index1.
lv_index1 = sy-tabix.
READ TABLE extract WITH KEY total.
IF sy-subrc EQ 0.
lv_index2 = sy-tabix.
ELSE.
CLEAR lv_index2.
ENDIF.
ASSIGN total TO <ls_xfrom> CASTING.
ASSIGN <ls_str> TO <ls_xto> CASTING.
<ls_xto> = <ls_xfrom>.
MOVE:
<action> TO lv_action,
<mark> TO lv_mark.
CASE <action>.
WHEN neuer_eintrag. " New entry
* If there is a new entry fill created by / date
ASSIGN COMPONENT 'CRNAM' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
<lf_fval> = sy-uname.
ENDIF.
ASSIGN COMPONENT 'CRDAT' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
<lf_fval> = sy-datum.
ENDIF.
* If Changed by / date have to be blanked out if e.g. an entry is
 copied
ASSIGN COMPONENT 'AENAM' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
CLEAR <lf_fval>.
ENDIF.

ASSIGN COMPONENT 'AEDAT' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
CLEAR <lf_fval>.
ENDIF.

WHEN aendern. "Updated entry
* Update to an existing entry fill in changed by / date
ASSIGN COMPONENT 'AENAM' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
<lf_fval> = sy-uname.
ENDIF.

ASSIGN COMPONENT 'AEDAT' OF STRUCTURE <ls_str> TO <lf_fval>.
IF sy-subrc = 0.
<lf_fval> = sy-datum.
ENDIF.
ENDCASE.

*(make desired changes to the line total)

* Changes to be incorporated only when update or new entry.
CHECK <action> EQ aendern OR <action> EQ neuer_eintrag.
CLEAR: total,extract.
ASSIGN <ls_str> TO <ls_xfrom> CASTING.
ASSIGN total TO <ls_xto> CASTING.
<ls_xto> = <ls_xfrom>.
MOVE :
lv_action TO <action>,
lv_mark TO <mark>.
CONCATENATE total lv_action lv_mark INTO total.
MODIFY total from total INDEX lv_index1.
* modify extract if this is necessary
CHECK lv_index2 GT 0.
extract = total.
MODIFY extract from extract INDEX lv_index2.
ENDLOOP.

Events in Table Maintenance

猜你喜欢