SET TERM ^ ;

CREATE OR ALTER trigger ttbimplantacao_b01i for tbimplantacao
active before insert position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR (500);
BEGIN
    HISTORICO = '';

    IF (NEW.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO INCLUÍDO';
    END 

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

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbimplantacao_b01d for tbimplantacao
active before delete position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR (500);
BEGIN
    HISTORICO = '';

    IF (OLD.ID > 0) THEN
    BEGIN
        HISTORICO = HISTORICO||' REGISTRO EXCLUÍDO';
    END 

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

SET TERM ; ^

SET TERM ^ ;

CREATE OR ALTER trigger ttbimplantacao_bo1u for tbimplantacao
active before update position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR (500);
BEGIN
    HISTORICO = '';

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

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

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

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

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

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

SET TERM ; ^



