Jump to content

Campo refNFP


hintz
  • Este tópico foi criado há 1241 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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...

 

Link to comment
Share on other sites

  • Consultores

anexe o seu xml usado para carregar

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Este tópico foi criado há 1241 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.