Faltam -1 dias! Inscreva-se agora! O maior encontro de profissionais web da américa latina.

Olá pessoal, como já deve ser de conhecimento de alguns, o ConsultaCPF não está mais trabalhando com o SPC, no entanto foram disponibilizados outros webservices para o acesso ao SERASA. Basicamente a idéia continua a mesma. Você passa um CNPJ ou CPF e o WebService retorna as informações do documento enviado.

Existe ainda, para quem gostaria de validar um CPF ou CNPJ Online, um outro WebService chamado de ConsultaCPF Síntese Cadastral. Vocês se lembram que era possível validar o CPF de uma pessoa pela Receita Federal? Depois que eles colocaram o Captcha não é mais possível, então para aqueles que precisam de colocar alguma validação em sites ou em sistemas, se o CPF/CNPJ é mesmo o que esta aparecendo vocês, podem utilizar este webservice também. O custo é atraente. R$ 0,50 por consulta não mata ninguém.

Este artigo tem como finalidade mostrar como consumir um webservice em ASP.NET ou VB.NET para fazer uma consulta no SERASA e receber a informação se o CPF/CNPJ possui restrições de crédito ou não.

Pré-Requisitos:

• Visual Studio 2005
• Conhecimentos de ASP.NET
• Conta para consulta no www.consultacpf.com (Gratuita para abertura, porém necessita créditos para consultas reais)

Dúvidas:

Encaminhar suas dúvidas para webmasterconsultacpf.com

Passo a Passo:

Assumindo que você já possui um projeto criado no Visual Studio, crie um Webform em seu Visual Studio com nome de consultacpf.aspx

Criando campos para consulta e resultados:

2. Criar um TextBox para receber o numero do CPF

4. Criar um Label para receber a resposta do WebService

Adicionando o WebService no seu projeto

No Menu Website do VS2005, utilizar a opção "Add Web Reference..."

Endereço para adicionar o webservice: http://www.consultacpf.com/webservices/consultacpf.asmx

Código para Invocar o WebService

Código para ser usado no evento do botão:

Partial Class consultacpf
    Inherits System.Web.UI.Page

    Protected Sub btn_consultar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_consultar.Click
        Dim oWS As New com.consultacpf.www.ConsultaCPFWebService
        Dim sCPF As String = Me.fld_CPF.Text

        If Trim(sCPF) = Nothing Then
            Exit Sub
        End If

        Dim aResults As Array = oWS.ConsultaSimplesSERASA("seu-usuario", "sua-senha", sCPF)
        Me.lbl_ResultadodaPesquisa.Text = aResults(0).Status.ToString.Trim


    End Sub
End Class

Abraços!