嗨，

BAPI_ACC_DOCUMENT_POST或BAPI_ACC_GL_POSTING_POST？

嗨，Vijay，

如果您可以提供上传所需的excel文件格式，则将为gr8。

正在等待回复。

嗨，

您还可以使用专门用于发票过帐的BAPI_ACC_INVOICE_RECEIPT_POST。

尝试一下。

此BAPI效果很好：BAPI_ACC_INVOICE_RECEIPT_POST

您可以在SAP中检查示例程序：

ACC_BAPI_TEST_INVOICE_RECEIPT

这是我的示例代码：

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

 *＆表格F_CREATE_DOC

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

 *文字

 * -------------------------------------------------  --------------------- *

 * <-P_LS_DATA文本

 * <-P_LV_ERROR文本

 * -------------------------------------------------  --------------------- *

 FORM f_create_doc更改p_ls_data喜欢gt_data

                             p_lv_error类型c。



   数据：ls_documentheader TYPE bapiache03，

         ls_customercpd TYPE bapiacpa00，

         lt_accountpayable bapiacap03的类型表，

         ls_accountpayable与lt_accountpayable类似，

         lt_accountgl bapiacgl03的类型表，

         ls_accountgl与lt_accountgl类似，

         lt_accounttax bapiactx01的类型表，

         ls_accounttax与lt_accounttax类似，

         lt_currencyamount类型表bapiaccr01，

         ls_currencyamount与lt_currencyamount类似，

         lt_return bapiret2的类型表，

         ls_return与lt_return类似，

         ls_message TYPE字符串。



   数据：lv_hdr_txt（25）C型，

         lv_dt（8）类型c，

         lv_ref_doc（16）类型c，

         lv_rec_count（10）类型c，

         ev_error类型c。







   通话功能" CONVERSION_EXIT_ALPHA_INPUT"

     出口

       输入= p_ls_data-vendor

     输入

       输出= p_ls_data-vendor。



   通话功能" CONVERSION_EXIT_ALPHA_INPUT"

     出口

       输入= p_ls_data-gl_acct

     输入

       输出= p_ls_data-gl_acct。









   清除：ls_documentheader，ls_customercpd，ls_accountpayable，lv_hdr_txt。

   刷新：lt_accountpayable，lt_accountgl，lt_accounttax，lt_currencyamount，lt_return。







   CONCATENATE'CNCLD ACCT'p_ls_data-acct_num INTO lv_hdr_txt由空格分隔。

   合并'CANCEL'空间sy-datum + 6（2）sy-datum + 4（2）sy-datum（4）到lv_ref_doc中。



   ls_documentheader-username = sy-uname。

   ls_documentheader-header_txt = lv_hdr_txt。

   ls_documentheader-comp_code = p_bukrs。

   ls_documentheader-fisc_year = sy-datum（4）。

   ls_documentheader-doc_date = sy-datum。

   ls_documentheader-pstng_date = sy数据。

   ls_documentheader-fis_period = sy-datum + 4（2）。

   ls_documentheader-doc_type = c_blart。

   ls_documentheader-ref_doc_no = lv_ref_doc。



   ls_customercpd-name = p_ls_data-name。

   ls_customercpd-name_2 = p_ls_data-address2。

   ls_customercpd-postl_code = p_ls_data-postalcode。

   ls_customercpd-city = p_ls_data-city。

   ls_customercpd-country = p_ls_data-country。

   ls_customercpd-street = p_ls_data-address1。

   ls_customercpd-region = p_ls_data-province。

   ls_customercpd-langu_iso ='EN'。



   ls_accountpayable-itemno_acc = 1。

   ls_accountpayable-vendor_no = p_ls_data-vendor。

 * ls_ACCOUNTPAYABLE-GL_ACCOUNT ='0000211000'。

   ls_accountpayable-pmnttrms = c_pmt_trms。

   ls_accountpayable-bline_date = sy数据。

   ls_accountpayable-alloc_nmbr = p_ls_data-name。

   ls_accountpayable-item_text = lv_hdr_txt。

   APPEND ls_accountpayable至lt_accountpayable。



 *货币订单项1

   ls_currencyamount-itemno_acc = 1。

   ls_currencyamount-currency = c_waers。

   ls_currencyamount-amt_doccur = p_ls_data-amount * -1。

   APPEND ls_currencyamount至lt_currencyamount。



 * GL订单项2

   ls_accountgl-itemno_acc = 2。

   ls_accountgl-gl_account = p_ls_data-gl_acct。

   ls_accountgl-comp_code = p_bukrs。

   ls_accountgl-pstng_date = sy数据。

   ls_accountgl-doc_type = c_blart。

   ls_accountgl-fisc_year = sy-datum（4）。

   ls_accountgl-fis_period = sy-datum + 4（2）。

   ls_accountgl-profit_ctr = p_ls_data-profit_center。

   ls_accountgl-alloc_nmbr = sy数据。

   ls_accountgl-de_cre_ind ='S'。

   附加ls_accountgl到lt_accountgl。



 *货币行项目2

   ls_currencyamount-itemno_acc = 2。

   ls_currencyamount-currency = c_waers。

   ls_currencyamount-amt_doccur = p_ls_data-amount。

   APPEND ls_currencyamount至lt_currencyamount。

















   通话功能'BAPI_ACC_INVOICE_RECEIPT_POST'

     出口

       documentheader = ls_documentheader

       customercpd = ls_customercpd

 *重要

 * OBJ_TYPE =

 * OBJ_KEY =

 * OBJ_SYS =

     桌子

       应付款= lt_应付款

       accountgl = lt_accountgl

       帐户税= lt_帐户税

       currencyamount = lt_currencyamount

 *采购订单=

 *购买金额=

       返回= lt_return

 *标准=

 * VALUEFIELD =

 *扩展1 =

     。



   lv_rec_count = gv_tot_rec。

   读表lt_return INTO ls_return

         WITH KEY type ='S'id ='RW'number ='605'。



   如果sy-subrc = 0。

     提交工作并等待。

     CONCATENATE'Line Index'lv_rec_count'：'INTO ls_message由空格分隔。

     将ls_message附加到gt_success_msg。

     附加ls_message到gt_complete_log。



     CONCATENATE'成功创建文档：'ls_return-message_v2（10）

            INTO ls_message。

     将ls_message附加到gt_success_msg。

     附加ls_message到gt_complete_log。



 *添加空白行

     清除ls_message。

     将ls_message附加到gt_success_msg。

     附加ls_message到gt_complete_log。

   其他。

     回滚工作。

     ev_error = c_x。

     CONCATENATE'Line Index'lv_rec_count'：'INTO ls_message由空格分隔。

     将ls_message附加到gt_error_msg。

     附加ls_message到gt_complete_log。



 *读取错误消息

     从lt_return COMPARING消息中删除相邻的重复项。

     循环至lt_return INTO ls_return。

       清除ls_message。

       ls_message = ls_return-message。

       压缩ls_message。

       连接ls_message'。  INTO ls_message。

       将ls_message附加到gt_error_msg。

       附加ls_message到gt_complete_log。

     结局。



     p_lv_error = ev_error。



 *添加空白行

     清除ls_message。

     将ls_message附加到gt_error_msg。

     附加ls_message到gt_complete_log。

   万一。

 ENDFORM。