wk_year = sy-datum+0(4).
concatenate '%' '%' '%' '%' wk_year into wk_year.
i guess u may be fetching the vendor details first based on a plant.
"instead of * give the appropriate field names.
select * from ekko into table itab
for all entries in it_vendor
where bedat like wk_year
and lifnr = it_vendor-lifnr.
if sy-subrc = 0.
sort itab ascending.
endif.
select * from ekko into table itab2
for all entries in it_vendor
and lifnr = it_vendor-lifnr.
if sy-subrc = 0.
sort itab2 ascending.
endif.
select * into itab3 from ekpo
for all entries in itab
where ebeln = itab-ebeln
and ebelp = itab-ebelp.
if sy-subrc = 0.
sort itab3 ascending.
loop at itab3.
if loekz <> 'L'.
itab3-vstatus = 'Active'.
else.
itab3-vstatus = 'Not Active'.
endif.
modify itab3 transporting status.
clear itab3.
endloop.
endif.
select * from ekpo into table iatb4
for all entries in itab2
where ebeln = itab2-ebeln
and ebelp = itab2-ebelp.
if sy-subrc = 0.
sort itab4 ascending.
loop at itab4.
if itab4-loekz = space and itab4-elikz = space.
itab4-status = 'PO active'.
modify itab4 transporting status.
clear itab4.
endif.
endif.
last read the tables and move it to final itab.This is just like a logical pseudocode...try the rest
Please Try to do it ur self...the forum is for solving the problems not to do the entire requirement.
Reward if useful.
regards.
Bluesky
