Имя: Пароль:
1C
1С v8
Как в УТ оставить доступ пользователю только до одной кассы?
0 Elf1k
 
22.08.11
15:31
Всем доброго времени суток.

Имеется 1с 8.1 УТ 10.3. Как сделать так чтобы в отчете "ведомость по денеждным средствам" отображалась только одна касса, именна та касса которая в настройках пользователя стоит по умолчанию.

Заранее спасибо.
1 FIXXXL
 
22.08.11
15:32
писать РЛС или переделывать отчет на жесткую привязку в отборе
2 Eugeneer
 
22.08.11
15:32
ПРограммно
3 Eugeneer
 
22.08.11
15:36
В универсальном отборе (т.к. все отчеты базируются полностью через него) в двух местах нуждно сделать правку.

Универсальный отчет. Модуль объекта.

Процедура ДобавитьОтбор()

В конце добавляем.

Если РольДоступна("дкКассирМагазина") Тогда
       Попытка
           Если ПутьКДанным = "Организация" Тогда
               ДобавляемыйЭлементОтбора.Значение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяОрганизация");
               ДобавляемыйЭлементОтбора.Использование = Истина;
           КонецЕсли;
           Если ПутьКДанным = "РозничнаяТочка" Тогда
               ДобавляемыйЭлементОтбора.Значение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ОсновнаяКассаККМ");
               ДобавляемыйЭлементОтбора.Использование = Истина;
           КонецЕсли;
       Исключение
       КонецПопытки;    
   КОнецЕсли;

Процедура ДобавитьПанельБыстрыеОтборы()
в конце (не самом) добавить текст (должно выглядеть так).

Если РольДоступна("дкРозницаУправление") Тогда
               Если ЭлементОтбора.Имя = "Организация" Тогда
                   ФлажокИспользование.Доступность   = Ложь;
                   ПолеВводаВидСравнения.Доступность = Ложь;
                   ПолеВводаЗначение.Доступность     = Ложь;
               КонецЕсли;
               Если ЭлементОтбора.Имя = "Подразделение" Тогда
                   ФлажокИспользование.Доступность   = Ложь;
                   ПолеВводаВидСравнения.Значение    = ВидСравнения.ВСпискеПоИерархии;
                   ПолеВводаВидСравнения.Доступность = Ложь;
                   ПолеВводаЗначение.Доступность     = Ложь;
               КонецЕсли;
           КОнецЕсли;

           Индекс = Индекс + 1;
           
           Если Индекс > МаксимальноеКоличествоБыстрыхОтборов Тогда
               
               Прервать;
               
           КонецЕсли;
               
       КонецЦикла;
   
   КонецЕсли;
   
КонецПроцедуры // ДобавитьПанельБыстрыеОтборы()
4 Eugeneer
 
22.08.11
15:37
Это пример. Под отбор кассы соответственно нужно другой код.
5 Eugeneer
 
22.08.11
15:37
Делать все в попытке. т.к. твое измерение по кассе отчета есть не во всех отчетах. Следовательго он сработает во всех отчетах где используется касса.
6 Elf1k
 
22.08.11
15:40
Спасибо большое
7 Elf1k
 
22.08.11
15:40
И откуда столько знают люди ))