刪除一個material No.只對應一個 Manufacturer的代碼...
IF p_more IS NOT INITIAL.
DATA l_count TYPE i.
SORT it_result BY bmatn mfrnr.
CLEAR: it_result, l_count.
LOOP AT it_result.
ON CHANGE OF it_result-bmatn OR it_result-mfrnr.
l_count = l_count + 1.
ENDON.
AT END OF bmatn.
IF l_count = 1.
DELETE it_result WHERE bmatn = it_result-bmatn.
ENDIF.
CLEAR l_count.
ENDAT.
ENDLOOP.
ENDIF.
IF it_result[] IS INITIAL.
MESSAGE s398(00) WITH 'No data is available!'.
STOP.
ENDIF.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/90072/viewspace-971246/ ，如需转载，请注明出处，否则将追究法律责任。
