Отключение множественного входа в 1с
Модуль обычного приложения :: Процедура ПередНачаломРаботыСистемы(Отказ) ТекущийНомерСоединения = НомерСоединенияИнформационнойБазы(); УникальныйИдентификаторПользователя = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор; МассивСоединений = ПолучитьСоединенияИнформационнойБазы(); Для Каждого ТекСоединение Из МассивСоединений Цикл Если (ТекСоединение.ИмяПриложения = «1CV8») И (НЕ ТекСоединение.НомерСоединения = ТекущийНомерСоединения) И (НЕ ТекСоединение.Пользователь = неопределено) И (ТекСоединение.Пользователь.УникальныйИдентификатор = УникальныйИдентификаторПользователя) Тогда Предупреждение(«Пользователем с таким именем уже выполнен вход в систему»); ЗавершитьРаботуСистемы(Ложь); Возврат; КонецЕсли; КонецЦикла;