v8.2 УП: Определение текущего Пользователя в ИБ, подстановка пользователя в справочник

Здравствуйте, из этой темы

https://helpf.pro/faq82/view/1391.html как подставить не в документ, а в справочник?

Благодарю.

тогда текущий пользователь уже хранится в параметрах сеанса

для использования Сотрудник=ПараметрыСеанса.ТекущийПользователь;

Не выходит, ругается вообще на Модель сеанса: {МодульСеанса(2,22)}: Переменная не определена (ОбщийМодульСистемы) ТекущийПользователь=<<?>>ОбщийМодульСистемы.ОпределитьТекущегоПользователя();

В примере ТекущийПользователь - это обычная переменная, покажите весь ваш код

1. Создаем справочник Пользователи2. ПараметрыСеанса.ТекущийПользователь - тип справочник Пользователи3. В модуле Сеанса пишем: Код 1C v 8.2 УП

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

Вот здесь все расписано лучше

https://helpf.pro/faq82/view/1391.html

у ОбщийМодульСистемы стоят в свойствах вызов Сервер и Клиент?

Клиент (УП) и Сервер поставить?

да

поэтому он недоступен и выдает ошибку

Все выставил, код в форме справочника:

&НаСервереПроцедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)Сотрудник = ОбщийМодульСистема.ПолучитьТекущегоПользователя();

КонецПроцедуры

ошибка:

{Справочник.ЛёвинВА.Форма.ФормаЭлемента.Форма(3,13)}: Переменная не определена (ОбщийМодульСистема)Сотрудник = <<?>>ОбщийМодульСистема.ПолучитьТекущегоПользователя(); (Проверка: Сервер)

Код в форме справочника не верен, я его подправил, но на текущую ошибку это все равно не влияет.

Предыдущую ошибку исправил, сейчас посыпались синтаксические ошибки:

{ОбщийМодуль.ОбщийМодульСистемы.Модуль(35)}: Ошибка при вызове метода контекста (Выполнить) Результат = Запрос.Выполнить();по причине:{(4, 15)}: Поле не найдено "Пользователи.ЭтоГруппа"Пользователи.<<?>>ЭтоГруппа

Здесь весь код возможно содержит ошибки:

// Функция возвращает ссылку на элемент справочника "Пользователи",// соответствующий текущему пользователю информационной базы.Функция ОпределитьТекущегоПользователя() экспорт

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

Иначе Выборка = Результат.Выбрать(); Выборка.Следующий(); Если Выборка.ЭтоГруппа Тогда ВызватьИсключение "Пользователь : " + ИмяПользователя + " не зарегистрирован. В справочнике присутствует группа с тем же именем"; Иначе ТекущийПользователь = Выборка.Ссылка; КонецЕсли; КонецЕсли; Возврат ТекущийПользователь;

КонецФункции

Функция ПолучитьТекущегоПользователя() Экспорт Возврат ПараметрыСеанса.ТекущийПользователь; КонецФункции

Сделайте все по инструкции и  ОбщийМодульСистемы в свойствах поставить галки вызов Сервер и Клиент

Справочник пользователи создан?

Поставил галочки, справочник создан.

Вообще не реагирует, ошибку не выдает, но и текущего пользователя из справочника не подставляет.

Я уже все перерыл... Может .cf скинуть куда?

кидай на http://diif.ru

посмотрим

http://diif.ru/B2ETva7

Так все работает - в чем проблема-то? - 1Cv8.rar 

в приложенном файле конфа, с пользователем Админ и авторизацией

Там поле Сотрудник в первом справочнике, "Левин", автоматически не заполнялось, только если я выбираю ручками из справочника Сотрудники.

Под Админом вошел, в поле Сотрудник не подставляется Админ автоматом. Справочник ЛевинВА

Не так сделал, вот как надо:

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	Если НЕ ЗначениеЗаполнено(Объект.Сотрудник) Тогда

		Объект.Сотрудник = ПараметрыСеанса.ТекущийПользователь;

	КонецЕсли;

	//Если Элементы.Сотрудник.Пустой() Тогда

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

	//Запись.ИсходныйКлючЗаписи.Пустой() Тогда 

	//Запись.Сотрудник = ОбщийМодульСистемы.ПолучитьТекущегоПользователя().ФизическоеЛицо;

	//КонецЕсли;

КонецПроцедуры

   

1Cv8.rar

Да! Все работает!! Очень благодарен!