Olá Geraldo, mande o dbf para eu dar uma olhada, só assim vou convencer o pessoal !


>Obrigado, Frederico - maioria dos meus clientes usam esse driver.
>
>
>Há alguns dias reclamei aqui que haviam entrado uns caracteres estranhos no meu banco de dados
>e um colega pediu pra eu verificar se o driver de rede era REALTEK porque, segundo ele, esse
>driver podia gerar isso.
>Pra quem ainda não viu isso, os dados ficam, mais ou menos, assim:
>

>Tentei colar aqui, mas o trem é tão terrível que nem cola aqui - se alguem quiser ver fala que mandarei o DBF em private
>

>
>Estou verificando que a maioria dos meus clientes usam esse driver. Já pedi a todos que atualizem.
>
>Desenvolvi uma rotina que varre todos os campos de todas as tabelas em busca do caracter estranho(Chr(0))
>Contudo, consigo fazer essa verificação somente em campos que comportam dado do tipo caracter.
>
>Minha pergunta é: Como verificar se Chr(0) está contido num campo do tipo data, por exemplo ?
>
>Eis a rotina:
>

>clear all
>set printer to CHR_0.TXT
>set printer on
>***
>ADIR(gaFiles, "*.DBF")
>***
>For i = 1 to alen(gafiles, 1)
>  lcArqAdd = AllTrim(gaFiles(i,1))
>  wait window lcArqAdd nowait
>  use &lcArqAdd
>  for gnCount = 1 TO FCOUNT()
>    if type(FIELD(gnCount)) = "C"
>      count for chr(0)+chr(0) $ evaluate(FIELD(gnCount)) to iRegAfet
>      if iRegAfet > 0
>        ? lcArqAdd
>        exit
>      endif
>    endif
>  endfor
>endfor
>***
>set printer to
>set printer off
>