冲销物料凭证接口

最新推荐文章于 2024-02-01 17:29:51 发布

bear-X

最新推荐文章于 2024-02-01 17:29:51 发布

阅读量360

点赞数

分类专栏： ABAP 文章标签：物料凭证冲销

本文链接：https://blog.csdn.net/qq_32351761/article/details/79074884

版权

ABAP 专栏收录该内容

3 篇文章 1 订阅

订阅专栏

FUNCTION zbapi_goodsmvt_cancel.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(MATERIALDOCUMENT) TYPE  BAPI2017_GM_HEAD_02-MAT_DOC
*"     VALUE(MATDOCUMENTYEAR) TYPE  BAPI2017_GM_HEAD_02-DOC_YEAR
*"     VALUE(GOODSMVT_PSTNG_DATE) TYPE  BAPI2017_GM_HEAD_02-PSTNG_DATE
*"       OPTIONAL
*"     VALUE(GOODSMVT_PR_UNAME) TYPE  BAPI2017_GM_HEAD_01-PR_UNAME
*"       OPTIONAL
*"  EXPORTING
*"     VALUE(GOODSMVT_HEADRET) LIKE  BAPI2017_GM_HEAD_RET STRUCTURE
*"        BAPI2017_GM_HEAD_RET
*"  TABLES
*"      RETURN STRUCTURE  BAPIRET2
*"      GOODSMVT_MATDOCITEM STRUCTURE  BAPI2017_GM_ITEM_04 OPTIONAL
*"----------------------------------------------------------------------
  DATA lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.     "返回参数

  CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
    EXPORTING
      materialdocument    = materialdocument
      matdocumentyear     = matdocumentyear
      goodsmvt_pstng_date = goodsmvt_pstng_date
      goodsmvt_pr_uname   = goodsmvt_pr_uname
    IMPORTING
      goodsmvt_headret    = goodsmvt_headret
    TABLES
      return              = return
      goodsmvt_matdocitem = goodsmvt_matdocitem.

  lt_return[] = return[].
  DELETE lt_return WHERE type <> 'A' AND type <> 'E'  .
  IF lt_return[] IS INITIAL .
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

ENDFUNCTION.