Autor Tópico: Pesquisa de CEP  (Lida 10571 vezes)

Marcelo Cruz

  • Administrator
  • *****
  • Mensagens: 175
  • Karma: +0/-0
  • .
Re:Pesquisa de CEP
« Responder #15 Online: Janeiro 19, 2014, 11:09:43 am »
Olá Arlindo,
Já estou utilizando a rotina!
Abraço

Marcelo Braga

  • Global Moderator
  • *****
  • Mensagens: 123
  • Karma: +1/-0
Re:Pesquisa de CEP
« Responder #16 Online: Janeiro 22, 2014, 12:42:34 am »
Tomei a liberdade de dar uma melhorada na função:

PROCEDURE BuscaCEP(pCEP is string)
   ResGet is boolean
   sResult, sEndXML, sCidXML,sBaiXML, sUFXML is string
   
   pCEP = Replace(pCEP,"-","")
   
   ResGet = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+pCEP+"&formato=xml")
   IF ResGet = True THEN
      XMLSource is string
      XMLSource = HTTPGetResult()
      sResult = XMLExtractString(XMLSource,"resultado_txt")
      SWITCH sResult
         CASE "sucesso - cep não encontrado":
            Info("Cep "+pCEP+" não encontrado!")
         CASE "sucesso - cep único":
            Info("CEP em branco!")
         CASE "sucesso - cep completo"
            sEndXML = XMLExtractString(XMLSource,"tipo_logradouro")+" "+XMLExtractString(XMLSource,"logradouro")
            sCidXML = XMLExtractString(XMLSource,"cidade")
            sBaiXML = XMLExtractString(XMLSource,"bairro")
            sUFXML  = XMLExtractString(XMLSource,"uf")
            RESULT sEndXML+","+sCidXML+","+sBaiXML+","+sUFXML
      END
   ELSE
      Info("Busca de CEP não disponível neste momento!")
   END
RESULT ""

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Pesquisa de CEP
« Responder #17 Online: Janeiro 22, 2014, 04:11:07 pm »
Excelente, ficou até elegante!

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Pesquisa de CEP
« Responder #18 Online: Maio 02, 2014, 05:42:30 pm »
Pessoal, qual a melhor forma para trabalhar com método POST e GET? o HttpResquest funciona bem?

como ficaria para pra essa situação aqui: buscaCepConfirma

Marcelo Braga

  • Global Moderator
  • *****
  • Mensagens: 123
  • Karma: +1/-0
Re:Pesquisa de CEP
« Responder #19 Online: Maio 02, 2014, 08:40:47 pm »
Arlindo boa noite, segue um exemplo de uma funcao que uso para buscar um endereço a partor de um cep:

PROCEDURE BuscaCEP(pCEP is string)
   ResGet is boolean
   sResult, sEndXML, sCidXML,sBaiXML, sUFXML is string
   
   pCEP = Replace(pCEP,"-","")
   
   ResGet = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+pCEP+"&formato=xml")
   IF ResGet = True THEN
      XMLSource is string
      XMLSource = HTTPGetResult()
      sResult = XMLExtractString(XMLSource,"resultado_txt")
      SWITCH sResult
         CASE "sucesso - cep não encontrado":
            Info("Cep "+pCEP+" não encontrado!")
         CASE "sucesso - cep único":
            Info("CEP em branco!")
         CASE "sucesso - cep completo"
            sEndXML = XMLExtractString(XMLSource,"tipo_logradouro")+" "+XMLExtractString(XMLSource,"logradouro")
            sBaiXML = XMLExtractString(XMLSource,"bairro")
            sCidXML = XMLExtractString(XMLSource,"cidade")
            sUFXML  = XMLExtractString(XMLSource,"uf")
            RESULT sEndXML+","+sBaiXML+","+sCidXML+","+sUFXML
      END
   ELSE
      Info("Busca de CEP não disponível neste momento!")
   END
RESULT ""

Abraços,

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Pesquisa de CEP
« Responder #20 Online: Maio 03, 2014, 12:37:21 pm »
Me expressei mal, no caso como seria para método GET e POST, conforme citei na publição anterior. creio que eh uma opção mais segura e atualizada.