SET TERM ^ ;

CREATE OR ALTER trigger ttbup_fluxo_b01d for tbup_fluxo
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
DECLARE VARIABLE DESCRICAO_FLUXO VARCHAR(100);
BEGIN

    HISTORICO = '';

    :DESCRICAO_FLUXO = COALESCE((SELECT FIRST 1 F.DESCRICAO FROM TBFLUXO_PRODUCAO F WHERE F.ID = OLD.FLUXO_ID),'');

    IF ( OLD.UP_ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' FLUXO EXCLUIDO:'||OLD.FLUXO_ID||' - '||:DESCRICAO_FLUXO;
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBSETOR',old.UP_ID, HISTORICO);
    END
end
^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbgp_fluxo_b01i for tbgp_fluxo
active before insert position 2
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
DECLARE VARIABLE DESCRICAO_FLUXO VARCHAR(100);
BEGIN

    HISTORICO = '';

    :DESCRICAO_FLUXO = COALESCE((SELECT FIRST 1 F.DESCRICAO FROM TBFLUXO_PRODUCAO F WHERE F.ID = NEW.FLUXO_ID),'');

    IF ( NEW.GP_ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' FLUXO INCLUIDO:'||NEW.FLUXO_ID||' - '||:DESCRICAO_FLUXO;
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBESTEIRA',NEW.GP_ID, HISTORICO);
    END
end
^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbgp_fluxo_b01d for tbgp_fluxo
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
DECLARE VARIABLE DESCRICAO_FLUXO VARCHAR(100);
BEGIN

    HISTORICO = '';

    :DESCRICAO_FLUXO = COALESCE((SELECT FIRST 1 F.DESCRICAO FROM TBFLUXO_PRODUCAO F WHERE F.ID = OLD.FLUXO_ID),'');

    IF ( OLD.GP_ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' FLUXO EXCLUIDO:'||OLD.FLUXO_ID||' - '||:DESCRICAO_FLUXO;
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBESTEIRA',old.GP_ID, HISTORICO);
    END
end
^

SET TERM ; ^





