Genexus Busines Component <--> XML

Busines Component -->  XML
&Archivo.Open(&RutaOUT1)
&Producto_BC = new()
For each
&Producto_BC.Load(ProductoCodigo)
exit
EndFor
&Serializado = &Producto_BC.ToXml(False)
&Archivo.WriteRawText(&Serializado)
&Archivo.Close()

Busines Component <-  XML

&Producto_BC = new()
&ArchivoInput.Open(&RutaIN1)
    &ArchivoInput.Read()
&Serializado=&ArchivoInput.ReadRawXML()
&ArchivoInput.Close()
&Producto_BC.FromXml(&Serializado)
&Producto_BC.Save()
If &Producto_BC.Fail()
For &message in &Producto_BC.GetMessages()
msg(&message.Description)
EndFor
else
Commit
EndIf