Page 1 of 1
Metodo Seek tDatabase
Posted: Mon Jun 11, 2007 3:20 pm
by Biel EA6DD
En el metodo Seek de tDatabase, solo cargar el buffer si se ha econtrado el registro.
Code: Select all
if ::lBuffer .AND. lFound
::Load()
endif
Añadir .AND. lFound
Posted: Fri Jun 15, 2007 10:21 pm
by Antonio Linares
Biel,
Gracias!
Posted: Mon Jul 02, 2007 7:56 pm
by RenOmaS
Que pasa cuando es SoftSeek?
creo que el found devuelve .F.
Saludos
Posted: Tue Jul 03, 2007 7:30 am
by Biel EA6DD
Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera.
Code: Select all
if ::lBuffer .AND. ( lSoft .OR. lFound )
::Load()
endif
o tambien
Code: Select all
if ::lBuffer .AND. ! ( ::nArea )->(Eof()) )
::Load()
endif
Posted: Thu Jul 05, 2007 8:04 am
by Antonio Linares
Biel,
gracias!