SAP憑證沖銷BAPI用法
阿新 • • 發佈：2019-01-04
①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'
EXPORTINGREVERSAL = W_REVERSALBUS_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.