Somar campo em cada pagina do Quick Report

Delphi

29/08/2007

Ola a todos.
Boa noite.
Tenho um relatorio em QR em que tenho q somar um valor e exibir o total de cada pagina no rodape da mesma pagina. Alguem sabe como fazer isso?

Obrigado
Att
Dalton


Dbergkamps10

Dbergkamps10

Curtidas 0

Respostas

Djjunior

Djjunior

29/08/2007

1° coloque 3 bandas no relatório
1 - rbPageHeader
1 - Detail
1 - rbPageFooter (nesta adicione um qrlabel)

crie uma variavel do tipo integer no private
no beforePrint do Header zere-a
no beforePrint do Detail some-a
no beforePrint do footer faça rqlabel.text := intToStr(variavel)


GOSTEI 0
Dbergkamps10

Dbergkamps10

29/08/2007

olá, brigadao pela ajuda, mas nao deu certo, ainda.
Fiz como vc colocou, mas o problema eh q na primeira pagina ele soma o ultimo registro da primeira pagina e o primeiro registro da segunda pagina, e na ultima pagina ele nao soma nada
Coloquei assim?
no before print do pageheader
 soma:=0; // zerando a soma


no before print do detail
 soma:=soma + DataModule1.ZQFiltrosreq_valor_exame.Value; //atualizando o valor da soma


no before print do page footer
QRLabel15.Caption:=CurrtoStr(Soma);


vale lembrar q o meu relatorio tem uma band summary.


GOSTEI 0
Truck1n

Truck1n

29/08/2007

Use o QRExpression ele mesmo tem uma função que ao mudar de página zerar o valor e fazer tudo denovo!

:D


GOSTEI 0
Dbergkamps10

Dbergkamps10

29/08/2007

vlw, cara. deu blz :D
fiz o q vc recomendou, mas tem q alterar a propriedade ResetAfterPrint=true;


abraços


GOSTEI 0
POSTAR