Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

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: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

Os nossos membros postaram um total de 31 mensagens em 17 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