topic-7243

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Metodo Seek tDatabase
Posted: Mon Jun 11, 2007 03:20 PM

En el metodo Seek de tDatabase, solo cargar el buffer si se ha econtrado el registro.

if ::lBuffer .AND. lFound 
    ::Load()
endif

Añadir .AND. lFound

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Metodo Seek tDatabase
Posted: Fri Jun 15, 2007 10:21 PM

Biel,

Gracias! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

Metodo Seek tDatabase
Posted: Mon Jul 02, 2007 07:56 PM

Que pasa cuando es SoftSeek?

creo que el found devuelve .F.

Saludos

Saludos/regards

RenOmaS

skype: americo.balboa

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Metodo Seek tDatabase
Posted: Tue Jul 03, 2007 07:30 AM

Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera.

if ::lBuffer .AND. ( lSoft .OR. lFound )
    ::Load() 
endif

o tambien

if ::lBuffer .AND. ! ( ::nArea )->(Eof()) )
    ::Load() 
endif

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Metodo Seek tDatabase
Posted: Thu Jul 05, 2007 08:04 AM

Biel,

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums