MIR7增强105收货参考及参考日期（NBHX）

最新推荐文章于 2025-06-12 16:34:09 发布

Vince Chang

最新推荐文章于 2025-06-12 16:34:09 发布

阅读量2.4k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/zeewjj/article/details/7695048

这篇博客主要介绍了如何使用SAP的ABAP代码来更新MIR7中105类型收货的参考信息。通过调用函数模块'MMPUR_EKBE_ARRAY_READ'和'MMPUR_EKBE_READ_EBELN_EBELP'，以及自定义代码，针对特定工厂代码筛选并修改LFBNR和LFPOS字段。同时，利用'LMR1MF6O'修改了参考日期。最后，将更新后的数据导出到内存中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

se37:MMPUR_EKBE_ARRAY_READ 修改参考收货
se37:MMPUR_EKBE_READ_EBELN_EBELP修改参考收货

se37:LMR1MF6O修改参考日期

if sy-tcode eq 'MIR7'.
data ls_ekbe LIKE LINE OF lt_ekbe.
loop at lt_ekbe INTO ls_ekbe where bwart = '105' and ( werks =  '1001' or   werks =
'1005' or  werks =  '1000').
   ls_ekbe-LFBNR = ls_ekbe-BELNR.
      ls_ekbe-LFPOS = ls_ekbe-BUZEI.
      MODIFY lt_ekbe FROM ls_ekbe.
  ENDLOOP.

  loop at t_ekbe where bwart = '105' and ( werks =  '1001' or   werks =
'1005' or  werks =  '1000').
   t_ekbe-LFBNR = t_ekbe-BELNR.
      t_ekbe-LFPOS = t_ekbe-BUZEI.
      MODIFY t_ekbe.
  ENDLOOP.

  data mem_id(50).
CLEAR:mem_id.
CONCATENATE 'NBHX' sy-datum sy-uname INTO mem_id.
EXPORT table1 = t_ekbe to MEMORY id mem_id.
ENDIF.