CREATE TRIGGER TTBRATEAMENTO_TIPO_B02I FOR TBRATEAMENTO_TIPO
ACTIVE BEFORE INSERT POSITION 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
   HISTORICO = '';
   IF(NEW.ID IS NOT NULL)then
   BEGIN
       HISTORICO = HISTORICO||'Reg. Incluido.';
   END

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

CREATE TRIGGER TTBRATEAMENTO_TIPO_B01U FOR TBRATEAMENTO_TIPO
ACTIVE BEFORE UPDATE POSITION 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

    HISTORICO = '';

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

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

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

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

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

CREATE TRIGGER TTBRATEAMENTO_TIPO_B01D FOR TBRATEAMENTO_TIPO
ACTIVE BEFORE DELETE POSITION 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN
   HISTORICO = '';
   IF(OLD.ID IS NOT NULL)then
   BEGIN
       HISTORICO = HISTORICO||'Reg. Excluido.';
   END

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