Как автоматически проставлять автора в 1с?

Question

[Soceine]

Помогите пожалуйста разобраться.
Есть документ "Запись Клиента", "Поставление Товаров И Услуг" и "Реализация товаров".
У всех есть поле автор (ответственный). В него нужно записать текущего пользователя (автоматически).
Пользователь должен заполняться при создании документа. Пользователь должен заполняться, при открытии ранее созданного документа, если в документе не был заполнен автор. Для документов, с заполненным пользователем значение не должно изменяться автоматически.
Создал Параметры сеанса "ТекущийПользователь"
В модуль объекта "Запись Клиента" написал следующий код :

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	Если НЕ ЗначениеЗаполнено(Автор) Тогда
		Автор = ПараметрыСеанса.ТекущийПользователь;
		КонецЕсли;
	КонецПроцедуры

Вот так уже выглядит модуль сеанса, который я нашел на просторах интернета, но так и не разобрался с ним

Процедура УстановкаПараметровСеанса(ИменаПараметровСеанса)
      
	Если ИменаПараметровСеанса = Неопределено Тогда
      //////////////////////////////////////////
Иначе
    
    УстановленныеПараметры = Новый Массив;
    Для Каждого ИмяПараметра Из ИменаПараметровСеанса Цикл
        УстановитьЗначениеПараметраСеанса(ИмяПараметра, УстановленныеПараметры);
    КонецЦикла;

КонецЕсли;

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

Процедура УстановитьЗначениеПараметраСеанса(Знач ИмяПараметра, УстановленныеПараметры)

Если УстановленныеПараметры.Найти(ИмяПараметра) <> Неопределено Тогда

    Возврат;

КонецЕсли;

Если ИмяПараметра = "ТекущийПользователь" Тогда 

    ПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();

    Если ПользовательИБ = Неопределено Тогда

        возврат;

    КонецЕсли;

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

    Если ТекущийПользователь.Пустая() Тогда 

        ПользовательОбъект = Справочники.Пользователи.СоздатьЭлемент(); 

        ПользовательОбъект.Код = ПользовательИБ.УникальныйИдентификатор;

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

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

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

    КонецЕсли;

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

КонецЕсли;

УстановленныеПараметры.Добавить(ИмяПараметра);

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

Буду благодарен всем, кто сможет уделить время на простое пояснение новичку.

Answer 1

[Дмитрий Кинаш]

Пользователь должен заполняться при создании документа. Пользователь должен заполняться, при открытии ранее созданного документа, если в документе не был заполнен автор.

Ты решил использовать событие записи документа - это противоречит постановке задачи. Там требуют устанавливать автора (если он отсутствует) при открытии документа (при создании формы).

Создал Параметры сеанса "ТекущийПользователь"

Т.е. у тебя какая-то своя конфа, которую пишешь с нуля? Ну тогда не сильно заморачивайся - в модуле установки параметров сеанса оставь код по запросу параметра пользователя (сюда 1С стучится, когда кто-то явно запрашивает параметр сеанса - если кода установки нет, то будет ошибка обращения к неинициированному параметру), где оставь как в твоем примере получение текущего пользователя ИБ и поиск по идентификатору в справочнике пользователей.

У тебя же справочник Пользователей самостоятельно заполняется по данным пользователей ИБ? Если нет, то задача не имеет решения, так как сначала нужно связать пользователей ИБ и элементы справочника для указания авторства документов. Для сдачи задачи можешь временно сделать поиск по наименованию и вручную проконтролируй, чтобы имена справочника Пользователи соответствовали логинам системы.

Comments

[Soceine]

Да, конфу пишу с нуля по задачам различным, все верно.
У меня лишь один пользователь с полными правами.
Каких только манипуляций не делал, чтобы при создании и открытии документа , где не указан автор документа появлялся текущий пользователь. Вообще сложная тема для меня.

[Дмитрий Кинаш]

У меня лишь один пользователь с полными правами.

В смысле так и задумано что один? Тогда зачем эта фигня с авторством, если пользователь всегда один???

Прежде чем разбираться с авторством созданных разными людьми документов, сначала нужно эту толпу людей в систему пустить. Тут или скопировать из БСП подсистему управления пользователями, или написать свою на коленке.

Каких только манипуляций не делал, чтобы при создании и открытии документа , где не указан автор документа появлялся текущий пользователь.

Что еще за манипуляции? Указание "при создании и открытии документа" предопределяет одно единое место вставки - в обработчик формы ПриСозданииНаСервере()

[Soceine]

Дмитрий Кинаш, По заданию для начала у нас будет один пользователь, но в дальнейшей разработке появится и два, и три пользователя

[Sgr_A]

Soceine, так делайте сразу с расчетом на множество

[Soceine]

Sgr_A, Я новичок в данной теме и плохо разбираюсь. Если бы мне кто-то прислал готовый вариант, то я бы понял на будущее

[Дмитрий Кинаш]

Soceine, что именно тебе не понятно и какой пример нужен?

Твой код максимально примитивен, как-то так:

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

[Soceine]

Дмитрий Кинаш, Сделал.Все равно при создании документа он не вписывает туда имя ТекущегоПользователя автоматом.

[Дмитрий Кинаш]

Soceine, есть такая замечательная штука как "пошаговая отладка". Ставишь брекпойнт в начало своей процедуры и двигаешся по шагам.

У меня гипотезы, что 1) процедура не прописана в качестве обработчика на форме; 2) налажал с типами и происходит неявное преобразование к пустой ссылки в момент присваивания

[Slava77777]

Soceine, потому что у ПараметровСеанса нет такого свойства

Answer 2

[Константин]

Так из любопытства, по каким материал учишься...

Что мне известны, во всех описано работа с пользователями. т.ч. приведены примеры работы.

Comments

[Soceine]

Задачу дает один чел, который работает в сфере разработки 1с. Но из подсказок оставляет только инфу на разных сайтах, включая сайт со справочной инфой 1с.
Задачу так и не смог решить, 3 день варюсь и не понимаю, что нужно вписать туда.

[Константин]

https://uc1.1c.ru/
https://v8.1c.ru/obuchenie-programmistov/

ТУт есть список литературы, рекомендую купить. (ну или сам найдешь где скачать).
ТАм есть инфа по разработке, прочто я писал выше. Это азы рассказанные хорошо, по этому учились практические все
https://v8.1c.ru/podderzhka-i-obuchenie/uchebnye-v...

Answer 3

[Slava77777]

Только увидел, сам учусь. Ну вот по идее, я бы сделал так в модуле формы документа, там есть 2 стандартные процедуры:
ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ПриПовторномОткрытии()

Добавил бы в них строку:
Объект.Автор = ИмяПользователя();

абыл написать, поле Автор должно иметь строковый Тип, ну и символов чтобы хватало и проблем нет
не в ту ветку написал, извиняюсь за дубль сообщения