Ir para conteúdo
Fórum Script Brasil
  • 0

Ler retorno de um XML (vba)


Lucianorw

Pergunta

Boa tarde!!!

Como faço um loop para ler um XML, na verdade, estou tendo dificuldades em fazer o loop dentro de um "pai" (acho que é assim que fala).

Veja o wsdl http://www.consultacpf.com/webservices/tes...tacpf.asmx?WSDL

Veja o que fiz até o momento.

Grato

Luciano

Dim lCounter
    For lCounter = 0 To oResposta.context.childNodes.length - 1
        If oResposta.context.childNodes.Item(lCounter).baseName = "Pendencias" Then
            txt = "PENDENCIAS..........:" & oResposta.context.childNodes.Item(lCounter).Text & vbCrLf & txt
            '/// preciso saber como implementar este loop dentro de PENDENCIAS.
            For i = 0 To oResposta.context.childNodes.length - 1
                If oResposta.context.childNodes.Item(i).baseName = "Protestos" Then
                    v_protestos = "DATA................:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "NUMERO CARTORIO.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "CODIGO NATUREZA.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "DESCRICAO NATUREZA..:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "VALOR...............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "LOCALIDADE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "ESTADO..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "CIDADE..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "SUB JUDICE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                    v_protestos = "DATA CARTA ANUENCIA.:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
                End If
            Next
        End If
    Next

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

Use o For Each... Next para percorrer coleções. O código vai ficar muito mais limpo e também é bem mais prático.

For Each pendência In oResposta.context.childNodes
    If pendência.baseName = "Pendencias" Then
        txt = "PENDENCIAS..........:" & pendência.Text & vbCrLf & txt
        For Each protesto In pendência.childNodes
            If protesto.baseName = "Protestos" Then
                'blá
            End If
        Next
    End If
Next
Agora, o que você quer exatamente com o código abaixo?
v_protestos = "DATA................:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "NUMERO CARTORIO.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "CODIGO NATUREZA.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "DESCRICAO NATUREZA..:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "VALOR...............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "LOCALIDADE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "ESTADO..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "CIDADE..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "SUB JUDICE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "DATA CARTA ANUENCIA.:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos

Cada um dos dados é um nó?

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0

Ola Graymalkin,

Grato pela atenção!!!

Vou mudar sim o esquema para o seu modelo, pois fica mais limpo.

O que preciso, é que quando chegar em PENDENCIAS, percorrer todos o "itens dentro de Pendencias".

Desculpe não saber explicar, pois, é a primeira vez que trabalho com XML.

Outra coisa, após dar um invoke do exemplo, tem como salvar o resultado em XML?

http://www.consultacpf.com/webservices/tes...ConcentreSERASA

Voce só consegue acessar se for cadastrado com um CNPJ valido.

Grato

Luciano

Link para o comentário
Compartilhar em outros sites

  • 0

Então, experimente fazer:

For Each pendência In oResposta.context.childNodes
    If pendência.baseName = "Pendencias" Then
        txt = "PENDENCIAS..........:" & pendência.Text & vbCrLf & txt
        vprotestos = ""
        For Each protesto In pendência.childNodes
            If protesto.baseName = "Protestos" Then
                For Each dados In protesto.childNodes
                    vprotestos = vprotestos & dados.nodeName & ": " & dados.text & vbcrlf
                Next
            End If
        Next
    End If
Next

Não testei aqui, mas veja se dá certo e se é o que você quer.

Abraços,

Graymalkin

Link para o comentário
Compartilhar em outros sites

  • 0
Então, experimente fazer:

For Each pendência In oResposta.context.childNodes
    If pendência.baseName = "Pendencias" Then
        txt = "PENDENCIAS..........:" & pendência.Text & vbCrLf & txt
        vprotestos = ""
        For Each protesto In pendência.childNodes
            If protesto.baseName = "Protestos" Then
                For Each dados In protesto.childNodes
                    vprotestos = vprotestos & dados.nodeName & ": " & dados.text & vbcrlf
                Next
            End If
        Next
    End If
Next
Não testei aqui, mas veja se dá certo e se é o que você quer. Abraços, Graymalkin
Ola Graymalkin, Testei o código que voce passou, só que vprotestos está vindo nulo. Tive que mudar o nome de algumas variáveis, será que fiz algo errado? Veja como ficou:
Dim v_pendencias As Object
        Dim vprotestos As String, protestos As Object
        Dim v_dados As Object

        For Each v_pendencias In oResposta.context.childnodes
            If v_pendencias.basename = "Pendencias" Then
                txt = "PENDENCIAS.........:" & v_pendencias.Text & vbCrLf & txt
                vprotestos = ""
                For Each protestos In v_pendencias.childnodes
                    If protestos.basename = "Protestos" Then
                        For Each v_dados In protestos.childnodes
                            vprotestos = vprotestos & v_dados.nodename & " : " & v_dados.Text & vbCrLf
                        Next
                    End If
                Next
            End If
        Next

Grato

Luciano

Link para o comentário
Compartilhar em outros sites

  • 0
"Pendência" realmente tem filhos? Você pode postar um exemplo do XML que você está lendo?

Abraços,

Graymalkin

Ola Graymalkin,

Este é o retorno de uma consulta.

Só que não sei como salvar aqui no forum, mas no meu pc, se apos realizar a consulta, no navegador mando salvar em xml, fica perfeito, sem erro algum, alias, estou resolvendo o meu problema dessa maneira, executo a consulta, salvo o retorno em xml ai eu trato os dados para o usuario.

Grato

Luciano

'//////////////////////////

<?xml version="1.0" encoding="utf-8" ?>

- <SERASAConsultaConcentre xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="ConsultaCPF">

<Documento>111.111.111-22</Documento>

<Nome>NOME DO DEVEDOR AAABBBCCC</Nome>

<NomeMae />

<DataNasc>14/07/1970</DataNasc>

<SituacaoDocumento>ATIVA EM 08/08/2007</SituacaoDocumento>

<TotalOcorrencias>17</TotalOcorrencias>

- <Pendencias>

- <xs:schema id="PendenciasConcentre" xmlns="" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">

- <xs:element name="PendenciasConcentre" msdata:IsDataSet="true" msdata:Locale="en-US">

- <xs:complexType>

- <xs:choice minOccurs="0" maxOccurs="unbounded">

- <xs:element name="Grafias">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="Grafia" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="Protestos">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="NumeroCartorio" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

<xs:element name="SubJudice" type="xs:string" minOccurs="0" />

<xs:element name="DataCartaAnuencia" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="AcoesJudiciais">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" />

<xs:element name="NumeroDistribuidor" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

<xs:element name="Principal" type="xs:string" minOccurs="0" />

<xs:element name="SubJudice" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="FalenciasConcordatas">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="Participacoes">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="CodigoQualificacao" type="xs:string" minOccurs="0" />

<xs:element name="NumeroVaraCivil" type="xs:string" minOccurs="0" />

<xs:element name="CNPJ" type="xs:string" minOccurs="0" />

<xs:element name="RazaoSocial" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="RestricoesFinanceiras">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="CodigoBanco" type="xs:string" minOccurs="0" />

<xs:element name="CodigoAgencia" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="NomeBanco" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

<xs:element name="Avalista" type="xs:string" minOccurs="0" />

<xs:element name="SubJudice" type="xs:string" minOccurs="0" />

<xs:element name="CNPJ" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="AcheiRecheque">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoBanco" type="xs:string" minOccurs="0" />

<xs:element name="CodigoAgencia" type="xs:string" minOccurs="0" />

<xs:element name="ContaCorrente" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="NomeBanco" type="xs:string" minOccurs="0" />

<xs:element name="NumeroCheque" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="BACEN">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoBanco" type="xs:string" minOccurs="0" />

<xs:element name="NumeroAgencia" type="xs:string" minOccurs="0" />

<xs:element name="TotalCheques" type="xs:int" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="NomeFantasiaBanco" type="xs:string" minOccurs="0" />

<xs:element name="Cidade" type="xs:string" minOccurs="0" />

<xs:element name="NaturezadaConta" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="PendenciasFinanceiras">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="CNPJCredor" type="xs:string" minOccurs="0" />

<xs:element name="Credor" type="xs:string" minOccurs="0" />

<xs:element name="Avalista" type="xs:string" minOccurs="0" />

<xs:element name="Contrato" type="xs:string" minOccurs="0" />

<xs:element name="SubJudice" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="Convem">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="DataOcorrencia" type="xs:string" minOccurs="0" />

<xs:element name="CodigoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="DescricaoNatureza" type="xs:string" minOccurs="0" />

<xs:element name="Valor" type="xs:string" minOccurs="0" />

<xs:element name="Localidade" type="xs:string" minOccurs="0" />

<xs:element name="Estado" type="xs:string" minOccurs="0" />

<xs:element name="CNPJCredor" type="xs:string" minOccurs="0" />

<xs:element name="Credor" type="xs:string" minOccurs="0" />

<xs:element name="Contrato" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

- <xs:element name="Alertas">

- <xs:complexType>

- <xs:sequence>

<xs:element name="Item" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" type="xs:int" />

<xs:element name="TotalMensagens" type="xs:int" minOccurs="0" />

<xs:element name="Mensagem" type="xs:string" minOccurs="0" />

</xs:sequence>

</xs:complexType>

</xs:element>

</xs:choice>

</xs:complexType>

- <xs:unique name="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//Grafias" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="Protestos_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//Protestos" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="AcoesJudiciais_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//AcoesJudiciais" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="FalenciasConcordatas_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//FalenciasConcordatas" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="Participacoes_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//Participacoes" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="RestricoesFinanceiras_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//RestricoesFinanceiras" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="AcheiRecheque_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//AcheiRecheque" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="BACEN_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//BACEN" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="PendenciasFinanceiras_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//PendenciasFinanceiras" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="Convem_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//Convem" />

<xs:field xpath="Item" />

</xs:unique>

- <xs:unique name="Alertas_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">

<xs:selector xpath=".//Alertas" />

<xs:field xpath="Item" />

</xs:unique>

</xs:element>

</xs:schema>

- <diffgr:diffgram xmlns:msdata="urn:schemas-microsoft-com:xml-msdata" xmlns:diffgr="urn:schemas-microsoft-com:xml-diffgram-v1">

- <PendenciasConcentre xmlns="">

- <Grafias diffgr:id="Grafias1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<Grafia>NOME DO DEVEDOR AAABBBCCC</Grafia>

</Grafias>

- <Grafias diffgr:id="Grafias2" msdata:rowOrder="1" diffgr:hasChanges="inserted">

<Item>2</Item>

<Grafia>NOME DO DEVEDOR AAABBBC</Grafia>

</Grafias>

- <Grafias diffgr:id="Grafias3" msdata:rowOrder="2" diffgr:hasChanges="inserted">

<Item>3</Item>

<Grafia>NOME DO DEVEDOR AAABBBCC</Grafia>

</Grafias>

- <Grafias diffgr:id="Grafias4" msdata:rowOrder="3" diffgr:hasChanges="inserted">

<Item>4</Item>

<Grafia>NOME DO DEVEDOR AAABBB</Grafia>

</Grafias>

- <Grafias diffgr:id="Grafias5" msdata:rowOrder="4" diffgr:hasChanges="inserted">

<Item>5</Item>

<Grafia>OUTRAS</Grafia>

</Grafias>

- <Protestos diffgr:id="Protestos1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>15/05/2006</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>188,70</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<Cidade>RIO DE JANEIRO</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <Protestos diffgr:id="Protestos2" msdata:rowOrder="1" diffgr:hasChanges="inserted">

<Item>2</Item>

<DataOcorrencia>15/03/2006</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>88,70</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<Cidade>RIO DE JANEIRO</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <Protestos diffgr:id="Protestos3" msdata:rowOrder="2" diffgr:hasChanges="inserted">

<Item>3</Item>

<DataOcorrencia>15/02/2006</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>77,80</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<Cidade>RIO DE JANEIRO</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <Protestos diffgr:id="Protestos4" msdata:rowOrder="3" diffgr:hasChanges="inserted">

<Item>4</Item>

<DataOcorrencia>13/12/2005</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>48,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<Cidade>RIO DE JANEIRO</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <Protestos diffgr:id="Protestos5" msdata:rowOrder="4" diffgr:hasChanges="inserted">

<Item>5</Item>

<DataOcorrencia>11/11/2005</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>2,22</Valor>

<Localidade>CNS</Localidade>

<Estado>MG</Estado>

<Cidade>CAPINOPOLIS</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <Protestos diffgr:id="Protestos6" msdata:rowOrder="5" diffgr:hasChanges="inserted">

<Item>6</Item>

<DataOcorrencia>12/08/2005</DataOcorrencia>

<NumeroCartorio>0001</NumeroCartorio>

<CodigoNatureza>Z1</CodigoNatureza>

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Valor>41,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<Cidade>RIO DE JANEIRO</Cidade>

<SubJudice>DIVIDA não CONTESTADA</SubJudice>

<DataCartaAnuencia>00/00/0000</DataCartaAnuencia>

</Protestos>

- <AcoesJudiciais diffgr:id="AcoesJudiciais1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>10/02/2006</DataOcorrencia>

<NumeroVaraCivil>0001</NumeroVaraCivil>

<NumeroDistribuidor>0001</NumeroDistribuidor>

<CodigoNatureza>EX</CodigoNatureza>

<DescricaoNatureza>EXECUCAO</DescricaoNatureza>

<Valor>111,11</Valor>

<Localidade>SPO</Localidade>

<Estado>SP</Estado>

<Cidade>são PAULO</Cidade>

<Principal>PRINCIPAL</Principal>

<SubJudice />

</AcoesJudiciais>

- <Participacoes diffgr:id="Participacoes1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>20/05/2003</DataOcorrencia>

<CodigoNatureza>FD</CodigoNatureza>

<DescricaoNatureza>FALENCIA DECRETADA</DescricaoNatureza>

<CodigoQualificacao>0001</CodigoQualificacao>

<NumeroVaraCivil>0001</NumeroVaraCivil>

<CNPJ>000000333</CNPJ>

<RazaoSocial>TESTE 333</RazaoSocial>

</Participacoes>

- <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>28/05/2007</DataOcorrencia>

<CodigoNatureza>AG</CodigoNatureza>

<DescricaoNatureza>EMPRESTIMOS AGRICOLAS E INDUSTRIAIS - FINANCIAMENTOS DE CUSTEIO DE INVESTIMENTOS AGRICOLAS E INDUSTRIAIS</DescricaoNatureza>

<CodigoBanco>356</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<Valor>1.500,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

<Avalista>não</Avalista>

<SubJudice />

<CNPJ>033066408</CNPJ>

</RestricoesFinanceiras>

- <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras2" msdata:rowOrder="1" diffgr:hasChanges="inserted">

<Item>2</Item>

<DataOcorrencia>21/05/2007</DataOcorrencia>

<CodigoNatureza>AR</CodigoNatureza>

<DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza>

<CodigoBanco>356</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<Valor>100,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

<Avalista>não</Avalista>

<SubJudice />

<CNPJ>033066408</CNPJ>

</RestricoesFinanceiras>

- <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras3" msdata:rowOrder="2" diffgr:hasChanges="inserted">

<Item>3</Item>

<DataOcorrencia>15/04/2007</DataOcorrencia>

<CodigoNatureza>FI</CodigoNatureza>

<DescricaoNatureza>CREDITOS E FINANCIAMENTOS - EMPRESTIMOS A PESSOAS FISICAS, FINANCIAMENTOS AO CONSUMIDOR FINAL, ETC</DescricaoNatureza>

<CodigoBanco>356</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<Valor>1.000,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

<Avalista>não</Avalista>

<SubJudice />

<CNPJ>033066408</CNPJ>

</RestricoesFinanceiras>

- <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras4" msdata:rowOrder="3" diffgr:hasChanges="inserted">

<Item>4</Item>

<DataOcorrencia>20/02/2007</DataOcorrencia>

<CodigoNatureza>AR</CodigoNatureza>

<DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza>

<CodigoBanco>356</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<Valor>258,96</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

<Avalista>não</Avalista>

<SubJudice />

<CNPJ>033066408</CNPJ>

</RestricoesFinanceiras>

- <RestricoesFinanceiras diffgr:id="RestricoesFinanceiras5" msdata:rowOrder="4" diffgr:hasChanges="inserted">

<Item>5</Item>

<DataOcorrencia>25/12/2006</DataOcorrencia>

<CodigoNatureza>AD</CodigoNatureza>

<DescricaoNatureza>ADIANTAMENTO A DEPOSITANTES - C/C DEVEDORES EM GERAL</DescricaoNatureza>

<CodigoBanco>356</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<Valor>500,00</Valor>

<Localidade>RJO</Localidade>

<Estado>RJ</Estado>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

<Avalista>não</Avalista>

<SubJudice />

<CNPJ>033066408</CNPJ>

</RestricoesFinanceiras>

- <AcheiRecheque diffgr:id="AcheiRecheque1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>20/02/2006</DataOcorrencia>

<CodigoBanco>999</CodigoBanco>

<CodigoAgencia>0001</CodigoAgencia>

<ContaCorrente>000123456</ContaCorrente>

<CodigoNatureza>12</CodigoNatureza>

<DescricaoNatureza>CHEQUES SEM FUNDOS (2A. APRESENTACAO)</DescricaoNatureza>

<Valor>10.000,00</Valor>

<Localidade>SPO</Localidade>

<Estado>SP</Estado>

<NomeBanco>BANCO TESTE</NomeBanco>

<NumeroCheque>000123456</NumeroCheque>

<Cidade>são PAULO</Cidade>

</AcheiRecheque>

- <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras1" msdata:rowOrder="0" diffgr:hasChanges="inserted">

<Item>1</Item>

<DataOcorrencia>14/05/2003</DataOcorrencia>

<CodigoNatureza>FI</CodigoNatureza>

<DescricaoNatureza>CREDITOS E FINANCIAMENTOS</DescricaoNatureza>

<Valor>147,02</Valor>

<Localidade>SPO</Localidade>

<Estado>SP</Estado>

<CNPJCredor>062173620</CNPJCredor>

<Credor>SERASA</Credor>

<Avalista>não</Avalista>

<Contrato>Z32S</Contrato>

<SubJudice />

</PendenciasFinanceiras>

- <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras2" msdata:rowOrder="1" diffgr:hasChanges="inserted">

<Item>2</Item>

<DataOcorrencia>05/05/2003</DataOcorrencia>

<CodigoNatureza>AD</CodigoNatureza>

<DescricaoNatureza>ADIANTAMENTOS A DEPOSITANTES - CONTA CORRENTE DEVEDORA</DescricaoNatureza>

<Valor>12,12</Valor>

<Localidade>CAS</Localidade>

<Estado>SP</Estado>

<CNPJCredor>062173620</CNPJCredor>

<Credor>SERASA</Credor>

<Avalista>não</Avalista>

<Contrato>TESTENOVO2</Contrato>

<SubJudice />

</PendenciasFinanceiras>

- <PendenciasFinanceiras diffgr:id="PendenciasFinanceiras3" msdata:rowOrder="2" diffgr:hasChanges="inserted">

<Item>3</Item>

<DataOcorrencia>04/04/2003</DataOcorrencia>

<CodigoNatureza>AD</CodigoNatureza>

<DescricaoNatureza>ADIANTAMENTOS A DEPOSITANTES - CONTA CORRENTE DEVEDORA</DescricaoNatureza>

<Valor>11,11</Valor>

<Localidade>CAS</Localidade>

<Estado>SP</Estado>

<CNPJCredor>062173620</CNPJCredor>

<Credor>SERASA</Credor>

<Avalista>não</Avalista>

<Contrato>TESTENOVO1</Contrato>

<SubJudice />

</PendenciasFinanceiras>

</PendenciasConcentre>

</diffgr:diffgram>

</Pendencias>

<Mensagem>COM RESTRICOES</Mensagem>

<Status>true</Status>

</SERASAConsultaConcentre>

Editado por Lucianorw
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...