Xailer & OZ Software

En el mismo error que antes lo hago a modo tradicional y cuando utilizo el
dbseek() me dice el el area no esta abierta
esta bien estos:
METHOD NN_OFIExit( oSender, oNextCtl ) CLASS TFAnimales
local DATANI
RDDSETDEFAULT( "DBFCDX" )
SELECT 8
DATANI := RUTATRABA + "DAA"+TEXPLO+"PILO"
USE (DATANI) New INDEX (DATANI) ALIAS ("DATOSANIMA")
ORDSETFOCUS( "N_OFI" )
NN_OFI := ::NN_OFI:VALUE
CONTROLCROTAL()
::NN_OFI:VALUE := NN_OFI
SELECT 8
IF DBSEEK(NN_OFI)
MSGINFO("ENCONTRADO")
ELSE
MSGINFO("NO ENCONTRADO")
END IF
CLOSE 8
RETURN Nil