Type inadéquat BCD - Delphi10.3

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.

Pièce jointe 430453

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

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)

En firedac tu peux utiliser le code suivant

Code:

---

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;

---

Merci à tous les deux,

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

J'avais

Code:

---

FDQLivresPRIX: TBCDField;

---

qui a été remplacé par

Code:

---

FDQLivresPRIX: TFMTBCDField;

---

Quand à savoir le pourquoi ?

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".

Bonjour,
bienvenue et bien vu :bravo:
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

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