Metodo Seek tDatabase
Posted:
Mon Jun 11, 2007 3:20 pmby Biel EA6DD
En el metodo Seek de tDatabase, solo cargar el buffer si se ha econtrado el registro.
- Code: Select all Expand view
if ::lBuffer .AND. lFound
::Load()
endif
Añadir .AND. lFound
Posted:
Mon Jul 02, 2007 7:56 pmby RenOmaS
Que pasa cuando es SoftSeek?
creo que el found devuelve .F.
Saludos
Posted:
Tue Jul 03, 2007 7:30 amby Biel EA6DD
Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera.
- Code: Select all Expand view
if ::lBuffer .AND. ( lSoft .OR. lFound )
::Load()
endif
o tambien
- Code: Select all Expand view
if ::lBuffer .AND. ! ( ::nArea )->(Eof()) )
::Load()
endif
