Export and Import with XML(Business Partner)

Question

Hi All, 
I am trying to export Business master data using given below code and it is save XML file(For Save XML I using Code A).but when i import same XML file in again in different company it show error (-5002) "Graph - Bad Form Item" if i have same XML file form SAP then same file must be import in SAP(For Import I using Code B)
For Save XML I using Code A :-
  Public Sub BusinessPartnerSave_XML()
        Dim oBP As SAPbobsCOM.BusinessPartners
          oCompany.XmlExportType = SAPbobsCOM.BoXmlExportTypes.xet_ValidNodesOnly
       oBP = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oBusinessPartners)
        oBP.GetByKey("BNK0001")
        oBP.SaveXML("BusinessPartnerXML" & ".xml")
        MessageBox.Show("File Saved")
End Sub
For Import I using Code B :-
   Private Sub CreateBusinessPartnerwithXML()
        Dim sXmlFileName As String
        Dim iElementCount As Long
        Dim iCounter As Long
        sXmlFileName = IO.Directory.GetParent(System.Windows.Forms.Application.StartupPath).ToString & "\xml\BusinessPartnerXML.xml"
        iElementCount = oCompany.GetXMLelementCount(sXmlFileName)
        MsgBox(iElementCount & " Elemnts found in xml file" & vbNewLine & "Ready To Satrt Transaction")
        oCompany.StartTransaction()
        For iCounter = 0 To iElementCount - 1
            oCompany.XmlExportType = SAPbobsCOM.BoXmlExportTypes.xet_ValidNodesOnly
            Select Case oCompany.GetXMLobjectType(sXmlFileName, iCounter)
                Case SAPbobsCOM.BoObjectTypes.oBusinessPartners
                    oBusinessPartner = oCompany.GetBusinessObjectFromXML(sXmlFileName, iCounter)
                    oBusinessPartner.Add()
                Case SAPbobsCOM.BoObjectTypes.oOrders
                    oSalesOrder = oCompany.GetBusinessObjectFromXML(sXmlFileName, iCounter)
                    oSalesOrder.Add()
            End Select
            oCompany.GetLastError(lErrCode, sErrMsg)
            If lErrCode <> 0 Then
                MsgBox("Error Message: " & sErrMsg & vbNewLine & "Transaction will be rolled back")
                Exit Sub
            End If
        Next iCounter
        oCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit)
        MsgBox("Data inserted successfully")
    End Sub
One thing If i edit same XML file manual and import then it work but it is not possible for large master data.
Please guide me where is the issue.so i can use this code.
Thanks
Manvendra

Answer 1

Hi Mavendra,
Have you tried to set the XmlExportMode to xet_ExportImportMode?
Does that work for you?
Best regards,
Pedro Magueija