// cWS_Rastro_Correios.pkg // Class: cWS_Rastro_Correios // Created: 24/09/2019 14:33:27,699 // Use cClientWebService.pkg // Structs used by web service Struct tWSbuscaEventosLista String usuario String senha String tipo String resultado String lingua String[] objetos End_Struct Struct tWSdestinos String local String codigo String cidade String bairro String uf End_Struct Struct tWSenderecoMobile String codigo String cep String logradouro String complemento String numero String localidade String uf String bairro String latitude String longitude String celular End_Struct Struct tWSeventos String tipo String status String data String hora String descricao String detalhe String recebedor String documento String comentario String local String codigo String cidade String uf String sto String amazoncode String amazontimezone tWSdestinos[] destino tWSenderecoMobile endereco End_Struct Struct tWSobjeto String numero String sigla String nome String categoria String erro tWSeventos[] evento End_Struct Struct tWSsroxml String versao String qtd String TipoPesquisa String TipoResultado tWSobjeto[] objeto End_Struct Struct tWSbuscaEventosListaResponse tWSsroxml return End_Struct Struct tWSbuscaEventos String usuario String senha String tipo String resultado String lingua String objetos End_Struct Struct tWSbuscaEventosResponse tWSsroxml return End_Struct // // Class: cWS_Rastro_Correios // // Interface: // // Function wsbuscaEventos String llusuario String llsenha String lltipo String llresultado String lllingua String llobjetos Returns tWSsroxml // Function wsbuscaEventosLista String llusuario String llsenha String lltipo String llresultado String lllingua String[] llobjetos Returns tWSsroxml // // Class cWS_Rastro_Correios is a cClientWebService Procedure Construct_Object Forward Send Construct_Object Set psServiceLocation to 'http://webservice.correios.com.br:80/service/rastro' Set psWSDLLocation to 'http://webservice.correios.com.br/service/rastro/Rastro.wsdl' Object oWSbuscaEventosLista is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "usuario" Send DefineParameter xsString 0 1 "senha" Send DefineParameter xsString 0 1 "tipo" Send DefineParameter xsString 0 1 "resultado" Send DefineParameter xsString 0 1 "lingua" Send DefineParameter xsString 0 C_unbounded "objetos" End_Object Object oWSdestinos is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "local" Send DefineParameter xsString 0 1 "codigo" Send DefineParameter xsString 0 1 "cidade" Send DefineParameter xsString 0 1 "bairro" Send DefineParameter xsString 0 1 "uf" End_Object Object oWSenderecoMobile is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "codigo" Send DefineParameter xsString 0 1 "cep" Send DefineParameter xsString 0 1 "logradouro" Send DefineParameter xsString 0 1 "complemento" Send DefineParameter xsString 0 1 "numero" Send DefineParameter xsString 0 1 "localidade" Send DefineParameter xsString 0 1 "uf" Send DefineParameter xsString 0 1 "bairro" Send DefineParameter xsString 0 1 "latitude" Send DefineParameter xsString 0 1 "longitude" Send DefineParameter xsString 0 1 "celular" End_Object Object oWSeventos is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "tipo" Send DefineParameter xsString 0 1 "status" Send DefineParameter xsString 0 1 "data" Send DefineParameter xsString 0 1 "hora" Send DefineParameter xsString 0 1 "descricao" Send DefineParameter xsString 0 1 "detalhe" Send DefineParameter xsString 0 1 "recebedor" Send DefineParameter xsString 0 1 "documento" Send DefineParameter xsString 0 1 "comentario" Send DefineParameter xsString 0 1 "local" Send DefineParameter xsString 0 1 "codigo" Send DefineParameter xsString 0 1 "cidade" Send DefineParameter xsString 0 1 "uf" Send DefineParameter xsString 0 1 "sto" Send DefineParameter xsString 0 1 "amazoncode" Send DefineParameter xsString 0 1 "amazontimezone" Send DefineQualStructParameter oWSdestinos 0 C_unbounded "destino" "http://resource.webservice.correios.com.br/" Send DefineQualStructParameter oWSenderecoMobile 0 1 "endereco" "http://resource.webservice.correios.com.br/" End_Object Object oWSobjeto is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "numero" Send DefineParameter xsString 0 1 "sigla" Send DefineParameter xsString 0 1 "nome" Send DefineParameter xsString 0 1 "categoria" Send DefineParameter xsString 0 1 "erro" Send DefineQualStructParameter oWSeventos 0 C_unbounded "evento" "http://resource.webservice.correios.com.br/" End_Object Object oWSsroxml is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "versao" Send DefineParameter xsString 0 1 "qtd" Send DefineParameter xsString 0 1 "TipoPesquisa" Send DefineParameter xsString 0 1 "TipoResultado" Send DefineQualStructParameter oWSobjeto 0 C_unbounded "objeto" "http://resource.webservice.correios.com.br/" End_Object Object oWSbuscaEventosListaResponse is a cSoapMetaStruct Set psNameSpace to "" Send DefineStructParameter oWSsroxml 0 1 "return" End_Object Object oWSbuscaEventos is a cSoapMetaStruct Set psNameSpace to "" Send DefineParameter xsString 0 1 "usuario" Send DefineParameter xsString 0 1 "senha" Send DefineParameter xsString 0 1 "tipo" Send DefineParameter xsString 0 1 "resultado" Send DefineParameter xsString 0 1 "lingua" Send DefineParameter xsString 0 1 "objetos" End_Object Object oWSbuscaEventosResponse is a cSoapMetaStruct Set psNameSpace to "" Send DefineStructParameter oWSsroxml 0 1 "return" End_Object End_Procedure // // Function wsbuscaEventos // // Function wsbuscaEventos String llusuario String llsenha String lltipo String llresultado String lllingua String llobjetos Returns tWSsroxml tWSsroxml llreturn tSoapParameter[] spParameters tSoapParameter[] spReturnParameters Integer eStatus Send Reset Set psSOAPAction to "buscaEventos" Set peSoapStyle to ssDocument Set psRequestNSURI to "http://resource.webservice.correios.com.br/" Set peSoapEncoding to seLiteral Set psMethodRequest to "buscaEventos" Set pbRequestBare to False Set pbRequestOnly to False Set psResponseNSURI to "http://resource.webservice.correios.com.br/" Set peResponseSoapEncoding to seLiteral Set psMethodResponse to "buscaEventosResponse" Set pbResponseBare to False // Parameter 0 Get DefineParameter xsString 0 1 "usuario" "" to spParameters[0].SoapParamDef ValueTreeSerializeParameter llusuario to spParameters[0].ValueTree // Parameter 1 Get DefineParameter xsString 0 1 "senha" "" to spParameters[1].SoapParamDef ValueTreeSerializeParameter llsenha to spParameters[1].ValueTree // Parameter 2 Get DefineParameter xsString 0 1 "tipo" "" to spParameters[2].SoapParamDef ValueTreeSerializeParameter lltipo to spParameters[2].ValueTree // Parameter 3 Get DefineParameter xsString 0 1 "resultado" "" to spParameters[3].SoapParamDef ValueTreeSerializeParameter llresultado to spParameters[3].ValueTree // Parameter 4 Get DefineParameter xsString 0 1 "lingua" "" to spParameters[4].SoapParamDef ValueTreeSerializeParameter lllingua to spParameters[4].ValueTree // Parameter 5 Get DefineParameter xsString 0 1 "objetos" "" to spParameters[5].SoapParamDef ValueTreeSerializeParameter llobjetos to spParameters[5].ValueTree Set pspParameters to spParameters // Return Parameter Get DefineStructParameter oWSsroxml 0 1 "return" "" to spReturnParameters[0].SoapParamDef Set pspReturnParameters to spReturnParameters Get DoInvokeService to eStatus If (eStatus=wssOK) Begin Get pspReturnParameters to spReturnParameters ValueTreeDeserializeParameter spReturnParameters[0].ValueTree to llreturn End Else Begin Send LastError End Function_Return llreturn End_Function // // Function wsbuscaEventosLista // // Function wsbuscaEventosLista String llusuario String llsenha String lltipo String llresultado String lllingua String[] llobjetos Returns tWSsroxml tWSsroxml llreturn tSoapParameter[] spParameters tSoapParameter[] spReturnParameters Integer eStatus Send Reset Set psSOAPAction to "buscaEventosLista" Set peSoapStyle to ssDocument Set psRequestNSURI to "http://resource.webservice.correios.com.br/" Set peSoapEncoding to seLiteral Set psMethodRequest to "buscaEventosLista" Set pbRequestBare to False Set pbRequestOnly to False Set psResponseNSURI to "http://resource.webservice.correios.com.br/" Set peResponseSoapEncoding to seLiteral Set psMethodResponse to "buscaEventosListaResponse" Set pbResponseBare to False // Parameter 0 Get DefineParameter xsString 0 1 "usuario" "" to spParameters[0].SoapParamDef ValueTreeSerializeParameter llusuario to spParameters[0].ValueTree // Parameter 1 Get DefineParameter xsString 0 1 "senha" "" to spParameters[1].SoapParamDef ValueTreeSerializeParameter llsenha to spParameters[1].ValueTree // Parameter 2 Get DefineParameter xsString 0 1 "tipo" "" to spParameters[2].SoapParamDef ValueTreeSerializeParameter lltipo to spParameters[2].ValueTree // Parameter 3 Get DefineParameter xsString 0 1 "resultado" "" to spParameters[3].SoapParamDef ValueTreeSerializeParameter llresultado to spParameters[3].ValueTree // Parameter 4 Get DefineParameter xsString 0 1 "lingua" "" to spParameters[4].SoapParamDef ValueTreeSerializeParameter lllingua to spParameters[4].ValueTree // Parameter 5 Get DefineParameter xsString 0 C_unbounded "objetos" "" to spParameters[5].SoapParamDef ValueTreeSerializeParameter llobjetos to spParameters[5].ValueTree Set pspParameters to spParameters // Return Parameter Get DefineStructParameter oWSsroxml 0 1 "return" "" to spReturnParameters[0].SoapParamDef Set pspReturnParameters to spReturnParameters Get DoInvokeService to eStatus If (eStatus=wssOK) Begin Get pspReturnParameters to spReturnParameters ValueTreeDeserializeParameter spReturnParameters[0].ValueTree to llreturn End Else Begin Send LastError End Function_Return llreturn End_Function End_Class