3、CCOUNTPAYABLE = REC_KJCURRENCYAMOUNT = CUR_KJ* CRITERIA = RKEG_KJEXTENSION2 = EXTENSION2RETURN = 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 V
4、ALUE ‘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 BKPFWHERE BUKRS EQ P_BUKR
5、S AND BELNR EQ P_BELNRAND 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
6、.W_REVERSAL-OBJ_KEY = ‘$’.CALL FUNCTION ‘OWN_LOGICAL_SYSTEM_GET’IMPORTINGOWN_LOGICAL_SYSTEM = W_REVERSAL-OBJ_SYSEXCEPTIONSOWN_LOGICAL_SYSTEM_NOT_DEFINED = 1OTHERS = 2.W_REVERSAL-REASON_REV = ‘01′.W_REVERSAL-PSTNG_DATE = P_BUDAT.CALL FUNCTION ‘BAPI_ACC_DOCUMENT_REV_CHECK’EXPORTINGREVERSAL
7、 = W_REVERSALBUS_ACT = ‘RFBU’TABLESRETURN = 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