//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) END sNo_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)
// Blog com video e exemplo completo
http://windevdesenvolvimento.blogspot.com.br/2016/01/windev21-curso-225-cep-republica.html
|