forum.synerpy.de

Code: Alles auswählen

SET SQL DIALECT 3;

SET NAMES ISO8859_1;


SET TERM ^ ;


CREATE OR ALTER TRIGGER V_BSA_BD0 FOR V_BSA
ACTIVE BEFORE DELETE POSITION 0
AS
BEGIN
  POST_EVENT 'DUMMY_EVENT';
END
^


CREATE OR ALTER TRIGGER V_BSA_BD0 FOR V_BSA
ACTIVE BEFORE DELETE POSITION 0
AS
DECLARE VARIABLE SJA VARCHAR(1);
DECLARE VARIABLE SNEIN VARCHAR(1);
BEGIN
  /* Letzter Stand 19.05.2009 09:44:02 PF */
  /* Protokollieren, dass Aktion hier durchgelaufen ist */
  IF (GEN_ID(GEN_ENTWICKLUNG,0) = 0) THEN
    INSERT INTO A_WASMACHTIB (PROGRAMMTEIL) VALUES ('V_BSA_BD0');

  EXECUTE PROCEDURE P_BFIRMA_JANEIN RETURNING_VALUES(:SJA,:SNEIN);

  BEGIN
    DELETE FROM BSA WHERE ID = OLD.ID;
                   
    -- Artikel deaktivieren, statt sie zu löschen, wenn bereits Abhängigkeiten
    -- vorhanden sind
    WHEN ANY DO
      UPDATE BSA
      SET AKTIV_JN = :SNEIN
      WHERE ID = OLD.ID AND
            AKTIV_JN = :sJA; -- Nicht, wenn Resteverwertung oder sonstiger Status
  END
END
^


SET TERM ; ^


/* Privileges of triggers */
GRANT INSERT ON A_WASMACHTIB TO TRIGGER V_BSA_BD0;
GRANT SELECT, UPDATE, DELETE ON BSA TO TRIGGER V_BSA_BD0;
GRANT UPDATE, REFERENCES ON V_BSA TO TRIGGER V_BSA_BD0;
GRANT EXECUTE ON PROCEDURE P_BFIRMA_JANEIN TO TRIGGER V_BSA_BD0;