ALTER TABLE TBOCORRENCIA_WEB_TIPO
    ADD EMAIL_RECEBIMENTO VARCHAR(100) CHARACTER SET UTF8 COLLATE UTF8;

COMMENT ON COLUMN TBOCORRENCIA_WEB_TIPO.EMAIL IS
'Email monitor das ocorrencias';

COMMENT ON COLUMN TBOCORRENCIA_WEB_TIPO.EMAIL_RECEBIMENTO IS
'Email principal das ocorrencia para recebimento';

alter table TBOCORRENCIA_WEB_TIPO
alter ID position 1;

alter table TBOCORRENCIA_WEB_TIPO
alter STATUS position 2;

alter table TBOCORRENCIA_WEB_TIPO
alter DESCRICAO position 3;

alter table TBOCORRENCIA_WEB_TIPO
alter TABELA position 4;

alter table TBOCORRENCIA_WEB_TIPO
alter SQL_WEB position 5;

alter table TBOCORRENCIA_WEB_TIPO
alter SQL_MOB position 6;

alter table TBOCORRENCIA_WEB_TIPO
alter TIPO position 7;

alter table TBOCORRENCIA_WEB_TIPO
alter EMAIL position 8;

alter table TBOCORRENCIA_WEB_TIPO
alter EMAIL_RECEBIMENTO position 9;

alter table TBOCORRENCIA_WEB_TIPO
alter EMAIL_PASS position 10;

alter table TBOCORRENCIA_WEB_TIPO
alter EMAIL_POP position 11;

alter table TBOCORRENCIA_WEB_TIPO
alter PORTA_POP position 12;

/************************************************************************/

SET TERM ^ ;

CREATE OR ALTER trigger ttbocorrencia_web_tipo_b01u for tbocorrencia_web_tipo
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

    IF ( old.descricao <> new.descricao) THEN
    BEGIN
        HISTORICO = HISTORICO||' Descrição: '|| old.descricao||' -> '||new.descricao;
    END

    IF ( old.status <> new.status) THEN
    BEGIN
        HISTORICO = HISTORICO||' Status: '|| old.status||' -> '||new.status;
    END

    IF ( old.tabela <> new.tabela) THEN
    BEGIN
        HISTORICO = HISTORICO||' Tabela: '|| old.tabela||' -> '||new.tabela;
    END

    IF ( old.email  <> new.email) THEN
    BEGIN
        HISTORICO = HISTORICO||' Email Monitor: '|| old.email||' -> '||new.email;
    END

    IF ( old.email_recebimento  <> new.email_recebimento) THEN
    BEGIN
        HISTORICO = HISTORICO||' Email: '|| old.email_recebimento||' -> '||new.email_recebimento;
    END

    IF ( old.email_pass  <> new.email_pass) THEN
    BEGIN
        HISTORICO = HISTORICO||' Senha do Email Alterada!';
    END

    IF ( old.email_pop  <> new.email_pop) THEN
    BEGIN
        HISTORICO = HISTORICO||' Servidor Email: '|| old.email_pop||' -> '||new.email_pop;
    END

    IF ( old.porta_pop  <> new.porta_pop) THEN
    BEGIN
        HISTORICO = HISTORICO||' Porta Email: '|| old.porta_pop||' -> '||new.porta_pop;
    END

    IF ( old.sql_web <> new.sql_web) THEN
    BEGIN
        HISTORICO = HISTORICO||' sql_web ';
    END

    IF ( old.sql_mob <> new.sql_mob) THEN
    BEGIN
        HISTORICO = HISTORICO||' sql_mob ';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBOCORRENCIA_WEB_TIPO',new.id, HISTORICO);
    END

END
^

SET TERM ; ^

