Zak Delivery Summary Rept
Zak Delivery Summary Rept
tables : likp.
*-- Delivery Header
types : begin of t_likp,
vbeln type vbeln_vl, "Document Number
vkorg type vkorg, "Sales Organisation
lfart type lfart, "Delivery Type
lfdat type lfdat_v, "Delivery Date
kunnr type kunwe, "Ship to Party
end of t_likp.
*- Delivery Item
types : begin of t_lips,
vbeln type vbeln_vl, "Delivery Number
posnr type posnr_vl, "Delivery Item
matnr type matnr, "Material Number
lfimg type lfimg, "Actual Quantity Delivered
end of t_lips.
start-of-selection.
*Populate delivery data from LIKP
clear lw_likp.
refresh lt_likp.
select
vbeln
vkorg
lfart
lfdat
kunnr
into table lt_likp
from likp
where vbeln in s_vbeln.
if sy-subrc eq 0.
*Populate delivery data from LIPS
clear lw_lips.
refresh lt_lips.
select
vbeln
posnr
matnr
lfimg
from lips
into table lt_lips
for all entries in lt_likp
where vbeln = lt_likp-vbeln.
else.
message e001(zak).
endif.
end-of-selection.