CREATE TRIGGER TTBRATEAMENTO_TIPO_DETALHE_B01I FOR TBRATEAMENTO_TIPO_DETALHE
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_DETALHE',NEW.ID,HISTORICO);
   END
END;

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

    HISTORICO = '';

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

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

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

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

CREATE TRIGGER TTBRATEAMENTO_TIPO_DETALHE_B01D FOR TBRATEAMENTO_TIPO_DETALHE
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_DETALHE',OLD.ID,HISTORICO);
   END
END;