*----------------------------------------------------------------------*
* INCLUDE ZRSD_PCEBG_KOMPAZ *
*----------------------------------------------------------------------*
*** add on by five 20100315
IF SY-MANDT = '207' OR SY-MANDT = '307'
OR SY-MANDT = '707' OR SY-MANDT = '807'.
TKOMP-ZZKDMAT = VBAP-KDMAT .
ENDIF.
****20100315
*----------------------------------------------------------------------*
* INCLUDE ZRSD_PBECG_BILL_PRICE_0001 *
*----------------------------------------------------------------------*
IF SY-MANDT = '207' OR SY-MANDT = '307'
OR SY-MANDT = '707' OR SY-MANDT = '807'.
DATA:TKDMAT LIKE VBAP-KDMAT.
SELECT * FROM LIPS
WHERE VBELN = TKOMP-VGBEL
AND POSNR = TKOMP-KPOSN.
SELECT SINGLE KDMAT INTO TKDMAT FROM VBAP
WHERE VBELN = LIPS-VGBEL
AND POSNR = LIPS-VGPOS.
IF SY-SUBRC = 0 .
TKOMP-ZZKDMAT = TKDMAT .
ENDIF.
ENDSELECT.
ENDIF.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/14397246/viewspace-666228/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/14397246/viewspace-666228/
本文介绍了一种在ABAP中处理特定条件下物料代码的方法。通过检查系统参数SY-MANDT来确定是否执行附加逻辑,并从销售订单中获取物料代码进行后续处理。
304

被折叠的 条评论
为什么被折叠?



