Validação de CPF e CNPJ Online

Validando um CPF / CNPJ Online via WebService e AJAX

Este artigo tem como finalidade mostrar como consumir um webservice em ASP.NET AJAX para fazer uma validação Online na base de dados do SERASA e receber a informação Nome/Razao Social do documento consultado.

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 webmaster@consultacpf.com.

O Código fonte deste artigo está disponível aqui

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:

1. Criar um Label para Numero do Documento

2. Criar um TextBox fldDocumento para receber o numero do Documento

3. Criar um Botão para executar a consulta

4. Criar um Label fldNomepara receber a resposta do WebService

5. Criar um Label fldDatapara 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

Após inserir a Web Reference, você deverá ver a referência no painel ao lado.

Código para Invocar o WebService

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

<code>
Imports com.consultacpf.www
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Consultar(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Declara as instâncias
        Dim oWS As New ConsultaCPFWebService
        Dim oResultado As New SinteseCadastral
        Dim Email As String = ConfigurationManager.AppSettings("Email")
        Dim Senha As String = ConfigurationManager.AppSettings("Senha")


        ' Invoca o WebService passando os parâmetros 
        'e recebe a resposta no Object oResultado
        oResultado = oWS.ConsultaSinteseCadastralSERASA(Email, Senha, Me.Documento.Text)

        ' Move os dados do Object oResultado para os Campos da tela
        Me.fldNome.Text = oResultado.Nome
        Me.fldData.Text = oResultado.DataNasc

        ' Tudo ok!

    End Sub
End Class
</code>

Visualizando em seu navegador

Não esquecer de atualizar o web.config com suas credenciais!

That´s all Folks, enjoy it!