PC Toledo

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