CREATE OR ALTER trigger tbcontacontabil_b08i for tbcontacontabil
active before insert position 0
AS
DECLARE VARIABLE CODIGO VARCHAR(11);
BEGIN
   CODIGO = COALESCE((SELECT A.CODREDUZIDO FROM TBCONTACONTABIL A WHERE A.CODREDUZIDO = NEW.CODREDUZIDO),'');
   IF(CODIGO <> '') THEN
   BEGIN
         EXCEPTION "..." ' CÓDIGO REDUZIDO:'||NEW.CODREDUZIDO||' JÁ CADASTRADO!';
   END
END;

