Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado (editado)

Bom dia

Ao tentar salvar um danfe com o Fortes Report, estão aparecendo vários filtros repetidamente.

Isso seria algo de errado em minha aplicação ou no componente Fortes ? Existe alguma forma de eliminar essas repetições ?

Desde já agradeço a atenção.

 

salvamento danfe.png

Editado por Turbo Drive
Faltou alguns detalhes
  • Consultores
Postado

Boa tarde

isso é no componente, deve existir algum problema com a herança, pois basta a unit está presente que ele mostra o filtro.

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
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 !!

  • 2 semanas depois ...
Postado

Boa tarde

Na unit RLSaveDialog do componente Fortes report, linha 409, existe a função que preenche o combobox com os filtros de salvamento do relatório.
O problema é que essa função estava exibindo os mesmos filtros repetidamente. Para corrigir esse problema, basta acrescentar a linha

if ComboBoxFilters.items.IndexOf(F.GetDisplayLabel) = -1 then

conforme a função abaixo:

procedure TRLSaveDialog.LoadFilterList;
var
  I, J, P: Integer;
  F: TRLCustomSaveFilter;
begin
  ComboBoxFilters.Items.Clear;
  ComboBoxFilters.Items.AddObject(GetLocalizeStr(LocaleStrings.LS_DefaultStr), nil);
  J := 0;
  for I := 0 to ActiveFilters.Count - 1 do
    if TObject(ActiveFilters[I]) is TRLCustomSaveFilter then
    begin
      F := TRLCustomSaveFilter(ActiveFilters[I]);
      if ComboBoxFilters.items.IndexOf(F.GetDisplayLabel) = -1 then   
         P := ComboBoxFilters.Items.AddObject(F.GetDisplayLabel, F);
      if Assigned(SelectedFilter) and (F = SelectedFilter) then
        J := P;
    end;
  ComboBoxFilters.ItemIndex := J;
end;

 

Se algum colega daqui do fórum fizer parte do desenvolvimento do Fortes Report e puder acrescentar essa linhas nos fontes, acredito que será de grande valia para as versões futuras.

  • Consultores
Postado

Você mesmo pode fazer isso!

tem conta no github? faz uma fork aplica a correção depois faz um pull request que o pessoal valida e incorpora ao projeto.

  • Curtir 1

 

Consultora ACBr Pro

Juliomar Marchetti

Ajude o Projeto ACBr crescer - Seja Pro

discord: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br

 

MVP_NewLogo_100x100_Transparent-02.png
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 !!

  • Este tópico foi criado há 3409 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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...
The popup will be closed in 10 segundos...