FastReport - Nome Longo

[heptas]

Olá fiz essa alteração na Unit ACBrNFSeDANFSeFR.pas, no método procedure TACBrNFSeDANFSeFR.ImprimirDANFSePDF(NFSe: TNFSe); para o componente reconhecer a propriedade NOME LONGO

 

          with TACBrNFSe( ACBrNFSe ).NotasFiscais.Items do
          begin
               if TACBrNFSe( ACBrNFSe ).Configuracoes.Arquivos.NomeLongoNFSe then
                  NomeArqXML := NotaUtil.GerarNomeNFSe(UFparaCodigo(Nfse.PrestadorServico.Endereco.UF),
                                                Nfse.DataEmissao,
                                                Nfse.PrestadorServico.IdentificacaoPrestador.Cnpj,
                                                StrToIntDef(Nfse.Numero, 0))
               else
                  NomeArqXML := NFSe.Numero;
          end;

       dmDanfse.frxPDFExport.FileName := PathPDF+ NomeArqXML+'.pdf';

 

Alguém por favor pode colocar no repositório?

[heptas]

Método na íntegra

procedure TACBrNFSeDANFSeFR.ImprimirDANFSePDF(NFSe: TNFSe);
const
  TITULO_PDF = 'Nota Fiscal de Serviço Eletrônica';
var
  I: Integer;
  NomeArqXML : string;
begin
  if PrepareReport(NFSe) then
  begin
    dmDanfse.frxPDFExport.Author        := Sistema;
    dmDanfse.frxPDFExport.Creator       := Sistema;
//    dmDanfse.frxPDFExport.Producer      := Sistema;
//    dmDanfse.frxPDFExport.Title         := TITULO_PDF;
    dmDanfse.frxPDFExport.Subject       := TITULO_PDF;
//    dmDanfse.frxPDFExport.Keywords      := TITULO_PDF;
    dmDanfse.frxPDFExport.ShowDialog    := False;

    for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count -1 do
    begin
//      dmDanfse.frxPDFExport.FileName := PathPDF+ dmDanfse.NFSe.Numero+dmDanfse.NFSe.CodigoVerificacao+'.pdf';

          with TACBrNFSe( ACBrNFSe ).NotasFiscais.Items[i] do
          begin
               if TACBrNFSe( ACBrNFSe ).Configuracoes.Arquivos.NomeLongoNFSe then
                  NomeArqXML := NotaUtil.GerarNomeNFSe(UFparaCodigo(Nfse.PrestadorServico.Endereco.UF),
                                                Nfse.DataEmissao,
                                                Nfse.PrestadorServico.IdentificacaoPrestador.Cnpj,
                                                StrToIntDef(Nfse.Numero, 0))
               else
                  NomeArqXML := NFSe.Numero;
          end;

       dmDanfse.frxPDFExport.FileName := PathPDF+ NomeArqXML+'.pdf';
       dmDanfse.frxReport.Export(dmDanfse.frxPDFExport);
    end;
  end;
end;

 

[Juliomar Marchetti]

Anexe o arquivo ao tópico para subirmos e comparmos

[heptas]

segue o arquivo

ACBrNFSeDANFSeFR.pas

[Juliomar Marchetti]

No svn a alteração