Procedure Y Trigger

[delphi.com.ar]

Me parece que el error es que te falta un "End;" al final del trigger...

Saludos!

[Nuria]

Hola!

Prueba a creartelo así:

SET TERM ;^

CREATE TRIGGER PROPAGAR_BORRADO_LALBARANES FOR ALBARANES
ACTIVE BEFORE DELETE POSITION 0 AS
BEGIN
  DELETE FROM LINEAALBARANES WHERE NUMERO=old.NUMERO AND            ANNO=old.ANNO;
END^

SET TERM ;^

Espero que te sirva!

[jachguate]

Solo comento que Interbase/Firebird soporta automáticamente actualizaciones y borrados en cascada, asi que si queres que se eliminen automáticamente los detalles de una tabla, al crear el constraint basta con añadir:

on delete cascade;

y listo. La base de datos se encarga y no tenes que programar vos estos triggers.

Hasta luego.



pd. otra cosa... en el procedure Borrar_Albaran... no se si hay algo mas, pero no le veo sentido a la sentencia Suspend;

[Nuria]

Publicado originalmente por jachguate
Solo comento que Interbase/Firebird soporta automáticamente actualizaciones y borrados en cascada... on delete cascade;

Y yo sin saberlo...