INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('CADASTRO DE CARGOS', 23040, 'RH', 'RH', '1   ', '');

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

CREATE trigger tTBCARGO_b01u for TBCARGO
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.CBO <> NEW.CBO) THEN
    BEGIN
        HISTORICO = HISTORICO||', CBO:'|| OLD.CBO||'->'||NEW.CBO;
    END
	
	IF ( OLD.DESCRICAO_ABREVIADA <> NEW.DESCRICAO_ABREVIADA) THEN
    BEGIN
        HISTORICO = HISTORICO||'Descricao Abreviada:'|| OLD.DESCRICAO_ABREVIADA||'->'||NEW.DESCRICAO_ABREVIADA;
    END
	
	IF ( OLD.ESCOLARIDADE_ID <> NEW.ESCOLARIDADE_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||'Escolaridade:'|| OLD.ESCOLARIDADE_ID||'->'||NEW.ESCOLARIDADE_ID;
    END	
	
	IF ( OLD.STATUS <> NEW.STATUS) THEN
    BEGIN
        HISTORICO = HISTORICO||'Status:'|| OLD.STATUS||'->'||NEW.STATUS;
    END	
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBCARGO',NEW.codigo, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBCARGO_b01d for TBCARGO
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('TBCARGO',old.codigo, HISTORICO);
    END
end;



