FORM frm_good_cancle USING mblnr    TYPE mblnr

                          new_mblnr TYPE mblnr

                          u_date    TYPE sy-datum.

  DATA: li_goodsmvt_headret    TYPE bapi2017_gm_head_ret,

        li_goodsmvt_matdocitem TYPE TABLE OF bapi2017_gm_item_04 WITH HEADER LINE.

  DATA: i_return               TYPE TABLE OF bapiret2 WITH HEADER LINE.                

 

  CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'

    EXPORTING

      materialdocument    = mblnr        "物料凭证

      matdocumentyear     = u_date(4)    "年

      goodsmvt_pstng_date = u_date

      goodsmvt_pr_uname   = sy-uname

    IMPORTING

      goodsmvt_headret    = li_goodsmvt_headret

    TABLES

      return              = i_return

      goodsmvt_matdocitem = li_goodsmvt_matdocitem.

  new_mblnr = li_goodsmvt_headret-mat_doc. "新生成的凭证

  LOOP AT i_return WHERE type = ‘E'.

 

  ENDLOOP.

  IF sy-subrc = 0.

 

  ENDIF.

endform.