金色传说：SAP-ABAP-VK11/VK12/VK13保存时增强

一、业务需求/业务场景：
在维护销售价格(TCode：VK11/VK12)时，检查特定价格条件的价格等级必须维护，否则不能保存。

二、实现思路
优先考虑的实现方法是通过配置来实现，但由于本人更擅长ABAP，所以此次使用增强方式进行演示。(伟人名言：不管黑猫白猫，捉到老鼠的就是好猫)

三、实现基础
增强方式：SE19
增强点：SD_COND_SAVE_A

四、功能实现
1、创建增强实施：

2、创建实施类

3、功能实现
代码仅供参考，不当之处欢迎留言指正

 READ TABLE ct_vake INTO DATA(cs_vake) INDEX 1.
      IF cs_vake-kschl EQ 'ZR10'.
        IF ct_scale_new IS INITIAL.
          MESSAGE e003(zsd001)."提示价格等级必输
        ELSE.
          IF lines( ct_scale_new ) = 1.
            READ TABLE ct_scale_new INTO DATA(cs_scale_new0) WITH KEY updkz = 'D'."仅有一条且删除时
            IF sy-subrc = 0.
              MESSAGE e003(zsd001).
            ENDIF.
          ELSE.
            READ TABLE ct_scale_new INTO DATA(cs_scale_new) WITH KEY updkz = 'I'."做新增动作的
            READ TABLE ct_scale_new INTO DATA(cs_scale_new1) WITH KEY updkz = 'U'."做更新动作的
            READ TABLE ct_scale_new INTO DATA(cs_scale_new2) WITH KEY updkz = ''."不做修改的
            IF cs_scale_new IS INITIAL AND cs_scale_new1 IS INITIAL AND cs_scale_new2 IS INITIAL.
              MESSAGE e003(zsd001).
            ENDIF.
          ENDIF.

        ENDIF.
      ENDIF.

以上。

欢迎关注公众号，每日更新：