Alterar o nome do DANFE

[Paulo Starling Perdigao]

Boa tarde a a todos.

Não consigo alterar o nome arquivo DANFE.

Gostaria que o nome do arquivo PDF  : ChaveDaNf-e.pdf

Como faço?

[Juliomar Marchetti]

Boa tarde

depende do gerenciador de relatórios usado mas ele já faz isso nas implementações que foram feitas no componente.

notei que postou em mais de um local, iria rsponder lá mas como criou mais um post fiz aqui. as regras servem para todos. poste em um local e aguarde.

[Paulo Starling Perdigao]

Então o componente gera o nome do danfe automático?

Essa procedure gera o DANFE:

  procedure TFrmBrNFp.ImprimeDanfeProtocolado( sXmlNome : String ; iNumeroCopias: Integer; bPreview, bPdf: Boolean; sProtocolo: String; strCancelada: String );
  Var
    strQuery : String;
    v_teste : String;
  begin
    //iTanProtocolo := Length( sProtocolo );
    With FrmBrNFp.ACBrNFe1 do
    begin
      Configuracoes.Arquivos.Salvar := false;
      Configuracoes.Arquivos.AdicionarLiteral := false;
      Configuracoes.Arquivos.SepararPorAno    := false;
      Configuracoes.Arquivos.SepararPorCNPJ   := false;
      Configuracoes.Arquivos.SepararPorDia    := false;
      Configuracoes.Arquivos.SepararPorMes    := false;
      Configuracoes.Arquivos.SepararPorModelo := false;

      NotasFiscais.Clear;
      NotasFiscais.LoadFromFile( sXmlNome );

      FrmBrNFp.ACBrNFeDANFEFR1.TributosFonte := 'IBTP';
      FrmBrNFp.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial  := iuComercial;
      FrmBrNFp.ACBrNFeDANFEFR1.ImprimirTotalLiquido     := False;
      FrmBrNFp.ACBrNFeDANFEFR1.ExibirTotalTributosItem  := False;
      FrmBrNFp.ACBrNFeDANFEFR1.fastfile                 :='C:\sics3000\danfe.fr3';
      FrmBrNFp.ACBrNFeDANFEFR1.ShowDialog               := false;
      FrmBrNFp.ACBrNFeDANFEFR1.ExibeCampoFatura         := (NotasFiscais.Items[0].NFe.Ide.indPag <> ipOutras);

      danfe := FrmBrNFp.ACBrNFeDANFEFR1;

      with danfe do
      begin
        Logo          := 'C:\sics3000\logo_empresa.jpg';
        MostrarStatus := false;

        if(strCancelada = 'S')then
        begin
          NFeCancelada := true;
          ProtocoloNFe := sProtocolo;
        end
        else
        begin
          NFeCancelada := false;
          ProtocoloNFe := sProtocolo;
        end;

        {if (iTanProtocolo > 5) then
        begin
          NFeCancelada := true;
          ProtocoloNFe := sProtocolo;
        end;}

        {BUSCANDO DADOS DOS EMISSOR}
        strQuery := 'select * from empresa LIMIT 1';
        with FrmDados.QGeral do
        begin
          Close;
          SQL.Clear;
          SQL.Add(strQuery);
          Active := true;
        end;

        Email           := FrmDados.QGeral.FieldByName('ceemail').AsString;
        Fax             := FrmDados.QGeral.FieldByName('cefax').AsString;
        Sistema         := 'Desenvolvido por www.starling.com.br';
        Site            := FrmDados.QGeral.FieldByName('site_emp').AsString;
        PathPDF         := 'C:\sics3000\danfe\';
        MostrarPreview  := bPreview;

        if bPreview then
          NumCopias := 1
        else
          NumCopias := iNumeroCopias;
      end;

      if bPdf then
        NotasFiscais.ImprimirPDF
      else
        NotasFiscais.Imprimir;
    end;
  end;
end.

O nome do arquivo fica assim: C_sics3000_danfe.fr3.pdf

parece que o componente está fazendo um tratamento pegando o caminho do arquivo e gerando o nome:

Será que consigo alterar isso?

 

 

 

 

 

 

[Paulo Starling Perdigao]

Bom dia.

Auguem pode me ajudar?

[José M. S. Junior]

Boa tarde

Paulo, isso não é configurado, é definido no componente... Utilizamos o Fortes e no componente já é definido a chave da NFe como o nome do pdf. No Fast faz isso também:

frxPDFExport.FileName := PathWithDelim(Self.PathPDF) +    OnlyNumber(NFe.infNFe.ID) + '-nfe.pdf'; 

Verifique se está alterando o FileName em outro local...