PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

WSCEP Webservice - Consulta endereços do Brasil
Publié par Boller
dans la catégorie Outils
Nouveautés



Description
WSCEP Webservice - Consulta endereços do Brasil

É um exemplo de webservice do tipo SOAP para consulta de CEP e endereços do Brasil

https://youtu.be/AgL0j6sN7YU


Explicação do projeto
https://forum.PC SOFT.fr/fr-FR/PC SOFT.br.WINDEV/2620-novo-webservice-informatica-para-consulta-cep-brasil-com/read.awp?lastview

Alternar entre endereço local para endereço remoto

IF Url_Local = True

WS_Adriano..Address = "http://server:port/webservice_path01"

ELSE

WS_Adriano..Address = "http://server:port/webservice_path02"

END

ADRIANO BOLLER
REPRESENTANTE PC SOFT NO BRASIL
adrianoboller@gmail.com
http://www.wxinformatica.com.br
+55 (41) 99949 1800
skype adrianoboller
Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Boller
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Evento_Consulta_CEP (<cep>)
//
// Parameters:
// cep:
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Consulta_CEP(cep)

cepbusca is string=NoSpace(cep)

cepbusca = Replace(cepbusca," ","")
cepbusca = Replace(cepbusca,".","")
cepbusca = Replace(cepbusca,"-","")
cepbusca = Replace(cepbusca,"/","")

ArrRetorno is array of string

Rua,Bairro,Cidade,Uf is string

IF IsNumeric(Val(cepbusca)) =True

url is string="http://cep.republicavirtual.com.br/web_cep.php?cep="+cepbusca+"&formato=json"

HTTPRequest(url)

JsonResultadocep is JSON=HTTPGetResult()

IF JsonResultadocep<>""THEN

//{"resultado":"1","resultado_txt":"sucesso - cep completo","uf":"PR","cidade":"Curitiba","bairro":"Tarum\u00e3","tipo_logradouro":"Rua","logradouro":"Doutor Ren\u00ea Dinorah da Silveira"}

IF JsonResultadocep.resultado_txt="sucesso - cep completo"

Rua = JsonResultadocep.tipo_logradouro+" "+JsonResultadocep.logradouro
Bairro = JsonResultadocep.bairro
Cidade = JsonResultadocep.cidade
Uf = JsonResultadocep.uf

EDT_App01_endereco = Rua
EDT_App01_bairro = Bairro
EDT_App01_cidade = Cidade
EDT_App01_uf = Uf

Add(ArrRetorno,Rua)//1
Add(ArrRetorno,Bairro)//2
Add(ArrRetorno,Cidade)//3
Add(ArrRetorno,Uf)//4
Add(ArrRetorno,cep)//5

END

END

ELSE

Info("O cep deve ser formado por numeros")
EDT_App01_endereco = ""
EDT_App01_bairro = ""
EDT_App01_cidade = ""
EDT_App01_uf = ""

END

RESULT ArrRetorno