通过DI API进行支票的SAP Business One付款

2020-09-14 15:53发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


我正在尝试通过DI API在支票的贷方通知单上添加付款,但是出现错误"找不到匹配的记录(ODBC -2028)"。 我在哪里错了或缺少什么?

 DI代码:

 Dim vPay作为SAPbobsCOM.Payments
 vPay = CType(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oVendorPayments),SAPbobsCOM.Payments)
        

         vPay.DocObjectCode = SAPbobsCOM.BoPaymentsObjectType.bopot_OutgoingPayments
         vPay.DocType = SAPbobsCOM.BoRcptTypes.rCustomer
         vPay.CardCode ="测试4"
         vPay.CashSum = 749.32
         vPay.TransferAccount =" _SYS00000000004"
         vPay.DocDate = CDate(FormatDateTime(Now,DateFormat.ShortDate))
         vPay.TransferSum = 749.32
         vPay.Invoices.DocEntry = Integer.Parse(" 39")
         vPay.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.it_CredItnote
         vPay.Invoices.Add()
         vPay.Checks.CheckSum = 749.32
         vPay.Checks.BankCode =" TEST"
         vPay.Checks.Add()
         Dim retVal作为Integer = vPay.Add()
         如果retVal <> 0然后
                 Dim errMsg As String = oCompany.GetLastErrorDescription
         如果结束

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


我正在尝试通过DI API在支票的贷方通知单上添加付款,但是出现错误"找不到匹配的记录(ODBC -2028)"。 我在哪里错了或缺少什么?

 DI代码:

 Dim vPay作为SAPbobsCOM.Payments
 vPay = CType(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oVendorPayments),SAPbobsCOM.Payments)
        

         vPay.DocObjectCode = SAPbobsCOM.BoPaymentsObjectType.bopot_OutgoingPayments
         vPay.DocType = SAPbobsCOM.BoRcptTypes.rCustomer
         vPay.CardCode ="测试4"
         vPay.CashSum = 749.32
         vPay.TransferAccount =" _SYS00000000004"
         vPay.DocDate = CDate(FormatDateTime(Now,DateFormat.ShortDate))
         vPay.TransferSum = 749.32
         vPay.Invoices.DocEntry = Integer.Parse(" 39")
         vPay.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.it_CredItnote
         vPay.Invoices.Add()
         vPay.Checks.CheckSum = 749.32
         vPay.Checks.BankCode =" TEST"
         vPay.Checks.Add()
         Dim retVal作为Integer = vPay.Add()
         如果retVal <> 0然后
                 Dim errMsg As String = oCompany.GetLastErrorDescription
         如果结束

付费偷看设置
发送
2条回答
小c菟菟
1楼-- · 2020-09-14 16:19

您好Vinay,

您的文件中只有一张发票和一张支票吗? 如果是这样-删除行:

 vPay.Invoices.Add()
  vPay.Checks.Add()

在DI API中,第一行已经存在,您仅需要调用下一行。 在您的情况下,它会执行以下操作:您在第一行中填入值,然后添加一个未填入的新行。 这就是SAP向您显示一条消息的原因,该消息找不到带有空DocEntry的发票。

南山jay
2楼-- · 2020-09-14 16:01

是的,我尝试通过评论这些内容。 仍然出现相同的错误。

一周热门 更多>