Thanks rfunez, I tried the following and work it...
For Each Selected GridP
If Focus GridP<Transaccion>
Call Transacciones.Funciones.ListaTransacciones
Cast GridP<Transaccion>, Transacciones.Funciones.ListaTransacciones/Output<Codigo Trans>
Put GridP
Refresh GridP
It was only necessary to use the PUT and the Refresh, no more.... LOCATE is not necessary...