Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

erro add attachment: file not exists


Go to solution Solved by Werner_Marques,
  • Este tópico foi criado há 2361 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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.

Link to comment
Share on other sites

  • Moderadores

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.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link to comment
Share on other sites

  • Membros Pro

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.

 

Link to comment
Share on other sites

  • Consultores

Você consegue reproduzir o problema no programa de exemplo?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 1 month later...
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.