Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.

Filtrando Relatórios

Desde que comecei a visitar listas de discussão e a utilizar fórums na Internet (prática que aconselho a todos), reparo que algumas dúvidas sempre se repetem. Sobre o QuickReport por exemplo, sempre tem alguém perguntando como construir relatórios com filtro. Observe abaixo algumas recentes mensagens que capturei da caixa de email:

“

Caros Amigos,

Como posso  criar um relatório que imprima todos os pedidos de um determinado período, selecionado por cliente?”

“

Amigos da Lista,

Como criar um relatório que imprima os clientes que mais compraram, agrupado por produto e quantidade?

“

A resposta para todas estas questões é a mesma: como o quickreport se conecta a um DataSet, o que devemos fazer é filtrar a Tabela ou a Query. Ou seja: não precisamos nos preocupar com a lógica da consulta no relatório, pois uma vez que a query foi construída para atender a necessidade do problema, o relatório irá apenas obedecer aos dados recebidos. Vejamos um exemplo na prática: Um relatório de pedidos no qual o usuário irá selecionar um período de datas para exibição dos dados. Para construir este relatório, iremos utilizar o banco de dados que acompanha o Delphi, o DBDEMOS.

O relatório criado é um simples master/detail, envolvendo as tabelas ORDERS.DB e ITEMS.DB, o equivalente à pedidos e items. Crie um objeto DataModule e um objeto QuickReport, através do Object Repository, e configure-os conforme a listagem abaixo:

object DataModule2: TdataModule2

  TTable

Active = True

DatabaseName = 'DBDEMOS'

TableName = 'ORDERS.DB'

Left = 24

Top = 8

Name =TbOrders 

  TDataSource

DataSet = tbOrders

Left = 88

Top = 8

Name = dsOrders

  TTable

Active = True

DatabaseName = 'DBDEMOS'

IndexFieldNames = 'OrderNo'

MasterFields = 'OrderNo'

MasterSource = dsOrders

TableName = 'items.db'

Left = 16

Top = 78

Name=tbItems

  TDataSource

DataSet = tbItems

Left = 88

Top = 78

Name=dsItems

TTABLE

Active = True

DatabaseName = 'DBDEMOS'

IndexFieldNames = 'CustNo'

MasterFields = 'CustNo'

MasterSource = dsOrders

TableName = 'customer.db'

Left = 176

Top = 78

Name=TbCustomer

  TTable

Active = True

DatabaseName = 'DBDEMOS'

IndexFieldNames = 'PartNo'

MasterFields = 'PartNo'

MasterSource = dsItems

TableName = 'parts.db'

Left = 170

Top = 8

Name = tbParts

Figura – Datamodule com os objetos Ttable

O objeto QuickReport será preenchido da seguinte forma:

QrBand1 -> 1 TqrLabel

QrBand2 -> 3 TqrDbText

QrSubDetail -> 3 qrDbtext

As propriedades dos objetos serão configuradas conforme a listagem abaixo:

  object QuickRep3: TquickRep

DataSet = DataModule2.tbOrders

TQRBand

BandType = rbTitle

Name=QrBand1

TQRLabel (qrBand1)

Left = 242

Top = 8

Caption = 'RELATÓRIO DE PEDIDOS'

FontSize = 10

Name=QRLabel1

   TQRBand

Frame.DrawTop = True

Color = clSilver

BandType = rbDetail

Name=qrBand2

TQRDBText (qrBand2)

Left = 16

Top = 8

DataSet = DataModule2.tbOrders

DataField = 'OrderNo'

FontSize = 10

Name=qrDbText1

TQRDBText (qrBand2)

Left = 280

Top = 8

DataSet = DataModule2.tbOrders

DataField = 'SaleDate'

FontSize = 10

Name = QRDBText3

TQRDBText (qrBand2)

Left = 82

Top = 8

DataSet = DataModule2.tbCustomer

DataField = 'Company'

FontSize = 10

Name=QRDBText2

TQRSubDetail

DataSet = DataModule2.tbItems

Name=QrSubDetail1

   TQRDBText (QrSubDetail1)

Left = 34

Top = 8

DataSet = DataModule2.tbItems

DataField = 'PartNo'

FontSize = 10

Name= qrDbText4

 TQRDBText (qrsubDetail1)

Left = 98

Top = 8

DataSet = DataModule2.tbParts

DataField = 'Description'

FontSize = 10

Name= QRDBText5

 TQRDBText (qrSubDetail1)

Left = 298

Top = 8

DataSet = DataModule2.tbItems

DataField = 'Qty'

FontSize = 10

Name = qrdbText6

Para selecionar uma data de início e uma data de término um pequeno form foi criado, conforme mostra a figura abaixo:

Os objetos utilizados para construção deste formulário seguem abaixo:

Tform

Name=form1

TLabel

Left = 72

Top = 16

Caption = 'Início:'

Name=Label1

TLabel

Left = 72

Top = 72

Caption = 'Término:'

Name= Label2

TdateTimePicker

Name=DateTimePicker1

Left = 72

Top = 32

TDateTimePicker

Left = 72

Top = 88

Name= DateTimePicker2

TBitBtn

Left = 104

Top = 208

Caption = 'Imprimir'

Name=BitBtn1

E, para filtragem do relatório, o evento OnClick do botão Imprimir:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Datamodule2.tbOrders.Filter:='SaleDate >= ''' +

  DateToStr(DateTimePicker1.Date) +

  ''' and SaleDate <= ''' + DateToStr(DateTimePicker2.Date)+ '''';

  Datamodule2.tbOrders.Filtered:=true;

  QuickrePort3.Preview;

end;

Nosso projeto já está pronto para ser executado:

Figura – Relatório em tempo de execução

Acabamos de ver, na prática, que toda a complexidade de um relatório fica nas mãos da query e da table.O QuickReport é a ferramenta para a construção visual do relatório. Para a construção da lógica, imagine que você está construindo uma consulta, e não um relatório. Com a consulta pronta, criar o relatório será bem mais fácil.

Mas ainda existem algumas peculiaridades. No exemplo que acabamos de construir, o filtro é realizado sobre a banda pai, que representa a tabela de pedidos (orders). Como a tabela orders é filtrada, automaticamente os filhos que não pertencem ao filtro são excluídos, pois temos um relacionamento entre os objetos Ttable – vide a propriedade MasterSource e MasterFields dos objetos. O problema aparece quando temos que realizar o filtro sobre a tabela filho. Se o nosso relatório evoluísse para a questão: “Quero visualizar todas as compras do produto X em determinado período, visualizando o número do pedido, o cliente, a data e a quantidade”. Preste atenção e perceba que estamos falando do mesmo relatório. A única diferença é que teremos que filtrar a tabela tbItems para exibir somente os pedidos que contenham determinado produto. Vejamos o que isso significa na prática.

Implemente nosso formulário de seleção, adicionando uma ComboBox e um objeto Ttable. Suas propriedades estão definidas abaixo:

object Table1: TTable

DatabaseName = 'DBDEMOS'

IndexName = 'ByDescription'

TableName = 'parts.db'

Left = 24

Top = 120

object ComboBox1: TComboBox

Left = 24

Top = 160

Width = 257

Height = 21

O evento OnShow do form irá receber o código necessário para o preenchimento da ComboBox:

procedure TForm1.FormShow(Sender: TObject);

begin

  table1.Open;

  ComboBox1.Items.add('TODOS');

  While not Table1.Eof do begin

ComboBox1.Items.Add(Table1.Fieldbyname('Description').asString);

Table1.Next;

  End;

  ComboBox1.ItemIndex:=0;

end;

E o botão Imprimir será implementado de modo que também permita o filtro pela tabela filho:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

  Datamodule2.tbOrders.Filter:='SaleDate >= ''' +

  DateToStr(DateTimePicker1.Date) +

  ''' and SaleDate <= ''' + DateToStr(DateTimePicker2.Date)+ '''';

  if Table1.FindKey([ComboBox1.Text]) then begin

Datamodule2.tbItems.Filter:='PartNo = '+Table1.Fieldbyname('PartNo').asString;

Datamodule2.tbItems.Filtered:=True;

  End

  Else

Datamodule2.TbItems.Filtered:=false;

  Datamodule2.tbOrders.Filtered:=true;

  QuickrePort3.Preview;

end;

O resultado não será muito bom. Abaixo podemos visualizar o relatório com o produto ‘Alternate Inflation Regulator’ selecionado:

Na figura acima você pode perceber que o resultado visual do relatório ficou muito ruim. A resposta é simples. Como filtramos a tabela filho, e não a tabela pai, todos os registros da tabela pai serão exibidos, independente de conter ou não o referido produto como item. Para resolver este problema devemos tomar duas atitudes: a primeira é alterar a propriedade PrintIfEmpty, do objeto QrSubDetail1, para False. O resultado será melhorado:

O segundo passo é eliminar a impressão de bandas pai sem filhos. Podemos utilizar o evento OnBeforePrint, do objeto QrBand pai (qrBand2):

procedure TquickReport3.QRBand2BeforePrint(Sender: TQRCustomBand;

  var PrintBand: Boolean);

begin

  if Datamodule2.TbItems.RecordCount >0 then

PrintBand:=True

  Else

printBand:=False;

end;

Simples, não? O parâmetro PrintBand permite que indiquemos se a banda será impressa ou não. Dentro de um if para verificar se a banda filho possui registros, nosso problema está resolvido. Veja o resultado:

Existem casos em que o uso da Query será muito mais eficiente para a construção da lógica do relatório. Quando isto acontecer, basta utilizar a query em conjunto com o objeto QrGroup para criar o mesmo efeito de master/detail realizado neste exemplo.

Acredito que este artigo responderá muitas dúvidas em relação aos filtros no QuickReport, que, como percebemos, praticamente não existem. Este exemplo pode ser baixado no endereço www.clubedelphi.com.br/edicao12/filtrarqr.zip. Vários outros exemplos estão disponíveis na página do clube, no link de funções/exemplos, sob a categoria QuickReport.