Create Delivery whit XML

I have this code:

-

empresas(0).XmlExportType = xet_ExportImportMode

Set oDocument = empresas(0).GetBusinessObject(oDeliveryNotes)

oDocument.GetByKey (clave)

oDocument.SaveXML ("C:\entrega.xml")

empresas(1).XmlExportType = xet_ExportImportMode

Set oDocument = empresas(i).GetBusinessObjectFromXML("C:\entrega.xml", 0) -> ERROR

ERROR => "No compatible XML Schema was found for this object"

-

empresas(0) and empresas(1) are different companys

What is the mistake?

Thanks.