AcbrNFe - Importação de TXT

Delphi

27/07/2016

Bom dia.
Alguém aqui trabalha com ACBR para emissão de NF-e?
Estou tentando "entrar nesse mundo" e a 1ª dúvida é:
É possível carregar um txt com várias notas, pois estou seguindo o exemplo do projeto e sempre retorna count 1, independente da qtde de notas contidas no arquivo.
Qual parte da rotina responsável pelo carregamento do txt?

Aguardo.
Alexandre

Alexandre

Curtidas 1

Melhor post

Raimundo Pereira

Raimundo Pereira

27/07/2016

Bom dia, as notas são feitas individualmente,cada arquivo xml representa uma nota.

Para carregar uma nota eu uso a rotina abaixo:

Arquivo_xml := DM.QClientes_Segunda_Via_NFE.FieldByName('LOCAL_ARQUIVO').AsString;
NFE_.NotasFiscais.Clear;
NFE_.NotasFiscais.LoadFromFile(Arquivo_xml);
GOSTEI 1

Mais Respostas

Alexandre

Alexandre

27/07/2016

Então. Só que eu trabalho com arquivo TXT, assim como o sistema da SEFAZ, que aceita arquivo txt com várias notas.
No exemplo do ACBR, tem a rotina de importação:

if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
//tenta TXT
ACBrNFe1.NotasFiscais.Add;
NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);
NFeRTXT.CarregarArquivo(OpenDialog1.FileName);
if NFeRTXT.LerTxt then
NFeRTXT.Free
else
begin
NFeRTXT.Free;
//tenta XML
ACBrNFe1.NotasFiscais.Clear;
try
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
except
ShowMessage('Arquivo NFe Inválido');
exit;
end;
end;

trvwNFe.Items.Clear;


for n:= 0 to ACBrNFe1.NotasFiscais.Count -1 do

Esta última linha, é pra carregar as notas num TreeView, mas sempre retorna count = 1.
Creio que o problema seja aqui, não sei se existe outra maneira de carregar txt que contenha várias notas.

Aguardo.
GOSTEI 0
Alexandre

Alexandre

27/07/2016

Então. Só que eu trabalho com arquivo TXT, assim como o sistema da SEFAZ, que aceita arquivo txt com várias notas.
No exemplo do ACBR, tem a rotina de importação:

if OpenDialog1.Execute then

  begin

    ACBrNFe1.NotasFiscais.Clear;

    //tenta TXT

    ACBrNFe1.NotasFiscais.Add;

    NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);

    NFeRTXT.CarregarArquivo(OpenDialog1.FileName);

    if NFeRTXT.LerTxt then

       NFeRTXT.Free

    else

    begin

       NFeRTXT.Free;

       //tenta XML

       ACBrNFe1.NotasFiscais.Clear;

       try

          ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

       except

          ShowMessage(''Arquivo NFe Inválido'');

          exit;

       end;

    end;



    trvwNFe.Items.Clear;





    for n:= 0 to ACBrNFe1.NotasFiscais.Count -1 do




Esta última linha, é pra carregar as notas num TreeView, mas sempre retorna count = 1.

Creio que o problema seja aqui, não sei se existe outra maneira de carregar txt que contenha várias notas.



Aguardo.
                

                
GOSTEI 0

             

             

                 

                     

                          Alexandre
                          
Alexandre

                     

                     
 27/07/2016

                 

                

                    Então. Só que eu trabalho com arquivo TXT, assim como o sistema da SEFAZ, que aceita arquivo txt com várias notas.

No exemplo do ACBR, tem a rotina de importação:



  
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    //tenta TXT
    ACBrNFe1.NotasFiscais.Add;
    NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);
    NFeRTXT.CarregarArquivo(OpenDialog1.FileName);
    if NFeRTXT.LerTxt then
       NFeRTXT.Free
    else
    begin
       NFeRTXT.Free;
       //tenta XML
       ACBrNFe1.NotasFiscais.Clear;
       try
          ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
       except
          ShowMessage(''''Arquivo NFe Inválido'''');
          exit;
       end;
    end;

    trvwNFe.Items.Clear;


    for n:= 0 to ACBrNFe1.NotasFiscais.Count -1 do
    




Esta última linha, é pra carregar as notas num TreeView, mas sempre retorna count = 1.

Creio que o problema seja aqui, não sei se existe outra maneira de carregar txt que contenha várias notas.



Aguardo.
                

                
GOSTEI 0

             

             

        

            POSTAR