Error while importing more than one Contact Persons

Question

Hi experts,
I am trying to import 2 Contact Persons in the same Business Partner using DI.
My issue is that only on the second  Contact Person all fields are correct. On the first Contact Person, all fields except the "Name" are blank.
Has anyone seen that before?
Thank you in advance,
Aris

Answer 1

Hello Aris,
Could you post your code? I think you don't add a line or set the line correct.
See this example from the sdk-help:
Private Sub cmdTest_Click()
   On Error GoTo ErrorHandler
   Dim vCompany As SAPbobsCOM.Company
   'create company object
   Set vCompany = New SAPbobsCOM.Company
   'set paras for connection
   vCompany.CompanyDB = "SBODemo_US"
   vCompany.Password = "manager"
   vCompany.UserName = "manager"
   vCompany.Server = "(local)"
   'connect to database server
   If (0 <> vCompany.Connect()) Then
      MsgBox "Failed to connect"
      Exit Sub
   End If
   Dim nErr As Long
   Dim errMsg As String
   'do it now
   Dim vBP As SAPbobsCOM.BusinessPartners
   Set vBP = vCompany.GetBusinessObject(oBusinessPartners)
   vBP.CardCode = "HU1003"
   vBP.CardName = "ABCD"
   vBP.CardType = cCustomer
   vBP.CommissionGroupCode = 0
   vBP.CommissionPercent = 15
   vBP.Company_Private = cPrivate
   vBP.ContactPerson = "C1"
   vBP.Currency = "$"
   vBP.DiscountPercent = 15
   vBP.VatLiable = vLiable
   vBP.ShippingType = 3
   Call vBP.ContactEmployees.Add
   Call vBP.ContactEmployees.SetCurentLine(0)
   vBP.ContactEmployees.Name = "C1"
   vBP.ContactEmployees.Address = "LN"
   vBP.ContactEmployees.E_Mail = "c1atabcd.com"
   vBP.ContactEmployees.Fax = "8433777778"
   vBP.ContactEmployees.MobilePhone = "8388888"
   vBP.ContactEmployees.Phone1 = "88880000"
   Call vBP.ContactEmployees.SetCurentLine(1)
   vBP.ContactEmployees.Name = "C2"
   vBP.ContactEmployees.Address = "BJ"
   vBP.ContactEmployees.E_Mail = "c2atabcd.com"
   vBP.ContactEmployees.Fax = "84338"
   vBP.ContactEmployees.MobilePhone = "877388888"
   vBP.ContactEmployees.Phone1 = "8888300"
   If (0 <> vBP.Add()) Then
       MsgBox ("Failed to add an business partner")
   Else
       Dim objCode As String
       MsgBox ("Succeeded add a business parnter, new objcode=" + vBP.CardCode)
       vBP.SaveXml ("c:\temp\BP" + vBP.CardCode + ".xml")
   End If
   'Check Error
   Call vCompany.GetLastError(nErr, errMsg)
   If (0 <> nErr) Then
       MsgBox ("Found error:" + Str(nErr) + "," + errMsg)
   End If
   'disconnect the company object, and release resource
   Call vCompany.Disconnect
   Set vCompany = Nothing
   Exit Sub
ErrorHandler:
   MsgBox ("Exception:" + Err.Description)
End Sub
HTH Regards Teun