Rotina que não processa os dados
Enviado: 24 Set 2004 10:56
Pessoal alguém poderia me ajudar nessa PRG
Tenho que alterar prefixo de telefone, eu digito o antigo prefixo e embaixo o numero de inicio do novo prefixo, mais não altera os dados na DBF.......por quê ??
obrigado a todos
Tenho que alterar prefixo de telefone, eu digito o antigo prefixo e embaixo o numero de inicio do novo prefixo, mais não altera os dados na DBF.......por quê ??
Código: Selecionar todos
set dele on
set date brit
? "Aguarde Indexando arquivo..."
USE FISICO
INDEX ON left(FONE,3) to tel
dbsetindex("tel")
CLEAR
dbgotop()
cTel := space(3)
cTel2 := space(1)
@ 10,10 say "Das Antigas: " get cTel
@ 11,10 say "Novo Inicio: " get cTel2
read
if lastkey()=27
return
endif
dbseek(cTel)
WHILE LEFT(FONE,3)==alltrim(cTel) .and. !EOF()
@ 12,10 say "Processando..."+strzero(recno(),7)+"/"+strzero(lastrec(),7)
if left(FONE,3) == alltrim(cTel)
Replace FONE with alltrim(cTel2)+alltrim(FONE)
endif
dbskip()
ENDDO
dbclosearea()