Metodo Seek tDatabase

[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

[Antonio Linares]

Biel,

Gracias!

[RenOmaS]

Que pasa cuando es SoftSeek?

creo que el found devuelve .F.

Saludos

[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


[Antonio Linares]

Biel,

gracias!