как и где в 1с запретить заходить в программу под одним и тем же пользователем???

А зачем?

в целях безопасности)))

(0)настройки пользователя

+(3)только продвинутый сможет включить
(2) доменная аудентификация )))

Можно в модуль сеанса добавить проверку на имя компа или IP.

в УПП реализовано в (3)

...или проверять, нет ли уже такого пользователя среди активных...

(7) как именно проверить?

в получается в модуле сеанса необходимо написать некую процедуру, которая будет проверять является ли данный пользователь активным, елси нет выдавать предупреждение??

сделал так
Процедура ОбновитьСоединения()
   Попытка
       МассивСоединений=ПолучитьСоединенияИнформационнойБазы();
       Для Каждого Соединение Из МассивСоединений Цикл
           Если Соединение.Пользователь<>Неопределено Тогда
               Предупреждение("Данный пользователь уже работает в системе");
           КонецЕсли;
       КонецЦикла;
           Исключение
       Сообщить(ОписаниеОшибки());    
   КонецПопытки;
КонецПроцедуры

Процедура ПередНачаломРаботыСистемы(Отказ)
   ОбновитьСоединения();
КонецПроцедуры

но,условие не правильно работает(((

подскажите, где косяки???

Если Соединение.Пользователь=ТекущийПользователь()

но зачем-то же придумали множественный вход

терь, если с разных пк заходить под одним пользователем, то все равно впускает и предупреждение не выдает((((

а ниче что я код пишу в модуле обычного приложения и  
   Процедура ПередНачаломРаботыСистемы(Отказ)
       ОбновитьСоединения();
КонецПроцедуры
???

сделал нужно было код перенести во внешнее соединение, так как ПолучитьСоединенияИнформационнойБазы() Доступность:

Сервер, толстый клиент, внешнее соединение.

(16) хм... а в каких случаях оно тебе пойдёт во внешнее соединение? в чём отличие отсервера?

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

причем с этого же пк

а мне нужно чтобы с разных пк пользователи не могли одновременно зайти под одним именем

(20) смотри (12)

ну вот сдела так
Процедура ОбновитьСоединения()
Попытка
       МассивСоединений=ПолучитьСоединенияИнформационнойБазы();
       Для Каждого Соединение Из МассивСоединений Цикл
           Если Соединение.Пользователь = ТекущийПользователь()
               Тогда
           Предупреждение("Данный пользователь уже работает в системе");
       КонецЕсли;
       КонецЦикла;
           Исключение
       Сообщить(ОписаниеОшибки());    
КонецПопытки;
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
   ОбновитьСоединения();
КонецПроцедуры
   
все равно пускает

а вот у ПередНачаломРаботыСистемы есть Отказ

а где тогда писать этот весь код в модуле чего?

потому что в модуле внешнего соединения такой процедуры нет

(23) В модуле обычного приложения отладчик пишет:  Процедура или функция с указанным именем не определена (ТекущийПользователь)

+(26) А вот параметрысеанса.ТекущийПользователь определён

а если через модуль обычного приложения ПользователиИнформационнойБазы.ТекущийПользователь()

(28) Вот и сравнивай

Если Соединение.Пользователь = ПользователиИнформационнойБазы.ТекущийПользователь() Тогда

(27) ну не проверял, подумаешь ;)

нет не в модуле обычного, внешнего он не пашет

может в коде что то не так?((

даже в модуле сеанса заходит(((

если ты находишься в конфигураторе а потом в преприятие не пускает, если кто уже сидит по этим именем

(35) Так проверяй еще и приложение - конфигуратор или предприятие :)))

(36)ниче не понял

(37) Блин посмотри, чему у тебя равно Соединение.ИмяПриложения . или в отладчике забанили? :)))

{(1)}: Значение не является значением объектного типа (ИмяПриложения)
в табло проверил

(38) и че же делать((

(4) "аудентификация" - от слова "аудио"? :-)

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

(42) а типовую какую-то смотрел?

это стиповой

ниче не помогает((9

Написал следующим образом:

   // конроль возможности однократного входа в 1С
   ФлПодключенияПользователя=0;
   МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
   Для Каждого ТекСоединение Из МассивСоединений Цикл
       Если СокрЛП(ПараметрыСеанса.ТекущийПользователь)=СокрЛП(ТекСоединение.Пользователь.ПолноеИмя) Тогда    
           ФлПодключенияПользователя=ФлПодключенияПользователя+1;
       КонецЕсли;
   КонецЦикла;    
   Если ФлПодключенияПользователя>1 Тогда
       Если СокрЛП(ТекСоединение.Пользователь.ПолноеИмя)<>"Администратор" Тогда
           Предупреждение("Пользователем с таким именем уже выполнен вход в систему");
           ЗавершитьРаботуСистемы(Ложь);
           Возврат;
       КонецЕсли;
   КонецЕсли;    


Да выдает ощибку - но ведь не тем, кто входит только один раз и администратору возможность оставил (конфигуратор/предприятие)

+ написал в "Процедура ПроверитьВозможностьРаботыПользователя(Отказ) Экспорт"