Ir para conteúdo
  • Cadastre-se

dev botao

Titulo na Visualização


RenatoE
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1505 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

  • Curtir 1
  • Obrigado 1

Att,

Renato

 

http://www.edsonbill.com

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Administradores

Boa tarde.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

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

Att.

 

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

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

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution
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.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

 

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1505 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...