Pesquisa de CEP

[p.gomes]

Segue um exemplo de pesquisa de CEP diretamente da WEB.

Abraços:

Paulo

====================================================
ResGet is boolean

ResGet = HTTPRequest("http://www.buscarcep.com.br/?cep=" + EDT_CEP + "&formato=xml")

IF ResGet = True THEN
    XMLSource is string
    XMLSource = HTTPGetResult()
   
    IF XMLExtractString(XMLSource, "resultado", 1) = "1" THEN
        EDT_Logradouro     = XMLExtractString(XMLSource, "tipo_logradouro", 1) + " " + XMLExtractString(XMLSource, "logradouro", 1)
       
        EDT_Logradouro     = NoSpace(EDT_Logradouro)
        EDT_Cidade           = XMLExtractString(XMLSource, "cidade", 1)
        EDT_Bairro            = XMLExtractString(XMLSource, "bairro", 1)
        EDT_UF                = XMLExtractString(XMLSource, "uf", 1)
   
    ELSE
        Info(Upper(XMLExtractString(XMLSource, "resultado_txt", 1)))       
   
        EDT_Logradouro    = ""
        EDT_Cidade          = ""
        EDT_Bairro           = ""
        EDT_UF               = ""
    END
ELSE
    Info("Busca de  CEP não disponível neste momento!")   
END   

[Elcio]

Obrigado P.Gomes pela contribuição.

Gostaria de saber se alguem tem a base de cep em FIC (Hyper File). Possuo a base em MDB e, havendo demanda e inexistindo outra disponivel, poderiamos discutir a conversão/migração para Hyper File.

Élcio

[Marcelo Braga]

O ruím de manter a base de cep junto com o sistema é o tamanho do instalador. Hoje com o recurso do webservice, é muito mais prático consultalo na web. Ou fazer conque o sistema tenha as duas opções!!!

[p.gomes]

Acabei postando isso e nem verifiquei os exemplos que vocês estão postando no tópico Mostre o Windev que você tem!!! .

Por não ter visitado lá, acabei fazendo a conversão da validação do CNPJ e CPF por conta própria.

Fazer o quê ? tenho que prestar mais atenção nos posts.


Valeu,

Paulo Roberto Gomes

[Adriano Vieira]

Aproveitando o que P.Gomes colocou sobre não ter visto o topico já criado,  vai uma sugestão:

Separar o forum por tópicos, por exemplo, WINDEV, WEBDEV, WINDEV Mobiel, tópicos de colaboração, manuais, rotinas e etc...
Acredito que ficaria mais organizado.

Abraços,

Adriano Vieira.

[Davi]

Essa base de dados on-line no busca cep é completa... p q testei varios ceps e da como não encontrado

Davi

[Marcelo Braga]

Bem david, a mais completa seria a dos correios, mas infelizmente eles bloquearam o webservice deles. Assim dependemos de amigos que pegaram sua base e disponibilizaram num webservice. Se vc tiver uma base mais atualizada, vamos tentar montar um webservice nosso.
Abraços

[Davi]

O silvio que usa esse fórum acho que tem uma base mais completa, não sei como esta agora.

Eu procurei uma vez e não achei, mas tem como comprar... ou adquirir a base dados do correio?

Davi

[Adriano Vieira]

Eu tenho uma base de CEP´s do Brasil, pelo menos para meus clientes aqui de SP tem funcionado bem, mas esta em acess (tamanho em torno de 100 MB)

Abraços,

Adriano Vieira.

[Davi]

Eu tenho a base completa do guia postal brasileiro 2007 dos correios  só que a drogra do campo CEP esta criptografada... e dos os outros campos estaum ok

[Kautzmann]

Davi,
Poderia disponibilizar esta versão do guia postal brasileiro para eu dar uma olhada?

Abraços,

[Davi]

Ola Pessoal

a base de dados do guia postal 2007 junto com o programa esta ai.

100 MB

www.fullpack.inf.br/CEP

até mais

[Kautzmann]

Grande!
Perfeito, valeu mesmo. 

[Arlindo Reis]

Bom dia, boa tarde ou Boa noite.

Peguei a pouco o exemplo deste tópico do P.Gomes (Vide citação) e vi que o serviço do site BuscarCEP.com.br agora é pago e que o XMLExtractString não funciona muito bem com String.

ResGet is boolean
ResGet = HTTPRequest("http://www.buscarcep.com.br/?cep=" + EDT_CEP + "&formato=xml")
IF ResGet = True THEN
    XMLSource is string
    XMLSource = HTTPGetResult()
   
    IF XMLExtractString(XMLSource, "resultado", 1) = "1" THEN
        EDT_Logradouro     = XMLExtractString(XMLSource, "tipo_logradouro", 1) + " " + XMLExtractString(XMLSource, "logradouro", 1)
        EDT_Logradouro     = NoSpace(EDT_Logradouro)
        EDT_Cidade           = XMLExtractString(XMLSource, "cidade", 1)
        EDT_Bairro            = XMLExtractString(XMLSource, "bairro", 1)
        EDT_UF                = XMLExtractString(XMLSource, "uf", 1)
   
    ELSE
        Info(Upper(XMLExtractString(XMLSource, "resultado_txt", 1)))       
        EDT_Logradouro    = ""
        EDT_Cidade          = ""
        EDT_Bairro           = ""
        EDT_UF               = ""
    END
ELSE
    Info("Busca de  CEP não disponível neste momento!")   
END   

[Arlindo Reis]

Resolvi então colocar meu exemplo baseado na citação acima, segue código:

Código: [Selecionar]

ResGet is boolean
sEndXML, sCidXML,sBaiXML, sUFXML is string

EDT_Cep = Replace(EDT_Cep,"-","")

ResGet = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+EDT_Cep+"&formato=xml")
IF ResGet = True THEN
XMLSource is string
XMLSource = HTTPGetResult()

sEndXML = ExtractString(XMLSource,13,["<webservicecep>","<uf>","</uf>","<cidade>","</cidade>","<bairro>","</bairro>","<tipo_logradouro>","</tipo_logradouro>","<logradouro>","</logradouro>","<resultado>","</resultado>","<resultado_txt>","</resultado_txt>","</webservicecep>"]) + " " + ExtractString(XMLSource,15,["<webservicecep>","<uf>","</uf>","<cidade>","</cidade>","<bairro>","</bairro>","<tipo_logradouro>","</tipo_logradouro>","<logradouro>","</logradouro>","<resultado>","</resultado>","<resultado_txt>","</resultado_txt>","</webservicecep>"])
sCidXML = ExtractString(XMLSource, 9,["<webservicecep>","<uf>","</uf>","<cidade>","</cidade>","<bairro>","</bairro>","<tipo_logradouro>","</tipo_logradouro>","<logradouro>","</logradouro>","<resultado>","</resultado>","<resultado_txt>","</resultado_txt>","</webservicecep>"])
sBaiXML = ExtractString(XMLSource,11,["<webservicecep>","<uf>","</uf>","<cidade>","</cidade>","<bairro>","</bairro>","<tipo_logradouro>","</tipo_logradouro>","<logradouro>","</logradouro>","<resultado>","</resultado>","<resultado_txt>","</resultado_txt>","</webservicecep>"])
sUFXML  = ExtractString(XMLSource, 7,["<webservicecep>","<uf>","</uf>","<cidade>","</cidade>","<bairro>","</bairro>","<tipo_logradouro>","</tipo_logradouro>","<logradouro>","</logradouro>","<resultado>","</resultado>","<resultado_txt>","</resultado_txt>","</webservicecep>"])

EDT_Endereco  = sEndXML
EDT_Cidade    = sCidXML
EDT_Bairro    = sBaiXML
EDT_UF        = sUFXML
ELSE
Info("Busca de  CEP não disponível neste momento!")   
END

Espero que ajude a comunidade