Metodo Seek tDatabase

Metodo Seek tDatabase

Postby Biel EA6DD » Mon Jun 11, 2007 3:20 pm

En el metodo Seek de tDatabase, solo cargar el buffer si se ha econtrado el registro.
Code: Select all  Expand view  RUN
if ::lBuffer .AND. lFound
    ::Load()
endif

Añadir .AND. lFound
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

Postby Antonio Linares » Fri Jun 15, 2007 10:21 pm

Biel,

Gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby RenOmaS » Mon Jul 02, 2007 7:56 pm

Que pasa cuando es SoftSeek?

creo que el found devuelve .F.

Saludos
User avatar
RenOmaS
 
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm

Postby Biel EA6DD » Tue Jul 03, 2007 7:30 am

Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera.
Code: Select all  Expand view  RUN
if ::lBuffer .AND. ( lSoft .OR. lFound )
    ::Load()
endif

o tambien
Code: Select all  Expand view  RUN
if ::lBuffer .AND. ! ( ::nArea )->(Eof()) )
    ::Load()
endif
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

Postby Antonio Linares » Thu Jul 05, 2007 8:04 am

Biel,

gracias!
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to To do - WishList / Por hacer - Peticiones

Who is online

Users browsing this forum: No registered users and 10 guests