INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE MOTIVOS DE MARCAÇÕES', 23060, 'RH', 'RH', '1', '');

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

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

    HISTORICO = '';

    IF ( OLD.TIPO <> NEW.TIPO) THEN
    BEGIN
        HISTORICO = HISTORICO||'Tipo:'|| OLD.TIPO||'->'||NEW.TIPO;
    END
	
	IF ( OLD.DESCRICAO <> NEW.DESCRICAO) THEN
    BEGIN
        HISTORICO = HISTORICO||'Desc.:'|| OLD.DESCRICAO||'->'||NEW.DESCRICAO;
    END
    
    IF ( OLD.status <> NEW.status) THEN
    BEGIN
        HISTORICO = HISTORICO||', Status:'|| OLD.status||'->'||NEW.status;
    END
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBMOTIVO',NEW.ID, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBMOTIVO_b01d for TBMOTIVO
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('TBMOTIVO',old.ID, HISTORICO);
    END
end;

CREATE SEQUENCE GTBMOTIVO;

SET GENERATOR GTBMOTIVO TO 3;


