*&---------------------------------------------------------------------*
*& Report Z002
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z002.
DATA LV_HEADER TYPE BAPIACHE08. "凭证抬头
DATA LT_ITEM TYPE TABLE OF BAPIACGL08."凭证行项目-科目
DATA LT_CURR TYPE TABLE OF BAPIACCR08."凭证行项目-金额
DATA LT_RETURN TYPE TABLE OF BAPIRET2."返回
LV_HEADER-COMP_CODE = '8000'.
LV_HEADER-DOC_DATE = SY-DATUM.
LV_HEADER-PSTNG_DATE = SY-DATUM.
LV_HEADER-DOC_TYPE = 'SA'.
LV_HEADER-HEADER_TXT = 'this is bapi'.
LV_HEADER-USERNAME = SY-UNAME.
*借方科目 银行存款-工商银行1169
DATA WA_ITEM TYPE BAPIACGL08.
WA_ITEM-ITEMNO_ACC = '1'.
WA_ITEM-GL_ACCOUNT = '0010020400'.
WA_ITEM-COMP_CODE = '8000'.
WA_ITEM-PSTNG_DATE = SY-DATUM.
WA_ITEM-DOC_TYPE = 'SA'.
WA_ITEM-ITEM_TEXT = '银行取现'.
APPEND WA_ITEM TO LT_ITEM.
CLEAR WA_ITEM.
*贷方科目 银行存款-招商银行7785
WA_ITEM-ITEMNO_ACC = '2'.
WA_ITEM-GL_ACCOUNT = '0010020400'.
WA_ITEM-COMP_CODE = '8000'.
WA_ITEM-PSTNG_DATE = SY-DATUM.
WA_ITEM-DOC_TYPE = 'SA'.
WA_ITEM-ITEM_TEXT = '银行取现'.
APPEND WA_ITEM TO LT_ITEM.
CLEAR WA_ITEM.
DATA WA_CURR TYPE BAPIACCR08.
WA_CURR-ITEMNO_ACC = '1'.
WA_CURR-CURRENCY = 'CNY'.
WA_CURR-AMT_DOCCUR = '100.00'.
APPEND WA_CURR TO LT_CURR.
WA_CURR-ITEMNO_ACC = '2'.
WA_CURR-CURRENCY = 'CNY'.
WA_CURR-AMT_DOCCUR = '-100.00'.
APPEND WA_CURR TO LT_CURR.
CALL FUNCTION 'BAPI_ACC_GL_POSTING_POST'
EXPORTING
DOCUMENTHEADER = LV_HEADER
* IMPORTING
* OBJ_TYPE =
* OBJ_KEY =
* OBJ_SYS =
TABLES
ACCOUNTGL = LT_ITEM
CURRENCYAMOUNT = LT_CURR
RETURN = LT_RETURN
* EXTENSION1 =
.
if sy-subrc is initial.
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'.
COMMIT WORK AND WAIT.
endif.
if sy-subrc is initial.
DATA result type BAPIRET2.
READ TABLE lt_return INTO result INDEX 1.
write : / '创建成功',result-MESSAGE.
endif.
标签：ACC,BAPI,CURR,会计凭证,WA,HEADER,ITEM,LT,TYPE From： https://www.cnblogs.com/hua900822/p/17319810.html