D�vidas na elabora��o de Relat�rio - QuickReport

Question

Sauda��es,estou utilizando delphi 5.0 Pro e Banco MySql 5.0. Criei um relat�rio com quickrep com o faturamento de escolas de diversos estados e agrupei por estados. Ficou nesse layout:AL              ...

Cabelo · Answer

Em que momento exatamente vc est� mostrando a soma...qual o evento?????...

Zooropa · Answer

Sauda��es amigo,pra come�ar, eu executo uma query que carrega todos os movimentos de 2006 (com algumas regras). A query me retorna os dados sendo que cada m�s de uma escola como sendo um registro. Para criar o formato de hist�rico (para cada registro 1 escola com 12 meses) eu criei um la�o no FormCreate do Relat�rio e carrego uma outra tabela (tbFatura), sendo que a� eu fa�o o tratamento dos valores pagos e pendentes (j� carrego tb duas vari�veis com o somat�rio total de pagos e pendentes). O QRGroup est� com expression setado para tbFatura.UF e est� tudo ok. Como disse antes o meu problema � o GroupFooter (este est� setado ao QRGoup por�m eu coloquei QRDBText�s setados a uma query que fica no formul�rio - contendo apenas os somat�rios de pagos e pendente por uf). Esta query tb est� ok s� que o GroupFooter repete o resultado de AL para todos os outros estados. Como resolvo isso?...

Zooropa · Answer

Gente,algu�m pode mes ajudar nisso?  :(...

Micheus · Answer

[quote:7728a98a4c]por�m eu coloquei QRDBText�s setados a uma query que fica no formul�rio - contendo apenas os somat�rios de pagos e pendente por uf).[/quote:7728a98a4c]Parece-me que esta query n�o est� acompanhando a uf impressa no GroupHeader. Como vc est� manipulando esta consulta? Ela est� ligada a principal via datasource? Est� passando a uf como par�metro e abrindo ela a cada before print do GroupHeader?...

Zooropa · Answer

Sauda��es Michel,neste caso eu carrego no form create do relat�rio uma tabela tempor�ria e o group header est� setado ao uf desta tabela (tbFatura), enquanto que os valores do Group Footer est�o setados para uma query que est� no form. N�o estou usando DataSource, estou linkando o dataset do QuickReport a TBFAtura assim que termino de carregar os dados. Realmente o Group Footer n�o acompanha a mudan�a de uf�s do Group Header, como soluciono isso? Ah! j� tentei o QRExpression e acontece a mesma coisa. Muito obrigado....

Micheus · Answer

[quote:9c85479e8c]group header est� setado ao uf desta tabela (tbFatura), enquanto que os valores do Group Footer est�o setados para uma query que est� no form.[/quote:9c85479e8c][b:9c85479e8c]Zooropa[/b:9c85479e8c], essa query, ela � parametrizada? Acredito que uma vez que ela totaliza as informa��es ref. a tbFatura, a cada fatura impressa (GroupHeader) essa query deveria ser fechada, atualizados os par�metros que far�o o relacionamento com a fatura e novamente aberta. Isto pode ser feito no AfterPrint do GroupHeader....

Zooropa · Answer

Sauda��es Micheus,cara, obrigado pela ajuda, realmente era a aus�ncia de par�metros. Fiz o seguinte como vc me orientou:[code:1:dc64d7a60c]with qyTotUf do  begin    active := false;    sql.clear;    sql.add(�select uf, sum(janeiro_pg) as Jan_PG, sum(janeiro_pd) as Jan_PD, sum(fevereiro_pg) as Fev_PG, �);    sql.add(�sum(fevereiro_pd) as Fev_PD, sum(marco_pg) as Mar_PG, sum(marco_pd) as Mar_PD, �);    sql.add(�sum(abril_pg) as Abr_PG, sum(abril_pd) as Abr_PD, sum(maio_pg) as Mai_PG, sum(Maio_pd) as Mai_PD, �);    sql.add(�sum(junho_pg) as Jun_PG, sum(junho_pd) as Jun_PD, sum(julho_pg) as Jul_PG, sum(julho_pd) as Jul_PD �);    sql.add(�from tbrelfat where uf = :uf group by uf�);    Parambyname(�uf�).asstring := DM.tbFatura.Fieldbyname(�uf�).asstring;    active := true;  end;  Jan_Pg.caption := qyTotUf.Fieldbyname(�Jan_Pg�).asstring;  Jan_Pd.caption := qyTotUf.Fieldbyname(�Jan_Pd�).asstring;[/code:1:dc64d7a60c]Esse c�digo est� no AfterPrint do QrGroup. Como faz bastante tempo que n�o fa�o relat�rios com valores eu fiquei apanhando nestes subtotais. Obrigado cara....

Micheus · Answer

[b:80033d5779]Zooropa[/b:80033d5779], s� a t�tulo de otimiza��o, acho que vc poderia:
1) no OnCreate do form do seu relat�rio adcionar esta parte do c�digo:

with qyTotUf do
  begin
    sql.add(�select uf, sum(janeiro_pg) as Jan_PG, sum(janeiro_pd) as Jan_PD, sum(fevereiro_pg) as Fev_PG, �);
    sql.add(�sum(fevereiro_pd) as Fev_PD, sum(marco_pg) as Mar_PG, sum(marco_pd) as Mar_PD, �);
    sql.add(�sum(abril_pg) as Abr_PG, sum(abril_pd) as Abr_PD, sum(maio_pg) as Mai_PG, sum(Maio_pd) as Mai_PD, �);
    sql.add(�sum(junho_pg) as Jun_PG, sum(junho_pd) as Jun_PD, sum(julho_pg) as Jul_PG, sum(julho_pd) as Jul_PD �);
    sql.add(�from tbrelfat where uf = :uf group by uf�);
  end;

Essas linhas passam a ser executadas um �nica vez durante o processo de gera��o do seu relat�rio.

2) no AfterPrint do Group, apenas:

   qyTotUf.Close;
   qyTotUf.Parambyname(�uf�).asstring := DM.tbFatura.Fieldbyname(�uf�).asstring;
   qyTotUf.Open;

3) na GroupFooter, se for cab�vel, vc poderia colocar dois QRDBText ligados a sua query, assim n�o seria necess�rio fazer as atribui��es aos QRLabel�s:

  Jan_Pg.caption := qyTotUf.Fieldbyname(�Jan_Pg�).asstring;
  Jan_Pd.caption := qyTotUf.Fieldbyname(�Jan_Pd�).asstring;

Como sua query est� parametrizada e n�o � modificada em nenhum outro momento, com estas a��es vc otimiza todo o processo de atribui��es que est� sendo feito repetidamente a cada impress�o do GroupHeader.

[]s

Zooropa · Answer

Sauda��es cara,valeu pela dica, j� fiz a modifica��o na query. Quanto aos labels eu j� tinha trocado mesmo. Muito obrigado....

F�rum D�vidas na elabora��o de Relat�rio - QuickReport #326516