冲销交货单WS_REVERSE_GOODS_ISSUE详解编程语言

LOOP AT ITAB. 
AT END OF VBELN. 
PERFORM FRM_LOCK_DELIVERY(ZSDS0002) USING ITAB-VBELN. 
CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE' 
EXPORTING 
I_VBELN                   = ITAB-VBELN 
I_BUDAT                   = LV_BUDAT 
I_TCODE                   = 'VL09' 
I_VBTYP                   = 'J' 
TABLES 
T_MESG                    = LT_MESG 
EXCEPTIONS 
ERROR_REVERSE_GOODS_ISSUE = 1 
OTHERS                    = 2. 
IF SY-SUBRC =  0. 
COMMIT WORK. 
WRITE : / ITAB-VBELN, '冲销成功'. 
ELSE. 
WRITE : / ITAB-VBELN, '冲销失败'. 
ENDIF. 
ENDAT. 
ENDLOOP. 
***************************************************** 
FORM FRM_LOCK_DELIVERY  USING    P_DELIVERY. 
DATA : LV_TIME TYPE P DECIMALS 2 VALUE '0.50'. 
CHECK P_DELIVERY IS NOT INITIAL. 
DO 10 TIMES. 
CALL FUNCTION 'ENQUEUE_EVVBLKE' 
EXPORTING 
VBELN          = P_DELIVERY 
EXCEPTIONS 
FOREIGN_LOCK   = 1 
SYSTEM_FAILURE = 2 
OTHERS         = 3. 
IF SY-SUBRC <> 0. 
* Implement suitable error handling here 
ENDIF. 
IF SY-SUBRC EQ 0. 
CALL FUNCTION 'DEQUEUE_EVVBLKE' 
EXPORTING 
MODE_LIKP = 'E' 
MANDT     = SY-MANDT 
VBELN     = P_DELIVERY 
X_VBELN   = ' ' 
_SCOPE    = '3' 
_SYNCHRON = ' ' 
_COLLECT  = ' '. 
EXIT. 
ELSE. 
WAIT UP TO LV_TIME SECONDS. 
ENDIF. 
ENDDO. 
ENDFORM.                    " FRM_LOCK_DELIVERY