Importar XML da NFE e NFCE

[FRANCISCO908]

Prezado estou precisando lê todos os arquivos xmls das NFE/NFCE só que preciso pegar os tipos de pagamentos que foram utilizados no nestes aquivos.

Por exemplo para pegar as duplicadas vi esse exemplo abaixo:

        for I:=0 to Cobr.Dup.Count-1 do
        begin
          Node    := trvwNFe.Items.AddChild(NodePai,'Duplicata'+IntToStrZero(I+1,3));

          with Cobr.Dup.Items do
          begin
            trvwNFe.Items.AddChild(Node,'nDup='  +nDup) ;
            trvwNFe.Items.AddChild(Node,'dVenc=' +DateToStr(dVenc));
            trvwNFe.Items.AddChild(Node,'vDup='  +FloatToStr(vDup)) ;
          end;
        end;

Porém preciso pegar os valores de todos os tipos de pagamento existe um modelo parecido com o mostrado acima.

[EMBarbosa]

Olá,

Acho que não compreendi exatamente o que precisa... Você está falando em ler os arquivos XML, mas o código que você passou parece escrever arquivos XML.

Poderia tentar explicar com outras palavras?

[Italo Giurizzato Junior]

Bom dia Francisco,

Para ler o XML, basta usar o método LoadFromFile.

Depois basta ler as propriedades de cada campo que desejar obter a informação.

Por exemplo:

 // Carrega no Componente a NFe salvo em Arquivo XML
 NomeArqNFe:=trim(flbArqNFe.FileName);
 ACBrNFe.NotasFiscais.Clear;
 ACBrNFe.NotasFiscais.LoadFromFile(NomeArqNFe);

 CFOPNF        := StrToInt(ACBrNFe.NotasFiscais.Items[0].NFe.Det.Items[0].Prod.CFOP);
 BaseICMS      := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vBC;
 ValorICMS     := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS;
 BaseICMSST    := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vBCST;
 ValorICMSST   := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vST;
 TotalProdutos := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vProd;
 TotalNF       := ACBrNFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF;

 

[FRANCISCO908]

Agradeço pelo retorno dos senhores, obrigado, anexei um imagem que mostra o conteúdo que preciso pegar do xml trata-se do valores das tags "tPag" e "vPag".

[Juliana Tamizou]

Bom dia.

As dicas do Italo não lhe ajudaram? 

Att.

[José M. S. Junior]

Bom dia, utilize o Comando LoadFromFile para carregar o XML conforme o Italo falou e percorra a lista de pagamentos obtendo os valores, algo como:

for I := 0 to ACBrNFe1.pag.Count - 1 do
begin 
  lTipo:= ACBrNFe1.pag.Items[I].tPag;
  lValor:= ACBrNFe1.pag.Items[I].vPag;
  ...

 

[FRANCISCO908]

Beleza muito obrigado.