fens
04.08.2023, 13:04
Доброго дня.
Прошу помочь накатать скрипт для внедрения в документ Должность автора документа, должность адресата документа. В версии 2.1 было проще даже с моими скудными познаниями в программировании 1С. В 3.0 вынесли отдельно библиотеку скриптов, но как всегда выложено то что мало применимо.
Суть процесса. Создается внутренний документ, типа Служебная записка. В документе имеется вложенный документ ворд, где в соответствующие поля вставляются данные (содержание, фамилия руководителя отдела и т.д.). Вот и надо автоматизировать этот процесс. Пробовал тупо скопировать скрипт из версии 2.1. - не работает
Такой код.
Сотрудник = Файл.ВладелецФайла.Подгото вил;
РезультатОбработки = "";
Если ЗначениеЗаполнено(Сотрудн� �к) Тогда
//если руководитель найден, считываем его должность
МенеджерРаботыСРегистром = РегистрыСведений.Сведения� �ПользователяхДокументооб� �рот.СоздатьМенеджерЗаписи ();
МенеджерРаботыСРегистром.� �ользователь = Сотрудник;
МенеджерРаботыСРегистром.� �рочитать();
Если МенеджерРаботыСРегистром.� �ыбран() Тогда
РезультатОбработки = МенеджерРаботыСРегистром.� �олжность.Наименование;
КонецЕсли;
КонецЕсли;
Прошу помочь накатать скрипт для внедрения в документ Должность автора документа, должность адресата документа. В версии 2.1 было проще даже с моими скудными познаниями в программировании 1С. В 3.0 вынесли отдельно библиотеку скриптов, но как всегда выложено то что мало применимо.
Суть процесса. Создается внутренний документ, типа Служебная записка. В документе имеется вложенный документ ворд, где в соответствующие поля вставляются данные (содержание, фамилия руководителя отдела и т.д.). Вот и надо автоматизировать этот процесс. Пробовал тупо скопировать скрипт из версии 2.1. - не работает
Такой код.
Сотрудник = Файл.ВладелецФайла.Подгото вил;
РезультатОбработки = "";
Если ЗначениеЗаполнено(Сотрудн� �к) Тогда
//если руководитель найден, считываем его должность
МенеджерРаботыСРегистром = РегистрыСведений.Сведения� �ПользователяхДокументооб� �рот.СоздатьМенеджерЗаписи ();
МенеджерРаботыСРегистром.� �ользователь = Сотрудник;
МенеджерРаботыСРегистром.� �рочитать();
Если МенеджерРаботыСРегистром.� �ыбран() Тогда
РезультатОбработки = МенеджерРаботыСРегистром.� �олжность.Наименование;
КонецЕсли;
КонецЕсли;