CREATE trigger ttbcolaborador_credito_b03iu for tbcolaborador_credito
active before insert or update position 3
AS
DECLARE VARIABLE COLABORADOR_EXISTENTE INTEGER;
DECLARE VARIABLE DESC_COLABORADOR VARCHAR(100);
BEGIN
    :COLABORADOR_EXISTENTE = COALESCE((SELECT FIRST 1 T.ID FROM TBCOLABORADOR_CREDITO T WHERE T.COLABORADOR_ID = NEW.COLABORADOR_ID AND T.ID <> NEW.ID), 0);

    IF(:COLABORADOR_EXISTENTE > 0) THEN
    BEGIN
        :DESC_COLABORADOR = COALESCE((SELECT FIRST 1 K.PESSOAL_NOME FROM TBCOLABORADOR K WHERE K.CODIGO = NEW.COLABORADOR_ID), '');

        EXCEPTION "..."'JA EXISTE UM CREDITO CADASTRADO PARA O COLABORADOR '||:DESC_COLABORADOR;
    END
END;



