Alteração Na Extensão Do Pdf

[Caetano]

Bom dia.

Atualizei o componente esta semana e quando salva o pdf da nfe na pasta, esta mudando o final do arquivo.

Antes salvava assim  '997972.pdf' , agora salva desta forma '372655-nfe.pdf' com o -nfe a mais. Alguém sabe o porque desta mudança?

O problema disso é que nos clientes que atualizei, quando vão enviar o e-mail retorna o erro de arquivo não encontrado

---------------------------

"C:\\Arquivos NFe\PDF\42145517089484077190558820000000501548872655.pdf". O sistema não pode encontrar o arquivo especificado.

---------------------------

OK   

---------------------------

Editado 7 Novembro, 2014 por Caetano

[CEDG]

Amigos,tmbestou com o mesmo problema...

[Maiquel]

Verifica como esta na unit ACBrNFeNotasFiscais na procedure NotaFiscal.EnviarEmail como esta sendo alimentada a varável NomeArq

[Caetano]

Ola Maiquel;

Esta assim:

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

[Maiquel]

Pois é, então você terá que fazer esta modificação para funcionar. No meu também tiver que realizar.

O pessoal precisa subir esta alteração  na unit ACBrNFeNotasFiscais na procedure NotaFiscal.EnviarEmail, para funcionar.

Segue o código alterado

   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;

[Juliomar Marchetti]

 

Pois é, então você terá que fazer esta modificação para funcionar. No meu também tiver que realizar.

O pessoal precisa subir esta alteração  na unit ACBrNFeNotasFiscais na procedure NotaFiscal.EnviarEmail, para funcionar.

Segue o código alterado

   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;

 

Boa tarde

chegaram a observar que temos agora as Notas Técnicas aqui no ACBr?

sugiro que baixem  as mesmas no svn e faça a leitura!

[Caetano]

Correto Juliomar Marcheti.

Eu não tinha visto esta nota técnica,mas o erro que acontece ao enviar a nfe realmente precisa ser ajustado na Unit postada pelo colega acima, pois la não esta com o novo padrão ainda

Agradeço 

[Italo Giurizzato Junior]

Boa tarde Maiquel,

 

Muito obrigado pela colaboração, já esta disponível a correção.

 

Favor atualizar e testar novamente.