直接通过表AEOI和表AENR来获取物料版本
DATA : BEGIN OF IT_AEOI OCCURS 0,
OBJKT LIKE AEOI-OBJKT, "物料
REVLV LIKE AEOI-REVLV, "版本
DATUV LIKE AENR-DATUV, "有效日期
END OF IT_AEOI.
SELECT
AEOI~OBJKT
AEOI~REVLV
AENR~DATUV
FROM AEOI
JOIN AENR ON AENR~AENNR = AEOI~AENNR
INTO CORRESPONDING FIELDS OF TABLE IT_AEOI
WHERE OBJKT = GS_OUT-MATNR
AND AENR~LVORM = ''
AND AEOI~REVLV <> ''.
SORT IT_AEOI BY OBJKT DATUV DESCENDING.
"去重后的第一笔就是物料的当前版本
DELETE ADJACENT DUPLICATES FROM IT_AEOI COMPARING OBJKT.