WEBSERVICE DOS CORREIOS
#####################

------------------------------------------------------------------------------
----- PROCEDURE WEBSERVICE DOS CORREIOS
------------------------------------------------------------------------------
Procedure BuscarCep(fCEP)

cep is string=fCEP

sRetorno, sCep, sLogradouro, sBairro, sCidade, sUf, sIbge is string

IF NOT HTTPRequest("http://m.correios.com.br/movel/buscaCepConfirma.do?cepEntrada="+cep+"&tipoCep=&cepTemp=&metodo=buscarCep") THEN //EXECUTA REQUISIÇÃO HTTP
RETURN
END

sArqhtml is string=HTTPGetResult()

arrARRAYRET is array of string

sArqhtml=Replace(sArqhtml,Charact(10),"") //remove </n>

StringToArray(sArqhtml,arrARRAYRET,CR) //quebra a string em linhas

FOR EACH DADOS OF arrARRAYRET //faz uma verredura na array e localiza a palavra anterior

IF StringCount(DADOS,"anterior") THEN

sRetorno=DADOS//armazena o conteudo da linha na variavel sretorno

BREAK

END

END
sLogradouro=retorna_valor(sRetorno,"Logradouro:")

sCep=retorna_valor(sRetorno,"CEP:")

sCidade=ExtractString(retorna_valor(sRetorno,"Localidade / UF:"),1,"/")

sUf=ExtractString(retorna_valor(sRetorno,"Localidade / UF:"),2,"/")

sBairro=retorna_valor(sRetorno,"Bairro:")

// = stc_endereco+" "+sLogradouro

//s_cidade = stc_cidade+" "+sCidade

//s_UF = Stc_uf+" "+suf

//s_bairro = stc_bairro+" "+sbairro

Info((sCep+CR+sLogradouro+CR+sBairro+CR+sCidade+CR+sUf+CR+sIbge),charsetAnsi)

------------------------------------------------------------------------------
----- PROCEDURE COMPLEMENTAR - WEBSERVICE DOS CORREIOS
------------------------------------------------------------------------------
Procedure retorna_valor(conteudo,sLogradouro)

sRetorno is string

arrARRAYRET is array of string

sCampobusca is string=[
"respostadestaque">
]

IF Contains(conteudo,sLogradouro) THEN

sRetorno=conteudo[[Position(conteudo,sLogradouro) TO ]]
StringToArray(sRetorno,arrARRAYRET,sCampobusca)

IF arrARRAYRET..Occurrence >= 2 THEN

sRetorno=arrARRAYRET[2]

sRetorno=NoSpace(ExtractString(sRetorno,1,"<"))

ELSE

sRetorno=""

END

END

RESULT(sRetorno)