Erro Add attachment: file not exists

[Julio Cesar Lima Almeida]

Olá!!
Estou com um problema ao enviar o email do pdf do cancelamento do NFCe pro cliente final.

Dentro da função : *TACBrNFe.EnviarEmailEvento* existe uma procedure chamada: ImprimirEventoPDF;

e ela ta gerando o nome do arquivo assim: CHAVE + '-cancelado-nfe.pdf'

porém na hora que a função vai anexar o PDF ele procura com o nome: '110111' + CHAVE + '-procEventoNFe.pdf';

com isso ele gera esse erro: *erro add attachment: file not exists*

E por fim não envia o email...

Alguém aí já viu esse erro?

[Daniel Simoes]

Seus fontes estão atualizados ?

Lembro de ter um ajuste recente nesse sentido...

[Julio Cesar Lima Almeida]

Estão sim Daniel....atualizei no mesmo dia que eu postei no Forum

[Italo Giurizzato Junior]

Bom dia Júlio,

Analisando os fontes do componente temos:

Unit: ACBrNFe.pas - método EnviarEmailEvento:

    ImprimirEventoPDF;
    NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id);
    NomeArq := PathWithDelim(DANFE.PathPDF) + NomeArq + '-procEventoNFe.pdf';
    AnexosEmail.Add(NomeArq);

Nesse fragmento de código, temo a chamada para gerar o PDF em seguida a montagem do nome do arquivo a ser anexado ao e-mail, note que o nome do arquivo é:

<ID>-procEventoNFe.pdf

 

Unit: ACBrNFeDANFeRLClass.pas - método ImprimirEventoPDF:

procedure TACBrNFeDANFeRL.ImprimirEVENTOPDF(ANFe: TNFe);
var
  Impresso: Boolean;
  I, J: Integer;
  NumID, ArqPDF: String;

  function ImprimirEVENTOPDFTipo(EventoNFeItem: TInfEventoCollectionItem; ANFe: TNFe): String;
  begin
    Result := Self.PathPDF + OnlyNumber(EventoNFeItem.InfEvento.id) + '-procEventoNFe.pdf';

    // TipoDANFE ainda não está sendo utilizado no momento
    TfrlDANFeEventoRLRetrato.SalvarPDF(Self, EventoNFeItem, Result, ANFe);
  end;

begin
  (...)
end;

Nesse fragmento de código, temos uma função chamada ImprimirEventoPDFTipo que monta o nome do PDF e chama o método SalvarPDF passando como parâmetro o nome do PDF.

Note que o nome do arquivo PDF é: <ID>-procEventoNFe.pdf 

 

Portanto tanto a rotina que salva o PDF quanto a que anexa o PDF no e-mail para ser enviado utilizam o mesmo nome.

Concluo que na sua maquina a unit ACBrNFeDANFeRLClass.pas foi alterada e consequentemente ao executar o Tortoise para atualizar os fontes ele não esteja conseguindo atualizar.

Verifique se essa unit e outras não contenham uma bolinha vermelha.

Caso afirmativo exclua a unit e atualize novamente os fontes, feito isso reinstale a suíte ACBr usando o ACBrInstall_trunk2 com a opção de apagar arquivos antigos marcada.

Por fim faça novos testes.

[Daniel Simoes]

Parece que realmente há um Bug...

Por favor testes, substituindo com o trecho abaixo

procedure TACBrNFe.EnviarEmailEvento(const sPara, sAssunto: String;
  sMensagem: TStrings; sCC: TStrings; Anexos: TStrings;
  sReplyTo: TStrings);
var
  NomeArq: String;
  AnexosEmail: TStrings;
  StreamNFe : TMemoryStream;
begin
  AnexosEmail := TStringList.Create;
  StreamNFe := TMemoryStream.Create;
  try
    AnexosEmail.Clear;

    if Anexos <> nil then
      AnexosEmail.Text := Anexos.Text;

    GravarStream(StreamNFe);

    ImprimirEventoPDF;
    AnexosEmail.Add(DANFE.ArquivoPDF);
    NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id);
    EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, StreamNFe,
	  NomeArq + '-procEventoNFe.xml', sReplyTo);
  finally
    AnexosEmail.Free;
    StreamNFe.Free;
  end;
end; 

 

[Julio Cesar Lima Almeida]

Era isso mesmo Daniel...

Testei com essa função e o email enviou normalmente.

 

Obrigado a vocês

[Italo Giurizzato Junior]

Boa tarde Júlio,

Favor atualizar os fontes e faça novos testes.

[Julio Cesar Lima Almeida]

Atualizei e deu certo!!! 

Mais uma vez Obrigado

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.