Error con numéricos con presición 38 en Firebird 4

[esdonis]

Tengo una aplicación desarrollada en lasarus con Firebird 2.5.9 que funciona perfectamente.
Y he estado intentando migrarlo a Firebird 4, pero tengo problemas para obtener los datos.
Por ejemplo:
Cuando hago la siguiente pregunta, siempre devuelve 0.
if (dm.rssc3.FieldByName ('balance'). AsFloat <> 0) then netreg ();
aunque el registro no sea 0.

[Edson]

No recuerdo la última versión de Firebird que he manejado, pero no recuerdo haber tenido problema en valores numéricos.

De todas formas, te suguiero que identifiques dónde está el error:

¿Está en dm.rssc3.FieldByName ('balance') ?
¿Está en dm.rssc3.FieldByName ('balance'). AsFloat ?
¿Está en dm.rssc3.FieldByName ('balance'). AsFloat <> 0?

De acuerdo a eso podrás saber a dónde apuntar para resolverlo.

[esdonis]

El problema está en que las librerías de lazarus no soportan numéricos con precisión 38

Es decir está al preguntar:
dm.rssc3.FieldByName ('balance'). AsFloat
que para ese tipo de campo siempre devuelve 0

ásea si digo

variable =: TSQLQuery.FieldByName ('field1'). AsFloat;

Siempre el valor de la variable va a ser 0 para este tipo de campo

[Edson]

Pero ¿Qué te devuelve "dm.rssc3.FieldByName ('balance')"?
¿Hay probado leerlo como texto?

[esdonis]

Devuelve 0

[Edson]

Tendría que probarlo. ¿Tienes la descripción de tu tabla?

[arodriguezfarfan]

Yo tuve el mismo problema con los campos de tipo numérico en Firebird 4. Lo que hice para solucionarlo fue convertir el campo a float en la consulta de la siguiente forma.

SELECT CAST(CAMPO AS FLOAT)
FROM TABLA

Esa fue la única manera con la cual logré solucionar el problema por el momento

[esdonis]

Yo lo solucione de forma temporal también creando un trigger dentro de la base de datos, pero eso me inhabilita usar ese tipo de precisión en los datos numéricos en esa base de datos.

Eso si con ese trigger el programa en lazarus funciona bien

CREATE TRIGGER SET_BIND_AC ACTIVE
ON CONNECT POSITION 0
AS
BEGIN
  set bind of int128 to legacy;
  set bind of decfloat to legacy;
END