想在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.
ifla