|
WX - Busca CEP - Republica Virtual CEP - Exemplos |
Iniciado por adrianoboller, mai., 27 2015 1:32 PM - 15 respostas |
| |
| | | |
|
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 1:32 PM |
Procedure BuscaCep(nCep is int)
ResultadoXml is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=xml")
IF ok = True THEN
ResultadoXml = HTTPGetResult()
Info(ResultadoXml)
END
RESULT(ResultadoXml) |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 1:33 PM |
Retorno:
<?xml version="1.0" encoding="iso-8859-1" ?> <webservicecep> <resultado>1</resultado> <resultado_txt>sucesso - cep completo</resultado_txt> <uf>PR</uf> <cidade>Curitiba</cidade> <bairro>Capão da Imbuia</bairro> <tipo_logradouro>Rua</tipo_logradouro> <logradouro>Clávio Molinari</logradouro> </webservicecep> |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 1:58 PM |
Procedure BuscaCep(nCep is int, DebugSn is string)
ResultadoXml is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=xml")
IF ok = True THEN
ResultadoXml = HTTPGetResult()
NoXml is string = XMLExtractString(ResultadoXml,"webservicecep")
sUf is string = XMLExtractString(NoXml,"uf")
sCidade is string = XMLExtractString(NoXml,"cidade")
sBairro is string = XMLExtractString(NoXml,"bairro")
sTipo_logradouro is string = XMLExtractString(NoXml,"tipo_logradouro")
sLogradouro is string = XMLExtractString(NoXml,"logradouro")
Info(sTipo_logradouro,sLogradouro,sBairro,sCidade,sUf)
END
IF DebugSn = "S" Info(ResultadoXml) END
RESULT(ResultadoXml)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:45 PM |
Procedure BuscaCepXml(nCep is int, DebugSn is string)
ResultadoXml is string = ""
sUf, sCidade, sBairro, sTipo_logradouro, sLogradouro is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=xml")
IF ok = True THEN
ResultadoXml = HTTPGetResult()
NoXml is string = XMLExtractString(ResultadoXml,"webservicecep")
sUf = XMLExtractString(NoXml,"uf")
sCidade = XMLExtractString(NoXml,"cidade")
sBairro = XMLExtractString(NoXml,"bairro")
sTipo_logradouro = XMLExtractString(NoXml,"tipo_logradouro")
sLogradouro = XMLExtractString(NoXml,"logradouro")
END
IF DebugSn = "S" Info(ResultadoXml) Info(sTipo_logradouro,sLogradouro,sBairro,sCidade,sUf) END
RESULT(ResultadoXml)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:45 PM |
Procedure BuscaCepQuery(nCep is int, DebugSn is string)
ResultadoQuery is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=query_string")
IF ok = True THEN
ResultadoQuery = HTTPGetResult()
END
IF DebugSn = "S" Info(ResultadoQuery) END
RESULT(ResultadoQuery)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:45 PM |
Procedure BuscaCepMinhaFuncaoJS(nCep is int, DebugSn is string)
ResultadoMinhaFuncaoJS is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=jsonp&callback=minhaFuncaoJS")
IF ok = True THEN
ResultadoMinhaFuncaoJS = HTTPGetResult()
END
IF DebugSn = "S" Info(ResultadoMinhaFuncaoJS) END
RESULT(ResultadoMinhaFuncaoJS)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:46 PM |
Procedure BuscaCepJson(nCep is int, DebugSn is string)
ResultadoJson is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=json")
IF ok = True THEN
ResultadoJson = HTTPGetResult()
END
IF DebugSn = "S" Info(ResultadoJson) END
RESULT(ResultadoJson)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:46 PM |
Procedure BuscaCepJavaScript(nCep is int, DebugSn is string)
ResultadoJavaScript is string = ""
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ nCep +"&formato=javascript")
IF ok = True THEN
ResultadoJavaScript = HTTPGetResult()
END
IF DebugSn = "S" Info(ResultadoJavaScript) END
RESULT(ResultadoJavaScript)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 2:49 PM |
| |
| |
| | | |
|
| | |
| |
Publicado em maio, 27 2015 - 4:07 PM |
Tento usar os mesmos códigos mas o retorno da minha requisição vem tudo em japonês, será alguma conspiração? |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 4:46 PM |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em maio, 27 2015 - 5:04 PM |
| |
| |
| | | |
|
| | |
| |
Publicado em maio, 27 2015 - 7:50 PM |
Obrigado, usei o UTF8ToString() e resolver valeu. |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em março, 01 2016 - 3:39 PM |
Prezados,
Outro exemplo criado por Leandro Desis:
Procedure Busca_Cep(sCep is string)
ResultadoXml is string = ""
arrRetorno is array of strings arrRetorno = ["","","","",""]
ok is boolean = HTTPRequest("http://cep.republicavirtual.com.br/web_cep.php?cep="+ sCep +"&formato=xml")
IF ok = True THEN
ResultadoXml = HTTPGetResult()
NoXml is string = XMLExtractString(ResultadoXml,"webservicecep")
arrRetorno[1] = XMLExtractString(NoXml,"uf") arrRetorno[2] = XMLExtractString(NoXml,"cidade") arrRetorno[3] = XMLExtractString(NoXml,"bairro") arrRetorno[4] = XMLExtractString(NoXml,"logradouro") arrRetorno[5] = XMLExtractString(NoXml,"tipo_logradouro")
ELSE arrRetorno[1] = "" arrRetorno[2] = "" arrRetorno[3] = "" arrRetorno[4] = "" arrRetorno[5] = "" END
RESULT(arrRetorno)
Para deixar uma mensagem de aguarde......
OpenChild(WIN_msgWait,"Aguarde... Buscando informação dos sites do correio......")
arrAux is array of string arrAux = Busca_Cep(StringDelete(EDT_CEP, "-"))
Close(WIN_msgWait)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em abril, 19 2016 - 7:25 PM |
Prezados,
Para usar:
Busca_Cep(EDT_T001_CEP)
EDT_T001_Endereco = arrRetorno[5] +" "+ arrRetorno[4]
EDT_T001_Bairro = arrRetorno[3]
EDT_T001_Cidade = arrRetorno[2]
EDT_T001_UF = arrRetorno[1]
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 9949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.blogspot.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.660 mensagems Popularité : +175 (223 votes) |
|
Publicado em agosto, 30 2017 - 5:10 AM |
arr_Resultados is array of string
gsValorMemorizado is string = 1
DeclareWebserviceContext(gsValorMemorizado)
DeclareWebserviceContext(arr_Resultados)
Procedure Ws_BuscaEndereco(Token, Endereco)
arrResultado is array of string ok is boolean = False X is int = 0 nTokenOk is int = 0 sTabela is string = "Enderecos" Resultado is string = "" sErro is string = "" GloToken is string = ""
OkConn is boolean = False
OkConn = HConnectionOpen(MyHfsql)
ok = HExecuteQuery(QRY_Select_Cliente,hQueryWithoutHFCorrection,Token)
IF ok = True THEN FOR EACH QRY_Select_Cliente IF HFound(QRY_Select_Cliente) = True AND Token = QRY_Select_Cliente.Token THEN GloToken = QRY_Select_Cliente.Token ELSE GloToken = "" END END END
IF Token <> "" AND Token = GloToken IF OkConn = True THEN ok = HExecuteQuery(QRY_Select_Cliente,MyHfsql,hQueryWithoutHFCorrection,Token) IF ok = True THEN FOR EACH QRY_Select_Cliente IF HFound(QRY_Select_Cliente) = True THEN ok = HExecuteQuery(QRY_Select_CEP,MyHfsql,hQueryWithoutCorrection,Endereco) IF ok =True THEN Resultado = "<Xml><Retorno>" FOR EACH QRY_Select_CEP IF HFound(QRY_Select_CEP) = True AND X = 0 X += 1 Resultado += ws_xml_registro_comeco(X) Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Sequencial,"Sequencial") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.LogradouroUpper,"LogradouroUpper") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.LogradouroAbrev,"LogradouroAbrev") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Logradouro,"Logradouro") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.LogradouroCompl,"LogradouroCompl") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Fonetica,"Fonetica") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.LogradouroTipo,"LogradouroTipo") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.CEP,"CEP") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Bairro,"Bairro") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.BairroAbrev,"BairroAbrev") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.IDCidade,"IDCidade") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Cidade,"Cidade") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.SubCidadeAbrev,"SubCidadeAbrev") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.SubCidade,"SubCidade") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.CodIBGECid,"CodIBGECid") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.CodIBGEUF,"CodIBGEUF") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.UF,"UF") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.Pais,"Pais") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.LogradouroIniciais,"LogradouroIniciais") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.NumeroInicial,"NumeroInicial") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.NumeroFinal,"NumeroFinal") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.DMSLatitude,"DMSLatitude") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.DMSLongitude,"DMSLongitude") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.GDLatitude,"GDLatitude") Resultado += ws_xml_registro_corpo(QRY_Select_CEP.GDLongitude,"GDLongitude") Resultado += ws_xml_registro_final() END END IF X = 0 THEN Resultado = ws_zero_registros(sTabela) END Resultado += "<TOTAL>"+X+"</TOTAL>" Resultado += "</Retorno></Xml>" ELSE Resultado += "<Error>Erro 002 tabela<Error>" END ELSE Resultado += "<Error>Erro 003 tabela<Error>" END END ELSE Resultado += "<Error>Erro 004 tabela<Error>" END ELSE Resultado += "<Error>Erro 005 Conexao<Error>" END ip is string = WebserviceClientIPAddress(False) ok = HExecuteQuery(QRY_Insert_Log,hQueryWithoutHFCorrection,DateSys()+TimeSys(),ip,Token,Endereco) HReset(QRY_Select_CEP)
HReset(QRY_Select_Cliente) HConnectionClose(ConnNativa) ELSE Resultado += "<Error>Token invalido<Error>" END
nTamanho is int = Length(Resultado)
Add(arrResultado,Resultado)
RESULT (arrResultado)
SELECT enderecoscorreios.Sequencial AS Sequencial, enderecoscorreios.LogradouroUpper AS LogradouroUpper, enderecoscorreios.LogradouroAbrev AS LogradouroAbrev, enderecoscorreios.Logradouro AS Logradouro, enderecoscorreios.LogradouroCompl AS LogradouroCompl, enderecoscorreios.Fonetica AS Fonetica, enderecoscorreios.LogradouroTipo AS LogradouroTipo, enderecoscorreios.CEP AS CEP, enderecoscorreios.Bairro AS Bairro, enderecoscorreios.BairroAbrev AS BairroAbrev, enderecoscorreios.IDCidade AS IDCidade, enderecoscorreios.Cidade AS Cidade, enderecoscorreios.SubCidadeAbrev AS SubCidadeAbrev, enderecoscorreios.SubCidade AS SubCidade, enderecoscorreios.CodIBGECid AS CodIBGECid, enderecoscorreios.CodIBGEUF AS CodIBGEUF, enderecoscorreios.UF AS UF, enderecoscorreios.Pais AS Pais, enderecoscorreios.LogradouroIniciais AS LogradouroIniciais, enderecoscorreios.NumeroInicial AS NumeroInicial, enderecoscorreios.NumeroFinal AS NumeroFinal, enderecoscorreios.DMSLatitude AS DMSLatitude, enderecoscorreios.DMSLongitude AS DMSLongitude, enderecoscorreios.GDLatitude AS GDLatitude, enderecoscorreios.GDLongitude AS GDLongitude, MATCH(enderecoscorreios.LogradouroUpper, enderecoscorreios.LogradouroAbrev, enderecoscorreios.Logradouro, enderecoscorreios.LogradouroCompl, enderecoscorreios.Fonetica, enderecoscorreios.LogradouroTipo, enderecoscorreios.CEP, enderecoscorreios.Bairro, enderecoscorreios.BairroAbrev, enderecoscorreios.Cidade, enderecoscorreios.SubCidadeAbrev, enderecoscorreios.SubCidade, enderecoscorreios.UF, enderecoscorreios.Pais, enderecoscorreios.LogradouroIniciais) AGAINST({ParamKFulltext}) AS FullTextPertinence FROM enderecoscorreios WHERE FullTextPertinence > {ParamFullTextPertinence} ORDER BY FullTextPertinence DESC
SELECT clientes.id AS id, clientes.Nome AS Nome, clientes.Email AS Email, clientes.Celular AS Celular, clientes.Token AS Token FROM clientes WHERE clientes.Token = {ParamToken}
INSERT INTO wslog ( datahora, ip, Token, acao ) VALUES ( {Paramdatahora}, {Paramip}, {ParamToken}, {Paramacao} )
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|