SET TERM ^ ;

CREATE OR ALTER trigger ttbsetor_b03i for tbsetor
active before insert position 1
AS
DECLARE VARIABLE CCUSTO VARCHAR(11);
BEGIN
   CCUSTO = COALESCE((SELECT FIRST 1 A.CCUSTO FROM TBSETOR A WHERE A.CCUSTO = NEW.CCUSTO),'');
   IF(CCUSTO <> '') THEN
   BEGIN
         EXCEPTION "..." ' CENTRO DE CUSTO: <b>'||FN_MASK(NEW.CCUSTO, 'CC')||' - '|| COALESCE((SELECT FIRST 1 T.DESCRICAO FROM TBCENTRO_DE_CUSTO T WHERE T.CODIGO = NEW.CCUSTO), '')||'</b> JÁ PERTENCE A UMA UNIDADE PRODUTIVA';
   END
END
^

SET TERM ; ^


