FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Poner un Medidor
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Poner un Medidor
Posted: Sat Apr 26, 2008 09:20 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Poner un Medidor
Posted: Sat Apr 26, 2008 01:14 PM
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:
Append From ( cFileFrom ) ;
     For Eval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )

Saludos.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Poner un Medidor
Posted: Sat Apr 26, 2008 01:35 PM

Hola Manuel:

Muchas gracias.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Poner un Medidor
Posted: Sat Apr 26, 2008 04:07 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Poner un Medidor
Posted: Sat Apr 26, 2008 04:56 PM
colthop wrote:como tengo que añadir : meEval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )

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

Salud

Manuel Mercado.
manuelmercado at prodigy dot net dot mx
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Poner un Medidor
Posted: Sat Apr 26, 2008 05:03 PM
Una variante:
Append From ( cFileFrom ) ;
     For Eval( { | lYes | lYes := numero => nume .AND. fecha >= fech, ; 
oMeter:Set( nAvance++ ), SysRefresh(), lYes } )

Salud.

Manuel Mercado
manuelmercado at prodigy dot net dot mx

Continue the discussion