Como alterar o nome do PDF ao salvar NF-e?

[ANTONIO CARLOS ANT.CARLOS]

Bom dia!

Tenho o seguinte problema:
Preciso ao salvar NF-e em PDF, alterar o nome do arquivo a ser salvo.
Uma vez que por padrão ja salvar com o nome da chave da NF-e.
No momento para contornar este problema, salvo normal e depois altero em Run-Time para o nome que desejo.

Como fazer isto, uma vez que uso Fast Report ?
Como salvar também sem abrir o Preview?

Desde já meus agradecimentos a quem puder ajudar.

[Daniel Simoes]

Experimente:

ACBrNFe1.DANFE.NomeDocumento

[ANTONIO CARLOS ANT.CARLOS]

Obrigado pela atenção!

Fiz o teste e não deu certo.

DMACBRNFE.ACBrNFe1.DANFE.NomeDocumento  := 'Nfeletronica-'+FormatFloat('#000',NumNota)+'.pdf';
          DMACBRNFE.ACBrNFeDANFeRL1.NomeDocumento := 'Nfeletronica-'+FormatFloat('#000',NumNota)+'.pdf';
          DMACBRNFE.ACBrNfe1.NotasFiscais.ImprimirPDF;

 

[Juliana Tamizou]

Bom dia.

Adicionamos em nosso backlog para implementar esse recurso, peço que aguarde novas informações no proprio tópico.

Att.

[EMBarbosa]

Em 29/04/2020 at 21:25, ANTONIO CARLOS ANT.CARLOS disse:

ACBrNFeDANFeRL1

Olá Antônio, esse é o DANFe em Fortes. Você tinha mencionado que estava utilizando o Fast. Tome cuidado para não confundir os dois.

Em 29/04/2020 at 21:25, ANTONIO CARLOS ANT.CARLOS disse:

Fiz o teste e não deu certo.

Acabei de enviar um ajuste para isso ao SVN. revisão 19850.

Queira por favor atualizar, testar e reportar qualquer problema.

[fefevilela]

23 horas atrás, EMBarbosa disse:

Olá Antônio, esse é o DANFe em Fortes. Você tinha mencionado que estava utilizando o Fast. Tome cuidado para não confundir os dois.

Acabei de enviar um ajuste para isso ao SVN. revisão 19850.

Queira por favor atualizar, testar e reportar qualquer problema.

Olá Barbosa,

Estou com os fontes atualizados e constatei que a Classe está com o nome CHUMBADO no padrão IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf' conforme codigo abaixo:

Posso efetuar uma alteração e submeter para voces publicarem em Trunk ???
 

procedure TACBrCTeDACTEFR.ImprimirDACTePDF(ACTE: TCTe);
const
  TITULO_PDF = 'Conhecimento de Transporte Eletrônico';
var
  OldShowDialog: Boolean;
begin
  if PrepareReport(ACTE) then
  begin
    frxPDFExport.Author   := Sistema;
    frxPDFExport.Creator  := Sistema;
    frxPDFExport.Producer := Sistema;
    frxPDFExport.Title    := TITULO_PDF;
    frxPDFExport.Subject  := TITULO_PDF;
    frxPDFExport.Keywords := TITULO_PDF;
    OldShowDialog         := frxPDFExport.ShowDialog;
    try
      frxPDFExport.ShowDialog := False;
      frxPDFExport.FileName   := IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf';

      if not DirectoryExists(ExtractFileDir(frxPDFExport.FileName)) then
         ForceDirectories(ExtractFileDir(frxPDFExport.FileName));

      frxReport.Export(frxPDFExport);
    finally
      frxPDFExport.ShowDialog := OldShowDialog;
      FPArquivoPDF := frxPDFExport.FileName;
    end;
  end;
end;

[EMBarbosa]

4 minutos atrás, fefevilela disse:

Estou com os fontes atualizados e constatei que a Classe está com o nome CHUMBADO no padrão IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf' conforme codigo abaixo:

Posso efetuar uma alteração e submeter para voces publicarem em Trunk ???

Olá Luis.

  Pode sim. Mas por favor, crie um novo tópico porque é um outro documento e assim não vamos perder o controle.

   Você pode me mencionar usando o recurso de citar. Você digita @ e logo depois o nome do usuário. Assim eu recebo notificação do tópico.

   Muito obrigado pela sua disposição.