Poner un Medidor

[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

[mmercado]

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  Expand view  RUN

Append From ( cFileFrom ) ;
     For Eval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )


Saludos.

Manuel Mercado

[colthop]

Hola Manuel:

Muchas gracias.

Un saludo

Carlos

[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

[mmercado]

como tengo que añadir : meEval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )

A ver si así te funciona:

Code: Select all  Expand view  RUN

Append From ( cFileFrom ) ;
     For Eval( { || If( numero >= nume .AND. fecha >= fech, ;
( oMeter:Set( nAvance++ ), SysRefresh(), .T. ), (nAvance++, .F. ) )} )

Salud

Manuel Mercado.

[mmercado]

Una variante:

Code: Select all  Expand view  RUN

Append From ( cFileFrom ) ;
     For Eval( { | lYes | lYes := numero => nume .AND. fecha >= fech, ;
oMeter:Set( nAvance++ ), SysRefresh(), lYes } )


Salud.

Manuel Mercado