Как при создании документа вставить значения реквизита формы как в прошлом документе или определенного сотрудника.
Здравствуйте. Подскажите пожалуйста, как сделать, чтобы при создании нового документа, у нас по умолчанию выводился в поле формы Руководитель, тот кого мы укажем программно или как в последнем документе, допустим вчера был документ и он последний в нем поле Руководитель заполнено Сидоровым, разумеется при создании в документ подставляется значение Сидоров.
По теме из базы знаний
Найденные решения
(5) конструктором
Только с моментом времени нужно решить. Для этого создаваемый документ нужно записать.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.Дата МЕЖДУ &ДатаНач И &ДатаКон
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
РезультатЗапроса = Запрос.Выполнить();
===================
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Руководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
====================
// вместо цикла можно сразу потянуть единственную запись, только проверку сделать, что результат есть.
ПоказатьТолько с моментом времени нужно решить. Для этого создаваемый документ нужно записать.
(116) Добавить в расширение и переопределить с директивой &Вместо
И в тексте процедуры заменить // Вставить содержимое обработчика. на код:
И в тексте процедуры заменить // Вставить содержимое обработчика. на код:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
Показать
(123) Значит в расширении нужно создать функцию
А в процедуре УстановитьРуководителя заменить // Вставить содержимое обработчика на:
&НаСервере
Функция ПолучитьРуководителя()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Возврат ЭтотРуководитель;
КонецФункции
ПоказатьА в процедуре УстановитьРуководителя заменить // Вставить содержимое обработчика на:
Руководитель = ПолучитьРуководителя();
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(108)
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
ТипДанныхЗаполнения = ТипЗнч(ДанныеЗаполнения);
Если ТипДанныхЗаполнения = Тип("Структура") Тогда
Основание = Неопределено;
ДанныеЗаполнения.Свойство("Основание", Основание);
Если ТипЗнч(Основание) = Тип("ДокументСсылка.ИнвентаризацияМЗ") Тогда
СтандартнаяОбработка = Ложь;
Документы.ИнвентаризацияМЗ.ВводНаОсновании_ЗаполнитьДокумент(ЭтотОбъект, ДанныеЗаполнения);
КонецЕсли;
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.ПоступлениеМЗ") Тогда
ЗаполнитьПоПоступлениюМЗ(ДанныеЗаполнения);
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.СписаниеТранспорта")
Или ТипДанныхЗаполнения = Тип("ДокументСсылка.СписаниеТранспортаИК")
Или ТипДанныхЗаполнения = Тип("ДокументСсылка.ПередачаОбъектовОС")
Или ТипДанныхЗаполнения = Тип("ДокументСсылка.ПередачаОбъектовИК") Тогда
ЗаполнитьПоСписаниюОС(ДанныеЗаполнения);
ИначеЕсли ТипДанныхЗаполнения = Тип("ДокументСсылка.ТребованиеНакладная0315006") Тогда
ЗаполнитьПоТребованиюНакладной(ДанныеЗаполнения);
КонецЕсли;
КонецПроцедуры
Показать
(110) Здравствуйте. Это в расширении:
&После ("ОбработкаЗаполнения")
Процедура VID_ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
ЭтотОбъект.Руководитель = ЭтотРуководитель;
КонецПроцедуры
Показать
(113) Если поставить точку останова на КонецПроцедуры и посмотреть значения ЭтотРуководитель и ЭтотОбъект.Руководитель, то что мы увидим? Мы убедились, что тип у них одинаковый, ЭтотРуководитель заполнен. Значит ЭтотОбъект.Руководитель должен принять тоже значение, что и ЭтотРуководитель.
ЭтотРуководитель имеет верное значение?
Если это так, а в документе мы видим другое значение, то нужно смотреть ПриСозданииНаСервере.
ЭтотРуководитель имеет верное значение?
Если это так, а в документе мы видим другое значение, то нужно смотреть ПриСозданииНаСервере.
(106) В процедуре
УстановитьРуководителя
Просто присваивается значение реквизиту Руководитель.
УстановитьРуководителя
Процедура УстановитьРуководителя(Знач Организация, Знач Подразделение, Знач Дата, Руководитель)
НовыйРуководитель = ОрганизационнаяСтруктураКлиентСервер.ОтветственноеЛицоОрганизации("Руководитель", Организация, Дата, Подразделение);
Если ЗначениеЗаполнено(НовыйРуководитель.ОтветственноеЛицоСсылка)
И Руководитель <> НовыйРуководитель.ОтветственноеЛицоСсылка Тогда
Руководитель = НовыйРуководитель.ОтветственноеЛицоСсылка;
#Если НаКлиенте Тогда
ПоказатьОповещениеПользователя(,,НСтр("ru = 'Установлено новое значение поля ""Руководитель"" на закладке ""Заключение комиссии""'"));
#КонецЕсли
КонецЕсли;
КонецПроцедуры
ПоказатьПросто присваивается значение реквизиту Руководитель.
(111) +100500
В ПриСозданиНаСервере есть код:
Он вызывается для новых объектов и как раз заменяет значение поля Руководитель.
Нужно в расширении переопределить процедуру УстановитьРуководителя.
В ПриСозданиНаСервере есть код:
Если Параметры.Ключ.Пустая() Тогда
ПодготовитьФормуНаСервере();
УстановитьРуководителя(Объект.Организация, Объект.ПодразделениеОтправитель, Объект.Дата, Объект.Руководитель);
КонецЕсли;
Он вызывается для новых объектов и как раз заменяет значение поля Руководитель.
Нужно в расширении переопределить процедуру УстановитьРуководителя.
(115) и как?
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьРуководителя(Знач Организация, Знач Подразделение, Знач Дата, Руководитель)
НовыйРуководитель = ОрганизационнаяСтруктураКлиентСервер.ОтветственноеЛицоОрганизации("Руководитель", Организация, Дата, Подразделение);
Если ЗначениеЗаполнено(НовыйРуководитель.ОтветственноеЛицоСсылка)
И Руководитель <> НовыйРуководитель.ОтветственноеЛицоСсылка Тогда
Руководитель = НовыйРуководитель.ОтветственноеЛицоСсылка;
#Если НаКлиенте Тогда
ПоказатьОповещениеПользователя(,,НСтр("ru = 'Установлено новое значение поля ""Руководитель"" на закладке ""Заключение комиссии""'"));
#КонецЕсли
КонецЕсли;
КонецПроцедуры
Показать
(116) Добавить в расширение и переопределить с директивой &Вместо
И в тексте процедуры заменить // Вставить содержимое обработчика. на код:
И в тексте процедуры заменить // Вставить содержимое обработчика. на код:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
Показать
(120)Это я вставил в модуль формы документа, Вместо процедуры УстановитьРуководителя, но у меня ошибка
{Расширение_Основное Документ.АктСписанияМЗ.Форма.ФормаДокумента.Форма(71,17)}: Тип не определен (Запрос)
Запрос = Новый <<?>>Запрос; (Проверка: Тонкий клиент)
{Расширение_Основное Документ.АктСписанияМЗ.Форма.ФормаДокумента.Форма(71,17)}: Тип не определен (Запрос)
Запрос = Новый <<?>>Запрос; (Проверка: Тонкий клиент)
(123) Значит в расширении нужно создать функцию
А в процедуре УстановитьРуководителя заменить // Вставить содержимое обработчика на:
&НаСервере
Функция ПолучитьРуководителя()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Возврат ЭтотРуководитель;
КонецФункции
ПоказатьА в процедуре УстановитьРуководителя заменить // Вставить содержимое обработчика на:
Руководитель = ПолучитьРуководителя();
(124) {Расширение_Основное Документ.АктСписанияМЗ.Форма.ФормаДокумента.Форма(62,16)}: Процедура или функция с указанным именем не определена (ПолучитьРуководителя)
Руководитель = <<?>>ПолучитьРуководителя(); (Проверка: Сервер)
{Расширение_Основное Документ.АктСписанияМЗ.Форма.ФормаДокумента.Форма(62,16)}: Процедура или функция с указанным именем не определена (ПолучитьРуководителя)
Руководитель = <<?>>ПолучитьРуководителя(); (Проверка: Тонкий клиент)
Руководитель = <<?>>ПолучитьРуководителя(); (Проверка: Сервер)
{Расширение_Основное Документ.АктСписанияМЗ.Форма.ФормаДокумента.Форма(62,16)}: Процедура или функция с указанным именем не определена (ПолучитьРуководителя)
Руководитель = <<?>>ПолучитьРуководителя(); (Проверка: Тонкий клиент)
(96) Форма существует только пока открыта. При каждом открытии она подтягивает данные из реквизитов документа. ОбработкаЗаполнения срабатывает раньше чем ПриСозданииНаСервере. Т.е. к моменту ПриСозданииНаСервере в реквизите уже будет подставленное значение.
Если только ПриСозданииНаСервере это значение не перезаписывается для новых объектов....
Если только ПриСозданииНаСервере это значение не перезаписывается для новых объектов....
(57)
Так возвращает, даже нужное значение, но только через Сообщить (пишет ФИО сотрудника (в скобках(Тип(Сотрудник)),
а вставлять не вставляет в форму!
&После ("ОбработкаЗаполнения")
Процедура VID_ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| Документ.Дата КАК Дата
|ПОМЕСТИТЬ ВТ_ПоследняяДата
|ИЗ
| Документ.АктСписанияМЗ КАК Документ
|ГДЕ
| Документ.Дата < &Дата
|
|УПОРЯДОЧИТЬ ПО
| Дата УБЫВ
|;
|
|//////////////////////////////////////////////////////////// ////////////////////
|ВЫБРАТЬ ПЕРВЫЕ 1
| Документ.Руководитель КАК Руководитель
|ИЗ
| ВТ_ПоследняяДата КАК ВТ_ПоследняяДата
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.АктСписанияМЗ КАК Документ
| ПО (ВТ_ПоследняяДата.Дата = Документ.Дата)
|
|УПОРЯДОЧИТЬ ПО
| Документ.Дата УБЫВ";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("Дата", Дата);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;
Выборка = Результат.Выбрать();
Выборка.Следующий();
Руководитель = Выборка.Руководитель;
Сообщить("" + Руководитель + " (тип" + ТипЗнч(Руководитель) + ")");
ЭтотОбъект.Руководитель = Руководитель;
КонецПроцедуры
ПоказатьТак возвращает, даже нужное значение, но только через Сообщить (пишет ФИО сотрудника (в скобках(Тип(Сотрудник)),
а вставлять не вставляет в форму!
(131) Значит нужно переопределить процедуру ПриСозданииНаСервере с директивой &После и в тексте процедуры заменить // Вставить содержимое обработчика. на код:
А все что делали до этого удалить.
Если ЗначениеЗаполнено(Параметры.ЗначениеКопирования) Тогда
Руководтель = Параметры.ЗначениеКопирования.Руководитель;
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
КонецЕсли
ПоказатьА все что делали до этого удалить.
(132)
не работает! вообще!
Если ЗначениеЗаполнено(Параметры.ЗначениеКопирования) Тогда
Руководтель = Параметры.ЗначениеКопирования.Руководитель;
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
КонецЕсли
ПоказатьРуководтель = Параметры.ЗначениеКопирования.Руководитель;
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
КонецЕсли
не работает! вообще!
(135)))))
&НаСервере
&После("ПриСозданииНаСервере")
Процедура ПриСозданииНаСервере2(Отказ, СтандартнаяОбработка)
// //VID(
Если ЗначениеЗаполнено(Параметры.ЗначениеКопирования) Тогда
Руководитель = Параметры.ЗначениеКопирования.Руководитель;
Иначе
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| АктСписанияМЗ.Руководитель КАК Руководитель
|ИЗ
| Документ.АктСписанияМЗ КАК АктСписанияМЗ
|ГДЕ
| АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
|
|УПОРЯДОЧИТЬ ПО
| АктСписанияМЗ.Дата УБЫВ";
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
КонецЦикла;
//Сообщить("" + ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
//Сообщить(ТипЗнч(Руководитель) = ТипЗнч(ЭтотРуководитель));
Руководитель = ЭтотРуководитель;
КонецЕсли
// //ПодготовитьФормуНаСервере();
// Запрос = Новый Запрос;
// Запрос.Текст =
// "ВЫБРАТЬ ПЕРВЫЕ 1
// | АктСписанияМЗ.Руководитель КАК Руководитель
// |ИЗ
// | Документ.АктСписанияМЗ КАК АктСписанияМЗ
// |ГДЕ
// | АктСписанияМЗ.ПометкаУдаления = ЛОЖЬ
// |
// |УПОРЯДОЧИТЬ ПО
// | АктСписанияМЗ.Дата УБЫВ";
//
// РезультатЗапроса = Запрос.Выполнить();
//
// ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
//
// Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// ЭтотРуководитель = ВыборкаДетальныеЗаписи.Руководитель;
// КонецЦикла;
//
// Если Параметры.Ключ.Руководитель = Объект.Руководитель Тогда
// //Если Объект.Руководитель <> ЭтотРуководитель Тогда
// //Форма = Ссылка.ПолучитьФорму("ФормаДокумента");
// // Если Форма.Открыта()Тогда
// // Руководитель = ЭтотРуководитель;
// // КонецЕсли;
// Объект.Руководитель = Объект.Руководитель;
//
// //Сообщить(ЭтотРуководитель);
// Иначе
// //УстановитьРуководителя(Объект.Организация, Объект.ПодразделениеОтправитель, Объект.Дата, Объект.Руководитель) ;
//Объект.Руководитель = ЭтотРуководитель;
//
//
//КонецЕсли;
////Сообщить(Объект.Руководитель);
////Сообщить(ЭтотРуководитель + " (тип" + ТипЗнч(ЭтотРуководитель) + ")");
// //VID)
КонецПроцедуры
Показать
(136) Неверно.
1.Открой форму документа в основной конфе
2. Найди в модуле процедуру ПриСозданииНаСервере
3. ПКМ на название и Добавить в расширение
4. После этого заполни текст процедуры
Хотя мож и верно. Мож погорячился)))
Отладчик ловит вызов этой процедуры?
Что в ней происходит?
1.Открой форму документа в основной конфе
2. Найди в модуле процедуру ПриСозданииНаСервере
3. ПКМ на название и Добавить в расширение
4. После этого заполни текст процедуры
Хотя мож и верно. Мож погорячился)))
Отладчик ловит вызов этой процедуры?
Что в ней происходит?
(136) Сделал добавление процедуры в модуль по инструкции из (137) и получил вот такой результат:
У меня платформа 8.3.18. Может конечно в ней что-то поменялось в плане расширений, но стоит попробовать именно так добавить процедуру.
И еще в тексте процедуры нужно заменить:
на:
&НаСервере
Процедура Расш1_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
//Вставить содержимое обработчика
КонецПроцедуры
У меня платформа 8.3.18. Может конечно в ней что-то поменялось в плане расширений, но стоит попробовать именно так добавить процедуру.
И еще в тексте процедуры нужно заменить:
Руководитель = ЭтотРуководитель;
на:
Объект.Руководитель = ЭтотРуководитель;
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот