AcbrNFe - Importa��o de TXT

Question

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

Raimundo Pereira · Accepted Answer

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

Alexandre · Answer

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.

Alexandre · Answer

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.

Alexandre · Answer

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

F�rum AcbrNFe - Importa��o de TXT #559599