ALTER TABLE TBCASO_ACAO_ENCERRAMENTO
    ADD FORMULA BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET UTF8;

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

SET TERM ^ ;

CREATE OR ALTER trigger ttbcaso_acao_encerramento_b01u for tbcaso_acao_encerramento
active before update position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(5000);
DECLARE VARIABLE OLD_NEW_PAINEL VARCHAR(500);
DECLARE VARIABLE NEW_NEW_PAINEL VARCHAR(500);
DECLARE VARIABLE OLD_MOTIVO VARCHAR(500);
DECLARE VARIABLE NEW_MOTIVO VARCHAR(500);
DECLARE VARIABLE OLD_TIPO VARCHAR(500);
DECLARE VARIABLE NEW_TIPO VARCHAR(500);
DECLARE VARIABLE OLD_ORIGEM VARCHAR(500);
DECLARE VARIABLE NEW_ORIGEM VARCHAR(500);
BEGIN

    HISTORICO = '';

    OLD_NEW_PAINEL = COALESCE((SELECT FIRST 1 FN_LPAD(A.ID, 4, '0')||' - '||A.TITULO FROM TBCASO_PAINEL A WHERE A.ID = OLD.NEW_PAINEL_ID), '');
    NEW_NEW_PAINEL = COALESCE((SELECT FIRST 1 FN_LPAD(A.ID, 4, '0')||' - '||A.TITULO FROM TBCASO_PAINEL A WHERE A.ID = NEW.NEW_PAINEL_ID), '');

    OLD_MOTIVO  = COALESCE((SELECT FIRST 1 FN_LPAD(B.ID, 4, '0')||' - '||B.DESCRICAO FROM TBCASO_MOTIVO B WHERE B.ID = OLD.MOTIVO_ID), '');
    NEW_MOTIVO  = COALESCE((SELECT FIRST 1 FN_LPAD(B.ID, 4, '0')||' - '||B.DESCRICAO FROM TBCASO_MOTIVO B WHERE B.ID = NEW.MOTIVO_ID), '');
    OLD_TIPO    = COALESCE((SELECT FIRST 1 FN_LPAD(C.ID, 4, '0')||' - '||C.DESCRICAO FROM TBCASO_TIPO C WHERE C.ID = OLD.TIPO_ID), '');
    NEW_TIPO    = COALESCE((SELECT FIRST 1 FN_LPAD(C.ID, 4, '0')||' - '||C.DESCRICAO FROM TBCASO_TIPO C WHERE C.ID = OLD.TIPO_ID), '');
    OLD_ORIGEM  = COALESCE((SELECT FIRST 1 FN_LPAD(D.ID, 4, '0')||' - '||D.DESCRICAO FROM TBCASO_ORIGEM D WHERE D.ID = OLD.ORIGEM_ID), '');
    NEW_ORIGEM  = COALESCE((SELECT FIRST 1 FN_LPAD(D.ID, 4, '0')||' - '||D.DESCRICAO FROM TBCASO_ORIGEM D WHERE D.ID = OLD.ORIGEM_ID), '');

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

    IF (OLD.NEW_PAINEL_ID <> NEW.NEW_PAINEL_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||' PAINEL DESTINO:'||OLD_NEW_PAINEL||'->'||NEW_NEW_PAINEL;
    END

    IF (OLD.MOTIVO_ID <> NEW.MOTIVO_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||' MOTIVO:'||OLD_MOTIVO||'->'||NEW_MOTIVO;
    END

    IF (OLD.TIPO_ID <> NEW.TIPO_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||' TIPO:'||OLD_TIPO||'->'||NEW_TIPO;
    END

    IF (OLD.ORIGEM_ID <> NEW.ORIGEM_ID) THEN
    BEGIN
        HISTORICO = HISTORICO||' ORIGEM:'||OLD_ORIGEM||'->'||NEW_ORIGEM;
    END

    IF (OLD.FORMULA <> NEW.FORMULA) THEN
    BEGIN
        HISTORICO = HISTORICO||' FORMULA ALTERADA!';
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        HISTORICO = 'PROCEDIMENTO '||FN_LPAD(OLD.ID, 4, '0')||' ALTERADO:'||HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBCASO_PAINEL', OLD.PAINEL_ID, FN_ELIPSE(HISTORICO, 500));
    END
END
^

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbcaso_acao_encerramento_b02u for tbcaso_acao_encerramento
active before update position 1
AS
DECLARE VARIABLE HISTORICO VARCHAR(5000);
BEGIN

    HISTORICO = '';

    IF (OLD.FORMULA <> NEW.FORMULA) THEN
    BEGIN
        HISTORICO = HISTORICO||' '||FN_ELIPSE(OLD.FORMULA, 220)||'->'||FN_ELIPSE(NEW.FORMULA, 220);
    END

    IF (HISTORICO <> '') THEN
    BEGIN
        HISTORICO = 'FORMULA ALTERADA:'||HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBCASO_PAINEL', OLD.PAINEL_ID, FN_ELIPSE(HISTORICO, 500));
    END
END
^

SET TERM ; ^

