点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

会计凭证冲销前检查

①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.