erro add attachment: file not exists

[Werner_Marques]

Bom dia colegas, não sei se isso está acontecendo apenas comigo, mas sempre dou um update no ACBr aparece um erro diferente. Desta vez quando tento enviar uma nfe por email aparece a mensagem que está no titulo: add attachment: file not exists

Para enviar a NFe estou fazendo da seguinte forma:

        ACBrMail1.Host := qrEmpresa.fieldbyname('nm_smtpemail').asstring;
        ACBrMail1.Port := qrEmpresa.fieldbyname('nr_portaemail').asstring;
        ACBrMail1.Username := qrEmpresa.fieldbyname('nm_usuarioemail').asstring;
        ACBrMail1.Password := qrEmpresa.fieldbyname('nr_senhaemail').asstring;
        ACBrMail1.From := qrEmpresa.fieldbyname('nm_usuarioemail').asstring;
        ACBrMail1.SetSSL := (qrEmpresa.fieldbyname('tp_conexaoseguraemail').asinteger=1);
        ACBrMail1.SetTLS := (qrEmpresa.fieldbyname('tp_conexaossltsl').asinteger=1);
        ACBrMail1.ReadingConfirmation := False;
        ACBrMail1.UseThread := false;          
        ACBrMail1.FromName := qrempresa.fieldbyname('nm_emp').asstring;

        ACBrNFe.NotasFiscais.Items[0].EnviarEmail(para, 'Nota Fiscal Eletrônica - '+ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID,
                                                   memo1.lines
                                                   , True 
                                                   , CC   
                                                   , nil);

 

Estou usando o trunk2. Até ontem estava funcionando normalmente, porém quando dei um update nos fontes apareceu este erro.

[Régys Silveira]

Você tem alguma nota carregada no componente antes de chamar o método de envio?

Eu uso este método aqui e esta tudo normal.

Quanto a ter erros sempre após atualizar eu atualizo todos os dias e vários outros também e nunca tenho erros a não ser quando alguém manda algo errado, o que geralmente é corrigido rapidamente e também é raro acontecer.

[Werner_Marques]

Sim, Regys. Antes de chamar o método de envio, eu faço o seguinte:

ACBrNFe.NotasFiscais.Clear;
ACBrNFe.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

[Régys Silveira]

Tente debugar e verificar em que ponto o erro ocorre, fiz vários testes aqui e está tudo normal com a ultima versão do Trunk2.

Tenho isso em produção também e ninguém reclamou, então não parece ser algo o componente.

[Werner_Marques]

Obrigado Regys, Vou atualizar os fontes e debugar, qualquer novidade posto aqui.

É como falei Regys, Também estava funcionando e tenho clientes que estão usando em produção também, o problema aconteceu depois que fiz uma atualização dos fontes.

[Régys Silveira]

Talvez foi um erro pontual da atualização, tente fazer a nova e verificar, qualquer coisa retorne aqui e vemos o que pode ser.

[Werner_Marques]

Regys, atualizei os fontes, dei um build no meu projeto, porem o erro persiste. Ele é disparado quando chega na linha que está destacada na imagem anexada.

 

debug_email.bmp

[Régys Silveira]

Este ponto é onde o ACBrMail levantou o erro, precisamos verificar qual linha chamou o DoException.

Só para confirmar, você está tentando enviar uma NF-e, correto?

Não é evento ou outro XML.

[Werner_Marques]

Estou enviando uma NF-e.

Antes de entrar procedure que está na imagem, ele passa pela unit ACBrNFeNotasFiscais.pas e vai para a seguinte função:

function TNotasFiscais.GetItem(Index: integer): NotaFiscal;
begin
  Result := NotaFiscal(inherited Items[Index]);
end;

este parâmetro index etá vindo com o valor 0.

Depois disso ele entra na procedure que eu mostrei na imagem.

 

[EMBarbosa]

Você consegue reproduzir o problema no programa de exemplo?

[Werner_Marques]

Obrigado pela resposta. Sim, ocorre o mesmo erro

[Régys Silveira]

Verifique se não existem arquivos marcados em vermelho ou amarelo no seu diretório ACBr por favor, fiz testes aqui é está tudo normal, enviando corretamente a NF-e, não consegui simular o problema de forma alguma.

[Werner_Marques]

Está tudo atualizado, nada em vermelho ou amarelo. Vou tentar por outro email em outra maquina para ver se eu consigo.

Estranho, pois tenho um outro sistema que também envia email pelo ACBr, com o código idêntico e não acontece isso

[Werner_Marques]

Pessoal, estou voltando a postar apenas para que fique registrado como consegui solucionar o problema, Eu resolvi adicionando um caminho a propriedade "PathPDF"  no componente do DANFE.