SAP MM ME21N保存前检查增强

想在ME21N保存前做一些数据检查，

可以做一个增强功能，

运行 CMOD 新增, 增强接口 输入 MM06E005 ( EXIT_SAPMM06E_012 ) ，在 NCLUDE ZXM06U43 . 里写代码功能。

例子如下：

*&---------------------------------------------------------------------*

*& 包括 ZXM06U43

*&---------------------------------------------------------------------*

TABLES: EKPO.

DATA: e_message(200) TYPE c.

DATA: SPSTYP LIKE EBAN-PSTYP.

DATA: SBANFN LIKE TEKPO-BANFN.

DATA: t_msg(200) TYPE c.

DATA: t_answer(1) TYPE c.

data: iflag type i.

IF I_EKKO-BSART = 'KSUB' OR I_EKKO-BSART = 'EUB'.

iflag = 0.

LOOP AT TEKPO.

SPSTYP = 0.

SBANFN = TEKPO-BANFN.

SELECT SINGLE * FROM EBAN WHERE BANFN = SBANFN.

IF SY-SUBRC = 0.

SPSTYP = EBAN-PSTYP.

ENDIF.

if SPSTYP = 3.

iflag = iflag + 1.

if iflag = 1.

CONCATENATE '注意:请购单' SBANFN INTO t_msg.

else.

CONCATENATE t_msg '/' SBANFN INTO t_msg.

endif.

endif.

ENDLOOP.

if iflag > 0.

CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'

EXPORTING

* DEFAULTOPTION = '1'

DIAGNOSETEXT1 = t_msg

* DIAGNOSETEXT2 = ' '

* DIAGNOSETEXT3 = ' '

TEXTLINE1 = '是: L 类型的请购单允许转为 U 类型的采购单'

TEXTLINE2 = '否: L 类型的请购单不允许转为 U 类型的采购单，先删除再保存'

* TEXTLINE3 = ' '

TEXT_OPTION1 = '是'

TEXT_OPTION2 = '否'

TITEL = '选择'

IMPORTING

ANSWER = t_answer.

IF t_answer = 2.

CONCATENATE '申请单:' SBANFN '是L类型，与当前类型不符！' INTO e_message.

message e_message type 'E'.

endif.

endif.

ENDIF.

这个功能会弹出一个用户选择的小窗口：



如果选择“是” ，系统会继续保存，“否” 则出现错误提示，不能保存。