//busca cep_manda_Cep is int=SAI_cep_busca(SAI_uf,SAI_cidade,SAI_bairro,SAI_tipo,SAI_rua)=busca_cep(_manda_Cep)//----PROCEDURE busca_cep(n_cep_recebe is int)Resultadoxml is string=""ok is boolean=HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+n_cep_recebe+"&formato=xml")IF ok=True THEN Resultadoxml=HTTPGetResult()ELSE Resultadoxml="" Info("cep nao existe"+n_cep_recebe)ENDsNo_xml is string=XMLExtractString(Resultadoxml,"webservicecep")suf is string=XMLExtractString(sNo_xml,"uf")suf=Upper(remove_acento(suf))sCidade is string=XMLExtractString(sNo_xml,"cidade")sCidade=Upper(remove_acento(sCidade))sBairro is string=XMLExtractString(sNo_xml,"bairro")sBairro=Upper(remove_acento(sBairro))sTipo is string=XMLExtractString(sNo_xml,"tipo_logradouro")sTipo=Upper(remove_acento(sTipo))sRua is string=XMLExtractString(sNo_xml,"logradouro")sRua=Upper(remove_acento(sRua))RESULT(suf,sCidade,sBairro,sTipo,sRua)