Ler retorno de um XML (vba)

Lucianorw · Novembro 30, 2007

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

Graymalkin · Dezembro 1, 2007

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

Lucianorw · Dezembro 1, 2007

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

Graymalkin · Dezembro 1, 2007

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

Lucianorw · Dezembro 3, 2007

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

Graymalkin · Dezembro 4, 2007

Coloque um Stop no código e vá acompanhando passo-a-passo (com o F8) para verificar se entra no loop dos protestos ou não.

Abraços,

Graymalkin

Lucianorw · Dezembro 4, 2007

Coloque um Stop no código e vá acompanhando passo-a-passo (com o F8) para verificar se entra no loop dos protestos ou não.
Abraços,
Graymalkin

Ola Graymalkin,

Pois é, ele não esta entrando no Protestos.

Alguma dica?

[]'s

Luciano

Graymalkin · Dezembro 6, 2007

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

Abraços,

Graymalkin

Lucianorw · Dezembro 6, 2007

"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">

<Nome>NOME DO DEVEDOR AAABBBCCC</Nome>

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

- <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">

<Grafia>NOME DO DEVEDOR AAABBBCCC</Grafia>

</Grafias>

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

<Grafia>NOME DO DEVEDOR AAABBBC</Grafia>

</Grafias>

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

<Grafia>NOME DO DEVEDOR AAABBBCC</Grafia>

</Grafias>

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

<Grafia>NOME DO DEVEDOR AAABBB</Grafia>

</Grafias>

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

<Grafia>OUTRAS</Grafia>

</Grafias>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>RIO DE JANEIRO</Cidade>

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

</Protestos>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>RIO DE JANEIRO</Cidade>

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

</Protestos>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>RIO DE JANEIRO</Cidade>

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

</Protestos>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>RIO DE JANEIRO</Cidade>

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

</Protestos>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>CAPINOPOLIS</Cidade>

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

</Protestos>

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

<DescricaoNatureza>FALTA DE PAGAMENTO</DescricaoNatureza>

<Cidade>RIO DE JANEIRO</Cidade>

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

</Protestos>

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

<DescricaoNatureza>EXECUCAO</DescricaoNatureza>

<Cidade>são PAULO</Cidade>

<Principal>PRINCIPAL</Principal>

</AcoesJudiciais>

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

<DescricaoNatureza>FALENCIA DECRETADA</DescricaoNatureza>

<RazaoSocial>TESTE 333</RazaoSocial>

</Participacoes>

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

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

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

</RestricoesFinanceiras>

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

<DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

</RestricoesFinanceiras>

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

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

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

</RestricoesFinanceiras>

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

<DescricaoNatureza>ARRENDAMENTOS, INCLUSIVE LEASING</DescricaoNatureza>

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

</RestricoesFinanceiras>

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

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

<NomeBanco>EXEMPLO AAAA</NomeBanco>

<Cidade>RIO DE JANEIRO</Cidade>

</RestricoesFinanceiras>

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

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

<NomeBanco>BANCO TESTE</NomeBanco>

<Cidade>são PAULO</Cidade>

</AcheiRecheque>

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

<DescricaoNatureza>CREDITOS E FINANCIAMENTOS</DescricaoNatureza>

<Credor>SERASA</Credor>

</PendenciasFinanceiras>

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

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

<Credor>SERASA</Credor>

<Contrato>TESTENOVO2</Contrato>

</PendenciasFinanceiras>

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

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

<Credor>SERASA</Credor>

<Contrato>TESTENOVO1</Contrato>

</PendenciasFinanceiras>

</PendenciasConcentre>

</diffgr:diffgram>

</Pendencias>

<Mensagem>COM RESTRICOES</Mensagem>

</SERASAConsultaConcentre>

Editado Dezembro 6, 2007 por Lucianorw

Graymalkin · Dezembro 8, 2007

Com o XML indentado ficaria melhor de ver, mas não parece que "Protestos" esteja dentro de "Pendencias" (bom, pelo menos eu não consegui achar onde começam as pendências).

Abraços,

Graymalkin

Entrar

Ler retorno de um XML (vba)

Pergunta

Lucianorw

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

Graymalkin

Link para o comentário

Compartilhar em outros sites

Lucianorw

Link para o comentário

Compartilhar em outros sites

Graymalkin

Link para o comentário

Compartilhar em outros sites

Lucianorw

Link para o comentário

Compartilhar em outros sites

Graymalkin

Link para o comentário

Compartilhar em outros sites

Lucianorw

Link para o comentário

Compartilhar em outros sites

Graymalkin

Link para o comentário

Compartilhar em outros sites

Lucianorw

Link para o comentário

Compartilhar em outros sites

Graymalkin

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades