Acbrnfe.notasfiscais.savetotxt Com Problemas No Cabeçalho

[Gabriel Frones]

Caros,

 

Usando a última versão do trunk, quando chama ACBrNFe.NotasFiscais.SaveToTXT, o componente gera um arquivo com cabeçalho duplicado, como o exemplo abaixo:

NOTA FISCAL|5
NOTA FISCAL|1
A|versao|NFe...
...
NOTA FISCAL|1
A|versao|NFe...
...

Segue uma sugestão de correção:

function TNotasFiscais.SaveToTXT(PathArquivo: String): Boolean;
var
  loSTR: TStringList;
  ArqXML, Alertas, ArqTXT : String;
  I: Integer;
begin
  Result:=False;
  loSTR := TStringList.Create;
  try
    loSTR.Clear;
    for I := 0 to Self.Count - 1 do
    begin
      ArqTXT := Self.Items[I].GerarXML(ArqXML, Alertas, True);
      loSTR.Text := loSTR.Text +
                      copy(ArqTXT,14,length(ArqTXT));
    end;
    
    if loSTR.Count > 0 then
    begin
      loSTR.Insert(0,'NOTA FISCAL|'+IntToStr(Self.Count));
      for I := loSTR.Count - 1 downTo 0 do begin
        if loSTR.Strings[I] = '' then
          loSTR.Delete(I);
      end;

      if DFeUtil.EstaVazio(PathArquivo) then
        PathArquivo := PathWithDelim(TACBrNFe( FACBrNFe ).Configuracoes.Geral.PathSalvar)+'NFe.TXT';
      loSTR.SaveToFile(PathArquivo);
      Result:=True;
    end;
  finally
    loSTR.free;
  end;
end;

Essa correção faz os seguintes itens:

• Remove o cabeçalho NOTA FISCAL|1 que aparecem individualmente por nota, e que vem do TNFeW
• 
  
• Adiciona os arquivos TXT por meio de loSTR.Text := loSTR.Text + ... ao invés de Add. Dessa maneira, cada linha do TXT estará em uma linha do arquivo de saída, o que é necessário para que possamos limpar as linhas em branco mais abaixo;
• 
  
• Alterei o trecho que remove as linhas em branco para um for invertido (downTo), que acho que fica mais claro que o while que estava antes, e que cumpre a mesma função.
• 
  

 

O pas alterado segue anexo por conveniencia.

 

Abraços,

Gabriel.

ACBrNFeNotasFiscais.pas

Editado 15 Abril, 2015 por Gabriel Frones

[Juliomar Marchetti]

Boa noite

antes de subir o código gostaria de saber se já verificou por acaso senão está carregando duas vezes ao componente a NF-e

ou se está limpando ele antes de carregar?

 

 

Estive analisando os log do svn e não tem nada que faria o que está repassando acima ou que mudanças que afetaria isso!

 

fazia tempo que não atualiza o seu svn?

[Gabriel Frones]

Juliomar,

 

Na verdade, no exemplo que eu coloquei, eu carreguei 5 NFe's diferentes. Só que essa linha só deveria aparecer uma vez no arquivo todo (ela identifica justamente quantas NFe's seguem abaixo):

NOTA FISCAL|5

Eu dei uma vasculhada pra tentar descobrir quando o problema começou. Acho que a última vez que a função SaveToTXT funcionou perfeitamente, foi na revisão 7482, de 22/09/2014. Nesse commit, o arquivo era preenchido assim:

      loSTR.Text := loSTR.Text +
                      copy(ArqTXT,14,length(ArqTXT));

Então, esse copy já eliminava o "NOTA FISCAL|1" que tem em cada nota, e talvez seja uma solução melhor que o StringReplace que eu coloquei. Depois desse, o próximo commit que teve nessas linhas aí já quebraram a geração do TXT aqui nos meus testes.

 

Abraços,

Gabriel.

[Juliomar Marchetti]

Boa noite!

ainda assim veja que é usado por diversos usuários e como faz um tempo somente vi você postar pois procurei e ninguém mais relatou o problema que você informa!

 

faz tempo que você não atualiza seu svn?

se for isso então sugiro começar a manter semanal pelo menos o update!

[Juliomar Marchetti]

Porque ao final você dá um novo Add na NFe?

[Gabriel Frones]

Pra ter duas NFe's no arquivo exportado... na verdade, eu fiquei com "preguiça" de preencher todos os campos de novo com dados diferentes, mas esse seria o ideal para o teste. rs

 

PS: Alterei o arquivo do post inicial para usar um copy no lugar do StringReplace, igual estava na revisão 7482.

Editado 15 Abril, 2015 por Gabriel Frones