Pesquisar na Comunidade
Showing results for tags 'titulo;'.
Encontrado 1 registro
-
Boa tarde @Juliana Tamizou, eu fiz umas alteração simples no fonte do boleto, o que seria o titulo quando da Preview, Report do Fast e Fortes. Fonte unit ACBrBoleto; Adicionei FTituloCabecalho : string; procedure SetTituloCabecalho(const Value: string); property TituloCabecalho : string read FTituloCabecalho write SetTituloCabecalho; procedure TACBrBoletoFCClass.SetTituloCabecalho(const Value: string); begin FTituloCabecalho := Value; end; Fonte unit ACBrBoletoFCFR; procedure TACBrBoletoFCFR.Imprimir; begin inherited Imprimir; // Verifica se a lista de boletos está vazia with FdmBoleto do begin cdsBanco.EmptyDataSet; cdsCedente.EmptyDataSet; cdsTitulo.EmptyDataSet; if PreparaRelatorio then begin frxReport.PrintOptions.ShowDialog := (MostrarSetup) and (not FModoThread); frxReport.PrintOptions.Copies := NumCopias; frxReport.ReportOptions.Name := TituloCabecalho; <-- Adicionado Fonte unit ACBrBoletoFCFortes; procedure TACBrBoletoFCFortes.Imprimir; var frACBrBoletoFortes : TACBRBoletoFCFortesFr; RLFiltro : TRLCustomSaveFilter; RLLayout: TRLReport; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self); try with frACBrBoletoFortes do begin case LayOut of lCarne : RLLayout := BoletoCarne; lReciboTopo : RLLayout := BoletoReciboTopo; lFaturaDetal : RLLayout := LayoutFaturaDetal; else RLLayout:= LayoutBoleto; end; if (NumCopias > 0) and (RLPrinter.Copies <> NumCopias) then begin RLPrinter.Copies := NumCopias; end; RLLayout.PrintDialog := MostrarSetup; RLLayout.ShowProgress := MostrarProgresso; RLLayout.Title := TituloRelatorio; --> adicionado Inicio if TituloCabecalho <> '' then begin RLLayout.PreviewOptions.Defaults := pdIgnoreDefaults; RLLayout.PreviewOptions.Caption := TituloCabecalho; end else RLLayout.PreviewOptions.Defaults := pdUseDefaults; <-- Adicionado Fim ACBrBoleto.pasACBrBoletoFCFR.pasACBrBoletoFCFortesFr.dfmACBrBoletoFCFortesFr.pasACBrBoletoFCFR.dfm Qualquer duvida manda mensagem ou erro, eu corrijo.