"检查物料收货时无成本产生
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/