Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Detsle



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Процедура УстановитьИзменяемыеПараметрыСеансаПользователя(Интерактивно = Ложь, ТекстРезультата = "") Экспорт
    
    ПараметрыСеанса.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей = Константы.ИспользоватьОграниченияПравДоступаНаУровнеЗаписей.Получить();
    ТекстРезультата = ТекстРезультата + " - обновлены данные прав доступа" + Символы.ПС;
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийПользователь", ПараметрыСеанса.ТекущийПользователь);
    
    // ГруппыТекущегоПользователя
    Запрос.Текст =  
    "ВЫБРАТЬ
    |    Справочник.ГруппыПользователей.Ссылка КАК Значение
    |ИЗ
    |    Справочник.ГруппыПользователей
    |ГДЕ
    |    Справочник.ГруппыПользователей.ПользователиГруппы.Пользователь = &ТекущийПользователь
    |";
    Массив = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Значение");
    Массив.Добавить(Справочники.ГруппыПользователей.ВсеПользователи);
    ПараметрыСеанса.ГруппыТекущегоПользователя = Новый ФиксированныйМассив(Массив);
    ТекстРезультата = ТекстРезультата + " - обновлен состав групп текущего пользователя" + Символы.ПС;
    
    УстановитьПараметрГраницыЗапретаИзмененияДанных();
    ТекстРезультата = ТекстРезультата + " - обновлены даты запрета изменения данных" + Символы.ПС;
    
    // инициализация параметров сеанса, связанных с механизмом РИБ:
    // ПрефиксУзлаРаспределеннойИнформационнойБазы, НаличиеОбменаДаннымиПоОрганизации
    // ВсеУзлыОбменаПоОрганизациям, СоответствиеОрганизацийИУзловОбменаПоОрганизации
    // ИспользованиеРИБ
    ОпределитьПараметрыСеансаДляОбменаДанными();
    ТекстРезультата = ТекстРезультата + " - обновлены параметры распределенной информационной базы" + Символы.ПС;
    
    ПараметрыСеанса.ОбщиеЗначения = Новый ХранилищеЗначения(Новый Структура);
    ТекстРезультата = ТекстРезультата + " - сброшен кэш значений текущего сеанса" + Символы.ПС;
    
    УстановитьПараметрСеансаТекущиеУчетныеЗаписиНалогоплательщика();
    ТекстРезультата = ТекстРезультата + " - обновлен список учетных записей налогоплательщика, доступных текущему пользователю" + Символы.ПС;
    
КонецПроцедуры

Всего записей: 283 | Зарегистр. 15-10-2007 | Отправлено: 11:31 29-10-2013 | Исправлено: Detsle, 11:56 29-10-2013
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru