BAPI-财务凭证相关 FI Document

①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

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.

⑤BAPI_ACC_GL_POSTING_POST财务过账 REPORT RODERICK.

DATA: DOCUMENTHEADER LIKE BAPIACHE08,

ACCOUNTGL LIKE BAPIACGL08 OCCURS 0 WITH HEADER LINE,

CURRENCYAMOUNT LIKE BAPIACCR08 OCCURS 0 WITH HEADER LINE, RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE, RETURN_ALL TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE. DATA: W_DMBTR TYPE BAPIWRBTR.

DATA: OBJ_TYPE LIKE BAPIACHE02-OBJ_TYPE, OBJ_KEY LIKE BAPIACHE02-OBJ_KEY, OBJ_SYS LIKE BAPIACHE02-OBJ_SYS. DATA P_SUBRC TYPE SY-SUBRC.

DOCUMENTHEADER-USERNAME = SY-UNAME.

DOCUMENTHEADER-HEADER_TXT = ‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’. DOCUMENTHEADER-COMP_CODE = ‘9900′. DOCUMENTHEADER-DOC_DATE = ‘20110126′. DOCUMENTHEADER-PSTNG_DATE = ‘20110126′. DOCUMENTHEADER-DOC_TYPE = ‘SA’. ACCOUNTGL-ITEMNO_ACC = 1.

ACCOUNTGL-GL_ACCOUNT = ‘1516139900′.

ACCOUNTGL-NETWORK = SPACE.”科目分配的网络号 ACCOUNTGL-ITEM_TEXT = ‘01行’.

ACCOUNTGL-ALLOC_NMBR = SPACE.”WBS 要素 ACCOUNTGL-PROFIT_CTR = ‘L990003001′. *ACCOUNTGL-RSTGR&, nbsp;= ‘B05′. APPEND ACCOUNTGL.

CURRENCYAMOUNT-ITEMNO_ACC = 1. CURRENCYAMOUNT-CURRENCY = ‘RMB’. CURRENCYAMOUNT-AMT_DOCCUR = 10. APPEND CURRENCYAMOUNT. ACCOUNTGL-ITEMNO_ACC = 2.

*ACCOUNTGL-GL_ACCOUNT = ‘1511010100′. ACCOUNTGL-NETWORK = SPACE.”科目分配的网络号 ACCOUNTGL-VENDOR_NO = ‘1200000010′. ACCOUNTGL-ITEM_TEXT = ‘01行’.

ACCOUNTGL-ALLOC_NMBR = SPACE.”WBS 要素 ACCOUNTGL-PROFIT_CTR = ‘L990003001′. *ACCOUNTGL-RSTGR = ‘B05′. APPEND ACCOUNTGL.

CURRENCYAMOUNT-ITEMNO_ACC = 2. CURRENCYAMOUNT-CURRENCY = ‘RMB’. CURRENCYAMOUNT-AMT_DOCCUR = 0 - 10. APPEND CURRENCYAMOUNT.

CHECK ACCOUNTGL[] IS NOT INITIAL. CHECK CURRENCYAMOUNT[] IS NOT INITIAL. CALL FUNCTION ‘BAPI_ACC_GL_POSTING_POST’ EXPORTING

DOCUMENTHEADER = DOCUMENTHEADER

IMPORTING

OBJ_TYPE = OBJ_TYPE OBJ_KEY = OBJ_KEY OBJ_SYS = OBJ_SYS TABLES

ACCOUNTGL = ACCOUNTGL

CURRENCYAMOUNT = CURRENCYAMOUNT RETURN = RETURN.

LOOP AT RETURN WHERE TYPE CA ‘EA’. EXIT. ENDLOOP.

本文来源：https://www.bwwdw.com/article/x19g.html