Metodo Seek tDatabase

Post Reply
User avatar
Biel EA6DD
Posts: 680
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca
Contact:

Metodo Seek tDatabase

Post 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
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Biel,

Gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
RenOmaS
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm

Post by RenOmaS »

Que pasa cuando es SoftSeek?

creo que el found devuelve .F.

Saludos
User avatar
Biel EA6DD
Posts: 680
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca
Contact:

Post 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 
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Biel,

gracias!
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply