Salvar PDF com nome definido pelo usuário [resolvido]

[arce]

Olá.

Estou com uma dúvida, criei no meu módulo de NF-e uma opção para o usuário gerar arquivos qndo quiser. Nesta ele pode selecionar no grid as notas q ele deseja exportar, o formato (TXT, PDF e XML) e também como ele quer nomear os arquivos; e é nesse ultimo ponto q citei q esta meu problema.

Para salvar os XMLs eu alterei a função SaveToFile da unit ACBrNFeNotasFiscais o comando abaixo:

CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items[i].NFe.[b]infNFe.ID[/b], 'NFe', '', [rfIgnoreCase])+'-NFe.xml';

CaminhoArquivo := PathWithDelim(PathArquivo)+StringReplace(TACBrNFe( FACBrNFe ).NotasFiscais.Items[i].[b]NomeArq[/b], 'NFe', '', [rfIgnoreCase])+'.xml';

assim gero o xml com o nome desejado da seguinte forma

ACBrNFe1.NotasFiscais.Items[0].NomeArq := nome_arquivo;

ACBrNFe1.NotasFiscais.SaveToFile(caminho, false);

o mesmo acontece para os arquivos TXT, mas qndo faço para o PDF não funciona. Procurei alguma forma de modificar a função ImprimirPDF, mas não obtive sucesso.

Alguém tem alguma idéia de como posso fazer? Este é o tipo de arquivo q mais necessito para ser renomeado.

Aguardo resposta.

[peterson161]

Quem gera o PDF é o Danfe. Altere as units do Danfe que você utiliza.

[arce]

Mto obrigado peterson161 ... resolvido a questão, modifiquei a função de imprimir o PDF.. e funcionou

Abraço

[diogeneswinner]

amigos uma pergunta ... como faco pra na hora que gerar e validar o xml, ele ja gerar o arquivo pdf junto?

[Italo Giurizzato Junior]

Boa noite Diogenes,

Basta executar o método ImprimirPDF ou após o Envio para a SEFAZ, caso a nota seja autorizada, você executa o método EnviarEmail (para o destinatário).