Error creating an AP Invoice

Question

Hi,
I am trying to create an AP invoice(Doc Type = Service) using DI API.I am getting the following eror message:
[OPCH.GrosProfit][line: 1] , 'No matching records found (ODBC -2028)'
My code is as follows:
Set oCmp = New SAPbobsCOM.Company
oCmp.UseTrusted = True
oCmp.Server = "(local)"
oCmp.CompanyDB = "ABC-Holding"
oCmp.UserName = "manager"
oCmp.Password = "manager"
oCmp.Language = SAPbobsCOM.BoSuppLangs.ln_English
l = oCmp.Connect()
Set oApInvoice = oCmp.GetBusinessObject(oPurchaseInvoices)
oApInvoice.DocType = dDocument_Service
oApInvoice.CardCode = "VA001S"
oApInvoice.Lines.ItemDescription = "Banana"
oApInvoice.Lines.Price = 2.36
oApInvoice.Lines.AccountCode = "999999-100"
RetVal = oApInvoice.Add
If RetVal <> 0 Then
   oCmp.GetLastError ErrCode, ErrMsg
   MsgBox ErrCode & " " & ErrMsg
End If
Please help.
Thanks.

Answer 1

Hello,
I think you must use this sentence to add the line before adding the invoice:
oApInvoice.Lines.Add
But DI has a problem when you use that method. You have to set another line after calling the add method. Then setting another line this way:
oApInvoice.Lines.ItemDescription = "Banana 2"
oApInvoice.Lines.Price = 2.40
oApInvoice.Lines.AccountCode = "999999-100"
Don't forget to set the taxCode in Both lines and after that you can add the Invoice:
RetVal = oApInvoice.Add
I hope i could help you..