transferir um campo de dbf para outro dbf

[Rickgian]

Ola, Tenho um sistema em clipper rodando em uma loja há 13 anos, estou precisando fazer uma alteração que segue abaixo:
dbf clientes campo cpf (esse já tem os dados gravados do cpf)
dbf pedido atraves do dbu eu acrescentei o campo cpf
agora preciso atualizar o campo cfp com os dados do campo cpf de clientes, sem alterar os demais campos do dbf pedidos.
Há treze anos não uso o clipper e esqueci a maioria dos comandos, acho que é a idade, ja to na fila dos idosos. :(Neg

[Toledo]

Amigo, para fazer isto, no arquivo PEDIDO tem que ter algum campo para saber qual o cliente que fez o pedido, por exemplo o código do cliente. Vamos imaginar que no arquivo de PEDIDO tenha um campo chamado CODCLI (que corresponde ao código do cliente) e no arquivo CLIENTES tenha um campo chamado CODIGO que é o código do cliente.

Código: Selecionar todos

Use pedido Alias pedido New
Index on CODCLI To Ind1
Set Index To Ind1
Use clientes Alias clientes New
Do While !Eof()
 cCodigo:=CODIGO
 cCPF:=CPF
 Sele pedido
 Go Top
 Seek cCodigo
 Do While (cCodigo=CODCLI)
   Repl CPF With cCPF
   Skip
 Enddo
 Sele clientes
 Skip
Enddo
Close All
Retu

Atenção: por medida de segurança, faça uma cópia dos arquivos DBFs antes.

Abraços,