copy to c/ barra de progressao!

[ReinaldoFreitas]

Ola, como fazer para o comando copy to ter uma barra de progressao


ex..

use clientes
copy to tclientes for cep=...........


obrigado...

[Pablo César]

Não testei, mas acho que iria funcionar, assim:

USE DBF
VLAST:=(2->(LASTREC()))
COPY FIELDS NOME,ENDERECO,FONE,ESTADO TO XFILE FOR ESTADO="PR" .AND. MYMETER(VNREC,VLAST)

FUNCTION MYMETER(VNQ,VNT)
VNQ=VNQ+1
VNP=(((VNQ/VNT)*100)/2)
IF VNP>50
VNP=51
ENDIF
@ 24,14 SAY SPACE(51) COLOR "W+/N"
@ 24,14 SAY REPLICATE(CHR(219),VNP) COLOR "W+/N"
RETURN .T.
Um clip-abraço

[Pablo César]

Ja testei e funciona. Segue este exemplo, sem erro:

SELE 1
USE CLIENTES
VLAST:=(1->(LASTREC()))
COPY FIELDS NOME,ENDRES,DEVE TO XFILE.TXT SDF FOR DEVE>0.00 .AND. MYMETER((1->(RECNO())),VLAST)

FUNCTION MYMETER(VNQ,VNT)
VNQ=VNQ+1
VNP=(((VNQ/VNT)*100)/2)
IF VNP>50
VNP=51
ENDIF
@ 24,14 SAY SPACE(51) COLOR "W+/N"
@ 24,14 SAY REPLICATE(CHR(219),VNP) COLOR "W+/N"
RETURN .T.

Sds :)Pos