Discussion :

[tarmo57]

Salut tous j'ai un probleme avec mes champs monétaires avec firebird

j'ai créer un champs DECIMAL avec IBEasy pour un champ monétaire mais je crois avoir fait une érreur ?
quant je rentre dans mon formulaire un nombre a virgule a l'enregistrement la virgule disparaît .

je dois prendre un autre champs ?

[tarmo57]

fin de compte je me répond j 'ai trouvé la solution
dans IBEasy je mis mon champs a DOUBLE PRECI
et la je peux faire un enregistrement de mon prix sans problème dans mon Zquery j'ai mis currency a true et dans editformat # ### ##0.00

le problème maintenant impossible de le modifier j'ai toujours une érreur

voici mon code si une aide charitable passe par la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with DataModule2.ZQuery5 do
begin
SQL.Clear;
SQL.Add('Update PAPIER set SECTEUR_PAPIER = '+ QuotedStr(SECTEUR_PAPIER.Text)
+',CODE_PAPIER = '+ QuotedStr(CODE_PAPIER.Text)
+',TYPE_PAPIER = '+ QuotedStr(TYPE_PAPIER.Text)
+',COULEUR = '+ QuotedStr(COULEUR_PAPIER.Text)
+',PRIX_PAPIER = '+ QuotedStr(PRIX_PAPIER.Text)
 +',NOTES_PAPIER = '+ QuotedStr(NOTES_PAPIER.Text)
+' where IDPAPIER ='+ QuotedStr(DBText1.caption)+'');
 
Prepare;
ExecSQL;

le message erreur et bien pour le PRIX_PAPIER quand je le supprime de mon update tous fonctionne trés bien . Que doi'je faire svp

[tarekk73]

bon jour
voire dans la panneau de configuration --> options régionales et linguistiques --> options régionales --> personaliser --> symbole monétaire et regler le nombre de décimales peut etre c'est votre probleme

A+

[tarmo57]

bon jour
voire dans la panneau de configuration --> options régionales et linguistiques --> options régionales --> personaliser --> symbole monétaire et regler le nombre de décimales peut etre c'est votre probleme

A+

non merci j'ai regarder c ok

[Ph. B.]

fin de compte je me répond j 'ai trouvé la solution
dans IBEasy je mis mon champs a DOUBLE PRECI
et la je peux faire un enregistrement de mon prix sans problème dans mon Zquery j'ai mis currency a true et dans editformat # ### ##0.00

le problème maintenant impossible de le modifier j'ai toujours une érreur

voici mon code si une aide charitable passe par la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with DataModule2.ZQuery5 do
begin
SQL.Clear;
SQL.Add('Update PAPIER set SECTEUR_PAPIER = '+ QuotedStr(SECTEUR_PAPIER.Text)
+',CODE_PAPIER = '+ QuotedStr(CODE_PAPIER.Text)
+',TYPE_PAPIER = '+ QuotedStr(TYPE_PAPIER.Text)
+',COULEUR = '+ QuotedStr(COULEUR_PAPIER.Text)
+',PRIX_PAPIER = '+ QuotedStr(PRIX_PAPIER.Text)
 +',NOTES_PAPIER = '+ QuotedStr(NOTES_PAPIER.Text)
+' where IDPAPIER ='+ QuotedStr(DBText1.caption)+'');
 
Prepare;
ExecSQL;

le message erreur et bien pour le PRIX_PAPIER quand je le supprime de mon update tous fonctionne trés bien . Que doi'je faire svp

Quel est le message d'erreur ???
AMHA, problème de séparateur décimal différent de celui attendu : un point au lieu d'une virgule ou l'inverse ?
Il vaut mieux passer par des paramètres que l'on peut typer...

De plus, on a la un bel exemple de possible injection SQL !

[tarmo57]

sur le onkeypresse de mon edit qui reçois le prix j'ai mis

Code :

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

1
2
3
4
5
procedure Tgestion_support.PRIX_PAPIERKeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key='.' then Key := ',';
end;

le message erreur est :

Le projet projet.exe a provoqué une classe d'exeption EZSQLExeception avec le message'SQL Error: conversion error from string "12,40€" Error code -413.can't format message 13:587

[Ph. B.]

sur le onkeypresse de mon edit qui reçois le prix j'ai mis

Code :

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

1
2
3
4
5
procedure Tgestion_support.PRIX_PAPIERKeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key='.' then Key := ',';
end;

le message erreur est :

Transformez la virgule en point avant de construire la chaine SQL : 12.40

[tarmo57]

Transformez la virgule en point avant de construire la chaine SQL : 12.40

j'ai fais Ph.B

[Ph. B.]

j'ai fais Ph.B

Eh bien refaites le et supprimez aussi le symbole € !

[tarmo57]

Eh bien refaites le et supprimez aussi le symbole € !

le code est bien en place et pour le symbole il est supprimer ,mais j'ai toujours cette erreur

[Ph. B.]

Je vous rappelle le message d'erreur que vous avez indiqué :

Le projet projet.exe a provoqué une classe d'exeption EZSQLExeception avec le message'SQL Error: conversion error from string "12,40€" Error code -413.can't format message 13:587

Tant qu'il y aura une virgule au lieu d'un point et/ou le symbole €, l'exécution de la requête renverra ce message...

[tarmo57]

Je vous rappelle le message d'erreur que vous avez indiqué :

Tant qu'il y aura une virgule au lieu d'un point et/ou le symbole €, l'exécution de la requête renverra ce message...

j'ai

procedure Tgestion_support.PRIX_PAPIERKeyPress(Sender: TObject;
var Key: Char);
begin
if Key='.' then Key := ',';
end;

la j'ai une erreur et il ni a plus de symbol €

si je fais

Code :

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

1
2
3
4
5
procedure Tgestion_support.PRIX_PAPIERKeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key='.' then Key := ',';
end;

la le champs ne me laisse rien écrire du tout

je ne comprend vraiment pas pourquoi cela ne fonctionne pas ,je peux enregistrer mais pas modifier

[tarmo57]

Je vous rappelle le message d'erreur que vous avez indiqué :

Tant qu'il y aura une virgule au lieu d'un point et/ou le symbole €, l'exécution de la requête renverra ce message...

ouf j'ai trouver

Code :

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

StringReplace(Montant.Text, ',', '.', [rfReplaceAll]);

merci Ph.B

[Andry]

Ca aura été mieu d'utiliser DecimalSeparator

Code :

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

1
2
3
4
5
6
7
 
procedure Tgestion_support.PRIX_PAPIERKeyPress(Sender: TObject;
  var Key: Char);
begin
 if (Key='.') or (Key = ',') then 
   Key := decimalSeparator;
end;

Ou mieux encore, utiliser des contrôles Edit pour les numériques et utiliser une requête paramétrée

[SergioMaster]

Ou mieux encore : utiliser une requête paramétrée