Consultar e Importar Cep da Internet para o Sistema.

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por JoséQuintas »

Ou o webservice oficial
Na pasta de rascunhos da sefazclass

https://github.com/JoseQuintas/sefazcla ... rreios.prg
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Itamar M. Lins Jr. »

Olá!
Ou o webservice oficial
Adaptar p/ usar TIP! Assim NOT WORK ON LINUX OS!
Preguiça de fazer por aqui o "adaptamento"

TALVEZ usando HBTIP p/ o CEP seja meio caminho andado p/ sefazclass no LINUX! Na parte de comunicação da NFe com RS.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Hasse »

Boa tarde Itamar.
Eu já havia percebido que somente retorna os dados informando o CEP.
Pergunto: O ViaCep não retorna os dados informando o endereço, cidade e UF ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Itamar M. Lins Jr. »

Olá!
informando o endereço, cidade e UF
Isso !
Retorna o endereço completo.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por alxsts »

Olá!

O que é ViaCEP?

Veja a seção "Exemplos de pesquisa por endereço" na página da URL acima.

Veja a seção Módulos e Pacotes desenvolvidos por Colaboradores, com exemplos (inclusive Harbour e AdvPL).
[]´s
Alexandre Santos (AlxSts)
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Hasse »

Boa noite Itamar.
Perdão. Me expressei mal.

Digitar o endereço para retornar o CEP, é possível ?
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Hasse »

O que é ViaCEP?

Acredito que o nosso colega Itamar possa explicar melhor que eu.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por alxsts »

Olá!

Pelo jeito nem abriu os links que postei acima...
Hasse escreveu:O que é ViaCEP?
A resposta está no link associado.
Hasse escreveu:Pergunto: O ViaCep não retorna os dados informando o endereço, cidade e UF ?
Sim.
alxsts escreveu:"Veja a seção Exemplos de pesquisa por endereço" na página da URL acima.
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
mbrigatti
Usuário Nível 2
Usuário Nível 2
Mensagens: 68
Registrado em: 16 Set 2005 08:13
Localização: Piracicaba - SP

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por mbrigatti »

"Digitar o endereço para retornar o CEP, é possível ?"

Sim é possível:

oHttp := TIPClientHTTP():new( "http://viacep.com.br/ws/" + cCEP + "/xml/" )

ou

oHttp := TIPClientHTTP():new( "http://viacep.com.br/ws/" + cCEP + "/json/" )

onde cCep = UF/Cidade/Logradouro

Exemplo: "SP/Piracicaba/Avenida comendador luciano"
Hasse
Usuário Nível 4
Usuário Nível 4
Mensagens: 820
Registrado em: 19 Out 2004 10:30
Localização: Jaraguá do Sul - SC

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Hasse »

Bom dia.
Ainda não testei, mas agradeço a informação.
Interessante o formato dos dados da requisição.
Obrigado.
Um Feliz Natal.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
kovalsk
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 18 Mar 2014 13:45
Localização: Juiz de Fora

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por kovalsk »

Top a rotina do Toledo, fiz algumas mudanças pequenas porque ainda trabalho em modo console e funcionou perfeitamente.
Só queria colocar o cursor no final da edição do get quando traz o endereço pro usuário colocar o número da edificação e ainda não consegui.
Avatar do usuário
Jairo Maia
Moderador
Moderador
Mensagens: 2785
Registrado em: 16 Ago 2010 13:46
Localização: Campinas-SP

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Jairo Maia »

kovalsk escreveu:Só queria colocar o cursor no final da edição do get quando traz o endereço pro usuário colocar o número
Post o GET que você está pegando o logradouro que poderemos ajudar com base em seus próprios dados.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por alxsts »

Olá!

Código: Selecionar todos

#include "inkey.ch"

FUNCTION TesteGet()

   LOCAL cCampo := PadR( "Avenida das Americas", 50 ), GetList := {}

   CLS

   @ 10,10 Say "Complete o conteúdo do campo:" ;
           Get cCampo ;
           Pict "@X" ;
           When { || Hb_KeyPut( K_END ), .T. }
   Read

RETURN NIL
Colocar o número junto com o nome do logradouro não é uma boa prática. Crie campos separados. Em alguns casos, isto é muito útil. Exemplo: para facilitar o trabalho de entregadores, às vezes é preciso ordenar os locais de entrega pelos lados par e ímpar. Imagine como isto ajuda, considerando-se uma avenida grande, com canteiro central. O carro de entrega faria primeiro as entregas em um lado (par ou ímpar), e depois retornaria entregando do outro lado.
[]´s
Alexandre Santos (AlxSts)
kovalsk
Usuário Nível 1
Usuário Nível 1
Mensagens: 25
Registrado em: 18 Mar 2014 13:45
Localização: Juiz de Fora

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por kovalsk »

Boa noite Xará, baixa aqui deste post o cepdemo.rar que o Toledo postou que funciona perfeito, inclusive foi feito pra minigui e eu tive que adaptar poucas coisas pra funcionar em Harbour console e ficou redondinho.
Quando busco o endereço eu inclusive coloco o cursor no final da linha do endereço que trouxe para o cliente colocar o número porque utilizo a mesma variável de endereço pra colocar o complemento. Deu um trabalhinho isso mas ficou perfeito.
Avatar do usuário
Linguagemclipper
Usuário Nível 3
Usuário Nível 3
Mensagens: 240
Registrado em: 16 Abr 2016 17:33
Localização: Maceió/AL
Contato:

Consultar e Importar Cep da Internet para o Sistema.

Mensagem por Linguagemclipper »

Muito mais simples usando JSON e guardando os dados em uma variável hash, mas se pode complicar, né?! Pra que simplificar?...
Usando xHarbour v1.2.3 Rev. 10264 + BCC 5.8, Elchs' LetoDBf, DBFCDX e SIBRA para imprimir relatórios.
Responder