Enviar Email Da Nfs-E Com Nome Longo (Erro Ao Anexar Danfse)

[andre@prodez]

Bom dia a todos.

 

Pesquisei nos Posts e não vi nada sobre o assunto que irei abordar.

 

Estou testando a Demo para envio de NFS-e e ao utilizar o Nome Longo para NFS-e (propriedade: "NomeLongoNFSe" do componente ACBrNFSe em Configuracoes.Arquivos) gera um erro ao Enviar e-mail por não encontrar o arquivo PDF do DANFSe (o arquivo procurado para envio do email é indicado com o Nome Longo, no entanto, olhando no Path do PDF ele foi salvo com o nome simples - NrNFSe.pdf)

 

Dando uma olhada nas funções do componente verifiquei que a procedure "NotaFiscal.EnviarEmail" faz a seguinte chamada no if EnviaPDF:  TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE.ImprimirDANFSEPDF(NFSe)

 

Isso leva a unit "ACBrNFSeDANFSeQRClass" (utilizo o QuickReport) e dentro da procedure "ImprimirDANFSePDF" verifiquei que nunca entra no if que montaria o Nome Longo para a var "NomeArqPDF" que é passada para função "fqrDANFSeQRRetrato.SavePDF" q salva o PDF, gerando o arquivo sempre como o nome curto.

Verifiquei que essa procedure foi alterada pelo Italo (em 20/06/2014).

 

Italo, por favor, vc sabe me informar se tem algum bug nessa rotina. Para fazer os testes estou seguindo os passos na Demo:

- componente configurado para trabalhar com Nome Longo na NFSe

- botão <Gerar e Enviar Lote RPS>

- botão <Enviar e-mail> : já gera o erro por não encontrar o pdf com nome longo.

 

Aguardo orientações e desde já agradeço a atenção de todos.

André Luis.

[Italo Giurizzato Junior]

Boa tarde André,

 

Favor atualizar os fontes e testar novamente.

[andre@prodez]

Boa tarde Italo.

 

Vou atualizar e assim que testar dou um retorno.

 

Obrigado pela atenção.

[andre@prodez]

Bom dia Italo.

 

Funcionou tudo certinho.

Obrigado pela atenção e agilidade.