嗨，Melikşah，

请找到一个测试程序，该程序在我正在使用的SAP环境中创建一个停放的文档

 *＆------------------------------------  --------------------------------- *

 *＆报告ZTEST

 *＆------------------------------------------------  --------------------- *

 *＆测试程序，以使用BAPI_ACC_DOCUMENT_POST存放文档

 *＆------------------------------------------------  --------------------- *

 报告ZTEST。



 *工作区

 数据：gs_documentheader TYPE bapiache09 ## NEEDED，

       gs_accountpayable TYPE bapiacap09 ## NEEDED，

       gs_currencyamount TYPE bapiaccr09 ## NEEDED，

       gv_obj_key TYPE密钥## NEEDED，

       gs_err_tab TYPE bapi_msg ## NEEDED，

       gs_return_format类型bapiret2 ## NEEDED。



 *桌子

 数据：bapiache09 ## NEEDED的gt_documentheader类型标准表，

       gt_accountpayable类型标准表bapiacap09 ##需要，

       gt_currencyamount类型标准表bapiaccr09 ## NEEDED，

       gt_return bapiret2的标准类型表## NEEDED。



 *填充标题结构

   gs_documentheader-bus_act ='RFBV'。"根据SAP注释2092366设置的业务交易

   gs_documentheader-username = sy-uname。"用户名

   gs_documentheader-header_txt ='TEST'。"文档标题文本

   gs_documentheader-comp_code ='BEN0'。"公司代码

   gs_documentheader-doc_date = sy-datum。"文档中的文档日期

   gs_documentheader-trans_date = sy-datum。"翻译日期

   gs_documentheader-pstng_date = sy-datum。"文档中的过帐日期

   gs_documentheader-doc_type ='KR'。"文档类型

   gs_documentheader-ref_doc_no ="测试"。  "参考

   gs_documentheader-doc_status ='2'。  "根据SAP注释2092366设置的文档状态



   将gs_documentheader附加到gt_documentheader。



 *填写供应商结构

   gs_accountpayable-itemno_acc ='0001'。"会计凭证行项目号

   gs_accountpayable-vendor_no ='0000895746'。"供应商或债权人的帐号

   gs_accountpayable-partner_bk ='0001'。  "合作伙伴银行类型

   gs_accountpayable-pmnttrms ='00AA'。"付款条款密钥

   gs_accountpayable-pmnt_block ="。"付款阻止键

   gs_accountpayable-pymt_meth =''。"付款方式

   gs_accountpayable-comp_code ='BEN0'。"公司代码



   APPEND gs_accountpayable至gt_accountpayable。



 *填充量结构



   gs_currencyamount-itemno_acc ='0001'。"会计凭证行项目编号

   gs_currencyamount-curr_type ='00'。  "货币类型和评估视图

   gs_currencyamount-currency ='EUR'。"货币密钥

   gs_currencyamount-amt_doccur ='1000.00'。  "量



   APPEND gs_currencyamount至gt_currencyamount。



 *调用BAPI来存放文档



   通话功能'BAPI_ACC_DOCUMENT_POST'

     出口

       documentheader = gs_documentheader

     输入

       obj_key = gv_obj_key

     桌子

       应付款= gt_应付款

       currencyamount = gt_currencyamount

       return = gt_return。



   通话功能'BAPI_TRANSACTION_COMMIT'

     出口

     等待='X'。  "设置等待标记，以便成功提交

最诚挚的问候，
Jonathan Eemans