Ir para conteúdo
  • Cadastre-se

dev botao

erro add attachment: file not exists


Ver Solução Respondido por Werner_Marques,
  • Este tópico foi criado há 3031 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Moderadores

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.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.