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,