DEMO:MBST冲销物料凭证BAPI_GOODSMVT_CANCEL_SAP刘梦_新浪博客

REPORT  zdemo_mbst.

PARAMETERS p_mblnr TYPE bapi2017_gm_head_02-mat_doc.

PARAMETERS p_ebeln TYPE ebeln.

DATA:lt_ekbe TYPE TABLE OF ekbe.

DATA:ls_ekbe TYPE          ekbe.

DATA:lv_mblnr LIKE mseg-mblnr..

DATA:ls_goodsmvt_headret LIKE bapi2017_gm_head_ret.

DATA:lt_return LIKE TABLE OF   bapiret2.

DATA:ls_return LIKE            bapiret2.

DATA:ls_goodsmvt_pstng_date  TYPE  bapi2017_gm_head_02-pstng_date.

DATA:ls_goodsmvt_pr_uname    TYPE  bapi2017_gm_head_01-pr_uname.

CLEAR ls_goodsmvt_headret.

CLEAR lt_return[].

ls_goodsmvt_pstng_date = sy-datum.

ls_goodsmvt_pr_uname =  sy-uname.

"根据MIGO收货的采购订单，找到对应的收货凭证

IF p_mblnr IS INITIAL AND p_ebeln IS NOT INITIAL.

  SELECT * FROM ekbe INTO TABLE lt_ekbe

    WHERE ebeln = p_ebeln AND gjahr = sy-datum(4) AND bwart = '101'.

  SORT lt_ekbe BY belnr DESCENDING.

  READ TABLE lt_ekbe INTO ls_ekbe INDEX 1.

  p_mblnr = ls_ekbe-belnr.

ENDIF.

CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'

  EXPORTING

    materialdocument    = p_mblnr

    matdocumentyear     = sy-datum(4)

    goodsmvt_pstng_date = ls_goodsmvt_pstng_date

    goodsmvt_pr_uname   = ls_goodsmvt_pr_uname

  IMPORTING

    goodsmvt_headret    = ls_goodsmvt_headret

  TABLES

    return              = lt_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

  EXPORTING

    wait = 'X'.

WRITE ls_goodsmvt_headret-mat_doc.