Недавно обратились ко мне с просьбой проимитировать работу отчета для нежелательного контролера так, чтобы он не дождался окончания формирования отчета.
Результат (с учетом критики в комментариях) получился такой:
Процедура Тормозилка() Экспорт
// имитирует бурную деятельность программы
Перем ч,м,с,чн,мн,сн,чт,мт,ст;
нв = 19;
тв = ТекущееВремя(чн,мн,сн);
п = "Х";
Для сч=2 по 60 Цикл
п = п+"-";
КонецЦикла;
Пока Число(тв)<19 Цикл
Если тв<>ТекущееВремя() Тогда
тв = ТекущееВремя(чт,мт,ст);
Если мн<>мт Тогда сн=0 КонецЕсли;
Если чн<>чт Тогда мн=0 КонецЕсли;
Если ч<>чт Тогда ч=чт КонецЕсли;
Если м<>мт Тогда м=мт; мс=м+(ч*60+м*60+с)%7/7 КонецЕсли;
Если с<>ст Тогда с=ст; сс=с+(ч*60+м*60+с)%7/7 КонецЕсли;;
тс = "Выполнено: "
+ Формат(Макс(0,(ч-чн)/(нв-чн))*100,"Ч5.2") + "%; "
+ Формат(((мс-мн)/(60-мн))*100,"Ч5.2") + "%; "
+ Формат(((сс-сн)/(60-сн))*100,"Ч5.2") + "%";
п = Прав(п,1)+Лев(п,59);
Состояние(тс);
Предупреждение("Обрабатываются данные...
|" + тв + "
|" + тс + "
|" + п,1);
КонецЕсли;
КонецЦикла;
Предупреждение("Системная ошибка!!!
|Переполнение памяти",10);
ЗавершитьРаботуСистемы();
КонецПроцедуры
Нежелательный зритель, не больно-то секущий, что же ему сообщает Предупреждение() подождал-подождал, да и ушел восвояси...
