-- Criação de Triggers 

-- Tela 20141 - Cadastro de Operações de CRE

-- Trigger de Inserts 
CREATE trigger tbcre_contabil_retencao_b01i for tbcre_contabil_retencao
active before insert position 0
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

  HISTORICO = '';

  IF(NEW.OPERACAO_ID > 0) THEN
  BEGIN
    HISTORICO = HISTORICO||'Reg.retencao:'||new.retencao_id||' incluido.';
  END

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

-- Trigger de Deletes
CREATE OR ALTER trigger tbcre_contabil_retencao_b01d for tbcre_contabil_retencao
active before delete position 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

  HISTORICO = '';

  IF(OLD.OPERACAO_ID > 0) THEN
  BEGIN
    HISTORICO = HISTORICO||'Reg.retencao:'||OLD.RETENCAO_ID||' excluido.';
  END

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