CREATE trigger ttbempresa_grupo_b02i for tbempresa_grupo
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( NEW.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO INCLUIDO';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBEMPRESA_GRUPO',NEW.ID,HISTORICO);
    END
END;


CREATE trigger tbempresa_grupo_bu0 for tbempresa_grupo
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
    HISTORICO = '';

    IF ( NEW.DESCRICAO <> OLD.DESCRICAO) THEN
    BEGIN
        HISTORICO = HISTORICO||' DESC:'||OLD.DESCRICAO||'->'||NEW.DESCRICAO;
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        HISTORICO = ' REG.ALTERADO: '||HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBEMPRESA_GRUPO',NEW.ID, HISTORICO);
    END
END;


CREATE trigger ttbempresa_grupo_b01d for tbempresa_grupo
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( OLD.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO EXCLUIDO';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBEMPRESA_GRUPO',OLD.ID,HISTORICO);
    END
END;




CREATE trigger ttbempresa_grupo_contas_b02i for tbempresa_grupo_contas
active before insert position 1
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
DECLARE VARIABLE DESC_EMPRESA VARCHAR(100);
DECLARE VARIABLE DESC_EMPRESA_GRUPO VARCHAR(100);
BEGIN

    HISTORICO = '';
    SELECT TRIM(W.NOMEFANTASIA) FROM TBEMPRESA W WHERE W.CODIGO = NEW.EMPRESA_ID INTO DESC_EMPRESA;
    SELECT TRIM(T.DESCRICAO) FROM TBEMPRESA_GRUPO T WHERE T.ID = NEW.EMPRESA_GRUPO_ID INTO DESC_EMPRESA_GRUPO;

    HISTORICO = HISTORICO||' REG.ALTERADO: '||NEW.EMPRESA_GRUPO_ID||' - '||DESC_EMPRESA_GRUPO||', EMPRESA INCLUIDA: '||NEW.EMPRESA_ID||' - '||DESC_EMPRESA;

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBEMPRESA_GRUPO',NEW.EMPRESA_GRUPO_ID,HISTORICO);
    END
END;


CREATE trigger ttbempresa_grupo_contas_b01d for tbempresa_grupo_contas
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
DECLARE VARIABLE DESC_EMPRESA VARCHAR(100);
DECLARE VARIABLE DESC_EMPRESA_GRUPO VARCHAR(100);
BEGIN

    HISTORICO = '';
    SELECT TRIM(W.NOMEFANTASIA) FROM TBEMPRESA W       WHERE W.CODIGO = OLD.EMPRESA_ID       INTO DESC_EMPRESA;
    SELECT TRIM(T.DESCRICAO)    FROM TBEMPRESA_GRUPO T WHERE T.ID =     OLD.EMPRESA_GRUPO_ID INTO DESC_EMPRESA_GRUPO;

    HISTORICO = HISTORICO||' REG.ALTERADO: '||OLD.EMPRESA_GRUPO_ID||' - '||DESC_EMPRESA_GRUPO||', EMPRESA EXCLUIDA: '||OLD.EMPRESA_ID||' - '||DESC_EMPRESA;

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBEMPRESA_GRUPO',OLD.EMPRESA_GRUPO_ID,HISTORICO);
    END
END;