ABAP-MIGO物料标准价为0过账增强限制

 1 *二代增强
 2 *MBCF0002
 3 *EXIT_SAPMM07M_001
 4 
 5 IF i_mseg-bwart <> '' AND i_mseg-vprsv = 'S' .
 6 
 7   SELECT SINGLE matnr
 8     INTO @DATA(ls_matnr)
 9     FROM ztfico_002
10     WHERE matnr = @i_mseg-matnr
11     AND werks = @i_mseg-werks .
12 
13   IF ls_matnr IS INITIAL .
14 
15     SELECT SINGLE bwkey
16       FROM mbew
17       WHERE bwkey = @i_mseg-werks
18       AND matnr = @i_mseg-matnr
19       AND vprsv = 'S'
20       AND ( stprs = '0' OR stprs IS INITIAL )
21       INTO @DATA(ls_werks).
22 
23     IF ls_werks IS NOT INITIAL .
24 
25       MESSAGE e000(zmesg) WITH i_mseg-werks .
26 
27     ENDIF .
28 
29   ENDIF .
30 
31 ENDIF .
32 
33 *抬头文本传出，不然抬头文本会变空
34 e_sgtxt = i_mseg-sgtxt.

标签：werks,matnr,mseg,INITIAL,MIGO,标准价,过账,ls,ENDIF
来源： https://www.cnblogs.com/TigerMan/p/16521336.html