in

ConsultaCPF.com

Developer Network

Erro ao capturar dados SinteseEmpresarial

Last post 12-21-2009 11:51 by Jaime. 5 replies.
Page 1 of 1 (6 items)
Sort Posts: Previous Next
  • 12-18-2009 14:45

    • Jaime
    • Top 10 Contributor
    • Joined on 12-17-2009
    • Posts 8

    Erro ao capturar dados SinteseEmpresarial

    Olá pessoal,

    Quando tento capturar os dados da consulta SinteseEmpresarial recebo um "Object reference not set to an instance of an object".

    Dim objWS As New ConsultaCPFWebServiceTestDrive
    Dim objResult As New SERASAConsultaConfie
    objResult = objWS.ConsultaSinteseEmpresarialSERASA(email, senha, doc)
    lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    lblSituacaoRF.Text = objResult.ReceitaFederal.ReceitaFederal_Identificacao_Resumo.Situacao
    lblSituacaoSuframa.Text = objResult.Suframa.Suframa_Situacao_Resumo.Situacao

    Por gentileza, alguém poderia me dar um exemplo de captura de dados padrão para SinteseEmpresarial?

    Agradeço,
    Jaime
  • 12-19-2009 10:27 In reply to

    Re: Erro ao capturar dados SinteseEmpresarial

    Ola Jaime, como vai?

    Jaime, aparentemente esta propriedade retornada nao foi renderizada no XML de retorno porque nao contia nenhuma informacao, por exemplo se voce consulta um CNPJ e o telefone nao existe na base entao na serializacao do XML nao será criada a tag do telefone e consequentemente depois de instanciado o objeto no seu projeto ele deve retornar como object reference not set. Aconselho ficar no "safe side" e testar ele antes de manipula-lo.

    Exemplo:

    If Not objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica Is Nothing Then
        lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    End If

    O ideal tambem é verificar o XML seu que vai estar em objResult para ver a estrutura das TAGs retornadas.

     

     Sinta-se a vontade para nos contactar para quaisquer duvidas.

     

    Cheers.

     

    Angelo Bestetti
    Software Architect
  • 12-19-2009 13:22 In reply to

    • Jaime
    • Top 10 Contributor
    • Joined on 12-17-2009
    • Posts 8

    Re: Erro ao capturar dados SinteseEmpresarial

    Obrigado Angelo pela resposta, eu vou testar estes objetos primeiro. Engraçado que nas outras consultas não precisa testar, já que é retornado um empty string quando o dado de input não for encontrado, mas tudo bem.

    Será que poderia me dar um exemplo de quais dados capturar numa consulta típica de SinteseEmpresarial?
    É que tem vários e gostaria de saber se num consulta padrão devemos capturar todos.

     

    Um abraço

    Jaime

  • 12-20-2009 20:01 In reply to

    • Jaime
    • Top 10 Contributor
    • Joined on 12-17-2009
    • Posts 8

    Re: Erro ao capturar dados SinteseEmpresarial

    AngeloBestetti:

    aime, aparentemente esta propriedade retornada nao foi renderizada no XML de retorno porque nao contia nenhuma informacao, por exemplo se voce consulta um CNPJ e o telefone nao existe na base entao na serializacao do XML nao será criada a tag do telefone e consequentemente depois de instanciado o objeto no seu projeto ele deve retornar como object reference not set. Aconselho ficar no "safe side" e testar ele antes de manipula-lo.

    Exemplo:

    If Not objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica Is Nothing Then
        lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    End If

    If Not objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica Is Nothing Then
        lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    End If

    Não funciona. Tenho que eliminar a última parte ( .DescricaoAtividadeEconomica) para que funcione; então fica como:

    If Not objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe Is Nothing Then
        lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    End If

    Tentei testar com vários CNPJs de teste fornecidos neste site (10000CNPJs-SinteseEmpresarial.txt) mas nenhum parece ter dados para retorno (alguns até retornam Status = False), e assim fica meio inútil o ambiente de teste, já que não dá pra ver um exemplo de retorno em ação.
  • 12-20-2009 23:12 In reply to

    Re: Erro ao capturar dados SinteseEmpresarial

    Ola Jaime,

     Voce poderia nos enviar uma copia dos testes que voce esta realizando, ja fizemos varios testes e outros clientes ja passaram pelo ambiente de testes e ja estao em producao sem nenhum problema.

     Atenciosamente,

     

    www.consultacpf.com
    suporte@consultacpf.com

     

    Angelo Bestetti
    Software Architect
  • 12-21-2009 11:51 In reply to

    • Jaime
    • Top 10 Contributor
    • Joined on 12-17-2009
    • Posts 8

    Re: Erro ao capturar dados SinteseEmpresarial

    Obrigado pela resposta Angelo,

    As consultas do tipo Simples, Detalhada, SinteseCadastral e Cheque, consegui testar devidamente e portanto não representam problema. Os 2 tipos que ainda me deixam com dúvidas são SinteseEmpresarial e Concentre.

    Vamos primeiro na SinteseEmpresarial. Eu estou fazendo da seguinte forma:

    Dim objWS As New ConsultaCPFWebServiceTestDrive
    Dim objResult As New SERASAConsultaConfie
    objResult = objWS.ConsultaSinteseEmpresarialSERASA(email, senha, doc)
    If Not objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe Is Nothing Then
    lblAtividade.Text = objResult.Sintegra.Sintegra_AtividadeEconomicaDetalhe.DescricaoAtividadeEconomica
    End If
    If Not objResult.ReceitaFederal.ReceitaFederal_Identificacao_Resumo Is Nothing Then
    lblSituacaoRF.Text = objResult.ReceitaFederal.ReceitaFederal_Identificacao_Resumo.Situacao
    End If
    If Not objResult.Suframa.Suframa_Situacao_Resumo Is Nothing Then
    lblSituacaoSuframa.Text = objResult.Suframa.Suframa_Situacao_Resumo.Situacao
    End If
    lblMensagem.Text = objResult.Mensagem

    Problema1: testei com varios dos CNPJs baixados do site, mas nenhum retorna dado algum, nem sequer no objeto Mensagem, ou seja não tem como TESTAR realmente com esses CNPJs.
    Problema 2: Escolhi apenas esses 4 propriedades para retorno, mas tem um monte na Classe SinteseEmpresarial. Já perguntei varias vezes: tem como me dar um exemplo de que dados deveria capturar no retorno para uma consulta típica de SinteseEmpresarial? Ou será que são simplesmente todos? É que nunca ví uma consulta dessas na prática.

    Agora em relação à consulta Concentre, eu faço:

    Dim objResult As New SERASAConsultaConcentre
    objResult = objWS.ConsultaConcentreSERASA(email, senha, doc)
    Me.lblNome.Text = objResult.Nome
    Me.lblNomeMae.Text = objResult.NomeMae
    Me.lblDataNasc.Text = objResult.DataNasc
    Me.lblSituacaoDocumento.Text = objResult.SituacaoDocumento
    Me.lblTotalOcorrencias.Text = objResult.TotalOcorrencias.ToString
    Me.lblMensagem.Text = objResult.Mensagem
    Dim tPendencias As DataSet = objResult.Pendencias
    Me.GridView1.DataSource = tPendencias.Tables("PendenciasFinanceiras")
    Me.GridView1.DataBind()
    Me.GridView2.DataSource = tPendencias.Tables("PendenciasVarejo")
    Me.GridView2.DataBind()
    Me.GridView3.DataSource = tPendencias.Tables("PendenciasBacen")
    Me.GridView3.DataBind()
    Me.GridView4.DataSource = tPendencias.Tables("AlertaDocumentos")
    Me.GridView4.DataBind() 

    Até ai tudo bem. O problema com esta consulta é que conforme você mesmo diz em outro post, Concentre retorna também as seguintes tabelas:

    Tabela de Protestos
    Tabela de Acoes Judiciais
    Tabela de FalenciaseConcordatas
    Tabela de Participacoes em Empresas com Falencias ou Concordatas
    Tabela de Restrições Financeiras
    Tabela do Achei-Recheque dos Bancos conveniados
    Tabela do Banco Central CCF/BACEN
    Tabela do CONVEM Devedores
    Alertas SERASA

    Só que não as encontro na classe. Poderia dar um exemplo de retorno Concentre para que vejo onde está capturando estas tabelas?

    Grato

    Jaime

Page 1 of 1 (6 items)
Powered by Community Server (Non-Commercial Edition), by Telligent Systems