CREATE OR ALTER 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);
BEGIN

    HISTORICO = '';
    SELECT TRIM(W.NOMEFANTASIA) FROM TBEMPRESA W WHERE W.CODIGO = OLD.EMPRESA_ID INTO DESC_EMPRESA;

    HISTORICO = HISTORICO||' CLIENTE EXCLUIDO: '||OLD.EMPRESA_ID||' - '||DESC_EMPRESA;

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


CREATE OR ALTER 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);
BEGIN

    HISTORICO = '';
    SELECT TRIM(W.NOMEFANTASIA) FROM TBEMPRESA W WHERE W.CODIGO = NEW.EMPRESA_ID INTO DESC_EMPRESA;

    HISTORICO = HISTORICO||' CLIENTE INCLUIDO: '||NEW.EMPRESA_ID||' - '||DESC_EMPRESA;

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