Activar/Desactivar Triggers

[[Héctor Randolph]]

FireBird tiene la opción de activar y desactivar un trigger lo mismo que Interbase por medio de la siguiente sentencia

ALTER TRIGGER name ACTIVE | INACTIVE: activar/desactivar trigger

Pero en tu caso yo te recomendaria tener en una tabla los parámetros configurables que almacenas en tu archivo INI, de esta forma puedes permitir que el trigger se ejecute siempre pero, dependiendo de estos parámetros ejecutará o no la acción de guardar movimientos.

Por ejemplo:

Código SQL [-]
SET TERM ^ ;


CREATE TRIGGER GUARDA_MOVS FOR CLIENTES
ACTIVE AFTER UPDATE POSITION 0
AS
  DECLARE VARIABLE var_recuerda_todo CHAR(1);
BEGIN
   /* Extraer el parametro de una tabla */
   SELECT recuerda_todo  FROM parametros
   INTO  :var_recuerda_todo;

  IF (var_recuerda_todo='T') THEN
  BEGIN
     /* Colocas aqui el código necesario para guardar los movimientos*/
  END;
END
^

Si el parámetro 'recuerda _todo' está puesto en 'F' entonces el código simplemente será ignorado y el trigger quedará sin efecto alguno.

Espero que sea útil la sugerencia, saludos.

[[Delphius]]

Creo que entiendo tu idea Hector.

Ta buena la idea de que invada la tabla de parámetros buscando el valor de activado o desactivado (T o F). ¿Es eso lo que hace tu ejemplo? Asi lo entiendo...

El principal problema es que lo de "guardar todo, olvidar todo" se refiere que que pueden existir términos intermedios. No me expliqué bien: El cliente puede querer que se registre movimientos para la inserción, pero no para el borrado, o para la modificación solamente, y eso para cada una de las tablas a las que se le permitirá llevar un registro de movimientos. Por lo que entiendo tendría que ver como adaptar lo tu me propones para que refleje mi modelo.

Existen 3 triggers para cada tabla interesada (Todos son del estilo After). El usuario activará o desactivará las opciones que el desea que se registre. Si habilita todas llevará todo el registro... si las desactiva a todas... no registra nada. A eso me estaba refiriendo: es la voluntad de usuario quien dicta que se guarda en el historial de movimientos.

Se que no estás muy errado en eso... tengo que ponerme a analizar mejor esta situación.

Ahora, disculpa mi torpe, y tonta pregunta... entiendo lo que me dices con lo de:
ALTER TRIGGER name ACTIVE | INACTIVE
Pero... ¿Cómo mando esa orden desde Delphi? Con IBExpert es muy sencillo... desactivo la opción y complilo. Creo que no me expliqué para nada bien.

Mi aplicativo debe ser quien habilite/deshabilite los triggers. Es por eso que me agarra la duda... Estuve viendo la paleta Interbase (Uso Delphi 6) para ver si encontraba algún componente que me diga algo sobre triggers y la verdad es que no se con cual puedo dar la orden. ¿Sólo me bastaría con mandarle un SQL con el IBSQL? Como dije antes... esto de los tiggers recién lo estoy viendo... he llegado a comprenderlos (en su forma teórica y como escribirlos) pero hasta el momento no he llegado a usarlos en la práctica. Por el momento me he limitado a realizar simples ABM.

Espero haberme expresado mejor esta vez.

Saludos, disculpen mi torpeza y mi pobre sentido de análisis y redacción. Como lo dice la frase "Dedique el tiempo suficiente para realizar su pregunta".

[xander]

Empezado por Héctor Randolph

FireBird tiene la opción de activar y desactivar un trigger lo mismo que Interbase por medio de la siguiente sentencia

ALTER TRIGGER name ACTIVE | INACTIVE: activar/desactivar trigger

Siento Discernir, pero esto me funciona perfectamente:

Código SQL [-]
  alter trigger posts_ad INACTIVE;
  alter trigger posts_ad ACTIVE;

En una base de Firebird 1.5.3, no se porque dices que no es posible.

[[Héctor Randolph]]

Empezado por Delphius

¿Cómo mando esa orden desde Delphi?
¿Sólo me bastaría con mandarle un SQL con el IBSQL?

Pues supongo que sí, bastaría con mandarle la sentencia por medio de IBSQL. De hecho hice esta pequeña prueba y me funcionó:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBDataBase1.Open;
  IBTransaction1.Active:=True;
  IBSQL1.SQL:='ALTER TRIGGER trigger1 INACTIVE';
  IBSQL1.ExecQuery;
  IBTransaction1.Commit;
end;

Saludos

[[Delphius]]

Muchas gracias Héctor Randolph.
Me voy a poner a probar lo que me ofreces.

Muchas gracias. Si tengo dudas sobre esto estaré posteando.
Saludos,

[[Lepe]]

Si vas a deshabilitar varios triggers, te sugiero el TIBScript, donde puedes escribir todas las sqls juntas (igual que en ibExpert con el Script), sería más cómodo.

Saludos

[[Delphius]]

Muchas gracias Hector: ¡Funciona!

Empezado por Lepe

Si vas a deshabilitar varios triggers, te sugiero el TIBScript, donde puedes escribir todas las sqls juntas (igual que en ibExpert con el Script), sería más cómodo.

Apuntado Lepe. He encontrado unos foros donde han mencionado sobre IBScript. Como la versión de Delphi que poseo no viene con dicho componente lo voy a tener que descargar... me estaba preguntando si ¿tengo que instalarme todas las actualizaciones o simplemente bastará con que me descarge la última?
Porque según estoy viendo aqui hay dos actualizaciones para IBX.

6.07
6.08

Y viendo de los mensajes de los foros llego a que tengo que descargarme lo que se ofrece en http://cc.codegear.com/Item/17024 pero según leo allí esto corresponde a la 6.01

¿Es esto último lo que necesitaría no?
No quiero estar haciendo macanas por instalarme cosas mal.

Saludos.

[[Delphius]]

Muchas gracias Héctor Randolph y Lepe.

Ya me he descargado el IBScripts y me anda todo bien.
Estuve probandolo y la verdad es que es sencillo de usar.
Por el momento, durante las pruebas, no he tenido inconvenientes (y espero que no aparezcan)

Saludos,