
!'*&---------------------------------------------------------------------*
*& Report ZTEST
*&---------------------------------------------------------------------*
*& Test program to park document using BAPI_ACC_DOCUMENT_POST
*&---------------------------------------------------------------------*
REPORT ZTEST.
* Work Areas
DATA: gs_documentheader TYPE bapiache09 ##NEEDED,
gs_accountpayable TYPE bapiacap09 ##NEEDED,
gs_currencyamount TYPE bapiaccr09 ##NEEDED,
gv_obj_key TYPE awkey ##NEEDED,
gs_err_tab TYPE bapi_msg ##NEEDED,
gs_return_format TYPE bapiret2 ##NEEDED.
* Tables
DATA: gt_documentheader TYPE STANDARD TABLE OF bapiache09 ##NEEDED,
gt_accountpayable TYPE STANDARD TABLE OF bapiacap09 ##NEEDED,
gt_currencyamount TYPE STANDARD TABLE OF bapiaccr09 ##NEEDED,
gt_return TYPE STANDARD TABLE OF bapiret2 ##NEEDED.
* Fill header structure
gs_documentheader-bus_act = 'RFBV'. "Business Transaction set as per SAP Note 2092366
gs_documentheader-username = sy-uname. "User name
gs_documentheader-header_txt = 'TEST'. "Document Header Text
gs_documentheader-comp_code = 'BEN0'. "Company Code - To be changed!
gs_documentheader-doc_date = sy-datum. "Document Date in Document
gs_documentheader-trans_date = sy-datum. "Translation Date
gs_documentheader-pstng_date = sy-datum. "Posting Date in the Document
gs_documentheader-doc_type = 'KR'. "Document Type - To be changed!
gs_documentheader-ref_doc_no = 'TEST'. "Reference
gs_documentheader-doc_status = '2'. "Document status set as per SAP Note 2092366
APPEND gs_documentheader TO gt_documentheader.
* Fill vendor structure
gs_accountpayable-itemno_acc = '0001'. "Accounting Document Line Item Number
gs_accountpayable-vendor_no = '0000895746'. "Account Number of Vendor or Creditor - To be changed!
gs_accountpayable-partner_bk = '0001'. "Partner Bank Type - To be changed!
gs_accountpayable-pmnttrms = '00AA'. "Terms of Payment Key - To be changed!
gs_accountpayable-pmnt_block = ''. "Payment block key
gs_accountpayable-pymt_meth = ''. "Payment method
gs_accountpayable-comp_code = 'BEN0'. "Company Code - To be changed!
APPEND gs_accountpayable TO gt_accountpayable.
* Fill amount structure
gs_currencyamount-itemno_acc = '0001'. "Accounting Document Line Item Number
gs_currencyamount-curr_type = '00'. "Currency Type and Valuation View
gs_currencyamount-currency = 'EUR'. "Currency Key
gs_currencyamount-amt_doccur = '1000.00'. "Amount
APPEND gs_currencyamount TO gt_currencyamount.
* Call BAPI to park the document
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
documentheader = gs_documentheader
IMPORTING
obj_key = gv_obj_key
TABLES
accountpayable = gt_accountpayable
currencyamount = gt_currencyamount
return = gt_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'. "Set flag for wait for so that commit happens successfully
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
3 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 |