SET TERM ^ ;

CREATE OR ALTER trigger ttbcorretor_b02d for tbcorretor
active before delete position 0
AS
DECLARE VARIABLE CORRETOR_ID INTEGER;
BEGIN
  FOR
        SELECT FIRST 1
            T.CORRETOR_ID
            FROM TBCLIENTE T
            WHERE T.CORRETOR_ID = OLD.ID
            INTO :CORRETOR_ID
  DO
      BEGIN
          EXCEPTION "..." 'ESTE CORRETOR ESTÁ VINCULADO A UM CLIENTE, EXCLUSÃO NÃO PERMITIDA';
      END

END
^

SET TERM ; ^

