BeaViS
Напоролся тут на тему:
v8: Обработка прерывания пользователя
11.01.08 - 14:30
Хочется организовать такую обработку прерывания пользователем выполнения кода, чтобы прервано было не все выполние кода, а только текущий цикл.

Сам не придумал, м.б. кто изобретал подобное?

Делать один фиг неча - поделюсь своей извращенной фантазией =)

В глобальном модуле:

Перем мВЦикле; Экспорт

Процедура ПриВыводеСтроки(ТекущиеДанные, ОформлениеСтроки)

Если ТекущиеДанные.СтроковаяКолонка <> Справочники.НекийОбъект.ПустаяСсылка() Тогда
ТекущиеДанные.СтроковаяКолонка = Справочники.НекийОбъект.ПустаяСсылка();
КонецЕсли;

Если мВЦикле Тогда
ВыполнитьЧтоТамНадоПриПрерывании();
Иначе
ВыполнитьЦикл();
КонецЕсли;

КонецПроцедуры

Процедура ВыполнитьЦикл()

мВЦикле = Истина;
Пока Цикл
ОбработкаПрерыванияПользователя();
КонецЦикла;
мВЦикле = Ложь;

КонецПроцедуры

ПроцедураИнициаторАлгоритма()

СтрокаВызывающаяБесконечноеЦиклическоеСрабатываниеСобытияПриВыводеСтроки = СкрытоеТабличноеПоле.Добавить();
СтрокаВызывающаяБесконечноеЦиклическоеСрабатываниеСобытияПриВыводеСтроки.СтроковаяКолонка = Справочники.НекийОбъект.ПустаяСсылка();

КонецПроцедуры

мВЦикле = Ложь;

и это хрень работает?

ХЗ.
Не проверял. По идее - должна.
Всяко лучше, чем флаги в реестр операционки вешать =)

нихрена не понял, обработка прерывания не отменяет действий сделанных до её срабатывания

так ты проверь сначала, особенно в серверном варианте

з.ы. заверни ОбработкаПрерыванияПользователя в попытку, отработает?

Это будет работать. Проверять ломает.
По-крайней мере, сама идея точно рабочая. Разве что кое-какие места видоизменить, дописать придется
зы: например, добавить куда-нить очистку скрытого табличного поля, дабы без надобности программу не вешало =)

(6) бгг, я изобрел вечный двигатель, идея рабочая, а проверить - ломает

На тонком клиенте - тоже, коль скоро там также идет проверка вывода строки каждый раз, как происходит изменение данных в ней.
На сервере - точно именно так и есть.

Весь казус в том, что глюк зацикливания процедуры привыводестроки оставляет промежутки для действий пользователя, а уход в бесконечный цикл в теле процедуры - нет =)

v8: re Обработка прерывания пользователя

Для моих 32х см это не вечный двигатель, а способ расслабиться
гг ))

пля. Как вы ссылки на сообщения делаете? (9)

(10) Ясно =)

> Хочется организовать такую обработку прерывания пользователем выполнения кода, чтобы прервано было не все выполние кода, а только текущий цикл.


пример такого цикла озвучь

(12) Де юре будет прерван весь код.
Но внешне будет выглядеть так, будто быд прерван лишь цикл.
Со стороны пользователя условие соблюдено.
Со стороны программиста... Программисту по определению должно быть ровно как сделано то, что работает. Главное - работает.

(11) да где же у тебя выход из процедуры?

(14) Какой код тебе нужен? И из какой процедуры? Я привел набросок принципиальной схемы - не более того.

(15) так он нерабочий нифига

(14) Догнал о чём речь... Писал выше (6)
Выход делаем так:

Процедура ВыполнитьЦикл()

мВЦикле = Истина;
Пока Цикл
 ОбработкаПрерыванияПользователя();
КонецЦикла;

мВЦикле = Ложь;
СкрытоеТабличноеПоле.Очистить();

КонецПроцедуры

(16) Спорим?
=)

спорим, только конец процедуры или возврат вернут управление назад

(19) На что спорим? )
Понимаю, что уже не интересно - я только что проверил и реализовал свой алгоритм...
Но а вдруг не поверишь? =)

а что у тебя есть?

(21) Давай так:
Я сейчас скидываю сюда обработку, которая при нажатии на кнопку запускает бесконечный цикл. Если нажать ctrl + брык - выдается стандартное сообщение о прерывании, после которого появляется предупреждение о том, что усё прекрасно работает. Смысл ясен - в процедуру с этим предупреждением можно запихать всё что угодно. Условие соблюдено - процесс продолжится.

Если она действительно работает именно так, то ты скидываешь мне на сотовый условную сумму (пусть 100р). Если нет - то ты мне.
Больше смысла нет - это всё так - на честность )
Идет?

(22) *Если нет - то Я тебе

давай

(24) лови
http://disk.tom.ru/3zc3vpr

белый экран смерти 1С

с тебя сотка

можешь пожертвовать по кнопке справа внизу

(26) На чём запускал?

На старой платформе потребуется небольшая перестановка мест слагаемых.
Типа такого:
http://disk.tom.ru/1juwzab

платформа свежая

(30) пардоньте - ссылка битая )
http://disk.tom.ru/qqgt6d4

(31) Первую тестил на 8.2 (8.2.13.205)
Вторую - на этой и предыдущих.
Крайняя работает на всех 8.х

метки это жесть

(33) работает, говори номер телефона

(34) Метки там - не главное. Их легко можно обойти. Вставил уж для полной имитации того, что тело процедуры продолжается после прерывания цикла

подтверждаю - ничего не работает 15.301

(35)
+7-960-971-37-64.
И на что ты надеялся? =)

(37) Смотри эту:
http://disk.tom.ru/qqgt6d4

оно не продолжается а запускается заново

лови свою сотку

хотя в редиме отладки не запустилось

(40) По факту - да. Визуально - нет.
Но я это оговаривал.
Поставленная задача выполнена.
Надо же - не обманул )
Мерси.

(43) сотка не деньги

только каково применение ?

(45) Как минимум выйграть сотку ! )))

(44) Приятна не сотка, а честность ;)
(45) Я ХЗ. Автору надо было зачем-то...
Но лично я уже знаю, куда такую приблуду можно вставить.