Discussion :

[lepeule]

Bonjour à tous
excuser , j'ai un état sur delphi (QuickReport) . J'ai placé 1 QRDBTex sur la bande detail et dans son évènement "OnPrint j'ai mis la requête suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TF_list_controlemoyenne.QRDBText15Print(sender: TObject;
  var Value: String);
begin
    DM.ADOQuery49.CLose;
    DM.ADOQuery49.SQL.Clear;
    DM.ADOQuery49.SQL.Add('select MOYEN_MAT from moyenne');
    DM.ADOQuery49.SQL.Add('where matricule_elev='+QuotedStr(DM.Q_list_controlemoyenne.FieldByName('matricule_elev').AsString));
    DM.ADOQuery49.SQL.Add('and NUM_CLASSE='+QuotedStr(DM.Q_list_controlemoyenne.FieldByName('num_class').AsString));
    DM.ADOQuery49.SQL.Add('and CODE_MAT='+DM.Q_list_controlemoyenne.FieldByName('code_mati').AsString); 
    DM.ADOQuery49.SQL.Add('and CODE_trimes='+DM.Q_list_controlemoyenne.FieldByName('code_trim').AsString);
    DM.ADOQuery49.SQL.Add('and code_annee='+DM.Q_list_controlemoyenne.FieldByName('code_anne').AsString);           
    DM.ADOQuery49.OPen;
    Value:=(DM.Q_list_controlemoyenne.FieldByName('COEFI').asinteger) * (FormatFloat('#,##.00',DM.Q_list_controlemoyenne.FieldByName('MOYEN_MAT'))).AsFloat;
    DM.ADOQuery49.CLose;
 
end;

à la compilation j'ai l'erreur suivante :"Types incompatibles Extended et TField" sur la ligne:

Code :

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

Value:=(DM.Q_list_controlemoyenne.FieldByName('COEFI').asinteger) * (FormatFloat('#,##.00',DM.Q_list_controlemoyenne.FieldByName('MOYEN_MAT'))).AsFloat;

j'avoue que j'ai pas pu corriger !
merci pour l'éclairage

[sat83]

C'est normal, tes parenthèse dans la seconde partie sont mal placée, et tu essai de multiplier un entier et une chaine de caractère (retournée par FormatFloat).

Essai quelquechose comme :

Code :

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

 Value := FormatFloat('#,##.00', DM.Q_list_controlemoyenne.FieldByName('COEFI').asinteger *  DM.Q_list_controlemoyenne.FieldByName('MOYEN_MAT').AsFloat )

[lepeule]

Bonjour Sat83
merci pour la correction ça marche ! vraiment mon oeil ne voyait pas