BAPI-财务凭证相关 FI Document

《BAPI-财务凭证相关 FI Document》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、①BAPI_ACC_DOCUMENT_CHECK财务凭证过账前检查CALL FUNCTION ‘BAPI_ACC_DOCUMENT_CHECK’EXPORTINGDOCUMENTHEADER = HEADER_KJ* CUSTOMERCPD =* CONTRACTHEADER =TABLESACCOUNTGL = ITEM_KJACCOUNTRECEIVABLE = CUS_KJACCOUNTPAYABLE = REC_KJ* ACCOUNTTAX =CURRENCYAMOUNT = CUR_KJ* CRITERIA = RKEG_KJ* VALUEFIELD =* E

2、XTENSION1 =RETURN = RESULT_KJ* PAYMENTCARD =* CONTRACTITEM =EXTENSION2 = EXTENSION2* REALESTATE =* ACCOUNTWT =.②BAPI_ACC_DOCUMENT_POST财务过账CALL FUNCTION ‘BAPI_ACC_DOCUMENT_POST’EXPORTINGDOCUMENTHEADER = HEADER_KJIMPORTINGOBJ_KEY = LC_KEYTABLESACCOUNTGL = ITEM_KJACCOUNTRECEIVABLE = CUS_KJA

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