Envio de PDF via email

[Heronim Antonio Marçal]

Senhores,

 

Fiz a alteração abaixo pq notei que a geração do nome do arquivo PDF na criação do PDF não era a mesma do envio do email, gerando a mensagem de que o arquivo não existia.

 

//ACBrNFSeNotasFiscais

 

 

   if (EnviaPDF) then

      begin

        if Assigned(DANFSE) then

        begin

          DANFSE.ImprimirDANFSEPDF(FNFSe);

          if Configuracoes.Arquivos.NomeLongoNFSe then

          begin

 

            NomeArq := GerarNomeNFSe(UFparaCodigo(NFSe.PrestadorServico.Endereco.UF),

              NFSe.DataEmissao, NFSe.PrestadorServico.IdentificacaoPrestador.CNPJ,

              StrToIntDef(NFSe.Numero, 0));

 

            NomeArq := DANFSE.PathPDF + NomeArq + '-nfse.pdf';

          end

          else

            NomeArq := NFSe.Numero + NFSe.IdentificacaoRps.Serie;

          // Correção aplicada do nome do arquivo para o envio de e-mail

 

          // NomeArq := PathWithDelim(DANFSE.PathPDF) + NumID[FNFSe] + '-nfse.pdf';

          AnexosEmail.Add(NomeArq);

        end;

      end;

[Celso Marigo Junior]

@Heronim Antonio Marçal poste o arquivo .pas, fica mais fácil de comparar, pois usamos o WinMerge aqui.

[Heronim Antonio Marçal]

Segue conforme solicitado

ACBrNFSeNotasFiscais.pas

[Italo Giurizzato Junior]

Bom dia Heronim,

Mas a sua alteração não faz muito sentido.

Pois ao ler o valor de NumID[ FNFSe ] é chamado a função GetNumID definida na Unit ACBrNFSe e o que essa função faz é exatamente o que você acrescentou no procedimento EnviarEmail.

[Heronim Antonio Marçal]

Bom dia Ítalo,

Vou checar aqui, forcei a mudança justamente pq gerava o arquivo como nomes diferentes.

[Italo Giurizzato Junior]

Heronim,

Verifique se a propriedade NomeLongoNFSe não esta sendo sentada com valores diferentes em pontos diferentes da aplicação.

[Heronim Antonio Marçal]

Ok, obrigado pela dica.

[Heronim Antonio Marçal]

Boa tarde, Ítalo,

Vi que houve uma mudança no nome do arquivo PDF, mas notei que está gerando com as barras e traços no CNPJ, impossibilitando que o arquivo seja gravado. Exemplo: 32261907.211.082/0001-6256000000000-nfse.pdf 

Posso alterar o código mas não sei qual função vcs usam para eliminar estes caracteres. 

 

Editado 29 Junho, 2016 por Heronim Antonio Marçal

[Italo Giurizzato Junior]

Boa tarde Heronim,

Vou verificar o problema e fazer as devidas correções.

=====

Favor atualizar os fontes e realizar novos testes.