Oracle Forms 6i.
Есть форма и в одном из её окон (окне редактирования) есть блок данных с DatabaseItem = Yes.
В триггере формы WHEN-WINDOW-CLOSED проверяю изменились ли данные при закрытии этого окна :
if :SYSTEM.event_window='ИМЯ_МОЕГО_ОКНА' then
if get_block_property('ИМЯ_МОЕГО_БЛОКА', status) = 'CHANGED' then
if YesNo('Сохранить изменения ?') then
Commit_Form;
else
-- ЧТО ТУТ НАПИСАТЬ, ЧТОБЫ ОТКАТИТЬ ИЗМЕНЕНИЯ В МОЁМ БЛОКЕ
-- И ЧТОБЫ ПОТОМ ФОРМС СЧИТАЛ, ЧТО ИЗМЕНЕНИЙ НЕ БЫЛО ???
end if;
end if;
Hide_Window('ИМЯ_МОЕГО_ОКНА');
Go_Block('ИМЯ_БЛОКА_В_ГЛАВНОМ_ОКНЕ');
end if;
Как избежать запроса движка формс "Do you want to save the changes you have made ?"
при попытке редактировать другую запись в блоке "главного" окна ?
forms_ddl('rollbak') не помогает ...
Заранее спасибо.

clear_block(NO_COMMIT);
Такая конструкция приводит к прекращению дальнейшего выполнения кода триггера формы WHEN-WINDOW-CLOSED
и окно редактирования 'ИМЯ_МОЕГО_ОКНА' остаётся активным т.е. его нельзя закрыть без сохранения изменений.

1) Да, YesNo() это самопальная русскоговорящая процедура с вопросом о сохранеии.
2) Я изначально догадался поставить GO_BLOCK(('ИМЯ_МОЕГО_БЛОКА'); перед вызовом clear_block(NO_COMMIT);
Проблема clear_block() скорее всего в валидации, обязательности заполнения полей блока или ещё в чём-то.
Хотя сколько я не колдовал вокруг этих тем, ничего не помогает.
А вопрос то простой : как отменить внесённые в окне изменения и заставить движок формсов не задавать вопрос
на английском языке "Do you want to save the changes you have made ?"

NO_VALIDATE тоже пробовал. Уровень сообщений - посмотрю.

Происходит прекращение работы триггера и окно остаётся на месте.

Вот это всё-таки помогло. Ковырял валидацию и вдруг заработало.
Большое спасибо, va_kochnev !!!

Робя, успокойтесь. Формс 6i уже выкинут на свалку истории, как и мой любимый Visual FoxPro 9.
Но вопросы остаются и я очень рад, что мне помогают. Всем лучики счастья и сладкого кодинга)))
ЗЫ До смысла письма medium ещё не дорос, но с Леонидом Кудрявцевым согласен.
Не стоит устраивать вивисекцию только потому, что люди делавшие продукт думали по другому.