===========================================================
ON CHANGE OF 的用法
===========================================================
作者: qiujun(http://qiujun.itpub.net)
发表于:2007.09.24 11:55
分类: ABAP
出处：http://qiujun.itpub.net/post/24006/398409
---------------------------------------------------------------
发表于:2007.09.24 11:55
分类: ABAP
出处：http://qiujun.itpub.net/post/24006/398409
---------------------------------------------------------------
刪除一個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.