Вопрос избитый, но всё же. Таймаут  можно задать через Сервис.ОбработкаОжидания. Но как правильно закрыть такое (ВНИМАНИЕ ТЕСТОВЫЙ СЛУЧАЙ) например в комплексной открываем форму элемента справочника сотрудники из которой открыли модальное окно физлица(кнопочка O), а из которого делают подбор адреса (кнопочка ввод адреса регистрации) .

Пробовал делать двумя способами, ни один не работает Formex 91 билд

1 способ

//[+] ev-kov@2008.04.30 08:40
Процедура Таймер()
	Перем час,мин_,сек;
    
	ПрошлоВремени = Информатор.ПолучитьВремяПростояСистемы();


	Если ПрошлоВремени/1000 > 1 Тогда  // 1 час  = 360000

			//{ закроем все окна
			Окно = СоздатьОбъект("Окна");
			Окно.ЗакрытьВсеОкна();

			//}

			ЗавершитьРаботуСистемы(0);
	КонецЕсли  
КонецПроцедуры//[+]_ 

2 способ

//[+] ev-kov@2008.04.30 08:40
Процедура Таймер()
	Перем час,мин_,сек;
    
	ПрошлоВремени = Информатор.ПолучитьВремяПростояСистемы();


	Если ПрошлоВремени/1000 > 1 Тогда  // 1 час  = 360000

			//{ закроем все формы, в том числе модальные
			ОткрытыеОкна = _Сервис.СписокВсехОткрытыхОкон();
			Расш = СоздатьОбъект("РасширениеФормы");
			Для ъ=1 По ОткрытыеОкна.РазмерСписка() Цикл
				Расш.УстановитьФорму(ОткрытыеОкна.ПолучитьЗначение(ъ,).Форма);
				Расш.Закрыть();
			КонецЦикла;
			//}

			ЗавершитьРаботуСистемы(0);
	КонецЕсли  
КонецПроцедуры//[+]_ 

1 способ закрывает окно ввода адреса, далее 1с начинае "моргать в статус" типа что то усиленно делает и тормозит, итог закрытия сессии нет

2 способ закрывает окно элемента справочника сотрудники, но модальное окно и подбор не закрываются, итог закрытия сессии нет

Попробовал скомбинировать сначала отрабатывал 2-й способ потом 1-й, в итоге осталось не закрытым только модальное окно физлица, 1с зависла в бесконечном цикле в попытках его закрыть (белый экран 1с)

Посоветуйте как правильно закрыть в вышеуказанном тестовом случае набор этих окон

ЗЫ: любят у нас кадровики задерживаться и забывают закрыть окошки в 1с  и саму 1с,
без модальных окон всё закрывается нормально

Попробуй так:

Для ъ=1 По ОткрытыеОкна.РазмерСписка() Цикл
	ОткрытыеОкна.ПолучитьЗначение(ъ,).Форма.Закрыть(0);
КонецЦикла;
 

хм. это был старый вариант в новом только один посыл

Рез=Wrap.SendMessage(хэндл_вопроса,wm_EndSession,1,0) 

Я делаю так:
//
//****************************
//
процедура адм_закрытьВсеОкна()
 //
 перем Конт;
 //
 // адд_ОФ.закрытьВсеОкна(0); - не срабатывает при открытом/тых модальном/ных окне/окнах==>такое решение
 // (единственное, что не смог пока побороть: если выполняется обработка, то 1С вываливается, что, в принципе,
 // устраивает - закончить сеанс 1С; другое дело, если обработка выполняется в форме, открытой модально:
 // форма закрывается, но обработка не прерывается...
 //
 аддСФ=создатьОбъект("Сервис");
 аддРФ=создатьОбъект("РасширениеФормы");
 аддОФ=создатьОбъект("Окна");
 //
 окнаСЗ=аддСФ.списокВсехОткрытыхОкон();
 если окнаСЗ.размерСписка() > 0 тогда
    Конт="";
    Окно=сокрЛП(окнаСЗ.получитьЗначение(1,Конт));
    если Окно="Таблица" тогда
       // Таблица не является контекстным окном, но и не модальное
       аддОФ.закрытьВсеОкна(0);
       возврат;
    конецЕсли;
 конецЕсли;
 //
 Конт="";
 пока 1=1 цикл
    если аддСФ.активныйКонтекст(Конт)=0 тогда
       прервать;
    конецЕсли;
    если Конт.Форма.модальныйРежим()=1 тогда
           попытка
         аддРФ.установитьФорму(Конт.Форма);
         аддРФ.Закрыть();
               исключение
                   аддРФ.Закрыть();
          конецПопытки;
       иначе
          аддОФ.закрытьВсеОкна(0);
          прервать;
    конецЕсли;
 конецЦикла;
 //
конецПроцедуры

RinGo
вроде нормально отработал на тестовом примере, интересно нет ли случаев где этот метод не пройдёт, а так  вариант вполне работоспособен?
[/quote]

Вполне работоспособна!
Как и у всех была проблема с забывчивыми юзверями, из-за которых ночером не копировалась база... Или опять-таки предупредишь всех, чтобы, скажем, в обед все вышли из сессии 1С, но... Теперь мы просто прописываем перечень регламентных работ и время их проведения... При входе в систему этот перечень сканируется, выводится соотв-ее сообщение, типа: "Внимание! Сегодня с .. по .. будут проводиться такие-то регламентные работы!"... Включается ОбработкаОжидания() на проверку этого диапазона, за Х минут с переодичностью Y выводится напоминание, и, если все-таки забыли - сеанс автлматически закрывается... Как раз перед закрытием сеанса и отрабатывает эта процедурка - адм_закрытьВсеОкна()... А на ночное копирование мы еще и выключаем "забытый" комп (через ShutDown)! А при следующем входе в систему забывчивому пользователю - сообщение, типа - "Ай-яй-яй!,,,"

Цитата:


Ну, тут можно с помощью FormEx же поставить автотаймер на окна предупреждений и вопросов.

Цитата:


Это как делается?

Цитата:

Алексей, мы вроде с тобой это только планировали, но так и не реализовали

Так вот уважаемые.
Я ж это уже проходил.
И вопрос:
Записать документ : Да+Нет+Отмена
Это тот что вываливает 1С сама фиг вы как закроете.
А типа окно Поик по номеру
или Изменить время документа?
или Выбор штатного периода журнала?
Так что не сильно надейтесь на DynamicWrapper.

Плохо проходил. Так как я писал вначале по

Рез=Wrap.SendMessage(хэндл_вопроса,wm_EndSession,1,0);

Оно все закрывает и сразу попробуй. Только хендл главного окна правильно получи. И компонента тут не причем она только апи функции выполняет

RinGo писал(а) 13. Августа 2008 :: 13:38:



Сервис.ЭмулироватьКлавиатуру("{Esc}");  по идее должно закрыть модальное окно с каким либо вопросом, нужно добавить в свой глобальник тоже.

Хотя по своим логам вижу что уже закрывает ночью периодически.

ЗЫ: У одного манагера время неправильно стояло(его выгоняло посреди рабочего дня)

не так все просто... если у нас в фоне/не активном окне 1с работает какой-то отчет, а проверка на необходимость выхода происходит в переодической обработкеожидания, ни один из методов не поможет... закрытие окон от RinGo - падает 1с с виндовой ошибкой, ESC и прочее, если 1с свернута/не в фокусе, посылать бессмысленно - уйдет в другое окно. Помогает только terminate .
Делу бы помогло, если бы работала функция формекса Окна.НаПереднийПлан(); - но она в этом случае не действует (тут на эту тему уже была ветка). Впрочем, как не действует и AppActivate из WSH (по достоверно полученному PIDу). Там вообще странно все происходит...

Мда, от Сервис.ОбработкаОжидания() пришлось отказаться, поскольку глюки выползли неожиданно, оставил только штатную обработку ожидания

ev-kov писал(а) 15. Августа 2008 :: 03:18:


Из доп... FormEx всегда подгружаю последнюю, сейчас - 92-я...

Рез=Wrap.SendMessage(хэндл_вопроса,wm_EndSession,1,0)

Отличается от terminate тем  что 1с не выдает потом запрос на переиндексацию. Обратите внимание wm_EndSession нужно а не что другое!!!