Outro exemplo criado por Leandro Desis - WX - Busca CEP - Republica Virtual CEP - Exemplos

---

Forum.pcsoft.fr/pt-BR/pcsoft.br.windev/242-busca-cep-republica-virtual-cep-exemplos/read.awp

---

Prezados,

Outro exemplo criado por Leandro Desis:

---

Procedure Busca_Cep(sCep is string)

ResultadoXml is string = ""

arrRetorno is array of strings
arrRetorno = ["","","","",""]

ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ sCep +"&formato=xml")

IF ok = True THEN

ResultadoXml = HTTPGetResult()

NoXml is string = XMLExtractString(ResultadoXml,"webservicecep")

arrRetorno[1] = XMLExtractString(NoXml,"uf")
arrRetorno[2] = XMLExtractString(NoXml,"cidade")
arrRetorno[3] = XMLExtractString(NoXml,"bairro")
arrRetorno[4] = XMLExtractString(NoXml,"logradouro")
arrRetorno[5] = XMLExtractString(NoXml,"tipo_logradouro")

ELSE
arrRetorno[1] = ""
arrRetorno[2] = ""
arrRetorno[3] = ""
arrRetorno[4] = ""
arrRetorno[5] = ""
END

RESULT(arrRetorno)

---

Para deixar uma mensagem de aguarde......

OpenChild(WIN_msgWait,"Aguarde... Buscando informação dos sites do correio......")

arrAux is array of string
arrAux = Busca_Cep(StringDelete(EDT_CEP, "-"))

Close(WIN_msgWait)

---

---

---

---

---