Error que no se como solucionar

[PILO]

cuando esto en un dbbrowse y pulso doble click
quiero hacer lo siguiente
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
selecionarExplo()
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
//---------------------------------------------------------- --------------------
function SelecionarExplo(oSender)

MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
return nil
EN EJECUCION DEL IDE ME DA EL SIGUIENTE ERROR
SELECIONAREXPLO(201)
Error BASE/1003 Variable does not exist: SELF
Argumentos: ()
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1003
Estado: .F.
Descripción: Variable does not exist
Operación: SELF
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
SELECIONAREXPLO (201)
TFEXPLOTA:DBBROWSE1DBLCLICK (193)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2035)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (20)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 6
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Si lo pongo asi no me da error, pero quiero hacerlo como arriba, me podeis decir como
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
--