ABAP-MR8M冲销发票BAPI

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 .