Discussion :

[yacinew]

Bonjour,
j'ai une requête Qery1 qui retourne 3 champs

- nombre d'affaires
- nombre d'affaires terminer
- Taux =(affaires terminer *100/nombre d'affaires)
pour chaque élément.

j'utilise aussi le Qreport pour l'impression , mon problème c'est si le nombre d'affaires = 0 donc l'affichage est vide (QRDBText)"division par zéro", alors que moi je veux afficher 0% dans le QRDBText.

je cherche aussi de récupéré le texte du QRDBText pour faire un if else .

[ALWEBER]

Bonjour,
j'ai une requête Qery1 qui retourne 3 champs
- nombre d'affaires
- nombre d'affaires terminer
- Taux =(affaires terminer *100/nombre d'affaires)
pour chaque élément.

Sachant que le nombre d'affaires terminées ne peut pas être inférieur au nombre d'affaires tu peux filtrer ta requête avec une clause du genre

Code :

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

where nombre_affaires > 0

[SergioMaster]

Bonjour,
rien n'empêche de créer un évènement OnPrint sur le QRDBText et de coder la condition. c'est du B.A.B.A. très facile à faire avec Quickreport

Code :

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

1
2
3
4
procedure TForm1.QRDBTextPrint(Sender : TObject; var Value : String;)
begin
if Query.FieldByName('nombre d''affaires').asInteger=0 then Value:='0%';
end;

Mais j'approuve la remarque d'ALBEWER , logiquement il devrait être impossible d'avoir des 'affaires terminées' qui ne soient pas des 'affaires comptées'

[yacinew]

Bonjour ;
oui c'est vrais qu il y a pas des affaires terminer quand le nombre d'affaires =0, mais sur ce dernier on peux pas calculer le taux

car il faut mettre : Taux =(affaires terminer *100/nombre d'affaires) alors que le nombre d'affaires=0,

dans l'affichage j'ai des cases vide.

QRDBText1 ---> nombre affaire
QRDBText2---->affaires terminer

quand je mis:

Code :

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

1
2
3
4
procedure TForm1.QRDBText2Print(Sender : TObject; var Value : String;)
begin
if Query.FieldByName('nombre d''affaires').asInteger=0 then Value:='0%';
end;

rien n'ait changé

et pour :

Code :

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

1
2
3
4
procedure TForm1.QRDBText1Print(Sender : TObject; var Value : String;)
begin
if Query.FieldByName('nombre d''affaires').asInteger=0 then Value:='0%';
end;

c'est le QRDBText1 qui est formaté.

Bonjour,
rien n'empêche de créer un évènement OnPrint sur le QRDBText et de coder la condition. c'est du B.A.B.A. très facile à faire avec Quickreport

Code :

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

1
2
3
4
procedure TForm1.QRDBTextPrint(Sender : TObject; var Value : String;)
begin
if Query.FieldByName('nombre d''affaires').asInteger=0 then Value:='0%';
end;

Mais j'approuve la remarque d'ALBEWER , logiquement il devrait être impossible d'avoir des 'affaires terminées' qui ne soient pas des 'affaires comptées'

[SergioMaster]

Bonjour,


Quand tiendrez vous compte que sans informations précises vous n'obtiendrez que des réponses imprécises , fameux principe : GARBAGE IN GARBAGE OUT

ma suggestion sur le OnPrint s'appliquait au QRDBText qui doit afficher le taux

cela devrait vous apprendre un ou deux trucs basiques de Delphi et du Forum
1- Nommer les composants
2- donner le texte des querys, et des noms de colonnes simples des apostrophes dans les noms de champs

enfin , s'il s'agit comme je le crois non pas d'un QRDBText mais d'un QRExpression sachez qu'il est possible de gérer ça dans l'expression elle même

à peu de chose près :
FORMATNUMERIC('###.## %',IF(Query.nombredaffaires=0,0,QueryAffairesTerminees * 100/query.nombredaffaires))
, j'ai juste un doute sur la chaine de formattage