есть транзакции
trRead:
read
nowait
rec_version
read_committed

trWrite:
write
nowait
rec_version
read_committed


запрос процедуры. в процедуре есть обработка исключения.
если по условию процедуры исключения не возникает - запрос процедуры отрабатывает корректно.

если обрабатывается исключение, в IBExpert'е сообщение прописанное в исключении появляется, но в приложении на FireDac даже в дизайнере при execute появляется сообщение об ошибке "attempted update during read-only transaction", а не то которое прописано в тексте исключения из базы данных.

может кто знает как победить? (InterBase 7.5, так уж сложилось, в настоящий момент переписываю проект для дальнейшего перехода на FireBird)/

почему-то в старом проекте на обычных IBX отрабатывает, да и IBEXpert показывает окошко с сообщением, а на FireDac засада.
Гуру подскажите как победить...или придётся все процедуры переписывать тоже? :(

create procedure srr_place_status
returns (
id integer,
name varchar(100)
)
AS
declare variable CC integer;
begin
CC =0;
IF (CC=0) THEN EXECUTE PROCEDURE EX ('Сообщение об ошибке.');
end


create procedure ex (
e varchar(78))
AS
BEGIN
UPDATE rdb$exceptions
SET rdb$message=:E
WHERE rdb$exception_name='EX_TEMP';
EXCEPTION EX_TEMP;
END


CREATE EXCEPTION EX_TEMP 'заготовка текста сообщения';

Полностью поддерживаю про линейку и пальцы, но в том то и дело, что в настоящий момент переписываю это "чудо" для перехода на FB.

kdv, а где убрать? в FireDac ReadOnly убрано

Шавлюк Евгений,
СПС, всё-таки придётся "допиливать" и базу

Шавлюк Евгений,

create procedure ex (
e varchar(78))
as
begin
/*update rdb$exceptions
set rdb$message = :e
where rdb$exception_name = 'EX_TEMP';
exception ex_temp;*/
EXCEPTION EX_TEMP :E;
end

-----------------------------------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 9, char 17.
:.