Вызов изменяемого exception в InterBase

[soleil@mmc]

Возможно, кому-то пригодится
Понадобилось мне тут на триггере выводить сообщение об ошибке с возможностью собрать текст ошибки (подставить туда, например, числа) и при этом значения параметров непредсказуемы. А нутрянка Ибазе предоставляет возможность выводить только предопределенные сообщения об ошибках.

вот каким образом можно достичь желаемого:

/*  создадим наше собственное изменяемое исключение */
CREATE EXCEPTION MY_VARIABLE_ERROR '???';

SET TERM ^ ;

CREATE PROCEDURE SHOW_ERROR(E VARCHAR(2000))
AS
declare variable EE varchar(78);
/*максимально возможный размер для текста ошибки*/
BEGIN
   EE='';
   EE=:E;
   /*если входной параметр больше чем 78 то тут возникает ошибка
   которая успешно обрабатывается ниже*/
   UPDATE rdb$exceptions
   SET rdb$message=:E
   WHERE rdb$exception_name='MY_VARIABLE_ERROR';
   
   EXCEPTION MY_VARIABLE_ERROR;
   /*сюда попадаем только если входной параметр Е больше 78 символов*/
   /*EE - содержит 78 символов в обрезанных от E*/
 when any do
   begin
      UPDATE rdb$exceptions
      SET rdb$message=:EE
      WHERE rdb$exception_name='MY_VARIABLE_ERROR';
	  
      EXCEPTION MY_VARIABLE_ERROR;
   end
END
^

SET TERM ; ^

а так вызываем само исключение:

....
AS
DECLARE VARIABLE L_AVAIL_QTY INTEGER;
DECLARE VARIABLE L_MSG VARCHAR(255);
BEGIN
....
        IF (NEW.QTY > :L_AVAIL_QTY) THEN
        BEGIN
		L_MSG = 'Ошибка! Для прихода по этой позиции доступно не более '||:L_AVAIL_QTY||' шт.';
		EXECUTE PROCEDURE SHOW_ERROR(:L_MSG);
        END
....
END

[Rik]

Сообщение от soleil@mmc

Возможно, кому-то пригодится
Понадобилось мне тут на триггере выводить сообщение об ошибке с возможностью собрать текст ошибки (подставить туда, например, числа) и при этом значения параметров непредсказуемы. А нутрянка Ибазе предоставляет возможность выводить только предопределенные сообщения об ошибках.

вот каким образом можно достичь желаемого:

/*  создадим наше собственное изменяемое исключение */
CREATE EXCEPTION MY_VARIABLE_ERROR '???';

SET TERM ^ ;

CREATE PROCEDURE SHOW_ERROR(E VARCHAR(2000))
AS
declare variable EE varchar(78);
/*максимально возможный размер для текста ошибки*/
BEGIN
   EE='';
   EE=:E;
   /*если входной параметр больше чем 78 то тут возникает ошибка
   которая успешно обрабатывается ниже*/
   UPDATE rdb$exceptions
   SET rdb$message=:E
   WHERE rdb$exception_name='MY_VARIABLE_ERROR';
   
   EXCEPTION MY_VARIABLE_ERROR;
   /*сюда попадаем только если входной параметр Е больше 78 символов*/
   /*EE - содержит 78 символов в обрезанных от E*/
 when any do
   begin
      UPDATE rdb$exceptions
      SET rdb$message=:EE
      WHERE rdb$exception_name='MY_VARIABLE_ERROR';
	  
      EXCEPTION MY_VARIABLE_ERROR;
   end
END
^

SET TERM ; ^

а так вызываем само исключение:

....
AS
DECLARE VARIABLE L_AVAIL_QTY INTEGER;
DECLARE VARIABLE L_MSG VARCHAR(255);
BEGIN
....
        IF (NEW.QTY > :L_AVAIL_QTY) THEN
        BEGIN
		L_MSG = 'Ошибка! Для прихода по этой позиции доступно не более '||:L_AVAIL_QTY||' шт.';
		EXECUTE PROCEDURE SHOW_ERROR(:L_MSG);
        END
....
END

Хм, зачем такие сложности, а так что не работает?
EXCEPTION MY_VARIABLE_ERROR 'Здесь вы пишите что хотите и приклеиваете непредсказуемые параметры ' || :MY_PARAM1;

На FireBird ограничение сообщения об ошибке в 78 символов давным давно ликвидировано...

[soleil@mmc]

Во-первых, речь про Ибазе (угу, я в курсе, что есть еще огненная_птица), но вот задача ограничена таким образом.
Во-вторых, лучше сначала проверить работоспособность того что пишешь - речь про это

EXCEPTION MY_VARIABLE_ERROR 'Здесь вы пишите что хотите и приклеиваете непредсказуемые параметры ' || :MY_PARAM1;

[Rik]

Сообщение от soleil@mmc

Во-первых, речь про Ибазе (угу, я в курсе, что есть еще огненная_птица), но вот задача ограничена таким образом.
Во-вторых, лучше сначала проверить работоспособность того что пишешь - речь про это

EXCEPTION MY_VARIABLE_ERROR 'Здесь вы пишите что хотите и приклеиваете непредсказуемые параметры ' || :MY_PARAM1;

Ну что-ж, простите, не знал что в InterBase до сих пор такие проблемы... В FireBird таких проблем уже нет...

[soleil@mmc]

сначала создаешь эксепшон, потом его показываешь
просто версия иб5.5
вопросы миграции на старшие версии или клоны не поднимались

З.Ы.: и ваще не слежу, что там в ибазе нового - я все больше по ораклу

[Rik]

Сообщение от soleil@mmc

сначала создаешь эксепшон, потом его показываешь
просто версия иб5.5
вопросы миграции на старшие версии или клоны не поднимались

З.Ы.: и ваще не слежу, что там в ибазе нового - я все больше по ораклу

В данном случае, если нагрузка на сервре набольшая, то проблем нет, в противно случае, в виду многоверсионности сервера при большой нагрузке, пользователь рискует увидеть сообщение, совсем другое, не предназнченное ему, если другой, более "шустрый" пользователь, за это время успеет изменить текст сообщения...

[soleil@mmc]

есть желание отображать динамический экспешон, а если начнутся траблы, то переведем в статику
(просто, по сравнению с ораклом, не иметь возможности в ИБ вывести любую мессагу - как без рук, про все остальные танцы с бубнами ваще не вспоминаю)

[Rik]

Сообщение от soleil@mmc

есть желание отображать динамический экспешон, а если начнутся траблы, то переведем в статику
(просто, по сравнению с ораклом, не иметь возможности в ИБ вывести любую мессагу - как без рук, про все остальные танцы с бубнами ваще не вспоминаю)

Переводите IBэсовские базы на FireBird.
Я сделал несколько крупных приложений на FireBird, работают на 10ках предприятий, всё обошлось без танцев и без бубнов...

[soleil@mmc]

Сообщение от Rik

Переводите IBэсовские базы на FireBird.
Я сделал несколько крупных приложений на FireBird, работают на 10ках предприятий, всё обошлось без танцев и без бубнов...

мне эта БД попалась в кач-ве фриланса - вопросами стратегии ведаю не я (по слухам, была у них попытка переехать на ФБ, но по каким-то причинам не удалась, а чтобы доделать - руки не дошли и оставили как есть - работает и хорошо)

З.Ы.: а бубны - это я про то, что нужно совершать много лишних телодвижений в ИБ чтобы реализовать задуманное так же просто как в оракле