logo

您所在位置网站首页 > 海量文档  > 企划文宣(应用文书) > 商业策划

PO 审核增强-自己总结.docx 12页

本文档一共被下载: ,您可全文免费在线阅读后下载本文档。

  • 支付并下载
  • 收藏该文档
  • 百度一下本文档
  • 修改文档简介
全屏预览

下载提示

1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值,立即自动返金币,充值渠道很便利
物料组的审核策略:*&---------------------------------------------------------------------**& Include ZXM06U22*&---------------------------------------------------------------------**"----------------------------------------------------------------------*" IMPORTING*" VALUE(I_CEKKO) LIKE CEKKO STRUCTURE CEKKO*" VALUE(IT_BEKPO) TYPE MMPUR_BEKPO OPTIONAL*" VALUE(IT_BEKET) TYPE MMPUR_BEKET OPTIONAL*" VALUE(IT_EKKNU) TYPE MMPUR_EKKNU OPTIONAL*" EXPORTING*" VALUE(E_CEKKO) LIKE CEKKO STRUCTURE CEKKO*"----------------------------------------------------------------------DATA: WA_BEKPO type BEKPO.DATA: WA_MATKL LIKE EKPO-MATKL.* Material group: 1- only Material grp 1, 2- only Material grp 2, 3-include Material grp 1 & 2DATA: ZMAT_GROUP TYPE INTEGER.ZMAT_GROUP = 0.IF I_CEKKO-BSART = 'NB' OR I_CEKKO-BSART = 'ZNB'. LOOP AT IT_BEKPO into WA_BEKPO. CHECK WA_BEKPO-LOEKZ IS INITIAL.* SELECT MATKL INTO WA_MATKL FROM EKPO* WHERE EBELN = WA_BEKPO-EBELN.* IF WA_BEKPO-MATKL = '1101' OR WA_BEKPO-MATKL = '1102' OR WA_BEKPO-MATKL = '1103' OR WA_BEKPO-MATKL = '1201' OR WA_BEKPO-MATKL = '1202' OR WA_BEKPO-MATKL = '1203' OR WA_BEKPO-MATKL = '1301' OR WA_BEKPO-MATKL = '1302'* OR WA_BEKPO-MATKL = '1303' OR WA_BEKPO-MATKL = '1304' OR WA_BEKPO-MATKL = '1305' OR WA_BEKPO-MATKL = '1401' OR WA_BEKPO-MATKL = '1402' OR WA_BEKPO-MATKL = '1403' OR WA_BEKPO-MATKL = '1404' OR WA_BEKPO-MATKL = '1405'* OR WA_BEKPO-MATKL = '1406' OR WA_BEKPO-MATKL = '1407' OR WA_BEKPO-MATKL = '1408' OR WA_BEKPO-MATKL = '1409' OR WA_BEKPO-MATKL = '2001'. IF NOT ( WA_BEKPO-MATKL = '1001' OR WA_BEKPO-MATKL = '1002' ) . IF ZMAT_GROUP = 2. ZMAT_GROUP = 3. ENDIF. IF ZMAT_GROUP = 0. ZMAT_GROUP = 1. ENDIF. ENDIF. IF WA_BEKPO-MATKL = '1001' OR WA_BEKPO-MATKL = '1002'. IF ZMAT_GROUP = 1. ZMAT_GROUP = 3. ENDIF. IF ZMAT_GROUP = 0. ZMAT_GROUP = 2. ENDIF. ENDIF.* ENDSELECT. ENDLOOP. IF ZMAT_GROUP = 1. I_CEKKO-USRC1 = 'B0'. ENDIF. IF ZMAT_GROUP = 2 OR ZMAT_GROUP = 3. I_CEKKO-USRC1

发表评论

请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换图片

“原创力文档”前称为“文档投稿赚钱网”,本站为“文档C2C交易模式”,即用户上传的文档直接卖给(下载)用户,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有【成交的100%(原创)】。原创力文档是网络服务平台方,若您的权利被侵害,侵权客服QQ:3005833200 电话:19940600175 欢迎举报,上传者QQ群:784321556