ABAP-冲销凭证

FUNCTION zfii010.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(E_TYPE) TYPE  CHAR1
*"  TABLES
*"      XKOMFK STRUCTURE  KOMFK
*"----------------------------------------------------------------------
  DATA:ls_reversal LIKE bapiacrev,
       ls_obj      TYPE bapiacrev,
       lt_return   LIKE TABLE OF bapiret2,
       ls_return   LIKE bapiret2,
       l_error_msg TYPE string.
  READ TABLE xkomfk INTO DATA(ls_xkomfk) INDEX 1.
  SELECT SINGLE bukrs,awtyp,awkey,glvor,budat
    FROM bkpf
   WHERE xblnr EQ @ls_xkomfk-vbeln
     AND blart EQ 'SA'
     AND stblg EQ ''
     AND stjah EQ '0000'
   INTO @DATA(ls_bkpf) .
  IF sy-subrc = 0.

    ls_reversal-obj_type     = ls_bkpf-awtyp.
    ls_reversal-obj_key      = ls_bkpf-awkey.
    ls_reversal-obj_key_r    = ls_bkpf-awkey.
    ls_reversal-pstng_date   = ls_bkpf-budat.
    ls_reversal-fis_period   = ls_reversal-pstng_date+4(2).
    ls_reversal-comp_code    = ls_bkpf-bukrs.
    ls_reversal-reason_rev   = '03'.

    CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
      IMPORTING
        own_logical_system             = ls_reversal-obj_sys
      EXCEPTIONS
        own_logical_system_not_defined = 1
        OTHERS                         = 2.

    CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
      EXPORTING
        reversal = ls_reversal
        bus_act  = ls_bkpf-glvor "RFBU
      IMPORTING
        obj_type = ls_obj-obj_type
        obj_key  = ls_obj-obj_key
        obj_sys  = ls_obj-obj_sys
      TABLES
        return   = lt_return.
    "处理消息
    CLEAR:l_error_msg.
    LOOP AT lt_return INTO ls_return WHERE type CA 'EAX'.
      IF l_error_msg IS INITIAL.
        l_error_msg = ls_return-message.
*    ELSE.
*      CONCATENATE l_error_msg '/' ls_return-message INTO l_error_msg.
      ENDIF.
    ENDLOOP.
    IF l_error_msg IS INITIAL.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      e_type = 'E'.
    ENDIF.
    CLEAR:l_error_msg.

  ENDIF.
ENDFUNCTION.