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

總結

以上是生活随笔為你收集整理的SAP凭证冲销BAPI用法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。