1C-PRO - Форум по 1С > Выгонялка

Помощь - Поиск - Пользователи - Календарь

Полная версия: Выгонялка

1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Конфигурирование на платформе "1С:Предприятие 8.x"

Maks21

23.9.2008, 11:31

Помогите разобраться в работе выгонялки..
Создаю константу, в которую загоняю сообщение и создаю кнопку.. в процедуре кнопки пишу:

Код

Процедура ОтключитьПозователейНажатие(Элемент)
	КонтрольРежимаЗавершения();
КонецПроцедуры

Далее в модуле приложения пишу:

Код

Процедура КонтрольРежимаЗавершения() ЭКСПОРТ
	СообщПользователям=Константы.СообщениеПользователям.Получить();
	ПодключитьОбработчикОжидания("ЗавершениеРаботы", 600);
		Вопросик=Вопрос(""+СообщПользователям+""+Символы.ПС+"Программа завершит свою работы через 10 минут"+Символы.ПС+"«ОК» - завершенить сейчас работу программы"+Символы.ПС+"«Отмена» - продолжение работы", РежимДиалогаВопрос.ОКОтмена);
	    Если Вопросик=КодВозвратаДиалога.ОК Тогда
			ПрекратитьРаботуСистемы();
			Иначе Если Вопросик=КодВозвратаДиалога.Отмена Тогда
				Предупреждение("Поскорее завершайте работу!!!");
				ОтключитьОбработчикОжидания("ЗавершениеРаботы");
                КонецЕсли;
		КонецЕсли;
	
КонецПроцедуры
Процедура ЗавершениеРаботы() ЭКСПОРТ
	ПрекратитьРаботуСистемы();
КонецПроцедуры

Почему она именно у меня срабатывает?? :(

OpKc

23.9.2008, 12:32

пусть все на кнопку нажимают, тогда у них тоже будет выскакивать.

tunec

23.9.2008, 12:43

точно :)

Maks21

23.9.2008, 13:13

а как же тогда быть?

BabySG

23.9.2008, 13:18

Посмотри, как в типовой УПП сделано

KiberMath

23.9.2008, 13:27

Пипец ))))
OpKc, Пасиб Поржал )))))))))

Дык можно проверять от какого пользователя была запущенна процедура "КонтрольРежимаЗавершения", кажись с помощью Пользователь... Синтаксис помошник те может помочь в более точном написании кода =)

KiberMath

23.9.2008, 14:13

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

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

Код

перем ГЫ;    перем ФЛАГ;
	
	Процедура ПриНачалеРаботыСистемы()
		Гы = 0;
		ФЛАГ = ИСТИНА;
		константы.ВыкидываемыйЖив.Установить(ИСТИНА);
	ПодключитьОбработчикОжидания("О_О",1);
КонецПроцедуры

Процедура О_О()   Экспорт
	Если ФЛАГ = ИСТИНА Тогда
	ГЫ = ГЫ +1;
	Если  ПользователиИнформационнойБазы.ТекущийПользователь().Имя = ПользователиИнформационнойБазы.НайтиПоИмени("Выкидываемый").Имя
	и Константы.ВыкидываемыйЖив.Получить()=ЛОЖЬ
		Тогда 
		ФЛАГ = ЛОЖЬ;
		Предупреждение("ПОКА ПОКА");
		ЗавершитьРаботуСистемы();
	 КОнецЕсли;
	КонецЕсли;
	 КонецПроцедуры

Терь, чтобы выкинуть моего пользователя с именем Выкидываемый нужно только соответствующую ему константу сделать ложно и аллелуяя

OpKc

24.9.2008, 6:08

Цитата(KiberMath @ 23.9.2008, 18:27)

Пипец ))))
OpKc, Пасиб Поржал )))))))))

не за что, спасибо автору темы :)

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.