Protheus :: Exemplo de WebService para Consulta ao CEP

A dica de hoje é um exemplo de WebService em advpl para a consulta ao CEP (Código de Endereçamento Postal) baseado no site  Republica Virtual

#INCLUDE "APWEBSRV.CH" #INCLUDE "PROTHEUS.CH" #DEFINE STR0001 "Servico de Constulta ao Codigo de Enderacamento Postal" #DEFINE STR0002 "Método para pesquisa do CEP" /*/ WSSERVICE: u_wsCEPInfo Autor: Marinaldo de Jesus Data: 20/09/2010 Descri‡…o: Servico de Constulta ao Codigo de Enderacamento Postal a partir da URL http://cep.republicavirtual.com.br/web_cep.php?cep=[cep] Uso: Consulta ao CEP (Codigo de Enderecamento Postal) /*/ WSSERVICE u_wsCEPInfo DESCRIPTION STR0001 NAMESPACE "http://localhost/naldo/ws/u_wscepinfo.apw" //"Servico de Constulta ao Codigo de Enderacamento Postal" WSDATA CEP As String WSDATA XML As String WSMETHOD CEPSearch DESCRIPTION STR0002 //"Método para pesquisa do CEP" ENDWSSERVICE /*/ WSMETHOD: CEPSearch Autor: Marinaldo de Jesus Data: 20/09/2010 Uso: Consulta de CEP Obs.: Metodo Para a Pesquisa do CEP Retorna: XML com a Consulta do CEP /*/ WSMETHOD CEPSearch WSRECEIVE CEP WSSEND XML WSSERVICE u_wsCEPInfo Local cUrl := "" Local lWsReturn := .T. DEFAULT CEP := Self:CEP cUrl := "http://cep.republicavirtual.com.br/web_cep.php?cep="+StrTran(CEP,"-","")+"&formato=xml" Self:XML := HttpGet( cUrl ) XML := Self:XML Return( lWsReturn )

Vamos consumi-lo usando um "Client" gerado pelo próprio Protheus.

#INCLUDE "PROTHEUS.CH" #INCLUDE "APWEBSRV.CH" /* =============================================================================== WSDL Location http://187.94.60.197:98/ws/U_WSCEPINFO.apw?WSDL Gerado em 09/20/10 19:27:10 Observações Código-Fonte gerado por ADVPL WSDL Client 1.090116 Alterações neste arquivo podem causar funcionamento incorreto e serão perdidas caso o código-fonte seja gerado novamente. =============================================================================== */ User Function _FTNRRNN ; Return // "dummy" function - Internal Use /* ------------------------------------------------------------------------------- WSDL Service WSU_WSCEPINFO ------------------------------------------------------------------------------- */ WSCLIENT WSU_WSCEPINFO WSMETHOD NEW WSMETHOD INIT WSMETHOD RESET WSMETHOD CLONE WSMETHOD CEPSEARCH WSDATA _URL AS String WSDATA cCEP AS string WSDATA cCEPSEARCHRESULT AS string ENDWSCLIENT WSMETHOD NEW WSCLIENT WSU_WSCEPINFO ::Init() If !FindFunction("XMLCHILDEX") UserException("O Código-Fonte Client atual requer os executáveis do Protheus Build [7.00.090818P-20100111] ou superior. Atualize o Protheus ou gere o Código-Fonte novamente utilizando o Build atual.") EndIf Return Self WSMETHOD INIT WSCLIENT WSU_WSCEPINFO Return WSMETHOD RESET WSCLIENT WSU_WSCEPINFO ::cCEP := NIL ::cCEPSEARCHRESULT := NIL ::Init() Return WSMETHOD CLONE WSCLIENT WSU_WSCEPINFO Local oClone := WSU_WSCEPINFO():New() oClone:_URL := ::_URL oClone:cCEP := ::cCEP oClone:cCEPSEARCHRESULT := ::cCEPSEARCHRESULT Return oClone // WSDL Method CEPSEARCH of Service WSU_WSCEPINFO WSMETHOD CEPSEARCH WSSEND cCEP WSRECEIVE cCEPSEARCHRESULT WSCLIENT WSU_WSCEPINFO Local cSoap := "" , oXmlRet BEGIN WSMETHOD cSoap += '' cSoap += WSSoapValue("CEP", ::cCEP, cCEP , "string", .T. , .F., 0 , NIL, .F.) cSoap += "" oXmlRet := SvcSoapCall( Self,cSoap,; "http://localhost/naldo/ws/u_wscepinfo.apw/CEPSEARCH",; "DOCUMENT","http://localhost/naldo/ws/u_wscepinfo.apw",,"1.031217",; "http://187.94.60.197:98/ws/U_WSCEPINFO.apw") ::Init() ::cCEPSEARCHRESULT := WSAdvValue( oXmlRet,"_CEPSEARCHRESPONSE:_CEPSEARCHRESULT:TEXT","string",NIL,NIL,NIL,NIL,NIL,NIL) END WSMETHOD oXmlRet := NIL Return .T.

Através de um programa em Advpl onde informaremos o código do CEP.

#INCLUDE "PROTHEUS.CH" #DEFINE STR0001 "Informe o CEP" #DEFINE STR0002 "Consulta de CEP" #DEFINE STR0003 "UF" #DEFINE STR0004 "Cidade" #DEFINE STR0005 "Bairro" #DEFINE STR0006 "Tipo de Logradouro" #DEFINE STR0007 "Logradouro" #DEFINE STR0008 "Resultado da Consulta" #DEFINE STR0009 "CEP" #DEFINE STR0010 "Mensagem" #DEFINE STR0011 "Consultar Novo CEP?" #DEFINE STR0012 "Consultando CEP" #DEFINE STR0013 "Aguarde..." /*/ Funcao: CEPInfo Autor: Marinaldo de Jesus Data: 20/09/2010 Uso: Consulta de CEP Obs.: Exemplo de Consumo do WEB Service u_wsCEPInfo para Consulta de CEP ao site da Republica Virtual /*/ User Function CEPInfo() Local aPerg := {} Local aResult := {} Local bCEPSearch Local cXML Local cError := "" Local cWarning := "" Local cUF Local cCidade Local cBairro Local cMensagem Local cResultado Local cLogradouro Local cTpLogradouro Local oWSCEP Local oXML BEGIN SEQUENCE aAdd( aPerg , { 1 , STR0002 , Space(8) , "99999999" , ".T." , "" , ".T." , 8 , .T. } ) //"Informe o CEP" IF ParamBox( @aPerg , STR0002 , NIL , NIL , NIL , .T. ) bCEPSearch := { || ; oWSCEP := WSU_WSCEPINFO():New(), ; oWSCEP:cCEP := MV_PAR01, ; oWSCEP:CEPSEARCH() ; } MsgRun( STR0013 , STR0012 , bCEPSearch ) //"Aguarde"###"Consultando CEP" cXML := oWSCEP:cCEPSEARCHRESULT oXML := XmlParser( cXML , "_" , @cError , @cWarning ) cResultado := oXml:_WebServiceCep:_Resultado:Text cMensagem := oXml:_WebServiceCep:_Resultado_Txt:Text IF ( cResultado == "1" ) cUF := oXml:_WebServiceCep:_UF:Text cCidade := oXml:_WebServiceCep:_Cidade:Text cBairro := oXml:_WebServiceCep:_Bairro:Text cLogradouro := oXml:_WebServiceCep:_Logradouro:Text cTpLogradouro := oXml:_WebServiceCep:_Tipo_Logradouro:Text aAdd( aResult , { 1 , STR0009 , MV_PAR01 , "99999999" , ".T." , "" , ".F." , 08 , .F. } ) //"CEP" aAdd( aResult , { 1 , STR0003 , cUF , "@" , ".T." , "" , ".F." , 04 , .F. } ) //"UF" aAdd( aResult , { 1 , STR0004 , cCidade , "@" , ".T." , "" , ".F." , 100 , .F. } ) //"Cidade" aAdd( aResult , { 1 , STR0005 , cBairro , "@" , ".T." , "" , ".F." , 100 , .F. } ) //"Bairro" aAdd( aResult , { 1 , STR0006 , cTpLogradouro , "@" , ".T." , "" , ".F." , 100 , .F. } ) //"Tipo de Logradouro" aAdd( aResult , { 1 , STR0007 , cLogradouro , "@" , ".T." , "" , ".F." , 100 , .F. } ) //"Logradouro" Else aAdd( aResult , { 1 , STR0009 , MV_PAR01 , "99999999" , ".T." , "" , ".F." , 08 , .F. } ) //"CEP" EndIF ParamBox( @aResult , STR0008 + " : " + cMensagem , NIL , NIL , NIL , .T. ) //"Resultado da Consulta" IF !( MsgNoYes( "Consultar Novo CEP?" , ProcName() ) ) BREAK EndIF U_CEPInfo() EndIF END SEQUENCE Return( MBrChgLoop( .F. ) )

Dica: Um exemplo de uso da função XmlParser() pode ser visto no código acima.

Para testar:

Clique aqui e baixe todos os códigos fontes.

Compile o WebService, Gere e compile o Cliente.

Compile o Programa de Exemplo "u_CEPInfo.prg" e adicione a chamada ao Menu de algum módulo do SIGA (Obs.: Se for incluir no Menu do Configurador altere o módulo de 99 para 97 ou outro de sua preferência )

[]s

иαldσ dj