Problema con el siguiente codigo

[mjcc]

Tengo el siguiente codigo
IF RECC() > 0
GO TOP
DEFINE DIALOG oDlg TITLE 'Clientes encontrados' FROM 1,1 TO 16, 30
@ 0,0 LISTBOX oBrw FIELDS nombrec COLSIZES 155 HEADERS "Nombre comercial" SIZE 116,114 UPDATE OF odlg ON DBLCLICK IIF(estado<>-2,ver_ficha(oWnd,"CLIENTE",puntero,"rescli"),vv[3]=rescli->codigo)
ACTIVATE DIALOG oDlg CENTERED
ELSE
MSGINFO("No existen datos con los filtros seleccionados","Gestion")
ENDIF

Necesito que cuando hagan el doble click, asignar a una variable un valor, pero al mismo tiempo necesito refrescar esta variable y posteriormente cerrar esta ventana, como puedo encadenar todos estos comandos en la instruccion anterior.

Gracias.

[Antonio Linares]

Manuel,

Llama a una función y que la función haga todo:

... ON DBLCLICK Acciones() ...

...

function Acciones()

...

return nil