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.