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.