Code: Alles auswählen.
types: begin of itab1,
pernr like pa0001-pernr,
ename like pa0001-ename,
kostl like pa0315-kostl,
lstar like pa0315-lstar,
werks like pa0315-werks,
begda like pa0315-begda.
types: end of itab1.
data: itab_data type table of itab1.
data: wa_data type itab1.
Loop at itab_data into wa_data.
Select a~ename b~kostl b~lstar b~werks max( b~begda )
into corresponding fields of wa_data
from pa0001 as a
join pa0315 as b on b~pernr eq a~pernr
where a~pernr eq wa_data-pernr
group by a~ename b~kostl b~lstar b~werks b~begda.
Code: Alles auswählen.
SELECT a~ename b~kostl b~lstar b~werks b~begda
INTO CORRESPONDING FIELDS OF wa_data
FROM pa0001 AS a
JOIN pa0315 AS b ON b~pernr EQ a~pernr
WHERE a~pernr EQ wa_data-pernr
AND b~begda = ( SELECT MAX( begda ) FROM pa0315
WHERE pernr = a~pernr )
GROUP BY a~ename b~kostl b~lstar b~werks b~begda.
endselect.