Ver Mensaje Individual
  #4  
Antiguo 10-02-2010
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 24
guillotmarc Va por buen camino
Hola ivantech.

Todo lo que puedas hacer desde Delphi (y que no requiera intervención del usuario) lo puedes hacer también en un trigger.

Este tipo de acciones (que se suelen llamar reglas de negocio) a mi me parece más ortodoxo programarlas en la base de datos, mediante un trigger, que en tu programa Delphi. Así separas la aplicación en varias capas (base de datos, reglas de negocios, y interficie de usuario) y es más fácil de mantener.

Aquí tienes un par de artículos en castellano para introducirte en la programación de triggers :

http://www.firebird.com.mx/modules/s....php?itemid=28
http://www.firebird.com.mx/modules/s....php?itemid=31

Es muy conveniente que utilices un buen programa para administrar tu base de datos Firebird, puesto que te facilitará la programación de triggers. Un programa como IB-Expert te permite incluso ejecutar tus triggers, línea a línea, depurando los errores.

Lo que estás pidiendo es que dentro del trigger tengas una sentencia insert de este tipo :

insert into detalles (id_detalle, id_cabecera, campo1, campo2)
select gen_id(detalles_gen, 1), new.id_cabezera, campo1, campo2
from tabla1

Como puedes ver pongo la clave primaria (id_detalle) mediante un generador, para ir asignando valores consecutivos. Y en el campo de relación con la cabecera (id_cabecera), utilizo la variable new.id_cabecera.

Como puedes leer en los artículos que te he enlazado, con las variables new.**** puedes consultar el valor de los campos en el registro de cabecera recien introducido que ha provocado la ejecución del trigger.

Saludos.
Responder Con Cita