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

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

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

ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

bxz



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Всего записей: 151 | Зарегистр. 21-11-2003 | Отправлено: 22:11 19-01-2007 | Исправлено: bxz, 16:01 20-01-2007
   

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru