过滤冲销过的物料凭证
m_mbmps-smbln: 源物料凭证编号
m_mbmps-mblnr: 与smbln相对的冲销物料凭证
data: begin of it_smbln occurs 0,
smbln like m_mbmps-smbln ,
end of it_smbln.
IF it_mseg[] IS NOT INITIAL .
SELECT smbln
INTO TABLE it_smbln
FROM m_mbmps
FOR ALL ENTRIES IN it_mseg[]
WHERE smbln = it_mseg-mblnr.
ENDIF.
LOOP AT it_smbln.
DELETE it_mseg[] WHERE mblnr = it_smbln-smbln.
ENDLOOP.
评论