码迷,mamicode.com
首页 > 其他好文 > 详细

2020.05.07 【ABAP随笔】- ABAP-SM30删除前检查

时间:2020-05-07 01:01:32      阅读:101      评论:0      收藏:0      [点我收藏+]

标签:退出   ros   href   描述   写代码   editor   增强   关于   jpg   

之前发表过一篇关于SM30增强的文章

【ABAP随笔】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_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 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.

第一种方法的效果如下图:

技术图片

 

技术图片

【ABAP随笔】SM30常见增强操作-自动带描述

2020.05.07 【ABAP随笔】- ABAP-SM30删除前检查

标签:退出   ros   href   描述   写代码   editor   增强   关于   jpg   

原文地址:https://www.cnblogs.com/jxzhu/p/12839943.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!