// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Evento_Consulta_CEP (<cep>)
//
// Parameters:
// cep:
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Consulta_CEP(cep)
cepbusca is string=NoSpace(cep)
cepbusca = Replace(cepbusca," ","")
cepbusca = Replace(cepbusca,".","")
cepbusca = Replace(cepbusca,"-","")
cepbusca = Replace(cepbusca,"/","")
ArrRetorno is array of string
Rua,Bairro,Cidade,Uf is string
IF IsNumeric(Val(cepbusca)) =True
url is string="http://cep.republicavirtual.com.br/web_cep.php?cep="+cepbusca+"&formato=json"
HTTPRequest(url)
JsonResultadocep is JSON=HTTPGetResult()
IF JsonResultadocep<>""THEN
//{"resultado":"1","resultado_txt":"sucesso - cep completo","uf":"PR","cidade":"Curitiba","bairro":"Tarum\u00e3","tipo_logradouro":"Rua","logradouro":"Doutor Ren\u00ea Dinorah da Silveira"}
IF JsonResultadocep.resultado_txt="sucesso - cep completo"
Rua = JsonResultadocep.tipo_logradouro+" "+JsonResultadocep.logradouro
Bairro = JsonResultadocep.bairro
Cidade = JsonResultadocep.cidade
Uf = JsonResultadocep.uf
EDT_App01_endereco = Rua
EDT_App01_bairro = Bairro
EDT_App01_cidade = Cidade
EDT_App01_uf = Uf
Add(ArrRetorno,Rua)//1
Add(ArrRetorno,Bairro)//2
Add(ArrRetorno,Cidade)//3
Add(ArrRetorno,Uf)//4
Add(ArrRetorno,cep)//5
END
END
ELSE
Info("O cep deve ser formado por numeros")
EDT_App01_endereco = ""
EDT_App01_bairro = ""
EDT_App01_cidade = ""
EDT_App01_uf = ""
END
RESULT ArrRetorno