Ler a Tag NFRef

[Edson A Oliveira]

Boa tarde, é a primeira vez que faço uso deste, caso esteja fazendo algo errado favor reportar.

O meu problema esta em não obter o contador conforme rotina abaixo.

O resultado sempre é 1, quando existem 7 NFs Referenciadas

procedure TCE106.SpeedButton1Click(Sender: TObject);
var
I:integer;
warqxml:txmldocument;
wnotref:ixmlNodeList;
wnodide,wnodref:ixmlnode;
begin
   wnodide := wnodinf.childnodes['ide'];
   wnodref := wnodide.childnodes.findnode('NFref');
   wnotref := wnodref.childnodes;
   for I := 0 to wnotref.count - 1 do
      wstraux := wnodref.childnodes['refNFe'].text;
end;
 

 

[Juliomar Marchetti]

Tu usa o ACBr? se sim basta ACBrNFe.NotasFiscais.LoadFromFile(seu arquivo)

e ele vai já estar na classe de NFe pronto pra tu usar

[Edson A Oliveira]

Sim uso, mas não é o caso, neste exemplo não estou usando o ACBR para leitura no .xml é um projeto mais antigo que demanda mais tempo para alteração.

Gostaria de fazer lendo conforme postado.

Obrigado.

[Juliomar Marchetti]

Certo como não é parte dos componentes movi para um local aberto para que possa ser ajudado

[EMBarbosa]

Em 18/05/2021 at 17:24, Edson A Oliveira disse:

   wnodref := wnodide.childnodes.findnode('NFref');

Até onde eu sei, esse método procura um nó na lista. Como você pode ver na imagem, cada "NFref" é um nó separado.

Talvez seja mais fácil você percorrer a lista inteira e comparar com o nome que quer...