Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
2 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 2 Visitantes

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 3

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 1

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 1

ACESSAR WEBSERVICE COM HTTPS

5/4/2018, 14:48 por AJC

Pessoal recebi este material em C# preciso fazer esta função em vfp9

YourBeanService port = new …

Comentários: 0

REPORT FORM - GERAR 2 RELATORIOS

18/3/2018, 19:02 por AJC

Pessoal, estou tentando gerar dois tipos de relatorio no report form
ou seja
primeira folha - …

Comentários: 2

Estatísticas
Temos 7095 usuários registrados
O último usuário registrado atende pelo nome de Robson0

Os nossos membros postaram um total de 12260 mensagens em 1554 assuntos

Buscar endereço por CEP

Ir em baixo

Buscar endereço por CEP

Mensagem por pedrossian em 3/12/2016, 19:59

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me ajudar?
Segue o código antigo, obrigado!

*########################################################################################
* ####### Desenvolvido por Leandro Sbrissa #######
* ####### MSN: [Você precisa estar registrado e conectado para ver este link.] #######
* ########################################################################################

* EXEMPLO FEITO PELO COLEGA ACIMA E CONVERTIDO PARA O VFP POR PABLO SOLLAR
******************************************************************************************

* Cria objeto e realiza consulta no "[Você precisa estar registrado e conectado para ver este link.] (XML)
*PARAMETERS lcep
LCEP="79002430"
lc_cep_a_ser_procurado=lcep

lc_url_procura ="http://www.buscarcep.com.br/?cep="+lc_cep_a_ser_procurado+"&formato=xml"

srvXMLHttp = CreateObject("MSXML2.ServerXMLHTTP.4.0")
srvXMLHttp.open("GET",lc_url_procura,.f.)
srvXMLHttp.Send()
*!*MESSAGEBOX(srvXMLHttp.responseText)
STORE "" TO cep, uf, cidade, bairro, t_logradouro, logradouro, resultado, resultado_txt

*Cria objeto e Adquiri resultado da busca em formato XML
xmlResult = CreateObject("MSXML2.DomDocument")
xmlResult.loadXML(srvXMLHttp.ResponseText)

* Recupera valores do resultado da busca
* ********************** Observação
* O servidor [Você precisa estar registrado e conectado para ver este link.] retorna apenas 1 resultado para cada CEP
* por esta razão o método ".item(0)" foi usado, ou seja, se existisse, mais de 1 resultado
* seria necessario realizar um LOOP de "0" à "xmlResult.length" para recuperar
* todos os items de cada resultado retornado com o nome de cada nó do XML


resultado = xmlResult.SelectNodes("//resultado" ).item(0).Text
resultado_txt= xmlResult.SelectNodes("//resultado_txt" ).item(0).Text
cep = xmlResult.SelectNodes("//cep" ).item(0).Text

* Caso ocorra alguma irregularidade os nós abaixo não vão existir
* portanto para evitar erros pegaremos os valore apenas se o resultado for positivo

IF INT(VAL(resultado)) > 0
uf = xmlResult.SelectNodes("//uf" ).item(0).Text
cidade = xmlResult.SelectNodes("//cidade" ).item(0).Text
bairro = xmlResult.SelectNodes("//bairro" ).item(0).Text
t_logradouro = xmlResult.SelectNodes("//tipo_logradouro").item(0).Text
logradouro = xmlResult.SelectNodes("//logradouro" ).item(0).Text
ENDIF

CLEAR
?cep
?uf
?cidade
?bairro
?t_logradouro
?logradouro

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum