Прерывание выполнения Scan

[sliv0210]

Код следующий:

SCAN @RepTable EXECUTE
{
......
CON @RepTable:1, @RepTable:2, @RepTable:3, @RepTable:4;
......
......
}; -- End SCAN

При выполнении выводится окно с кнопкой <Cancel> и если на нее нажать или давануть на <Esc> то выполнение отчета прерывается и не выполняются все нужные завершающие действия.
Помогите, пжлста, советом...
Как отловить прерывание?

[Mikhail]

Если прервали по Esc, то код после SCAN..EXECUTE не выполняется же?

Попробуйте добавить после EXECUTE {...} присвоение значение какой-нибудь переменной и далее анализировать её значение: если проверочное значение не присвоено, стало быть выполнение execute было прервано.

[sliv0210]

Именно!
Код после SCAN EXECUTE { }; не выполняется.
Т.е. воообще... Ни вывод MSG, ни проверки переменных... не отрабатывает ничего.

[Mikhail]

Полагал, что в любом случае отработает доп. сегмент after, но сейчас проверил и только убедился в правоте ваших слов.

[Mikhail]

Если без использования SCAN не обойтись (например, используя WHILE), и при этом необходимо сразу определить прерывание SCAN (не заглядывая в протокол и т.п.) то можно использовать следующий способ, который у меня сработал.

Тестовый пример:

создал x-процедуру user_scan_interrupt_0:

[Green]

Добавьте секцию exception в scan:
scan @x select * from "#green"
execute {
let _ii += 1;
@@xUtil(sleep 1000);
}
exception {;}
;
return hello;

В скобках exception{...} что-то должно быть, точки с запятой хватает, иначе не отрабатывает. При наличии этой секции, предшествующий ей блок в фигурных скобках (это может быть скан, процедура и т.п.), при возврате ошибки (в том числе cancel), выполняет секцию exception и продолжает выполнение программы. Будьте внимательны, ведь может быть реальная ошибка, а не просто отмена. Как отследить этот нюанс, увы, не знаю. Кто подскажет - буду премного благодарен