REPORT ZBC400_10_VBAK .
data t_vbak like table of vbak with header line.
data t_vbap like table of vbap with header line.
PARAMETERS: p_DTIME like vbak-erdat.
select * from vbak into table t_vbak where erdat > p_DTIME order by
erdat.
if sy-subrc = 0.
loop at t_vbak.
write: / t_vbak-vbeln,
t_vbak-erdat,
t_vbak-erzet,
t_vbak-ernam.
hide: t_vbak-vbeln.
endloop.
endif.
at line-selection.
select * from vbap into table t_vbap where vbeln = t_vbak-vbeln.
if sy-subrc = 0.
loop at t_vbap.
write: / t_vbap-posnr,
t_vbap-matnr.
endloop.
endif.
转载于:https://www.cnblogs.com/elegantok/archive/2008/11/20/1337612.html