[delphi-br] Re: Aos mestres em XML

[klausbento]

Pessoal, 

Com a ajuda do Caio resolvi o problema....

Segue o codigo:

var
  vXMLDoc: TXMLDocument;
    NodePrim,NodePai,NodeSec,NodeTmp: IXMLNode;
    nome, codigo: WideString;
begin
  vXMLDoc := TXMLDocument.Create(self);

  // Le conteúdo do arquivo XML informado
  vXMLDoc.LoadFromFile('minnhaNFe.xml');

  NodePrim := vXMLDoc.DocumentElement.ChildNodes.FindNode('NFe');  
  NodePai  := NodePrim.ChildNodes.FindNode('infNFe'); 
  NodeSec  := NodePai.ChildNodes.FindNode('det');

  repeat
    NodeTmp  := NodeSec.ChildNodes['prod'];
    
    NodeTmp.ChildNodes.First;

    nome   := NodeTmp.ChildNodes['cProd'].text;     
    codigo := NodeTmp.ChildNodes['xProd'].text;

    if nome <> '' then
    begin
     memo1.Lines.Add( nome+' ---- '+codigo );
    end;
     NodeTmp := NodeTmp.NextSibling;
     NodeSec := NodeSec.NextSibling;
  until nome = ''
end;

Valeu

--- Em delphi-br@yahoogrupos.com.br, "klausbento" <[EMAIL PROTECTED]> escreveu
>
> Mestres,
> 
> No codigo abaixo, segundo q entendi do help, e dos exemplos q peguei
> na NET (http://www.caiooliveira.com.br/?p=73), teoricamente deveria 
> encontrar a TAG <det> no entanto ele não consegue achar....
> 
> Alguém sabe que magiga tem q ser feito pra resolver?
> 
> Pois retorna nil, ou seja não achou....
> 
> Estou usando o D7 Enterprise.
> 
> 
>   // Aqui eu peço para encontrar a primeira ocorrencia da Tag <det>>
> 
>  with vXMLDoc do
>   begin
>     with DocumentElement
>      begin
>        NodePai := ChildNodes.First.ChildNodes.FindNode('det');
>    ...
>    ...
>      end;
>   end;
>   
> 
> //XML pra testar
> 
> <?xml version="1.0" encoding="UTF-8"?>
> <enviNFe xmlns="http://www.portalfiscal.inf.br/nfe"; versao="1.10">
>  <idLote>000000000419432</idLote>
>  <NFe>
>   <infNFe Id="NFe51003613000132550020000006610001679" Versao="1.10">
>    <ide>
>      <cUF>51</cUF>
>      <cNF>000167987</cNF>
>      <natOp>VENDA</natOp>
>    </ide>
>    <emit>
>      <CNPJ>99999999999999</CNPJ>
>      <xNome>AAAAA BBBBBB LTDA</xNome>
>    </emit>
>    <dest>
>     <CNPJ>00001111111111</CNPJ>
>     <xNome>YYYYYY AAAAA BBBBB CCCCCCC LTDA</xNome>
>    </dest>
>    <det nItem="1">
>     <prod>
>       <cProd>28</cProd>
>       <cEAN>00000000000000</cEAN>
>       <xProd>AAAAAA = 09 UNDS.</xProd>
>     </prod>
>    </det>
>   </infNFe>
>  </NFe>
> </enviNFe>
> 
> Grato
> Claudemir
>