ale_v_teixeira

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.

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.

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.

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

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.

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

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.