Xailer & OZ Software

Saludos ante todos
Resulta que queriendo probar mi propia clase, hecho una clase para abrir
ficheros y me da el siguiente error:
o sea que parece que no me reconoce la propiedad o DATA oFich:
//----
TCLAVEUSER:VALIDUSER(122)
Error BASE/1004 Class: 'LOGICAL' has no exported method: OFICH
Argumentos: ()
La clase es la siguiente:
CLASS AbrirTabla //FROM XDataSet
PUBLISHED:
PROPERTY oFich
METHOD New(oFile)
ENDCLASS
//----
METHOD New(ocFile,lNew, lShared) CLASS AbrirTabla
LOCAL aDriver , cAlias
::oFich := ocFile
IF !ValType(::oFich) # "U" // .AND. !EMPTY(cFile)
TRY
WITH OBJECT ::oFich
IF !:lOpen
:lNew := lNew
:lShared := lShared
:lOpen()
Else
:lNew := lNew
:lShared := lShared
:lOpen()
EndIf
cAlias := :Alias()
END
CATCH //Error
MsgStop( "¡Error!, al Abrir la Tabla, Cheque, que exista o no este
abierta en otra área" )
RETURN .F.
END
ELSE
RETURN .F.
ENDIF
RETURN (Self)
//---
y la llamo desde
//---
METHOD ValidUser(oSender) Class TClaveUser
Local aTags, oValor, aDBfStruct, oValorUs, Clave2, Clave3
LOCAL oUsuarios, oPermisos
oUsuarios := AbrirTabla():New(::oForm:oDbfUsuarios,.F.,.F.)
oPermisos := AbrirTabla():New(::oForm:oDbfPermisos,.F.,.F.)
WITH OBJECT oUsuarios
:oFich:Select()
:oFich:Reindex()
:oFich:OrdSetFocus("USUARIOS")
if :oFich:Seek(alltrim(::oEdUsuario:Value))
.....
Endif
END WITH
//---
Por favor, me pueden decir que hago mal????
Gracias de antemano

Carlos,
fí­jate que en el método New tienes dos sentencias "RETURN .F.", cuando
deberí­as devolver Self.
En vez de devolver .F., pon una DATA lError para hacer el chequeo y
problema solucionado.
Saludos,
José Lalí­n