AJUDA COM WEB SERVICE CADSUS

KURTGU 17/05/2017 03:25:57
#473997
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
KERPLUNK 17/05/2017 04:12:37
#473998 Resposta escolhida
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.
KURTGU 17/05/2017 07:12:34
#473999
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>
KURTGU 17/05/2017 09:09:29
#474000
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 encerrado , respostas não são mais permitidas
Voltar