Каталог решений - Имитация бурной деятельности (шутка)

Недавно обратились ко мне с просьбой проимитировать работу отчета для нежелательного контролера так, чтобы он не дождался окончания формирования отчета.

Результат (с учетом критики в комментариях) получился такой:

Процедура Тормозилка() Экспорт
    // имитирует бурную деятельность программы
    Перем ч,м,с,чн,мн,сн,чт,мт,ст;
    нв = 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);
    ЗавершитьРаботуСистемы();
КонецПроцедуры

Нежелательный зритель, не больно-то секущий, что же ему сообщает Предупреждение() подождал-подождал, да и ушел восвояси…