Page 1 of 1
Poner un Medidor
Posted: Sat Apr 26, 2008 9:20 am
by colthop
Hola amigos:
Me podriais indicar como poner un medidor (la barrita que sube del 0 al 100%) cuando estoy haciendo un append from de una base a otra.
Un saludo
Carlos
Re: Poner un Medidor
Posted: Sat Apr 26, 2008 1:14 pm
by mmercado
colthop wrote:Me podriais indicar como poner un medidor (la barrita que sube del 0 al 100%) cuando estoy haciendo un append from de una base a otra.
Hola Carlos:
Aquí tienes:
Code: Select all
Append From ( cFileFrom ) ;
For Eval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )
Saludos.
Manuel Mercado
Posted: Sat Apr 26, 2008 1:35 pm
by colthop
Hola Manuel:
Muchas gracias.
Un saludo
Carlos
Posted: Sat Apr 26, 2008 4:07 pm
by colthop
Hola de nuevo:
Otro matiz sobre lo anterior, haciendo Appen for (fichero)... me sale correcto pero si mi instruccion es ya :
Append from &fichero for numero => nume .AND. fecha >= fech
como tengo que añadir : meEval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )
Un saludo
Carlos
Posted: Sat Apr 26, 2008 4:56 pm
by mmercado
colthop wrote:como tengo que añadir : meEval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )
A ver si así te funciona:
Code: Select all
Append From ( cFileFrom ) ;
For Eval( { || If( numero >= nume .AND. fecha >= fech, ;
( oMeter:Set( nAvance++ ), SysRefresh(), .T. ), (nAvance++, .F. ) )} )
Salud
Manuel Mercado.
Re: Poner un Medidor
Posted: Sat Apr 26, 2008 5:03 pm
by mmercado
Una variante:
Code: Select all
Append From ( cFileFrom ) ;
For Eval( { | lYes | lYes := numero => nume .AND. fecha >= fech, ;
oMeter:Set( nAvance++ ), SysRefresh(), lYes } )
Salud.
Manuel Mercado