Имя: Пароль:
1C
1С v8
Управляемое приложение.Настройки пользователя
0 sweety-twetty
 
10.12.12
17:28
Добрый день, уважаемый форум) Надеюсь на Вашу помощь: УПП - как в управляемом приложении получить данные по настройкам пользователя(например, отражать в бух учете, отражать в упр учете)? При открытии в обычном приложении при запуске системы определяются эти данные как данные из плана видов характеристик, а в тонком клиенте почему-то подставляютя значения истина.Заранее спасибо
1 ДенисЧ
 
10.12.12
17:30
Насколько мне эклер не изменял, в уппырише на управляемые формы было специальное условие... Проверь отладчиком.
2 sweety-twetty
 
10.12.12
17:30
Типовой способ УправлениеПользователями.ПолучитьЗначениеПоУмолчанию( глЗначениеПеременной("глТекущийПользователь"), "ОтражатьДокументыВУправленческомУчете")  не подходит
3 ДенисЧ
 
10.12.12
17:31
Почему не подходит? НАверное, потому что пытается на клиенте выполниться? А формы толком под УГ^HФ не разработаны...
4 sweety-twetty
 
10.12.12
17:34
(1)  нашла уже ограничитель вида
процедура ПередЗаписьюУправлениеОтражениемВУчете() - контроля и заполнения отражения в учете (в общем модуле ЗаполнениеДокументовУП)в него буду дописывать,только что дописывать пока не понятно =)
5 ДенисЧ
 
10.12.12
17:34
(4) а с фига ли передзаписью()? Надо присоздании делать...
6 sweety-twetty
 
10.12.12
17:35
(3) этот модуль на сервере, и получаем значение(без ругани) , но оно не соответствует значению, установленному в обычных форммах
7 sweety-twetty
 
10.12.12
17:37
(5) ну где 1с написали данный ограничитель, оттуда и приходится плясать))
Есть там вот такой кусок:

       Если РольДоступна("ОтражениеВРегламентированномУчете")
         ИЛИ РольДоступна("ПолныеПрава") Тогда
           //Для ответственных за отражение в учете сообщим об ошибках
           Если Источник.ОтражатьВБухгалтерскомУчете И НЕ ОтражатьВБухгалтерскомУчете Тогда
               ОбщегоНазначения.СообщитьОбОшибке(Нстр("ru = 'Не удалось отразить документ в бухгалтерском учете.'") + Символы.ПС + СообщениеОбОшибкеБУ,Отказ);
           КонецЕсли;    
       Иначе    
           //Для обычных ползьователей, установим флаги в соответствии с выбранной организацией
           Источник.ОтражатьВУправленческомУчете = Истина;
           Источник.ОтражатьВБухгалтерскомУчете = ОтражатьВБухгалтерскомУчете;
       КонецЕсли;
8 sweety-twetty
 
10.12.12
17:56
Вопрос не исчерпан-ответ не найден
9 Popkorm
 
10.12.12
18:04
(8) потому что фото нет,потому и не взлетает
10 sweety-twetty
 
10.12.12
18:16
(9) Клятвенно обещаю фотографию
11 sapphire
 
10.12.12
18:25
(0) Регистр сведений "НастройкиПользователей"
12 sapphire
 
10.12.12
18:26
SELECT
ЗначениеНастроекПользователя.*
FROM
РегистрСведений.НастройкиПользователей КАК ЗначениеНастроекПользователя
WHERE
(ЗначениеНастроекПользователя.Настройка = &Настройка)
И (ЗначениеНастроекПользователя.Пользователь = &Пользователь)
13 Кокос
 
10.12.12
18:26
(0) УП20(ERP) чтоли?:)
14 sweety-twetty
 
10.12.12
18:31
(12) то есть обращение через УправлениеПользователями.ПолучитьЗначениеПоУмолчанию не прокатит?
(13) с удовольствием бы ответила на Ваш вопрос, но не совсем его поняла
15 sweety-twetty
 
10.12.12
18:46
подскажите, может можно как-то упростить такую конструкцию.Заранее спасибо
           Запрос = Новый Запрос;
           Запрос.Текст = "ВЫБРАТЬ
           |    НастройкиПользователей.Пользователь,
           |    НастройкиПользователей.Настройка,
           |    НастройкиПользователей.Значение
           |ИЗ
           |    РегистрСведений.НастройкиПользователей КАК НастройкиПользователей
           |ГДЕ
           |    НастройкиПользователей.Пользователь = &Пользователь
           |    И (НастройкиПользователей.Настройка = &ОтражатьВУпрУчете
           |            ИЛИ НастройкиПользователей.Настройка = &ОтражатьВБухУчете)";
           Запрос.УстановитьПараметр("Пользователь",ПараметрыСеанса.ТекущийПользователь);
           Запрос.УстановитьПараметр("ОтражатьВУпрУчете",ПланыВидовХарактеристик.НастройкиПользователей.ОтражатьДокументыВУправленческомУчете);
           Запрос.УстановитьПараметр("ОтражатьВБухУчете",ПланыВидовХарактеристик.НастройкиПользователей.ОтражатьДокументыВБухгалтерскомУчете);
           Выборка = Запрос.Выполнить().Выбрать();
           Пока Выборка.Следующий() Цикл
               Если Выборка.Настройка = ПланыВидовХарактеристик.НастройкиПользователей.ОтражатьДокументыВУправленческомУчете Тогда
                   Источник.ОтражатьВУправленческомУчете = Выборка.Значение;
               Иначе Источник.ОтражатьВБухгалтерскомУчете = Выборка.Значение;
               КонецЕсли;    
           КонецЦикла;
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой