droga viu ... quickrep de novo

Delphi

05/05/2003

o loko meooo sempre q vou somar tudo no final do meo relatório ele naum soma ...
tipo tenho as bandas
-Detail
--subdetail
---groupfooter

tipo no groupfooter eu somo tudo dos subdetail ... gostaria de somar todos os gruops no final tipo

12/05/2003 //detail
----- dinheiro 100,00 //subdetail
----- cheque 200,00
-------------- 300,00 //gruopfooter

16/05/2003

---- dinheiro 10,00
---- cheque 20,00
--------------30,00


total 330,00 //?

alguém pode me esplicar passo a passo, tipo coloquei uma banda summary com um qrexpres e naum deu ... tentei criar uma váriavel q soma os valores na propriedade beforeprint [after tentei tambem] e depois mostra em um qrlabel .. mas na tela do preview mostrou, mais imprime o valor errado

aguem me ajude


Fer

Fer

Curtidas 0

Respostas

Falinden

Falinden

05/05/2003

Crie uma variável para receber o valor acumulado da banda groupfooter
var
SomaTotal :double
...

No evento AfterPrint da banda groupfooter:

procedure Tform.DetailBand1AfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean);
begin
SomaTotal := SomaTotal + queryCAMPO.AsFloat;
end;


No evento BeforePrint da banda Sumary:

procedure Tform.QRBand3BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
dbText.Caption := FormatFloat(´0.000´, SomaTotal);
end;


GOSTEI 0
Fer

Fer

05/05/2003

não dá cara


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

05/05/2003

-QRGroup (Expression = Data, Footer = QRBandFooter)
--QRBand (Detail)
-QRBand (Footer)

No QRGroup, mude a propriedade footer para a QRBand que tera os componentes QRExpr;

Na sua query ou table deverá estar ordenada pela data no caso.

12/05/2003 //Grupo
----- dinheiro 100,00 //detail
----- cheque 200,00
-------------- 300,00 //gruopfooter


GOSTEI 0
POSTAR