PC Toledo

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

)

FAÇA ASSIM :

REPLACE ESTADO WITH IIF( CADASSO1->ESTADO = " " , "SP", ESTADO)

- NO CASO DA DDD FAÇA IGUAL.
HONÓRIO