ME52N 采购申请保存增强
需求:审核状态下不允许新增行
目录
增强点
BADI增强:ME_PROCESS_REQ_CUST
此处用的是函数增强
MEREQ001
-EXIT_SAPLMEREQ_010
函数:EXIT_SAPLMEREQ_010
是保存增强
IF SY-TCODE = 'ME52N' OR SY-TCODE = 'ME54N' OR SY-TCODE = 'ME53N'.
READ TABLE IM_T_EBKN INTO DATA(WA_EBKN) INDEX 1 .
IF SY-SUBRC EQ 0.
SELECT COUNT(*) INTO @DATA(LV_COUNT) FROM EBAN WHERE BANFN = @WA_EBKN-BANFN.
IF SY-SUBRC EQ 0 AND LV_COUNT <> LINES( IM_T_EBAN ) .
LS_MESSAGES-TYPE = 'E'.
LS_MESSAGES-NUMBER = '000'.
LS_MESSAGES-ID = 'ZMM01'."消息类
LS_MESSAGES-ROW = SY-TABIX.
LS_MESSAGES-MESSAGE_V1 = '审核状态下不允许新增行!'.
APPEND LS_MESSAGES TO EX_MESSAGES.
RETURN.
ENDIF.
ENDIF.
ENDIF.