Erro Anexar O Pdf No E-Mail Da Nfe

[Alexandro]

Boa tarde,

Foi trocado o nome com que é salvo o arquivo PDF da NFe de acordo com a Nota Técnica ACBR 2014/001.

Porém na hora de enviar a NFe por e-mail anexando o xml e o pdf não é possível localizar o arquivo PDF gerado, pois o mesmo procura com o nome antigo

 

Segue abaixo

 

unit ACBrNFeNotasFiscais;

 

    procedure EnviarEmail(const sSmtpHost,

                                sSmtpPort,

                                sSmtpUser,

                                sSmtpPasswd,

                                sFrom,

                                sTo,

                                sAssunto: String;

                                sMensagem: TStrings;

                                SSL: Boolean;

                                EnviaPDF: Boolean = True;

                                sCC: TStrings = nil;

                                Anexos: TStrings = nil;

                                PedeConfirma: Boolean = False;

                                AguardarEnvio: Boolean = False;

                                NomeRemetente: String = '';

                                TLS : Boolean = True;

                                UsarThread: Boolean = True;

                                HTML: Boolean = False);

 

 

 

 

    if (EnviaPDF) then

    begin

       if TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE <> nil then

       begin

          TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe);

//erro tenta anexar o pdf mais não localiza o arquivo         NomeArq :=  StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);

          NomeArq :=  StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);

          NomeArq := NomeArq + '-nfe';  // nota técnica acbr 2014/001 adicionou -nfe na frente da chave

          NomeArq := PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+NomeArq+'.pdf';

          AnexosEmail.Add(NomeArq);

       end;

    end;

 

[André Ferreira de Moraes]

Provavelmente seus fontes não estão atualizados, pois este problema já foi corrigido.

 

       if TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE <> nil then
       begin
          TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe);
          NomeArq :=  StringReplace(NFe.infNFe.ID,'NFe', '', [rfIgnoreCase]);
          NomeArq := PathWithDelim(TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.PathPDF)+NomeArq+'-nfe.pdf';
          AnexosEmail.Add(NomeArq);
       end;

[Alexandro]

Opa.... falha minha... faltou verificar se teve alteração ... atualizei recentemente mais graças a competência de todos já teve atualização.

 

Obrigado pelo retorno e uma ótima tarde.

[Michael Belmonte]

Perfeito resolveu meu caso também, obrigado!