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

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.