Hola hay te envio el codigo , y me funciona ok
*... Aufruf des FB 'WS_REVERSE_GOODS_ISSUE'
CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
EXPORTING
I_VBELN = WVGBEL
I_BUDAT = WSTDAT
I_COUNT = COUNT
I_MBLNR = ''
I_TCODE = 'VL09'
I_VBTYP = WVBTYP
TABLES
T_MESG = XMESG
EXCEPTIONS
ERROR_REVERSE_GOODS_ISSUE = 1
OTHERS = 2.
*... Fehlermeldungen? - Dann Fehlertabelle (TMESG) aufbauen
IF NOT SY-SUBRC IS INITIAL.
MOVE CHARX TO STORNO_NOT_OK.
ENDIF.
*... Alles gut gelaufen? - Dann sichern!
IF SY-SUBRC IS INITIAL.
COMMIT WORK AND WAIT. "*--läuft hier extern
ENDIF.
|