控制物料无成本不允许入库或发料

出口增强：ZXMBCU02[@more@]

"检查物料收货时无成本产生
TABLES: MBEW.
DATA TEXT(100) TYPE C.
IF SY-TCODE <> 'MBST' AND SY-TCODE <> 'VL09'.
IF ( I_MSEG-KZBEW = 'F' OR I_MSEG-KZBEW = 'L' ) AND I_MSEG-WERKS = '1000'.
SELECT SINGLE VPRSV VERPR STPRS
FROM MBEW
INTO (MBEW-VPRSV,MBEW-VERPR,MBEW-STPRS)
WHERE BWKEY = '1000'
AND MATNR = I_MSEG-MATNR.
IF ( MBEW-VPRSV = 'V' AND MBEW-VERPR = '' ) OR ( MBEW-VPRSV = 'S' AND MBEW-STPRS = '' ).
CONCATENATE I_MSEG-LINE_ID+2(4) '行项目物料' I_MSEG-MATNR '未维护物料成本无法过帐!' INTO TEXT.
MESSAGE TEXT TYPE 'E'.
ENDIF.
* CLEAR: MBEW,I_MSEG.
ENDIF.

IF ( I_MSEG-KZBEW = 'F' OR I_MSEG-KZBEW = 'L' ) AND I_MSEG-WERKS = '2000'.
SELECT SINGLE VPRSV VERPR STPRS
FROM MBEW
INTO (MBEW-VPRSV,MBEW-VERPR,MBEW-STPRS)
WHERE BWKEY = '2000'
AND MATNR = I_MSEG-MATNR.
IF ( MBEW-VPRSV = 'V' AND MBEW-VERPR = '' ) OR ( MBEW-VPRSV = 'S' AND MBEW-STPRS = '' ).
CONCATENATE I_MSEG-LINE_ID+2(4) '行项目物料' I_MSEG-MATNR '未维护物料成本无法过帐!' INTO TEXT.
MESSAGE TEXT TYPE 'E'.
ENDIF.
* CLEAR: MBEW,I_MSEG.
ENDIF.
ENDIF.

"检查物料无成本不允许发料！
IF ( I_MSEG-BWART = '261' OR I_MSEG-BWART = '201' ) AND I_MSEG-WERKS = '1000'.
SELECT SINGLE VPRSV VERPR STPRS
FROM MBEW
INTO (MBEW-VPRSV,MBEW-VERPR,MBEW-STPRS)
WHERE BWKEY = '1000'
AND MATNR = I_MSEG-MATNR.
IF ( MBEW-VPRSV = 'V' AND MBEW-VERPR = '' ) OR ( MBEW-VPRSV = 'S' AND MBEW-STPRS = '' ).
CONCATENATE I_MSEG-LINE_ID+2(4) '行项目物料' I_MSEG-MATNR '无成本不允许发料!' INTO TEXT.
MESSAGE TEXT TYPE 'E'.
ENDIF.
* CLEAR: MBEW,I_MSEG.
ENDIF.

IF ( I_MSEG-BWART = '261' OR I_MSEG-BWART = '201' ) AND I_MSEG-WERKS = '2000' AND I_MSEG-MATNR+0(2) <> '18'.
SELECT SINGLE VPRSV VERPR STPRS
FROM MBEW
INTO (MBEW-VPRSV,MBEW-VERPR,MBEW-STPRS)
WHERE BWKEY = '2000'
AND MATNR = I_MSEG-MATNR.
IF ( MBEW-VPRSV = 'V' AND MBEW-VERPR = '' ) OR ( MBEW-VPRSV = 'S' AND MBEW-STPRS = '' ).
CONCATENATE I_MSEG-LINE_ID+2(4) '行项目物料' I_MSEG-MATNR '无成本不允许发料!' INTO TEXT.
MESSAGE TEXT TYPE 'E'.
ENDIF.
* CLEAR: MBEW,I_MSEG.
ENDIF.

E_SGTXT = I_MSEG-SGTXT. "保证文本内容能记录到表中

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/195776/viewspace-1027853/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/195776/viewspace-1027853/