TXT com várias Notas

[ale_v_teixeira]

Bom dia.

Estou começando a usar o ACBR, e estou com a primeira dúvida:

Executando a rotina abaixo, ao abir um txt com várias NFs, como faço para visualizar quantas NFs tem no arquivo?

ACBrNFe1.NotasFiscais.Items[0].NFe

OU 

ACBrNFe1.NotasFiscais.Count //este modo retorna sempre 1, independente de qtas NFs tem no arquivo.

 

  OpenDialog1.FileName  :=  '';
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  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;
 

 

Aguardo.

 

[ale_v_teixeira]

Em 25/07/2016 at 11:07, ale_v_teixeira disse:

Bom dia.

Estou começando a usar o ACBR, e estou com a primeira dúvida:

Executando a rotina abaixo, ao abir um txt com várias NFs, como faço para visualizar quantas NFs tem no arquivo?

ACBrNFe1.NotasFiscais.Items[0].NFe

OU 

ACBrNFe1.NotasFiscais.Count //este modo retorna sempre 1, independente de qtas NFs tem no arquivo.

 

  OpenDialog1.FileName  :=  '';
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  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;
 

 

Aguardo.

 

Socorro gente....não consigo "caminhar" no meu projeto....ninguém passou por este problema?

Editado 26 Julho, 2016 por ale_v_teixeira
Sem resposta

[Juliomar Marchetti]

Sim mas tu limpa toda a vez que roda o opendialog as nfe!

isso é falta de atenção ao código!

 if OpenDialog1.Execute then
 begin
    ACBrNFe1.NotasFiscais.Clear;

 

[ale_v_teixeira]

Então Juliomar.

Este exemplo é do próprio ACBR.

O que não estou entendendo é quando que a rotina carrega o txt,  qual função?

Logo após o bloco que eu acho que lê o txt, o ount do objeto já é = 1, conforme exemplo abaixo:

 

 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
    begin
       NFeRTXT.Free;
       Showmessage(IntToStr(ACBrNFe1.NotasFiscais.Count));
    end
 

 

Aguardo.

[Juliomar Marchetti]

ACBrNFe1.NotasFiscais.clear;

if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Add;
    NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);
    NFeRTXT.CarregarArquivo(OpenDialog1.FileName);
    if NFeRTXT.LerTxt then
    begin
       NFeRTXT.Free;
       Showmessage(IntToStr(ACBrNFe1.NotasFiscais.Count));
    end

 

acho que assim resolve

[ale_v_teixeira]

Oi  Juliomar.

Agradeço pela atenção, mas não deu certo. Tem alguma outra ideia?

Obrigado.

 

[Juliomar Marchetti]

há tá.. desculpe não prestei atenção desde o começo!

tu tem que colocar uma a uma ! acho que  não tem nada tratado dentro pra ler várias

irei confirmar mas é quase certeza!

[ale_v_teixeira]

Certo.

É que meus clientes usam atualmente o sistema gratuito da SEFAZ, que aceita txt com várias notas.

E como a SEFAZ vai descontinuar o emissor gratuito, estou tentando desenvolver um sistema com o ACBR, e queria trabalhar com o que já tenho em meus sistemas atuais, que é a geração de txt com várias notas.

Como no exemplo do ACBR tem a linha " ACBrNFe1.NotasFiscais.Count", logo após o carregamento de txt, achei que seria possível carregar o txt com várias notas.

Mas agradeço a atenção e vou pensar numa outra forma de trabalhar com o txt.

 

[Juliomar Marchetti]

Então eu abri aqui o exemplo não tem nenhum lugar que faz o showmessage do count!

somente faz um for mas é somente para deixar fixo o índice zero lá!

[ale_v_teixeira]

Oi Juliomar.

O showmessage foi por minha conta....rsrsrsr

O for que vc falou (for n:=0 to ACBrNFe1.NotasFiscais.Count-1 do), foi que me fez pensar que poderia ter várias notas no mesmo txt, pois pensei que o count mostraria a qtde de notas carregadas no componente através do txt.

Mas agradeço a atenção.

 

[mmsuporte]

Em 27/07/2016 at 16:16, ale_v_teixeira disse:

Certo.

É que meus clientes usam atualmente o sistema gratuito da SEFAZ, que aceita txt com várias notas.

E como a SEFAZ vai descontinuar o emissor gratuito, estou tentando desenvolver um sistema com o ACBR, e queria trabalhar com o que já tenho em meus sistemas atuais, que é a geração de txt com várias notas.

Como no exemplo do ACBR tem a linha " ACBrNFe1.NotasFiscais.Count", logo após o carregamento de txt, achei que seria possível carregar o txt com várias notas.

Mas agradeço a atenção e vou pensar numa outra forma de trabalhar com o txt.

 

Boa tarde ale_v_teixeira,

Também utilizamos o emissor gratuito aqui na empresa e desconheço essa informação de que um único TXT contenha várias notas.

Mas se for o caso de você aproveitar o TXT que seu sistema já emite atualmente, uma dica é importar os TXT´s. Faz um loop que dar certo.

[ale_v_teixeira]

15 horas atrás, Carbox disse:

Boa tarde ale_v_teixeira,

Também utilizamos o emissor gratuito aqui na empresa e desconheço essa informação de que um único TXT contenha várias notas.

Mas se for o caso de você aproveitar o TXT que seu sistema já emite atualmente, uma dica é importar os TXT´s. Faz um loop que dar certo.

Ah sim...a ideia é essa mesmo, fazer um loop para aproveitar o que já está pronto hoje,. que é o txt com várias notas.

Agradeço.

 

[Telmo Machado]

 

Em 02/08/2016 at 07:24, ale_v_teixeira disse:

Ah sim...a ideia é essa mesmo, fazer um loop para aproveitar o que já está pronto hoje,. que é o txt com várias notas.

Agradeço.

 

Boa Tarde @ale_v_teixeira hoje estava olhando o ACBrNFe e sobre isso, chegou a uma solução?

Fez alguma mudança para ele selecionar todas de uma pasta e listar a contagem? algum aprimoramento?