Poner un Medidor

Poner un Medidor

Postby colthop » Sat Apr 26, 2008 9: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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Re: Poner un Medidor

Postby mmercado » Sat Apr 26, 2008 1: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:
Code: Select all  Expand view  RUN
Append From ( cFileFrom ) ;
     For Eval( { || oMeter:Set( nAvance++ ), SysRefresh(), .T. } )

Saludos.

Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby colthop » Sat Apr 26, 2008 1:35 pm

Hola Manuel:

Muchas gracias.

Un saludo

Carlos
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby colthop » Sat Apr 26, 2008 4: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
colthop
 
Posts: 505
Joined: Sat Apr 22, 2006 9:09 am
Location: Madrid - España

Postby mmercado » Sat Apr 26, 2008 4:56 pm

colthop wrote: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.
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Poner un Medidor

Postby mmercado » Sat Apr 26, 2008 5:03 pm

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 91 guests