Имя: Пароль:
1C
 
Получить Текущего пользователя
0 Dooro
 
14.04.08
20:57
Как получить текущего пользователя инф базы для вида ..
[code]
Если
Справочники.Пользователи.НайтиПоНаименованию("Директор")<> ТекущийПользователь() Тогда ...
[/code]
1 D_E_S_131
 
14.04.08
20:59
ПараметрыСеанса.ТекущийПользователь
2 IronDemon
 
14.04.08
21:00
// Процедура инициализирует глобальную переменную глТекущийПользователь.
// Переменная содержит ссылку на элемент справочника "Пользователи",
// соответствующий текущему пользователю информационной базы.
//
// Параметры:
//  Нет.
//
Процедура ОпределитьТекущегоПользователя()

   Если ПустаяСтрока(ИмяПользователя()) Тогда
       ИмяПользователя           = "НеАвторизован";
       ПолноеИмяПользователя     = "Не авторизован";

   Иначе
       ИмяПользователя           = ИмяПользователя();

       Если ПустаяСтрока(ПолноеИмяПользователя()) Тогда
           ПолноеИмяПользователя = ИмяПользователя;
       Иначе
           ПолноеИмяПользователя = ПолноеИмяПользователя();
       КонецЕсли;
   КонецЕсли;

   глТекущийПользователь = Справочники.Пользователи.НайтиПоКоду(ИмяПользователя);

   Если глТекущийПользователь = Справочники.Пользователи.ПустаяСсылка() Тогда
       ОбъектПользователь = Справочники.Пользователи.СоздатьЭлемент();

       ОбъектПользователь.Код          = ИмяПользователя;
       ОбъектПользователь.Наименование = ПолноеИмяПользователя;

       ОбъектПользователь.Записать();

       УстановитьНастройкиПоУмолчанию(ОбъектПользователь.Ссылка);
       
       Сообщить("Пользователь зарегистрирован в справочнике пользователей.");
       глТекущийПользователь = ОбъектПользователь.Ссылка;
   КонецЕсли;
   
КонецПроцедуры // ОпределитьТекущегоПользователя()
3 Dooro
 
14.04.08
21:02
Спасибо
4 Dooro
 
14.04.08
21:12
{Документ.ИзменениеЦен.Форма.ФормаДокумента(89)}: Поле объекта не обнаружено (ТекущийПользователь)
   Если
5 Dooro
 
14.04.08
21:14
Процедура ТипЦенНачалоВыбора(Элемент, СтандартнаяОбработка)
   СтандартнаяОбработка = Ложь;
[code]    
Если
   ПараметрыСеанса.ТекущийПользователь<>Справочники.Пользователи.НайтиПоНаименованию("Директор ТДМ") ИЛИ
   ПараметрыСеанса.ТекущийПользователь<>Справочники.Пользователи.НайтиПоНаименованию("Администратор") ИЛИ
   ПараметрыСеанса.ТекущийПользователь<>Справочники.Пользователи.НайтиПоНаименованию("Управляющий") Тогда
   ФормаТипЦен = Справочники.ТипыЦен.ПолучитьФормуВыбора(,Элемент)
6 Dooro
 
14.04.08
21:15
попробую второй вариант
7 IronDemon
 
14.04.08
21:18
(5) Может лучше к роли привязку делать?
РольДоступна("ПолныеПрава")
8 Dooro
 
14.04.08
23:36
Таки да с ролью лучше