INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DO GRUPO LALUR', 17040, 'CONT', 'CONT', '1   ', '');

ALTER TABLE TBGRUPOLALUR
    ADD STATUS INTEGER;
    
update tbgrupolalur set status = 1;
    
CREATE trigger tTBGRUPOLALUR_b01i for TBGRUPOLALUR
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('TBGRUPOLALUR',NEW.id, HISTORICO);
    END
end;

CREATE trigger tTBGRUPOLALUR_b01u for TBGRUPOLALUR
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( OLD.descricao <> NEW.descricao) THEN
    BEGIN
        HISTORICO = HISTORICO||'Descricao:'|| OLD.descricao||'->'||NEW.descricao;
    END
    
    IF ( OLD.HISTORICO <> NEW.HISTORICO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Histórico:'|| OLD.HISTORICO||'->'||NEW.HISTORICO;
    END
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBGRUPOLALUR',NEW.id, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBGRUPOLALUR_b01d for TBGRUPOLALUR
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('TBGRUPOLALUR',old.id, HISTORICO);
    END
end;



