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

最新推荐文章于 2026-05-04 10:56:39 发布

原创最新推荐文章于 2026-05-04 10:56:39 发布 · 2.5k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

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

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.