INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE LOCALIZAÇÃO DE ESTOQUE', 15150, 'EST', 'EST', '1   ', '');

ALTER SEQUENCE GTBLOCALIZACAO RESTART WITH 32 INCREMENT BY 1;

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

    HISTORICO = '';

    IF ( NEW.codigo > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' Registro Incluido';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBLOCALIZACAO',NEW.codigo, HISTORICO);
    END
end;

CREATE trigger tTBLOCALIZACAO_b03u for TBLOCALIZACAO
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.ESTABELECIMENTO_CODIGO <> NEW.ESTABELECIMENTO_CODIGO) THEN
    BEGIN
        HISTORICO = HISTORICO||' ,Estabelecimento:'|| OLD.ESTABELECIMENTO_CODIGO||'->'||NEW.ESTABELECIMENTO_CODIGO;
    END
	
	IF ( OLD.STATUS <> NEW.STATUS) THEN
    BEGIN
        HISTORICO = HISTORICO||'Status:'|| OLD.STATUS||'->'||NEW.STATUS;
    END
	
	IF ( OLD.REVISAO <> NEW.REVISAO) THEN
    BEGIN
        HISTORICO = HISTORICO||'Revisao:'|| OLD.REVISAO||'->'||NEW.REVISAO;
    END
	
	IF ( OLD.WIP <> NEW.WIP) THEN
    BEGIN
        HISTORICO = HISTORICO||'Wip:'|| OLD.WIP||'->'||NEW.WIP;
    END
	
	IF ( OLD.CCUSTO <> NEW.CCUSTO) THEN
    BEGIN
        HISTORICO = HISTORICO||'C. Custo:'|| OLD.CCUSTO||'->'||NEW.CCUSTO;
    END
	
	IF ( OLD.statusexclusao <> NEW.statusexclusao and new.statusexclusao = 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Registro Excluido';
    END

    IF ( OLD.statusexclusao <> NEW.statusexclusao and new.statusexclusao = 1) THEN
    BEGIN
        HISTORICO = HISTORICO||'Exclusao desfeita';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBLOCALIZACAO',NEW.codigo, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBLOCALIZACAO_b03d for TBLOCALIZACAO
active before delete position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( OLD.codigo > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||'Registro Excluido';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBLOCALIZACAO',old.codigo, HISTORICO);
    END
end;


