NFSe - Email

[Dercide Alvarez]

Estou testando o email com o provedor HBISS, Porto Alegre.

O que esta acontecendo é o seguinte :

A função que envia o email, gera o PDF ==> 201600000000003.PDF

Mas a função que gera o nome do anexo => function NotaFiscal.GetNumID

Result := NumDoc + NFSe.IdentificacaoRps.Serie;

Ela adiciona a serie ao nome do anexo, com isso o componente não acha o PDF gerado => 2016000000000031.PDF

Dercide.

[Dercide Alvarez]

Tem mais um coisa.

Gera o PDF ==> 201600000000003.PDF

E tenta anexar   2016000000000031-nfse.PDF

Vou ver agora onde esta o problema.

 

Dercide.

[Dercide Alvarez]

Consegui fazer um ajuste na ACBrNFSeDANFSeRLClass.Pas

Mudei a linha 229 

   NomeArq := PathWithDelim(Self.PathPDF)+NomeArq+'.pdf';

Para

   NomeArq := PathWithDelim(Self.PathPDF)+NomeArq+Trim(NFSe.IdentificacaoRps.Serie)+'-nfse.pdf';
 

Foi mais fácil alterar aqui na geração do PDF em Fortes, pois a função  function NotaFiscal.GetNumID  é usada também na geração do nome do RPS, ai poderia dar alguma confusão.

Estou postando o fonte, vejam se podem ou não atualizar o SVN.

 

Dercide.

ACBrNFSeDANFSeRLClass.pas

[Dercide Alvarez]

Boa tarde,

 

Alguém chegou a analisar essa questão que passei ?

 

Dercide.

[Juliomar Marchetti]

está no svn!

Obrigado pela colaboração