INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE UNIDADES DE MEDIDA', 21050, 'FIS', 'FIS', '1   ', '');
	
update TBUNIDADEMEDIDA set STATUSEXCLUSAO = 0;
	
ALTER TABLE TBUNIDADEMEDIDA ALTER COLUMN STATUSEXCLUSAO
SET DEFAULT '0'
;


CREATE trigger tTBUNIDADEMEDIDA_b01i for TBUNIDADEMEDIDA
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('TBUNIDADEMEDIDA',NEW.id, HISTORICO);
    END
end;

CREATE trigger tTBUNIDADEMEDIDA_b01u for TBUNIDADEMEDIDA
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.status <> NEW.status) THEN
    BEGIN
        HISTORICO = HISTORICO||', Status:'|| OLD.status||'->'||NEW.status;
    END
	
	IF ( OLD.SIGLA <> NEW.SIGLA) THEN
    BEGIN
        HISTORICO = HISTORICO||', Sigla:'|| OLD.SIGLA||'->'||NEW.SIGLA;
    END
	
	IF ( OLD.PODE_FRACIONAR <> NEW.PODE_FRACIONAR) THEN
    BEGIN
        HISTORICO = HISTORICO||', Fracionar:'|| OLD.PODE_FRACIONAR||'->'||NEW.PODE_FRACIONAR;
    END
	
	
	IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 0) THEN
    BEGIN
        HISTORICO = 'Registro Excluido';
    END
	
	IF ( OLD.STATUSEXCLUSAO <> NEW.STATUSEXCLUSAO and new.STATUSEXCLUSAO = 1) THEN
    BEGIN
        HISTORICO = 'Exclusão desfeita';
    END
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBUNIDADEMEDIDA',NEW.id, HISTORICO);
    END
end;

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