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