Use CADASSO1 alias CADASSO1 new
Use CADASSO2 alias CADASSO2 new
Sele CADASSO1
goto top
Do while .not. eof()
if CADASSO1->ESTADO = " " // aqui o estado está em branco mesmo eu vou pegar tudo que estiver em branco e jogar para o cadasso2
SELECT CADASSO2
APPEND BLANK
replace NOME with CADASSO1->NOME
replace ENDERECO with alltrim(CADASSO1->LG)+' '+alltrim(CADASSO1->END)+' '+alltrim(cadasso1->num)+' '+alltrim(cadasso1->comp)
replace CIDADE with CADASSO1->CIDADE
replace ESTADO with //aqui que eu quero colocar "SP"
replace USO with CADASSO1->USO
replace DDD with //aqui que eu quero colocar "000011"
replace TELEFONE with CADASSO1->FONE1
replace CEP with CADASSO1->CEP
replace BAIRRO with CADASSO1->BAIRRO
replace AREA2 with //aqui que eu quero colocar "000011"
replace TELEFONE2 with CADASSO1->FONE2
endif
sele CADASSO1
skip
enddo
close database
bom dia amigos.
estou precisando de colocar no campo "estado" a sigla "SP" e no campo DDD e AREA2 o ddd "000011"
Como eu faço para colocar automaticamente qdo a rotina estiver lendo e transferindo os dados do Cadasso1 para o Cadasso2
Paz a todos
ajuda com rotina
Moderador: Moderadores
)