Версия для печати темы (https://pro1c.org.ua/index.php?showtopic=4325)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Управление торговлей для Украины редакция 2 (Управление торговлей для России редакция 10) _ запуск 1с от имени одного пользователя не более 1 раза

Автор: onsamuy 02.08.11, 12:09

Как не допускать запуска 1С от имени одного пользователя более одного раза?

Автор: Vofka 02.08.11, 12:14

При начале работы http://pro1c.org.ua/index.php?showtopic=4326 и проверяете нет ли там нужного. В случае когда есть - не пускаем.

Автор: Vond 02.08.11, 12:44

обычно в настройках пользователя стоит галочка с включением (отключением) возможности запуска 1с более одного сеанса.
пользователи обычно настойки не интересно смотреть smile.gif хотя если юзер продвинутый, только програмные ограничения

Автор: logist 02.08.11, 22:45

Цитата(Vond @ 02.08.11, 13:44) *
хотя если юзер продвинутый, только програмные ограничения

А самое лучшее, дать возможность менять настройки только администратору.

Автор: onsamuy 04.08.11, 9:23

а где эта настройка находится, что то я не могу найти. В настройках пользователя в конфигураторе или в приложении?

Автор: onsamuy 08.08.11, 0:37

код получился такой:

ТекущийПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();
    МассивСоединений =  ПолучитьСоединенияИнформационнойБазы();
    
    //удаляем строку массива, где значение - этот же пользователь
    МассивСоединений.Удалить(МассивСоединений.ВГраница());
    //ищем в массиве пользователя с таким же именем. Строку массива где приложение - это конфигуратор, пропускаем
    Для Каждого СтрокаМассива Из МассивСоединений Цикл
        Если СтрокаМассива.Пользователь.Имя = ТекущийПользовательИБ.Имя И Не СтрокаМассива.ИмяПриложения="Designer" Тогда
            Отказ = Истина;
            #Если Клиент Тогда
                Предупреждение(НСтр("ru='Уже существует соединение с информационной базой пользователем ';uk='Вже існує зєднання з інформаційною базою користувачем '")+ТекущийПользовательИБ.Имя, 10, НСтр("ru='Ошибка доступа';uk='Помилка доступу'"));
            #КонецЕсли    
            Прервать;    
        КонецЕсли;     
    КонецЦикла;


поместил в процедуру "ПередНачаломРаботыСистемы" модуля обычного приложения

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua