SAP凭证冲销BAPI用法

①BAPI_ACC_DOCUMENT_REV_CHECK会计凭证冲销前检查------------------------------------
REPORT RODERICK.

TABLES: BKPF.
DATA P_BUKRS TYPE BUKRS VALUE '9900'.
DATA P_BELNR TYPE BSEG-BELNR VALUE '0100000335'.
DATA P_GJAHR TYPE BSEG-GJAHR VALUE '2011'.
DATA P_BUDAT TYPE BKPF-BUDAT VALUE '20110126'.
DATA:P_AWKEY TYPE AWKEY.
DATA P_SUBRC TYPE SY-SUBRC.

DATA: W_BELNR TYPE BELNR_D,
W_REVERSAL TYPE BAPIACREV,
WT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_RETURN TYPE BAPIRET2.

CLEAR P_SUBRC.

SELECT SINGLE * FROM BKPF
WHERE BUKRS EQ P_BUKRS AND BELNR EQ P_BELNR
AND GJAHR EQ P_GJAHR.
*
CHECK BKPF-BLART = 'SA'.
SY-UNAME = BKPF-USNAM.
* CONCATENATE W_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY.
W_REVERSAL-OBJ_TYPE = BKPF-AWTYP.
CONCATENATE P_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = '$'.

CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
OWN_LOGICAL_SYSTEM = W_REVERSAL-OBJ_SYS
EXCEPTIONS
OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
OTHERS = 2.

W_REVERSAL-REASON_REV = '01'.
W_REVERSAL-PSTNG_DATE = P_BUDAT.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_CHECK'
EXPORTING
REVERSAL = W_REVERSAL
BUS_ACT = 'RFBU'
TABLES
RETURN = WT_RETURN.

BREAK-POINT.

LOOP AT WT_RETURN INTO WA_RETURN WHERE TYPE CA 'EA'.
P_SUBRC = 4.
EXIT.
ENDLOOP.

②BAPI_ACC_DOCUMENT_REV_POST会计凭证冲销-------------------------------------
REPORT RODERICK.

TABLES: BKPF.
DATA P_BUKRS TYPE BUKRS VALUE '9900'.
DATA P_BELNR TYPE BSEG-BELNR VALUE '0100000335'.
DATA P_GJAHR TYPE BSEG-GJAHR VALUE '2011'.
DATA P_BUDAT TYPE BKPF-BUDAT VALUE '20110126'.
DATA P_AWKEY TYPE AWKEY.
DATA P_SUBRC TYPE SY-SUBRC.

DATA: W_BELNR TYPE BELNR_D,
W_REVERSAL TYPE BAPIACREV,
WT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_RETURN TYPE BAPIRET2.

CLEAR P_SUBRC.

SELECT SINGLE * FROM BKPF
WHERE BUKRS EQ P_BUKRS AND BELNR EQ P_BELNR
AND GJAHR EQ P_GJAHR.
*
CHECK BKPF-BLART = 'SA'.
SY-UNAME = BKPF-USNAM.
* CONCATENATE W_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY.
W_REVERSAL-OBJ_TYPE = BKPF-AWTYP.
CONCATENATE P_BELNR P_BUKRS P_GJAHR INTO W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = W_REVERSAL-OBJ_KEY_R.
W_REVERSAL-OBJ_KEY = '$'.

CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
OWN_LOGICAL_SYSTEM = W_REVERSAL-OBJ_SYS
EXCEPTIONS
OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
OTHERS = 2.

W_REVERSAL-REASON_REV = '01'.
W_REVERSAL-PSTNG_DATE = P_BUDAT.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
EXPORTING
REVERSAL = W_REVERSAL BUS_ACT = 'RFBU'
IMPORTING
* OBJ_TYPE =
OBJ_KEY = P_AWKEY
* OBJ_SYS =
TABLES
RETURN = WT_RETURN.
LOOP AT WT_RETURN INTO WA_RETURN WHERE TYPE CA ‘EA’.
P_SUBRC = 4.
EXIT.
ENDLOOP.