mover conteúdo de um campo

[kristo]

Olha eu aqui outra vez !!

Pessoal tenho uma campo com dados de telefone, mais nesse campo existem dados em branco, os dados em branco eu consegui copiar para um outro campo, mais não consigo fazer o comando para copiar apenas os que contém o número do telefone, para mover os dados que contém o telefone em branco eu usei esse comando:

Do while .not. eof()
sele sp
if subs(sp->fone,1,8)#' '
sele sp
skip
loop
endif

agora não sei como fazer para eu mover os dados que contém os telefones.

Fico no aguardo de uma ajuda, abraços

[Dudu_XBase]

Código: Selecionar todos

  
  sele sp 

  Do while .not. eof() 
      // se tiver vazio eu pulo
      if empty(sp->fone) 
         dbskip()
         loop 
      endif 
      // aki vc coloca o resto da sua rotina neh...
     
      dbskip()
  Enddo