*&---------------------------------------------------------------------*
*& Report ZZWASTOR *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZZWASTOR .
*********************************************************************
* If you do not know the material document of the goods issue any *
* more you can use transaction SE16. *
* - Type in table name MKPF *
* - Type in the delivery note number in field XBLNR (always with *
* leading zeroes) *
* - Execute *
* - The Material document number of the goods issue for the deleted *
* delivery will be shown. *
* *
* *
* *
* LF_BUDAT => Posting date for the reversal *
* LF_MJAHR => Posting year of the material document to reverse *
* LF_MBLNR => Goods issue document (with leading zeroes) *
* LF_VBELN => Delivery note number (with leading zeroes) *
* LF_TEST => When 'X' it is test mode only, otherwise GI will be *
* cancelled *
*********************************************************************
TABLES: MKPF, IMKPF, EMKPF, LIKP.
DATA: BEGIN OF IMSEG OCCURS 0.
INCLUDE STRUCTURE IMSEG.
DATA: END OF IMSEG.
DATA: BEGIN OF EMSEG OCCURS 0.
INCLUDE STRUCTURE EMSEG.
DATA: END OF EMSEG.
PARAMETERS: LF_BUDAT LIKE SY-DATLO DEFAULT SY-DATLO OBLIGATORY,
LF_MJAHR LIKE MKPF-MJAHR DEFAULT SY-DATLO(4) OBLIGATORY,
LF_MBLNR LIKE MKPF-MBLNR OBLIGATORY,
LF_VBELN LIKE LIKP-VBELN OBLIGATORY,
LF_TEST TYPE C DEFAULT 'X'.
DATA: MBLPO LIKE MSEG-ZEILE.
SELECT SINGLE * FROM MKPF WHERE MBLNR = LF_MBLNR
AND MJAHR = LF_MJAHR
AND XBLNR = LF_VBELN.
IF SY-SUBRC IS INITIAL.
CALL FUNCTION 'MB_CANCEL_GOODS_MOVEMENT'
EXPORTING
BUDAT = LF_BUDAT
MBLNR = LF_MBLNR
MBLPO = MBLPO
MJAHR = LF_MJAHR
TCODE = 'VL09'
CALLED_BY = 'VL09'
IMPORTING
EMKPF = EMKPF
TABLES
EMSEG = EMSEG
IMSEG = IMSEG
EXCEPTIONS
OTHERS = 1.
*... No error found, then it will be posted
IF EMKPF-SUBRC EQ 1.
IF LF_TEST IS INITIAL.
CALL FUNCTION 'MB_POST_GOODS_MOVEMENT'
EXPORTING
XBLNR_SD = LF_VBELN
IMPORTING
EMKPF = EMKPF
EXCEPTIONS
OTHERS = 0.
COMMIT WORK.
WRITE: / 'Goods movement was cancelled successfully with document:',
EMKPF-MBLNR.
ELSE.
WRITE: / 'Testmode: Goods movement could be cancelled !'.
ENDIF.
ELSE.
*... otherwise write an error-log
LOOP AT EMSEG.
WRITE: /
EMSEG-MSGID,
EMSEG-MSGNO,
EMSEG-MSGTY,
EMSEG-MSGV1,
EMSEG-MSGV2,
EMSEG-MSGV3,
EMSEG-MSGV4.
ENDLOOP.
WRITE: / EMKPF-MSGID,
EMKPF-MSGNO,
EMKPF-MSGTY,
EMKPF-MSGV1,
EMKPF-MSGV2,
EMKPF-MSGV3,
EMKPF-MSGV4.
ENDIF.
ELSE.
WRITE: / 'Material document to reverse does not exsist'.
ENDIF.
.