Discussion :

[Fxg]

Bonsoir,

Je viens de remplacer ma version 10.2 Community par la 10.3 et en recompilant mon application j'obtiens ce message d'erreur au démarrage.



Dans le Datamodule la déclaration du champ est : FDQLivresPRIX: TBCDField;

J'utilise Firebird comme Base de Données.

J'avoue que je sèche. Avec la version 10.2 aucun problème.

Merci

[SergioMaster]

Bonjour,

Je vois deux solutions sûres mais pas forcément la cause
1- si les champs sont déclarés, supprimé la déclaration puis la remettre
2- utiliser les maprules pour forcer le format

à tester également les options maxBcdPrecision et maxBcdScale (à priori la dernière) selon la déclaration de la colonne Firebird ?

enfin il y a peut être des indices dans les notes de version (que je n'ai pas encore lues)

[ALWEBER]

En firedac tu peux utiliser le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  aRule: TFDMapRule;
begin
....
  aRule := FormatOptions.MapRules.Add;
  aRule.SourceDataType := dtBCD;
  aRule.TargetDataType := dtDouble ;
  aRule := FormatOptions.MapRules.Add;

[Fxg]

Merci à tous les deux,

J'ai commencé par la solution la plus simple : supprimer la déclaration et la remettre et

J'avais

Code :

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

FDQLivresPRIX: TBCDField;

qui a été remplacé par

Code :

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

FDQLivresPRIX: TFMTBCDField;

Quand à savoir le pourquoi ?

[snaufal]

J'obtiens le même problème en utilisant une base de données Firebird 3.0.4.
Numeric(18,2) -> FMTBCD au lieu de BCD
Numeric(18,3) -> FMTBCD au lieu de BCD
Numeric(18,4) -> BCD (correct).

Dans les paramètres de configuration de la connexion FDConnection, il existe les valeurs suivantes:
Maximum scale: 4
Maximum precision: 18

Si je change le scale de 4 à 3, j'obtiens ceci:
Numeric(18,2) -> FMTBCD au lieu de BCD
Numeric(18,3) -> BCD (correct)
Numeric(18,4) -> FMTBCD au lieu de BCD

Il me semble que Embarcadero a un bug, au lieu de comparer pour vérifier que le scale d'un champ dans la base est supposé être "inférieur ou égal à" , la comparaison se fait seulement avec le "égal".

[SergioMaster]

Bonjour,
bienvenue et bien vu
Il faut dire qu'il faut "tomber" sur le cas pour pouvoir faire ce genre de trouvaille
Il faudrait peut-être notifier cela à Embarcadero dans le Quality Central
a priori cela a été fixé pour SQLite avant la sortie de RIO (RSP-22454) mais n'a pas dû être établi pour Firebird

Je vous laisse la "joie" de le signaler à Dmitry Arefiev

[snaufal]

Bonjour,

C'est ce que j'ai fait. Embarcadero m'a immédiatement répondu et m'a donné la solution en remplissant la Maximum précision à 20.
Ca fonctionne à présent le temps que Embarcadero corrige l'erreur.

Meilleures salutations