AJUDA COM WEB SERVICE CADSUS

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM WEB SERVICE CADSUS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#473997 - 17/05/2017 03:25:57

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Última edição em 17/05/2017 03:27:12 por KURTGU

Boa noite a todos já tentei aqui mas não consegui fazer funcionar e retorna os dados da pesquisa em uma textbox se alguem tiver como me ajudar agradeceria. Estou tentando em VB.NET.

http://leonelfraga.com/neomatrixtech/posts/2016/06/acesso-webservice-cadsus-dotnet-csharp.html




Resposta escolhida #473998 - 17/05/2017 04:12:37

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Não me parece nenhum mistério. Adicione a referência. O código fica mais ou menos assim:

        Dim cli As CadsusServicePortTypeClient = New CadsusServicePortTypeClient("CadsusServicePort")
        cli.ClientCredentials.UserName.UserName = "USUARIO"
        cli.ClientCredentials.UserName.Password = "SENHA"
        Dim usuario As CNESUsuarioType = New CNESUsuarioType()
        usuario.Usuario = "OUTRO USUARIO(EU ACHO)"
        usuario.CNES = "SABE DEUS O QUE É ISSO"


        Dim req As requestPesquisar = New requestPesquisar()
        req.FiltroPesquisa = New FiltroPesquisa()
        req.FiltroPesquisa.CPF = New CPFType()
        req.FiltroPesquisa.CPF.numeroCPF = "UM CPF"
        req.CNESUsuario = usuario

        Dim Resultado As ResultadoPesquisa()
        Try
            Resultado = cli.pesquisar(req)
        Catch erro As Exception
            'fazer algo em caso de erro
        End Try


O resultado (variável "Resultado"), é um objeto(uma lista na verdade) e você precisa especificar que propriedade quer colocar para a textbox. Assim:

TextBox1.Text = Resultado.First().IdentificadorCorporativo.numeroIdentificadorCorporativo


Não tenho como rodar porque precisa daqueles valores de usuário e senha para autenticação. que suponho você tenha.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#473999 - 17/05/2017 07:12:34

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Usuario e senha são padroes publicos, ja tinha tentado desta forma... Mas ele não da erro nem retorna nada.. To tentando pra ver se consigo...O usuario e senha ele define no app.config

<wsse:Username>CADSUS.CNS.PDQ.PUBLICO</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-
wss-username-token-profile-
1.0#PasswordText">kUXNmiiii#RDdlOELdoe00966</wsse:Password>




#474000 - 17/05/2017 09:09:29

KURTGU
SAO PAULO
Cadast. em:Dezembro/2010


Citação:
:
Não me parece nenhum mistério. Adicione a referência. O código fica mais ou menos assim:

        Dim cli As CadsusServicePortTypeClient = New CadsusServicePortTypeClient("CadsusServicePort")
        cli.ClientCredentials.UserName.UserName = "USUARIO"
        cli.ClientCredentials.UserName.Password = "SENHA"
        Dim usuario As CNESUsuarioType = New CNESUsuarioType()
        usuario.Usuario = "OUTRO USUARIO(EU ACHO)"
        usuario.CNES = "SABE DEUS O QUE É ISSO"


        Dim req As requestPesquisar = New requestPesquisar()
        req.FiltroPesquisa = New FiltroPesquisa()
        req.FiltroPesquisa.CPF = New CPFType()
        req.FiltroPesquisa.CPF.numeroCPF = "UM CPF"
        req.CNESUsuario = usuario

        Dim Resultado As ResultadoPesquisa()
        Try
            Resultado = cli.pesquisar(req)
        Catch erro As Exception
            'fazer algo em caso de erro
        End Try


O resultado (variável "Resultado"), é um objeto(uma lista na verdade) e você precisa especificar que propriedade quer colocar para a textbox. Assim:

TextBox1.Text = Resultado.First().IdentificadorCorporativo.numeroIdentificadorCorporativo


Não tenho como rodar porque precisa daqueles valores de usuário e senha para autenticação. que suponho você tenha.


Consegui..Obrigada..



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por KURTGU em 17/05/2017 09:09:44