Problemas com envio de e-mail NFSe

[mbbortolini]

Bom dia pessoal, após a atualização do ACBR na data de ontem (21/03/2017 - revisão 14885) notei que o envio de e-mail pelo componente parou de funcionar quando configurado para enviar PDF da DANFSe junto. O erro era em relação ao anexo.

A imagem abaixo mostra o arquivo gerado pelo componente e o caminho, este arquivo foi realmente gerado em disco e encontra-se no caminho correto.

.

 

Após isso, é atribuído o arquivo ao anexo, só que gera novamente o nome do arquivo e este é diferente do que foi gerado acima.

 

Após muita tentativa efetuei uma alteração no fonte de  ACBrNFSeDANFSeFR, que segue para análise dos responsáveis. A alteração consiste em alterar a função de conversão do numero da NFSe, pois com a atual retorna somente zeros, como pode ser visto na primeira imagem.

Citar

          NomeArqXML := GerarNomeNFSe(UFparaCodigo(NFSe.PrestadorServico.Endereco.UF),
           NFSe.DataEmissao,
           NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj,
           StrToIntDef(NFSe.Numero,0))

Foi alterado para :

Citar

          NomeArqXML := GerarNomeNFSe(UFparaCodigo(NFSe.PrestadorServico.Endereco.UF),
           NFSe.DataEmissao,
           NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj,
           StrToInt64Def(NFSe.Numero,0))

Assim, gerando o arquivo com o nome no mesmo padrão que gera função GetNumID de ACBrNFSe.pas

ACBrNFSeDANFSeFR.pas

[Juliomar Marchetti]

Boa tarde

subi no svn mas estou pensando que pode gerar um efeito colateral nos delphi 7

[mbbortolini]

34 minutos atrás, Juliomar Marchetti disse:

Boa tarde

subi no svn mas estou pensando que pode gerar um efeito colateral nos delphi 7

Uso delphi 7, foi de boa