CREATE OR ALTER trigger ttbcalendario_evento_b02u for tbcalendario_evento
active before update position 1
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

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

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

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

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

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

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

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

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

    IF (HISTORICO <> '') THEN
    BEGIN
        --EXCEPTION "..." HISTORICO;
        EXECUTE PROCEDURE SPI_HISTORICO('TBCALENDARIO_EVENTO',NEW.ID, HISTORICO);
    END
END

