1 ACCEPTED SOLUTION
- SAP Managed Tags
I'm not 100% comfortable with this, but it is a start none the less. It works in my system, performance is tolerable, but when selecting on just a name, it could be really bad.
report zrich_0001 .
tables: kna1.
types: begin of ttab,
vbeln type vbrk-vbeln,
KUNAG type vbrk-kunag,
aubel type vbrp-aubel,
name1 type kna1-name1,
kunn2 type vbpa-kunnr,
name2 type kna1-name1,
end of ttab.
types: begin of tvbpa,
vbeln type vbpa-vbeln,
parvw type vbpa-parvw,
kunnr type vbpa-kunnr,
name1 type kna1-name1,
end of tvbpa.
data: ivbpa type table of tvbpa.
data: xvbpa like line of ivbpa.
data: itab type table of ttab.
data: wa like line of itab.
select-options: s_kunnrs for kna1-kunnr.
select-options: s_name1s for kna1-name1.
select-options: s_kunnrh for kna1-kunnr.
select-options: s_name1h for kna1-name1.
start-of-selection.
select vbrk~vbeln vbrk~kunag vbrp~aubel kna1~name1
into corresponding fields of table itab
from vbrk
inner join vbrp
on vbrk~vbeln = vbrp~vbeln
inner join kna1
on vbrk~KUNAG = kna1~kunnr
where vbrk~KUNAG in s_kunnrs
and kna1~name1 in s_name1s.
check not itab[] is initial.
sort itab ascending by vbeln aubel.
delete adjacent duplicates from itab.
select vbpa~vbeln vbpa~parvw vbpa~kunnr
kna1~name1
into table ivbpa
from vbpa
inner join kna1
on vbpa~kunnr = kna1~kunnr
for all entries in itab
where vbpa~vbeln = itab-aubel
and vbpa~kunnr in s_kunnrh
and vbpa~parvw = 'WE'
and kna1~name1 in s_name1h.
loop at itab into wa.
read table ivbpa into xvbpa with key vbeln = wa-aubel.
if sy-subrc <> 0.
delete itab index sy-tabix.
continue.
endif.
wa-kunn2 = xvbpa-kunnr.
wa-name2 = xvbpa-name1.
modify itab from wa index sy-tabix.
endloop.
Regards,
RIch Heilman
Bluesky