0

Tenho o código abaixo, porém no nó do [ICMS]. ele põe na mesma linha não estou conseguindo ler os filhos. Acontecendo o mesmo com o [PIS] e [COFINS].* Ele não obedece o nível 2. Como pegar ou checar se tem mais Niveis ou nó? Agradeço a quem puder ajudar...

procedure TForm1.Button1Click(Sender: TObject);
var Doc: IXMLDOMDocument;
    node_pai,
    node_filho: IXMLDOMNode;
    node_lista: IXMLDOMNodeList;
    i, j: Integer;
begin
    Memo1.Lines.Clear;
    Doc := CoDOMDocument.Create;
    Doc.load(

'<imposto>                        '+
'    <vItem12741>8.25</vItem12741>'+
'    <ICMS>                       '+
'       **<ICMS00>**              '+
'           <Orig>0</Orig>        '+
'           <CST>00</CST>         '+
'           <pICMS>18.00</pICMS>  '+ 
'           <vICMS>4.53</vICMS>   '+ 
'       </ICMS00>                 '+ 
'   </ICMS>                       '+
'   <PIS>                         '+
'       <PISAliq>                 '+ 
'           <CST>01</CST>         '+
'           <vBC>25.15</vBC>      '+
'           <pPIS>0.0000</pPIS>   '+
'           <vPIS>0.00</vPIS>     '+
'       </PISAliq>                '+
'   </PIS>                        '+
'   <COFINS>                      '+
'       <COFINSAliq>              '+
'           <CST>01</CST>         '+
'           <vBC>25.15</vBC>      '+ 
'           <pCOFINS>0.0000</pCOFINS>'+
'           <vCOFINS>0.00</vCOFINS>  '+
'       </COFINSAliq>                '+ 
'   </COFINS>                        '+
'</imposto>                          '          
);
    Doc.async  := False; 
    node_lista := Doc.selectNodes('//'+Edit1.Text);

    repeat
        node_pai := node_lista.nextNode;
        if (node_pai = nil) then
            Break;

        Memo1.Lines.Add(node_pai.baseName);
        // Nó do Pai ou Nível 1
        for i := 0 to node_pai.childNodes.length -1 do
        begin
            node_filho := node_pai.childNodes[i];
            if (node_filho <> nil) and 
               (node_pai.childNodes[i].childNodes.length > 1) then
            begin
                // Nó do filho ou Nível 2
                for j := 0 to node_pai.childNodes[i].childNodes.length -1 do
                   Memo1.Lines.Add('<' + 
                   node_pai.childNodes[i].childNodes.item[j].nodeName + '> ' 
                   + node_pai.childNodes[i].childNodes.item[j].text);
            end
            else
               // Nó do Pai ou Nível 1
               Memo1.Lines.Add('<' + node_pai.childNodes.item[i].nodeName + 
               '> ' + node_pai.childNodes.item[i].text);
        end;
    until (node_pai = nil);
end;

Trecho do XML

<imposto>
    <vItem12741>8.25</vItem12741>
    <ICMS>
        <ICMS00>
            <Orig>0</Orig>
            <CST>00</CST>
            <pICMS>18.00</pICMS>
            <vICMS>4.53</vICMS>
        </ICMS00>
    </ICMS>
    <PIS>
        <PISAliq>
            <CST>01</CST>
            <vBC>25.15</vBC>
            <pPIS>0.0000</pPIS>
            <vPIS>0.00</vPIS>
        </PISAliq>
    </PIS>
    <COFINS>
        <COFINSAliq>
            <CST>01</CST>
            <vBC>25.15</vBC>
            <pCOFINS>0.0000</pCOFINS>
            <vCOFINS>0.00</vCOFINS>
        </COFINSAliq>
    </COFINS>
</imposto>

1 Resposta 1

0

Pelo o que entendi você acesso o nó pai que seria "", porém só fez uma tratativa para os possíveis filhos dele.

Quando acessar o pai, precisará realizar um loop nele e criar uma condição para cada um dos filhos que você quer acessar e assim por diante.

É um trabalho um tanto quanto desgastante, no meu caso comecei a trabalhar diretamente com String, lendo o arquivo XML e trabalhando e manipulando a string no XML para conseguir os resultados desejados, o que poupou muito tempo de desenvolvimento.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .