ALTER TABLE TBCASO_PAINEL
    ADD EMAIL_POP VARCHAR(100) CHARACTER SET UTF8 COLLATE UTF8,
    ADD PORTA_POP VARCHAR(100) CHARACTER SET UTF8 COLLATE UTF8;

COMMENT ON COLUMN TBCASO_PAINEL.EMAIL_POP IS
'servidor de recebimento de eamil';

COMMENT ON COLUMN TBCASO_PAINEL.PORTA_POP IS
'porta de recebimento de email';

alter table TBCASO_PAINEL
alter ID position 1;

alter table TBCASO_PAINEL
alter DESCRICAO position 2;

alter table TBCASO_PAINEL
alter TITULO position 3;

alter table TBCASO_PAINEL
alter MENU_GRUPO position 4;

alter table TBCASO_PAINEL
alter TEMPLATE position 5;

alter table TBCASO_PAINEL
alter FRASE position 6;

alter table TBCASO_PAINEL
alter STATUS position 7;

alter table TBCASO_PAINEL
alter CONTATO_CADASTRO position 8;

alter table TBCASO_PAINEL
alter EMAIL position 9;

alter table TBCASO_PAINEL
alter EMAIL_PASS position 10;

alter table TBCASO_PAINEL
alter EMAIL_SMTP position 11;

alter table TBCASO_PAINEL
alter PORTA_SMTP position 12;

alter table TBCASO_PAINEL
alter EMAIL_POP position 13;

alter table TBCASO_PAINEL
alter PORTA_POP position 14;

alter table TBCASO_PAINEL
alter AUTENTICACAO position 15;

alter table TBCASO_PAINEL
alter SSL_TLS position 16;

alter table TBCASO_PAINEL
alter EMAIL_MONITOR position 17;

alter table TBCASO_PAINEL
alter SQL_EMAIL_CONTATO position 18;

alter table TBCASO_PAINEL
alter CAMPO_NOME_CONTATO position 19;


SET TERM ^ ;

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

    HISTORICO = '';

    IF ( OLD.DESCRICAO <> NEW.DESCRICAO) THEN
    BEGIN
        HISTORICO = HISTORICO||' DESC:'|| OLD.DESCRICAO||'->'||NEW.DESCRICAO;
    END

    IF ( OLD.TITULO <> NEW.TITULO) THEN
    BEGIN
        HISTORICO = HISTORICO||' TITULO:'|| OLD.TITULO||'->'||NEW.TITULO;
    END

    IF ( OLD.MENU_GRUPO <> NEW.MENU_GRUPO) THEN
    BEGIN
        HISTORICO = HISTORICO||' GRUPO:'|| OLD.MENU_GRUPO||'->'||NEW.MENU_GRUPO;
    END

    IF ( OLD.TEMPLATE <> NEW.TEMPLATE) THEN
    BEGIN
        HISTORICO = HISTORICO||' TEMPLATE:'|| OLD.TEMPLATE||'->'||NEW.TEMPLATE;
    END

     IF ( OLD.FRASE <> NEW.FRASE) THEN
    BEGIN
        HISTORICO = HISTORICO||' FRASE:'|| OLD.FRASE||'->'||NEW.FRASE;
    END

     IF ( OLD.STATUS <> NEW.STATUS) THEN
    BEGIN
        HISTORICO = HISTORICO||' STATUS:'|| OLD.STATUS||'->'||NEW.STATUS;
        UPDATE TBMENU SET TIPO = NEW.STATUS WHERE CONTROLE = 99000 + NEW.ID;    -- MODIFICA O TIPO DA TBMENU DE ACORDO COM O STATUS DO PAINEL
    END

     IF ( OLD.CONTATO_CADASTRO <> NEW.CONTATO_CADASTRO) THEN
    BEGIN
        HISTORICO = HISTORICO||' CONTATO CADASTRO:'|| OLD.CONTATO_CADASTRO||'->'||NEW.CONTATO_CADASTRO;
    END

     IF ( OLD.EMAIL <> NEW.EMAIL) THEN
    BEGIN
        HISTORICO = HISTORICO||' EMAIL:'|| OLD.EMAIL||'->'||NEW.EMAIL;
    END

     IF ( OLD.EMAIL_PASS <> NEW.EMAIL_PASS) THEN
    BEGIN
        HISTORICO = HISTORICO||' EMAIL SENHA:'||'SENHA ALTERADA';
    END

     IF ( OLD.EMAIL_SMTP <> NEW.EMAIL_SMTP) THEN
    BEGIN
        HISTORICO = HISTORICO||' EMAIL SMTP:'|| OLD.EMAIL_SMTP||'->'||NEW.EMAIL_SMTP;
    END

     IF ( OLD.PORTA_SMTP <> NEW.PORTA_SMTP) THEN
    BEGIN
        HISTORICO = HISTORICO||' PORTA SMTP:'|| OLD.PORTA_SMTP||'->'||NEW.PORTA_SMTP;
    END

     IF ( OLD.EMAIL_POP <> NEW.EMAIL_POP) THEN
    BEGIN
        HISTORICO = HISTORICO||' EMAIL POP:'|| OLD.EMAIL_POP||'->'||NEW.EMAIL_POP;
    END

     IF ( OLD.PORTA_POP <> NEW.PORTA_POP) THEN
    BEGIN
        HISTORICO = HISTORICO||' PORTA POP:'|| OLD.PORTA_POP||'->'||NEW.PORTA_POP;
    END

     IF ( OLD.AUTENTICACAO <> NEW.AUTENTICACAO) THEN
    BEGIN
        HISTORICO = HISTORICO||' AUTENTICACAO:'|| OLD.AUTENTICACAO||'->'||NEW.AUTENTICACAO;
    END

     IF ( OLD.SSL_TLS <> NEW.SSL_TLS) THEN
    BEGIN
        HISTORICO = HISTORICO||' SSL_TLS:'|| OLD.SSL_TLS||'->'||NEW.SSL_TLS;
    END

      IF ( OLD.EMAIL_MONITOR <> NEW.EMAIL_MONITOR) THEN
    BEGIN
        HISTORICO = HISTORICO||' EMAIL MONITOR:'|| OLD.EMAIL_MONITOR||'->'||NEW.EMAIL_MONITOR;
    END

     IF ( OLD.SQL_EMAIL_CONTATO <> NEW.SQL_EMAIL_CONTATO) THEN
    BEGIN
        HISTORICO = HISTORICO||' SQL EMAIL CONTATO:'|| OLD.SQL_EMAIL_CONTATO||'->'||NEW.SQL_EMAIL_CONTATO;
    END

    IF ( OLD.CAMPO_NOME_CONTATO <> NEW.CAMPO_NOME_CONTATO) THEN
    BEGIN
        HISTORICO = HISTORICO||' CAMPO NOME CONTATO:'|| OLD.CAMPO_NOME_CONTATO||'->'||NEW.CAMPO_NOME_CONTATO;
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        EXECUTE PROCEDURE SPI_HISTORICO('TBCASO_PAINEL',NEW.ID, HISTORICO);
    END
END
^

SET TERM ; ^

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

ALTER TABLE TBOCORRENCIA_WEB_TIPO
    ADD EMAIL_PASS VARCHAR(100),
    ADD EMAIL_POP VARCHAR(100),
    ADD PORTA_POP VARCHAR(100);

COMMENT ON COLUMN TBOCORRENCIA_WEB_TIPO.EMAIL_PASS IS
'Senha do email para recebimento';

COMMENT ON COLUMN TBOCORRENCIA_WEB_TIPO.EMAIL_POP IS
'Servidor IMAP/POP para recebimento';

COMMENT ON COLUMN TBOCORRENCIA_WEB_TIPO.PORTA_POP IS
'Porta IMAP/POP 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_PASS position 9;

alter table TBOCORRENCIA_WEB_TIPO
alter EMAIL_POP position 10;

alter table TBOCORRENCIA_WEB_TIPO
alter PORTA_POP position 11;


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: '|| old.email||' -> '||new.email;
    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 ; ^

