Load business partner (supplier ) from XML

Question

Hi ,
I have two similar sap companies demo1 and demo2  I need to copy supplier object ( business partner object with  cardType = supplier  )   from demo1 company to demo2 company. To perform this action i am using code below
''''' code to save bp object as xml
Dim oBP As SAPbobsCOM.BusinessPartners = clsGlobals.SBOCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
clsGlobals.SBOCompany.XmlExportType = SAPbobsCOM.BoXmlExportTypes.xet_ExportImportMode
oBP.GetByKey("bp1")
oBP.SaveXML("c:\bp1.xml")
'''' code to load bp object from xml (after connenct to demo2 company)
Dim oBP As SAPbobsCOM.BusinessPartners = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
oBP = m_diCompany.GetBusinessObjectFromXML("c:\bp1.xml", 0)
If oBP.Add() <> 0 Then
      Throw New Exception(oCompany.GetLastErrorDescription)
i got exception " You cannot set the field if business partner is a vendor "
Very important note : with bp object with cardType = customer this code working fine
If any one can help us with this problem?
Thanks.

Answer 1

Thanks for all answers ,
I resolved this issue by adding new bp as supplier , after that i updated the bp from xml .
source code:
m_diCompany.XmlExportType = SAPbobsCOM.BoXmlExportTypes.xet_ExportImportMode
                    Dim oBP As SAPbobsCOM.BusinessPartners = m_diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
                    oBP.CardCode = m_newCardCode
                    oBP.CardType = SAPbobsCOM.BoCardTypes.cSupplier
                    If oBP.Add() <> 0 Then
                        GlobalDll.log.writeToLog("add bp err with cod:" & m_newCardCode & " to db with name:" & check.Caption)
                        errFlag = True
                        sapErr = m_diCompany.GetLastErrorDescription
                        Throw New Exception(sapErr)
                    End If
                    If oBP.UpdateFromXML(xmlFilePath) <> 0 Then
                        GlobalDll.log.writeToLog("update from xml bp err with cod:" & m_newCardCode & " to db with name:" & check.Caption)
                        errFlag = True
                        sapErr = m_diCompany.GetLastErrorDescription
                        Throw New Exception(sapErr)
                    End If
                    If oBP.Update() <> 0 Then
                        GlobalDll.log.writeToLog("update  bp err with cod:" & m_newCardCode & " to db with name:" & check.Caption)
                        errFlag = True
                        sapErr = m_diCompany.GetLastErrorDescription
                        Throw New Exception(sapErr)
                    Else
                        File.Delete(xmlFilePath)
                        GlobalDll.log.writeToLog("bp with cod:" & m_newCardCode & " was added to db with name:" & check.Caption)
                    End If