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.
