①BAPI_ACC_DOCUMENT_CHECK财务凭证过账前检查 CALL FUNCTION ‘BAPI_ACC_DOCUMENT_CHECK’ EXPORTING
DOCUMENTHEADER = HEADER_KJ * CUSTOMERCPD = * CONTRACTHEADER = TABLES
ACCOUNTGL = ITEM_KJ
ACCOUNTRECEIVABLE = CUS_KJ ACCOUNTPAYABLE = REC_KJ * ACCOUNTTAX =
CURRENCYAMOUNT = CUR_KJ * CRITERIA = RKEG_KJ * VALUEFIELD = * EXTENSION1 = RETURN = RESULT_KJ * PAYMENTCARD = * CONTRACTITEM =
EXTENSION2 = EXTENSION2 * REALESTATE = * ACCOUNTWT = .
②BAPI_ACC_DOCUMENT_POST财务过账 CALL FUNCTION ‘BAPI_ACC_DOCUMENT_POST’ EXPORTING
DOCUMENTHEADER = HEADER_KJ IMPORTING
OBJ_KEY = LC_KEY TABLES
ACCOUNTGL = ITEM_KJ
ACCOUNTRECEIVABLE = CUS_KJ ACCOUNTPAYABLE = REC_KJ CURRENCYAMOUNT = CUR_KJ * CRITERIA = RKEG_KJ EXTENSION2 = EXTENSION2 RETURN = RESULT_KJ.
③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
