Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 16 Visitantes :: 2 Motores de busca

ImRicoh

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 1

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

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

Os nossos membros postaram um total de 7 mensagens em 3 assuntos

Buscar endereço por CEP

Ver o tópico anterior Ver o tópico seguinte 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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


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