ABAPSM30删除前检查
原创 Tab Zhu [ SAP TAB ](javascript:void\(0\);)
**点击蓝字关注我们**
富强 民主 文明 和谐
自由 平等 公正 法制
爱国 敬业 诚信 友善
**不念过** **去**
**START**
**不畏将来**
**_Title_ **
**SM30增强-删除前校验**
之前发表过一篇关于SM30增强的文章，今天算是一点补充：使用EVENT来实现删除前的检查
**一**
**方法1-增加事件**-EVENT** **
TCODE: SE54 输入视图名称，然后点击环境->事件
添加序号为03的条目，写入包含检查代码的例程名称
保存后，点击编辑器，编写代码
说明：对于下面的代码主要有几点说明：
1. EXTRACT-MARK字段为X表示选中了该行
2. 文中代码为当CONTEXT = '标准订单'时，MARK = SPACE，同时报出警告不允许删除
3. 注意在执行SM30功能前需要激活程序，保存SE54的配置，然后退出，在运行SM30（PS:我在测试的时候一直都是保存，激活程序，没有退出SE54配置界面，测试SM30一直不行，导致我一度怀疑维护事件03不能实现删除前检查的功能）
FORM frm_before_deleteFIELD-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> = '标准订单' .
lv_message = 'X' .clear <field> .
MODIFY extract .
ENDIF .
ENDIF .
ENDLOOP .
IF lv_message = 'X' .MESSAGE '标准订单不允许删除' TYPE 'I' DISPLAY LIKE 'S' .
ENDIF .
ENDFORM .**二**
**方法2-直接在函数组屏幕过程中修改代码**
对于这个方法2点说明：
1. VIM_MARKED表示是否选择该行
2. FUNCTION为当前功能按钮，删除为'DELE'
MODULE delete_before_check INPUT .
DATA ls_zvjxzhu TYPE zvjxzhu_01 .
IF vim_marked NE space AND function = 'DELE' .
IF zvjxzhu_01 \- context = '标准订单' .CLEAR vim_marked .
ENDIF .
ENDIF .
ENDMODULE .第一种方法的效果如下图：点击删除按钮
**不念过** **去**
**END**
**不畏将来**
**SAP ABAP TAB**
微信号 : TAB_JXZHU
** 回复'ABAP'免费领取学习资料 **
长按二维码关注我们
