Agregar valor por defecto a un Campo en Firebird

[berna]

Buenas Tardes...

Tengo el siguiente problema tengo alrededor de 50 tablas
en las cuales tengo un campo de tipo Timestamp.

Lo que necesito hacer es de manera masiva cambiar dicho campo a

Código Delphi [-]
Nombre TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL;

o en otras palabras agregar el valor por default de dicho campo...

Alguien tiene alguna idea de como hacerlo..

Gracias de Antemano...

[[Al González]]

Hola.

Cuando haces algo así manualmente con IBExpert, se genera un script similar a este:

Código SQL [-]
-- Se crea en la tabla (Contrato) un campo temporal del mismo tipo y con valor predeterminado ("default")
ALTER TABLE CONTRATO ADD IBE$$TEMP_COLUMN
 TIMESTAMP DEFAULT Current_TimeStamp;

-- Se copia la característica "default" del nuevo campo al campo en cuestión (Fecha)
UPDATE RDB$RELATION_FIELDS F1
SET
F1.RDB$DEFAULT_VALUE  = (SELECT F2.RDB$DEFAULT_VALUE
                         FROM RDB$RELATION_FIELDS F2
                         WHERE (F2.RDB$RELATION_NAME = 'CONTRATO') AND
                               (F2.RDB$FIELD_NAME = 'IBE$$TEMP_COLUMN')),
F1.RDB$DEFAULT_SOURCE = (SELECT F3.RDB$DEFAULT_SOURCE FROM RDB$RELATION_FIELDS F3
                         WHERE (F3.RDB$RELATION_NAME = 'CONTRATO') AND
                               (F3.RDB$FIELD_NAME = 'IBE$$TEMP_COLUMN'))
WHERE (F1.RDB$RELATION_NAME = 'CONTRATO') AND
      (F1.RDB$FIELD_NAME = 'FECHA');

-- Se elimina el campo creado temporalmente
ALTER TABLE CONTRATO DROP IBE$$TEMP_COLUMN;

Como ves, la clave está en modificar el valor de los campos RDB$Default_Value y RDB$Default_Source de la tabla del sistema RDB$Relation_Fields.

Creo que no sería muy difícil armar un script que haga lo anterior con todas las tablas, mediante un ciclo For Select que extraiga los nombres de ellas de la tabla del sistema RDB$Relations.

Con un poco más de tiempo avanzaría más, pero hasta aquí puedo ayudarte por el momento.

Saludos.

Al González.