Campo refNFP

[hintz]

Estou precisando importar do XML de uma NFe os dados da NFRef de produtor:

-<NFref>

-<refNFP>

<cUF>43</cUF>

<AAMM>1811</AAMM>

<CPF>42812380004</CPF>

<IE>2391020460</IE>

<mod>01</mod>

<serie>86</serie>

<nNF>960897</nNF>

</refNFP>

</NFref>

 

Tentei assim:

   if OpenDialog1.Execute then
   begin
      ACBrNFe1.NotasFiscais.Clear;
      Acbrnfe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
      mmXML.Lines.LoadFromFile(OpenDialog1.FileName);

      Label1.Caption := ACBrNFe1.NotasFiscais.Items[0].NFe.ide.NFref.refNFP.cUF;

   end;

da o seguinte erro:

[dcc32 Error] untPrincipal.pas(55): E2003 Undeclared identifier: 'refNFP'

 

Como faço para ler essas informações???

 

Att. João Hintz..

Obs. As postagens que achei no forum são sómente para gerar o XML...

 

[Juliomar Marchetti]

anexe o seu xml usado para carregar

mas o que está parecendo é que ele está errado

[hintz]

42 minutos atrás, Juliomar Marchetti disse:

anexe o seu xml usado para carregar

mas o que está parecendo é que ele está errado

Segue minha rotina para gerar o XML e anexo o XML da NFe.

        if TabDadosNota.FieldByName('NotFiProd').asInteger <> 0 then
         begin
            with Ide.NFref.add do
            begin
               RefNFP.cUF := StrToInt(Copy(TabDadosNota.FieldByName('UfProd').asString, 1, 2));
               RefNFP.AAMM := TabDadosNota.FieldByName('AaMmProd').asString;
               RefNFP.CNPJCPF := TiraMascara(TabDadosNota.FieldByName('CnpjCpfProd').asString);
               RefNFP.IE := TiraMascara(TabDadosNota.FieldByName('IeProd').asString);
               RefNFP.modelo := TabDadosNota.FieldByName('ModProd').asString;
               RefNFP.serie := TabDadosNota.FieldByName('SerProd').asInteger;
               RefNFP.nNF := TabDadosNota.FieldByName('NotFiProd').asInteger;
            end;
         end;

43190200601654000251550010000026271000026275-nfe.xml

[hintz]

??? Alguém para me ajudar ???