*&---------------------------------------------------------------------*
*& Report ZLM_TEST_023
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zlm_test_023.
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.
