Fonction SUM de QReport

Version imprimable

13/12/2004, 16h50
sondo

Fonction SUM de QReport

Bonjour,

Je viens demander une explication au sujet de la fonction sum de QReport.
J'ai déposé sur mon etat sur la bande SummaryBand un TQRExpr. Ensuite je suis passé par sa proprié _Expression pour rechercher la fonction sum pour établir un total pour un champ donnée.
J'ai pu établir la formule SUM(Recettes.MONT_R).
Quand j'exécute mon état le calcul est faux. Par exemple sur une colonne ayant 3 fois 500, le total revoyé est de 3000. J'ai constaté qu"il fait le total de 1000 en 1000 en fonction du nombre de ligne.
Je ne sais qu'est-ce qu'il faut faire ? Pouvez-vous m'aider s'il vous plait ?.

SONDO.
13/12/2004, 17h26
portu
Personnellement, j'utilise rarement le TQrExp , en tout cas, jamais pour les sommes ou autres calculs.

Moi, je déclare une VAR et dans le OnPrint des champs devant faire partie du calcul
Code:

1 2 SUm := Sum+Query.fields['SOLDE'].AsFloat;
Voilà l'idée, et j'ai jamais eu de prob.
14/12/2004, 10h08
sondo

Fonction SUM de QReport

Bonjour,

Merci pour ton idée. Mais voici ce que j'ai fais :

procedure TForm17.QRDBText3Print(sender: TObject; var Value: String);
var sum : Single;
begin
Sum:=Sum+Query1.Fields['Mont_R'].AsFloat;
QRLabel6.Caption:=FloatToStr(Sum);
end;
Mont_R est les champ devant faire partie du calcul.
Mais j'ai l'erreur suivant :
[Erreur] Report_Recette.pas(53): Types incompatibles : 'Integer' et 'String'.
Je ne comprend pas. Peux-tu m'aider s'il te plais ?

Merci d'utiliser les balises "code" :wink:

J'aurais plutot fait ceci (en supposant que tu imprimes les nombres dans un bande Detail):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Var
Sum : Extended;
...
...
...
 
Procedure QuickRepOnBeforePrint(Sender : TObject);
Begin
......
......
Sum := 0;
......
......
end;
//// QRDBText3 étant le champ se situant dans la bande Detail
procedure TForm17.QRDBText3Print(sender: TObject; var Value: String); 
begin 
Sum:=Sum+Query1.Fields['Mont_R'].AsFloat; 
end; 
 
/////QRLabel6 étant le total d'une colone , se situe dans une bande Sumary ou FooterGroup
procedure TForm17.QRLabel6Print(sender: TObject; var Value: String);
Begin
Value := FormatFloat('0.00,',Sum);
end;

Voila, j'espere que ca ira et te conviendra

Fonction SUM de QReport

Voilà ce que j'ai fais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm17.QRDBText3Print(sender: TObject; var Value: String);
var sum : Extended;
begin
  Sum:=Sum+Query1.Fields['Mont_R'].AsFloat;
end;
 
procedure TForm17.QuickRep_Recette_JourBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
  var  Sum : Extended;
begin
sum:=0;
end;
 
procedure TForm17.QRLabel6Print(sender: TObject; var Value: String);
begin
Value := FormatFloat('0.00,',Sum);
end;

Je pense que j'ai bien suivis tes conseil. Mais il y'a toujours une erreur ici

Code:

1
2
3
4
5
procedure TForm17.QRDBText3Print(sender: TObject; var Value: String);
var sum : Extended;
begin
  Sum:=Sum+Query1.Fields['Mont_R'].AsFloat;
end;

Voici l'erreur : Report_Recette.pas(56): Types incompatibles : 'Integer' et 'String'.
Que faire ?
Merci.

14/12/2004, 12h13
portu
Premierement, déclare Sum qu'une seule fois dans la partie VAR juste au dessus de IMPLEMENTATION.

Initialise la une seule fois au BeforePrint (Sum := 0)

Ensuite, ton code à l'air d'être correct a part ceci :lol:
Code:

1 2 Query1.Fields['Mont_R'].AsFloat
qui doit être
Code:

1 2 3 4 Query1.FieldByName('Mont_R').AsFloat ou Query1.Fields[3].AsFloat
14/12/2004, 12h31
sondo

Fonction SUM de QReport

:D Grand merci ca marche.
J'avoue que j'ai beaucoup appris avec toi.
Bon courage et la prochaine Monsieur Portu.

SONDO.