Bonjour,

A l'exécution de mon application, j'obtiens le message d'erreur suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
'Débordement BCD' n'est pas une valeur en virgule flottante correcte
Voici la fonction incriminée :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
function FindChamp(CDS : TSimpleDataSet ; FindChamp1 : string ; Valeur1 : string ; RetourneChamp : string ; FindChamp2 : string = '' ; Valeur2 : string = '' ; AliasRetourneChamp : string = '') : string;
begin
  with usersession.DMPrimeur.QryDataFetch do
  begin
    Active:=False;
    Close;
    with SQL do
    begin
      Clear;
      Add('select '+RetourneChamp);
      if AliasRetourneChamp<>'' then
        Add(' as '+AliasRetourneChamp);
      Add(' from PR0050');
      Add(' where '+FindChamp1+'='''+AnsiReplaceStr(Valeur1,'''','''''')+'''');
    end;
    Open;
    try
      if (RecordCount<1) then
        result:=''
      else
      begin
        if AliasRetourneChamp<>'' then
          result:=FieldByName(AliasRetourneChamp).Text
        else
          result:=FieldByName(RetourneChamp).Text;
      end;
    except
      result:='';
    end;
    Close;
  end;
end;
Quelle est la cause de ce message ?