Filtro para novo Arquivo - qual o melhor maneira(mais rapido

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

donato23
Usuário Nível 1
Usuário Nível 1
Mensagens: 24
Registrado em: 13 Jul 2004 17:07
Localização: Catanduva/SP
Contato:

Filtro para novo Arquivo - qual o melhor maneira(mais rapido

Mensagem por donato23 »

Boa tarde,
Alguem poderia me informar se há uma maneira mais rápida e eficaz para o codigo abaixo.Um arquivo sai.dbf tem tres tipos de saida no campo tipodesaida.Para filtrar e abrir no Dbedit cada tipo de saida, criei um bd filtro.dbf:

//******************************************//
//******************************************//
function Filtrar
SELE A
use sai
Sele B
Use filtro
zap
Sele A;go top

do while .not. eof()

If tipovenda=vtipo
Sele B
appe blank

Replace codigo with A->codigo
Replace descricao with A->descricao
Replace quantidade with A->quantidade
Replace data with A->data
Replace destino with A->destino
Replace tipovenda with A->tipovenda
Replace controle with A->controle
Sele A
ENDIF
skip
Enddo
close all
Return


//Obrigado
Wilson Roberto Donato Filho
Eng.Civil-Crea 5061716717
www.robertodonato.com
Responder