反冲会计凭证:可以冲销自开发程序生成的凭证,必须传入交易码参数。

使用实例

DATA: L_BKPF TYPE TABLE OF bkpf WITH HEADER LINE.
DATA: REVERSAL TYPE BAPIACREV.
SELECT SINGLE * FROM BKPF INTO L_BKPF
 WHERE BUKRS = P_BUKRS
   AND BELNR = P_BELNR
   AND GJAHR = P_GJAHR.
REVERSAL-OBJ_TYPE = L_BKPF-AWTYP.
CONCATENATE IW_-BELNR IW_-BUKRS IW_-GJAHR INTO REVERSAL-OBJ_KEY_R.
REVERSAL-OBJ_KEY = REVERSAL-OBJ_KEY_R.
REVERSAL-OBJ_KEY = '$'.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
  IMPORTING
    OWN_LOGICAL_SYSTEM = REVERSAL-OBJ_SYS
  EXCEPTIONS
    OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
    OTHERS = 2.
REVERSAL-REASON_REV = '01'.  "原因"
REVERSAL-PSTNG_DATE = SY-DATUM.
CLEAR: RETURN.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
  EXPORTING
    REVERSAL       = REVERSAL
    BUS_ACT        = 'RFBU'
  IMPORTING
    OBJ_TYPE       = OBJTYPE
    OBJ_KEY        = OBJKEY
    OBJ_SYS        = OBJSYS
  TABLES
    RETURN         = RETURN.