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