Boton en celda xBrowse

[JoseAlvarez]

Saludos amigos.

Necesito colocar un boton en una celda de un xBrowse donde el DATASOURCE es el objeto de una consulta (oQuery) y que al hacer click ejecute una funcion.

He intentado con :

Code: Select all  Expand view

oBrwFacturas:aCols[9]:nEdittype  := EDIT_BUTTON
oBrwFacturas:aCols[9]:bEditBlock := {|| MiFuncion() }
 

Asi como esta, se va a la funcion y hace lo que quiero, pero al retornar, tdolphin me arroja el error 9016, como si quisiera ejecutar alguna accion sobre la tabla.
No quiero realizar cambios en la tabla, solo que ejecute la funcion y nada mas.

¿cual es mi error?

[nageswaragunupudi]

Please make sure that bEditBlock returns nil
That means, MiFunction() should return nil.

Explanation:
If bEditBlock returns nil, xbrowse does not take any further action.
But if bEditBlock returns any value other than nil, XBrowse assigns that value to the field.