boleto; Titulo na Visualização

[RenatoE]

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.

[RenatoE]

Boa tarde @Italo Jurisato Junior , @Juliana Tamizoueu fiz esta alteraçao no componente sabe me dizer se vai subir no SVN?

[Juliana Tamizou]

Boa tarde.

Estive ausente nos últimos dias, mas qual é a necessidade desta implementação?

Att.

[RenatoE]

@Juliana Tamizou o Titulo do cabeçalho o cliente queria por o nome da empresa e com o nome do banco.

[Juliana Tamizou]

Boa tarde.

Não seria o caso de usar a propriedade NomeArquivo?

Att.

 

[RenatoE]

Boa tarde, Não seria está propriedade.

Seria aqui conforme a imagem, a onde esta escrito Pré-visualização.

 

[Juliana Tamizou]

Bom dia.

A alteração foi adicionada para validação.

Att.

[EMBarbosa]

Em 10/01/2020 at 16:29, RenatoE disse:

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.

Olá RenatoE,

Muito obrigado pela contribuição.
Fiz a implementação baseada nela. No entanto, achamos melhor alterar o nome da propriedade para TituloPreview. Achamos que isso vai indicar melhor o objetivo dela.

Subi as alterações para o SVN na Revisão  19012.
Pelo que vi está tudo certo.
Mas queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[RenatoE]

@EMBarbosa, OK vou alterar, ja vou encaminhar a alteração.

[EMBarbosa]

3 minutos atrás, RenatoE disse:

@EMBarbosa, OK vou alterar, ja vou encaminhar a alteração.

Acho que você não entendeu. A alteração já está no SVN. Basta você atualizar e testar.

Veja o que eu escrevi:

Em 07/02/2020 at 09:59, EMBarbosa disse:

Subi as alterações para o SVN na Revisão  19012.
Pelo que vi está tudo certo.
Mas queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

 

[RenatoE]

@EMBarbosa a sim desculpa o engano, eu entendi que eu iria precisar alterar o nome da variavel, Muito Obrigado!