ABAP BAPI程序DEMO

REPORT YYHD_BAPI_TEST.

DATA S_BAPIACHE09 TYPE BAPIACHE09.  "抬头行
DATA S_BAPIACGL09 TYPE BAPIACGL09.  "行信息
DATA T_BAPIACGL09 TYPE STANDARD TABLE OF BAPIACGL09.
DATA S_BAPIACCR09 TYPE BAPIACCR09.  "行内容
DATA T_BAPIACCR09 TYPE STANDARD TABLE OF BAPIACCR09.
DATA T_BAPIRET2 TYPE STANDARD TABLE OF BAPIRET2.

"抬头文本
S_BAPIACHE09-DOC_DATE = SY-DATUM.
S_BAPIACHE09-DOC_TYPE = 'SA'.
S_BAPIACHE09-COMP_CODE = '1001'.
S_BAPIACHE09-PSTNG_DATE = SY-DATUM.
S_BAPIACHE09-USERNAME = SY-UNAME.
S_BAPIACHE09-HEADER_TXT = 'BAPI测试'.

"第一行信息
S_BAPIACGL09-ITEMNO_ACC = '10'.
S_BAPIACGL09-GL_ACCOUNT = '2221010200'.
S_BAPIACGL09-PROFIT_CTR = '2001A00002'.
S_BAPIACGL09-TAX_CODE = 'X1'.
APPEND S_BAPIACGL09 TO T_BAPIACGL09.
"第一行内容
S_BAPIACCR09-ITEMNO_ACC = '10'.
S_BAPIACCR09-AMT_DOCCUR = 100.
S_BAPIACCR09-CURRENCY = 'CNY'.
APPEND S_BAPIACCR09 TO T_BAPIACCR09.

"第二行信息
S_BAPIACGL09-ITEMNO_ACC = '20'.
S_BAPIACGL09-GL_ACCOUNT = '2221010200'.
S_BAPIACGL09-PROFIT_CTR = '2001A00002'.
S_BAPIACGL09-TAX_CODE = 'X1'.
APPEND S_BAPIACGL09 TO T_BAPIACGL09.
"第二行内容
S_BAPIACCR09-ITEMNO_ACC = '20'.
S_BAPIACCR09-AMT_DOCCUR = -100.
S_BAPIACCR09-CURRENCY = 'CNY'.
APPEND S_BAPIACCR09 TO T_BAPIACCR09.




CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  EXPORTING
    DOCUMENTHEADER = S_BAPIACHE09
*   CUSTOMERCPD    =
*   CONTRACTHEADER =
* IMPORTING
*   OBJ_TYPE       =
*   OBJ_KEY        =
*   OBJ_SYS        =
  TABLES
    ACCOUNTGL      = T_BAPIACGL09
*   ACCOUNTRECEIVABLE       =
*   ACCOUNTPAYABLE =
*   ACCOUNTTAX     =
    CURRENCYAMOUNT = T_BAPIACCR09
*   CRITERIA       =
*   VALUEFIELD     =
*   EXTENSION1     =
    RETURN         = T_BAPIRET2
*   PAYMENTCARD    =
*   CONTRACTITEM   =
*   EXTENSION2     =
*   REALESTATE     =
*   ACCOUNTWT      =
  .
READ TABLE T_BAPIRET2 TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.

IF SY-SUBRC = 0.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

ENDIF.