matinal：SAP ABAP MR8M冲销发票BAPI

最新推荐文章于 2024-08-20 08:57:54 发布

SAPmatinal

最新推荐文章于 2024-08-20 08:57:54 发布

阅读量248

点赞数

分类专栏： ABAP技术文章标签：前端 javascript linux 服务器开发语言数据库

本文链接：https://blog.csdn.net/SAPmatinal/article/details/132837684

版权

ABAP技术专栏收录该内容

1028 篇文章 135 订阅

订阅专栏

DATA:gv_number  TYPE bapi_incinv_fld-inv_doc_no,
     gv_year    TYPE bapi_incinv_fld-fisc_year,
     gv_number1 TYPE bapi_incinv_fld-inv_doc_no,
     gv_year1   TYPE bapi_incinv_fld-fisc_year,
     gt_return  TYPE TABLE OF bapiret2,
     gs_return  TYPE bapiret2,
     zmsg type char255 .

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CANCEL'
      EXPORTING
        invoicedocnumber          = gv_number "凭证号
        fiscalyear                = gv_year   "年度
        reasonreversal            = '03'
        postingdate               = sy-datum
      IMPORTING
        invoicedocnumber_reversal = gv_number1
        fiscalyear_reversal       = gv_year1
      TABLES
        return                    = gt_return.

    IF gv_number1 IS NOT INITIAL .

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

   ELSE .

      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      LOOP AT gt_return INTO gs_return WHERE type = 'E' .
        IF zmsg IS INITIAL .
          zmsg = gs_return-message .
        ELSE .
          zmsg = gs_return-message && '/' && zmsg .
        ENDIF .
      ENDLOOP .

    ENDIF .