CREATE trigger ttbestoque_cliente_b01iu for tbestoque_cliente
active before insert or update position 1
AS
DECLARE VARIABLE ID VARCHAR(100);
BEGIN
    FOR
        SELECT
           ID

        FROM TBESTOQUE_CLIENTE T
        WHERE T.EMPRESA_ID = NEW.EMPRESA_ID
        AND T.ID <> NEW.ID

    INTO
    :ID
    DO BEGIN
        EXCEPTION "..." 'ESTE CLIENTE JÁ ESTÁ CADASTRADO';
    END

END;