Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8990

Re: There are multiple root elements

$
0
0

Hi,

 

This is the code

 

If gXML.GetElementsByTagName("Object").Item(0).InnerText.Trim.Equals("13") Then

                                    'oINV = gDI(k).GetBusinessObject(SAPbobsCOM.BoObjectTypes.oInvoices)

                                    gXML.Save(gLocal & "\" & allBranch(k) & "\" & fileName)

                                    oINV = gDI(CInt(allBranchDB2(allBranch(k)))).GetBusinessObject(sapObject.oInvoices)

 

 

                                    oINV.Browser.ReadXml(gLocal & "\" & allBranch(k) & "\" & fileName, 0)

                                    isOk = False

                                    If oINV.Add() = 0 Then isOk = True

 

 

                                Else

 

 

                                    'oINV = gDI(k).GetBusinessObject(SAPbobsCOM.BoObjectTypes.oCreditNotes)

                                    gXML.Save(gLocal & "\" & allBranch(k) & "\" & fileName)

                                    oINV = gDI(CInt(allBranchDB2(allBranch(k)))).GetBusinessObject(sapObject.oCreditNotes)

                                    oINV.Browser.ReadXml(gLocal & "\" & allBranch(k) & "\" & fileName, 0)

                                    isOk = False

                                    'oINV.Browser.ReadXml(gLocal & "\" & allBranch(k) & "\" & fileName, 0)

                                    If oINV.Add() = 0 Then isOk = True

 

 

                                End If

 

Thanks,

Raphael


Viewing all articles
Browse latest Browse all 8990

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>