Modificar Campo Calculado

[RolphyReyes]

Saludos.

He buscado en la ayuda y en el foro pero no he encontrado ningún tema de referencia.

La tarea es poder modificar un campo calculado de una tabla ya existente (valga la redundancia) vía SQL.

Hasta luego.

[[maeyanes]]

Hola...

Te refieres a campos del tipo Computed en las tablas de una base de datos?

O a campos calculados en un DataSet en Delphi?


Saludos...

[RolphyReyes]

Saludos.

Cierto maeyanes por la prisa no especifique todos los datos, es para la base de datos y el motor es FB 1.5.

[JMG]

Si un campo es calculado, me parece un absurdo querer modificarlo, habrá que modificar algunos de los campos que lo generran, no?

Saludos,

[RolphyReyes]

Saludos.

me parece un absurdo querer modificarlo

JMG creo que ese termino debes de pensarlo bastante antes de intentar responder alguna inquietud de algún miembro de la comunidad.

La razón por la cual deseo modificar ese campo es porque justamente el "calculo" que realiza es incorrecto y ya esta en producción; esto no quiere decir que sus integrantes se estén guardando de manera errónea sino el cliente solicito el cambio y ellos son los que pagan.

Hasta luego.

[[maeyanes]]

Hola...

En ese caso puedes hacer lo siguiente; eliminar el campo y volverlo a crear con el cálculo correcto. Al ser un campo Computed este no guarda ningún tipo de dato, solo muestra el resultado del cálculo.

Código SQL [-]
/* Eliminar y recrear el campo */
alter table MiTabla drop column CalcField;

alter table MiTabla add column CalcField computed by Field1 + Field2;

Saludos...

[RolphyReyes]

Saludos.

Gracias maeyanes pero eso funcionaria sí y solo sí no tendrías referencias para el campo, pero en mi caso tengo unas quince (15) al mismo y esta en producción ya sabes el trabajo que eso implica.

No obstante, para tratar de subsanar el fallido intento del ALTER TABLE al campo calculado decidí revisar la tabla RDB$FIELDS y en la misma encontré el campo RDB$COMPUTED_SOURCE, pensé aquí está mi salvación .

Al cambiar el valor del campo y realizar un SELECT a la tabla veo que el valor continua igual, ahí mismo dije ya me j.....

Vi un campo al lado llamado RDB$COMPUTED_BLR del siguiente tipo BLOB SUB_TYPE 2 SEGMENT SIZE 80 este me llamo la atención por la forma en que IBExpert lo visualiza (obviamente es un Blob) de diferentes maneras (Text, Hex, Picture, RTF, Web Page, BLR y Unicode Text) al ver su contenido me di cuenta de que este es el usado por Firebird para realizar la operación del COMPUTED BY (claro que al inicio pensé que era RDB$COMPUTED_SOURCE, pero al fallar el cambio).

Contenido de un campo calculado visualizándolo como BLR:

blr_version4,
blr_multiply,
blr_field, 0, 8, 'C','A','N','T','I','D','A','D',
blr_field, 0, 6, 'P','R','E','C','I','O',
blr_eoc

Me di cuenta de que no podía cambiar el valor del campo directamente así que no me quedo más remedio que hacer lo siguiente para poder realizar la operación:

Primero creo un campo temporal con el calculo que deseo

Código SQL [-]
alter table TABLA add TMP computed by ((CAMPO1 - CAMPO2) * CAMPO3);

Segundo realizar el update del campo RDB$COMPUTED_BLR

Código SQL [-]
UPDATE RDB$FIELDS F 
SET F.RDB$COMPUTED_SOURCE = '((CAMPO1 - CAMPO2) * CAMPO3)'
,F.RDB$COMPUTED_BLR=(select F.RDB$COMPUTED_BLR
from RDB$RELATION_FIELDS FR
JOIN RDB$FIELDS F ON F.RDB$FIELD_NAME=FR.RDB$FIELD_SOURCE
where FR.rdb$relation_name='TABLA'
AND FR.RDB$FIELD_NAME='TMP')
WHERE F.RDB$FIELD_NAME=(
select FR.RDB$FIELD_SOURCE
from RDB$RELATION_FIELDS FR
where FR.rdb$relation_name='TABLA'
AND FR.RDB$FIELD_NAME='CAMPO_REAL_CALCULADO');

Sí se fijan actualice el campo RDB$COMPUTED_SOURCE solo para mantener la referencia de que estoy calculando.

Y por último

Código SQL [-]
alter table TABLA DROP tmp;

Espero que les pueda servir en algún momento.

Hasta luego.