Rotina que não processa os dados

[kristo]

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ê ??

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()

obrigado a todos