Problema Ao Enviar E-Mail Com Danferl

[Alessandro Inforangra]

Encontrei um problema ao enviar uma carta de correção por e-mail com o PDF em anexo.

 

                A linha 291 original esta assim: Copy(TACBrNFe(ACBrNFe).EventoNFe.Evento.Items.InfEvento.id, 3, 52) + '.pdf';

                A linha 291 corrigida esta assim: Copy(TACBrNFe(ACBrNFe).EventoNFe.Evento.Items.InfEvento.id, 3, 52) + 'evento.pdf';

 

                Como a rotina de envio do arquivo espera o final do arquivo com a palavra evento o arquivo precisa ser gerado assim, então alterei a unit do DANFERL e resolveu. Obs: A unit do Rave esta correta.

 

 

Sugiro que seja atualizado no projeto a unit DANFERL.

 

Att,

 

Alessandro Souza.

[Régys Silveira]

Por favor anexe o arquivo alterado, assim podemos comparar o arquivo e verificar as alterações que foram feitas, bem como versão do arquivo e estrutura.

[peterson161]

Corrigido.

[colmanetti]

ao meu ver deve ter o mesmo nome o xml e o PDF e assim mesmo não está ocorrendo.

 

exemplo XML=351304094197130001695500200000000910000000901101103-procEventoNFe.xml

 

o PDF não tem o mesmo nome e esta somando o TipoEvento no inicio e final do nome.

 

como está a linha 294:

 

    NomeArq := TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.TipoEvento;

    NomeArq := NomeArq + TACBrNFe(ACBrNFe).EventoNFe.Evento[0].InfEvento.chNFe;

 

    dmDanfe.frxPDFExport.FileName := PathWithDelim(Self.PathPDF) + NomeArq + 'evento.pdf';