Discussion :

[sondo]

Bonjour,

J'ai une table dans laquelle des encaissements se font par date.
Voici ma requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Form32.Query_Total_Jour.sql.Clear;
Form32.Query_Total_Jour.sql.Add('Select Num_R, Lib_R, Mont_R, Date_R, SUM(Mont_R) As Total From Recette');
Form32.Query_Total_Jour.sql.Add('Where Date_R = '+ QuotedStr(FormatDateTime('mm/dd/yyyy', StrToDate(DateEdit.Text))));
Form32.Query_Total_Jour.sql.Add('Group By Num_R, Lib_R, Mont_R, Date_R');
Form32.Query_Total_Jour.Open;
Form32.QRLabel10.Caption:=FormatFloat('0.00',Form32.Query_Total_Jour.Fieldbyname('Total').AsFloat);

Il se trouve que si l'utlisateur entre une date à laquelle il n'ya pas eu d'encaissement, il y'a une exception, le programme s'arrête et l'état QuickReport ne s'exécute pas.
Pouvezvous m'aider à résoudre ce problème ?.

Merci d'avance.

Sondo.

[Zatoobux]

Salut,

Apres l'ouverture de ta requete, il faut verifier qu'elle contient des enregistrements.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Form32.Query_Total_Jour.sql.Clear;
Form32.Query_Total_Jour.sql.Add('Select Num_R, Lib_R, Mont_R, Date_R, SUM(Mont_R) As Total From Recette');
Form32.Query_Total_Jour.sql.Add('Where Date_R = '+ QuotedStr(FormatDateTime('mm/dd/yyyy', StrToDate(DateEdit.Text))));
Form32.Query_Total_Jour.sql.Add('Group By Num_R, Lib_R, Mont_R, Date_R');
Form32.Query_Total_Jour.Open;
if not (Form32.Query_Total_Jour.bof and Form32.Query_Total_Jour.eof) then
  begin
    Form32.QRLabel10.Caption:=FormatFloat('0.00',Form32.Query_Total_Jour.Fieldbyname('Total').AsFloat);
  //- Ton traitement
  end;

@+

[Pascal Jankowski]

En remplaçant dans la condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

not (Form32.Query_Total_Jour.bof and Form32.Query_Total_Jour.eof)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

not Form32.Query_Total_Jour.isEmpty

peut convenir également.

Cordialement

[sondo]

Salut,

Merci beaucoup, ca marche.

Bon courage.

SONDO.