INSERT INTO TBMENU (DESCRICAO, CONTROLE, GRUPO, SUBGRUPO, TIPO, URL)
            VALUES ('AGENDA TELEFÔNICA', 11310, 'ADM', 'ADM', '1   ', '');

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

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

    HISTORICO = '';

    IF ( OLD.FONE <> NEW.FONE) THEN
    BEGIN
        HISTORICO = HISTORICO||'Descricao:'|| OLD.FONE||'->'||NEW.FONE;
    END
    
    IF ( OLD.status <> NEW.status) THEN
    BEGIN
        HISTORICO = HISTORICO||', Status:'|| OLD.status||'->'||NEW.status;
    END
    
    IF ( OLD.NOME <> NEW.NOME) THEN
    BEGIN
        HISTORICO = HISTORICO||', Nome:'|| OLD.NOME||'->'||NEW.NOME;
    END
    
    IF ( OLD.EMAIL <> NEW.EMAIL) THEN
    BEGIN
        HISTORICO = HISTORICO||', Email:'|| OLD.EMAIL||'->'||NEW.EMAIL;
    END
    
    IF ( OLD.ENDERECO <> NEW.ENDERECO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Endereco:'|| OLD.ENDERECO||'->'||NEW.ENDERECO;
    END
    
    IF ( OLD.BAIRRO <> NEW.BAIRRO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Bairo:'|| OLD.BAIRRO||'->'||NEW.BAIRRO;
    END
    
    IF ( OLD.CIDADE <> NEW.CIDADE) THEN
    BEGIN
        HISTORICO = HISTORICO||', Cidade:'|| OLD.CIDADE||'->'||NEW.CIDADE;
    END
    
    IF ( OLD.UF <> NEW.UF) THEN
    BEGIN
        HISTORICO = HISTORICO||', UF:'|| OLD.UF||'->'||NEW.UF;
    END
    
    IF ( OLD.OBSERVACAO <> NEW.OBSERVACAO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Obser.:'|| OLD.OBSERVACAO||'->'||NEW.OBSERVACAO;
    END
    
    IF ( OLD.CONTATO <> NEW.CONTATO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Contato:'|| OLD.CONTATO||'->'||NEW.CONTATO;
    END
    
    IF ( OLD.CELULAR <> NEW.CELULAR) THEN
    BEGIN
        HISTORICO = HISTORICO||', Celular:'|| OLD.CELULAR||'->'||NEW.CELULAR;
    END
    
    IF ( OLD.OPERADORA <> NEW.OPERADORA) THEN
    BEGIN
        HISTORICO = HISTORICO||', Operadora:'|| OLD.OPERADORA||'->'||NEW.OPERADORA;
    END
    
    IF ( OLD.MSN <> NEW.MSN) THEN
    BEGIN
        HISTORICO = HISTORICO||', MSN:'|| OLD.MSN||'->'||NEW.MSN;
    END
    
    IF ( OLD.SKYPE <> NEW.SKYPE) THEN
    BEGIN
        HISTORICO = HISTORICO||', Skype:'|| OLD.SKYPE||'->'||NEW.SKYPE;
    END
    
    IF ( OLD.DATA_ANIVERSARIO <> NEW.DATA_ANIVERSARIO) THEN
    BEGIN
        HISTORICO = HISTORICO||', Aniv.:'|| OLD.DATA_ANIVERSARIO||'->'||NEW.DATA_ANIVERSARIO;
    END
    
    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBAGENDA',NEW.CODIGO, HISTORICO);
    END
end;

CREATE OR ALTER trigger tTBAGENDA_b01d for TBAGENDA
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('TBAGENDA',old.CODIGO, HISTORICO);
    END
end;
