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.