Fórum droga viu ... quickrep de novo #157952
05/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
05/05/2003
Falinden
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;
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;
Responder
Gostei + 0
05/05/2003
Fer
não dá cara
Responder
Gostei + 0
05/05/2003
Aroldo Zanela
-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
--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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)