Подскажите, как прервать выполнение процедуры, если время выполнения превысило заданный интервал? При этом процедура запускается при помощи ОткрытьФормуОтчета()?

Читать текущее время сравнивать с временем запуска

Вопрос не в том как посчитать время! А как прервать выполнение процедуры?

Возврат

Возврат. Пипец...

Много лет назад задавал вопрос о прерывании "тяжелого" Запроса, во время его выполнения в обработке/отчете (не на группировках после, а именно в момент "Выполняется...". А есть ли способ?

(5) эскейп...

(6) Нет, по эскапу Запрос не прерывается.

(7) гонишь...

кнопка POWER

(8) А попробуй. Пока "Выполняется обработка...", только клавишу в стол не забей )))

(10) я и говорю не эскайп, а кнопка POWER

(11) глубину шутки все уже поняли, повторяться не надо.

Так я понимаю ответ на мой вопрос - никак?

(13) Почему никак?
Можно попробовать, запустив в обработке некую "сканирующую" конструкцию (с Формат, лень искать)

Процедура Сформировать()
Секунд=_GetPerformanceCounter()/1000;
Часов=Цел(Секунд/3600);
СекОстМин= Секунд%3600;    
Минут=Цел(СекОстМин/60);
Сек=СекОстМин%60;
Пол=Сек+Минут*60+Часов*3600;
Если Часов<10 Тогда
Часов="0"+СокрЛП(Часов);
Иначе
Часов=СокрЛП(Часов);    
КонецЕсли;
Если Минут<10 Тогда
Минут="0"+СокрЛП(Минут);
Иначе
Минут=СокрЛП(Минут);    
КонецЕсли;
Если Сек<10 Тогда
Сек="0"+СокрЛП(Сек);
Иначе
Сек=СокрЛП(Сек);    
КонецЕсли;
Время=Часов+":"+Минут+":"+Сек;
Сообщить(Время);
КонецПроцедуры
//***********
Процедура ПриОткрытии()
Форма.ОбработкаОжидания("Сформировать",10);
КонецПроцедуры


Задать интервал опроса, и по разнице от заданного вываливаться в

Возврат
СтатусВозврата(0
или Форма.Закрыть(0)
в зависимости от состояния выполнения процедур в форме

+14 хотя сильно чото сомневаюсь, что оно прервет выполняемую процедуру, тут чот как-то иначе мутить надо )))
Прочем, как время посчитать=пойдет.

(13) Надо различать
1) прервать процедуру
2) прервать выполняемую команду
---
1) Прервать можно, просто навтыкать условия на время в разных местах процедуры
2) программно нельзя, только интерактивно (это если без извратов)

(16) Да ладно, неужели

WshShell=CreateObject("WScript.Shell");
WshShell.SendKeys("{ESC}");

все еще изврат?

(17) В контексте (16) - да, изврат
Можно узнать из какого места эту команду собрался запускать? :)

(18) Извините, уезжал )
Я понимаю, что псевдо-интерактивно вовсе и не надо (не зачем), но вот пример (извратный, с прерыванием выполнения процедуры по эскейп, через 10 секунд, не совсем корректно разницу времени считает. но это не принципиально):

Перем Ждем,Часов,Минут,Сек;
//********
Процедура Рвать()
WshShell=CreateObject("WScript.Shell");
WshShell.SendKeys("{ESC}");
WshShell.SendKeys("{Enter}");
WshShell.SendKeys("{ESC}");
КонецПроцедуры    
//*******************************************
Процедура Время(Секунд)
Секунд=_GetPerformanceCounter()/1000;
Часов=Цел(Секунд/3600);
СекОстМин= Секунд%3600;    
Минут=Цел(СекОстМин/60);
Сек=СекОстМин%60;
Пол=Сек+Минут*60+Часов*3600;
Если Часов<10 Тогда
Часов="0"+СокрЛП(Часов);
Иначе
Часов=СокрЛП(Часов);    
КонецЕсли;
Если Минут<10 Тогда
Минут="0"+СокрЛП(Минут);
Иначе
Минут=СокрЛП(Минут);    
КонецЕсли;
Если Сек<10 Тогда
Сек="0"+СокрЛП(Сек);
Иначе
Сек=СокрЛП(Сек);    
КонецЕсли;
Время=Часов+":"+Минут+":"+Сек;
Сообщить(Время);
КонецПроцедуры    
//*********
Процедура Сформировать()
Секунд=_GetPerformanceCounter()/1000;
Время(Секунд);
НачСек=Число(Сек);
Блин=2;    
Для Ном=1 По 1000000000000 Цикл
Блин=Блин*2;
Секунд=_GetPerformanceCounter()/1000;

Время(Секунд);
Если (Число(Сек)-НачСек)>Ждем Тогда
Рвать();    
КонецЕсли;    
КонецЦикла;    
КонецПроцедуры
Ждем=10;


Разница между
Прервать;
СтатусВозврата(0);
Возврат;

Есть или нет?