PC Toledo

Bom dia amigos, desejo a todos um feliz Natal, repleto de paz e saúde a todos.

Amigos é o seguinte, preciso mais uma vez da ajuda dos amigos, preciso limpar um Banco de dados, bom vou explicar!

Tenho um banco de dados com o nome de "AUDI" e dentro dele uma série de campos, mais tenho 3 campos fundamentais que são eles.

Telefone1
Telefone2
Telefone3

O que eu preciso é de uma prg que leia esses 3 campos e quando a rotina da prg descobrir que os 3 estão vazios que a prg pegue e monte um novo banco de dados com a mesma estrutura dando a ela o nome de "vazio" ou seja preciso ter um banco de dados sem os telefones e continuar com meu outro banco de dados com os telefones, não tenho a mínima idéia que como se faça isso, conto com a ajuda dos amigos!
Paz no coração de todos

Feliz Natal a todos.

Para isso basta usar dois comandos do clipper: COPY TO e DELETE ALL.

*--com o comando a seguir sera criado 1 arquivo VAZIO.DBF com os registros que tem os 3 campos de telefones em branco


use AUDI exclusive
go top

COPY TO "vazio.dbf" for empty(TELEFONE1)=.T..AND.;
empty(TELEFONE2)=.T..AND.empty(TELEFONE3)=.T.

*--agora basta deletar os mesmos registros do banco AUDI.DBF que contem os 3 campos de telefones em branco

go top

DELETE ALL FOR empty(TELEFONE1)=.T..AND.;
empty(TELEFONE2)=.T..AND.empty(TELEFONE3)=.T.

*--de um pack para elemina-los fisicamente
PACK

*--fecha o arquivo AUDI
CLOSE


Ate+,

Muito obrigado meu amigo, deu tudo certinho, fico muito grato pela sua ajuda, que vc tenha um feliz 2008.

kristo