Abap-sm30 check before deletion

Title

SM30 enhance - Verify before deleting

I published an article about SM30 Enhanced articles , Today is a little supplement ： Use EVENT To check before deleting

One

Method 1- Add events -EVENT

TCODE: SE54 Enter a view name , Then click environment -> event

Add serial number as 03 The entry of , Write the name of the routine that contains the check code

After the save , Click editor , Write code

explain ： There are several explanations for the following code ：

1. EXTRACT-MARK Field is X Indicates that the row is selected
2. The code in the text is dang CONTEXT = ' Standard order ' when ,MARK = SPACE, At the same time, a warning is given that deletion is not allowed
3. Pay attention to execution SM30 The program needs to be activated before the function , preservation SE54 Configuration of , And then quit , Running SM30（PS: I always keep it when testing , Activate program , Didn't quit SE54 Configuration interface , test SM30 Never , This led me to suspect that maintenance events 03 The function of checking before deleting cannot be realized ） FORM frm_before_delete

FIELD-SYMBOLS <field> TYPE any. FIELD-SYMBOLS <value> TYPE any. DATA ls_zvjxzhu TYPE zvjxzhu_01. DATA lv_message TYPE c. LOOP AT extract. ASSIGN COMPONENT 'MARK' OF STRUCTURE extract TO <field>. IF <field> IS ASSIGNED AND <field> IS NOT INITIAL. ASSIGN COMPONENT 'CONTEXT' OF STRUCTURE extract TO <value>. IF sy-subrc EQ 0 AND <value> = ' Standard order '. lv_message = 'X'. clear <field>. MODIFY extract. ENDIF. ENDIF. ENDLOOP. IF lv_message = 'X'. MESSAGE ' Standard orders cannot be deleted ' TYPE 'I' DISPLAY LIKE 'S'. ENDIF. ENDFORM.

Two

Method 2- Modify the code directly in the function group screen

For this method 2 Point description ：

1. VIM_MARKED Indicates whether to select this row
2. FUNCTION Is the current function button , Delete as 'DELE'

MODULE delete_before_check INPUT. DATA ls_zvjxzhu TYPE zvjxzhu_01. IF vim_marked NE space AND function = 'DELE'. IF zvjxzhu_01-context = ' Standard order '. CLEAR vim_marked. ENDIF. ENDIF. ENDMODULE.

The effect of the first method is shown in the figure below ： Click the delete button