Página 1 de 1
copy to c/ barra de progressao!
Enviado: 08 Ago 2006 11:11
por ReinaldoFreitas
Ola, como fazer para o comando copy to ter uma barra de progressao
ex..
use clientes
copy to tclientes for cep=...........
obrigado...
Eu faria assim
Enviado: 08 Ago 2006 11:57
por 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
Funciona
Enviado: 08 Ago 2006 12:10
por 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