PDA

Просмотр полной версии : 1С Документооборот 3.0



fens
04.08.2023, 14:04
Доброго дня.
Прошу помочь накатать скрипт для внедрения в документ Должность автора документа, должность адресата документа. В версии 2.1 было проще даже с моими скудными познаниями в программировании 1С. В 3.0 вынесли отдельно библиотеку скриптов, но как всегда выложено то что мало применимо.

Суть процесса. Создается внутренний документ, типа Служебная записка. В документе имеется вложенный документ ворд, где в соответствующие поля вставляются данные (содержание, фамилия руководителя отдела и т.д.). Вот и надо автоматизировать этот процесс. Пробовал тупо скопировать скрипт из версии 2.1. - не работает
Такой код.
Сотрудник = Файл.ВладелецФайла.Подгото вил;
РезультатОбработки = "";
Если ЗначениеЗаполнено(Сотрудн� �к) Тогда

//если руководитель найден, считываем его должность

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

КонецЕсли;

fens
22.10.2023, 18:50
Доброго дня.
Прошу помочь накатать скрипт для внедрения в документ Должность автора документа, должность адресата документа. В версии 2.1 было проще даже с моими скудными познаниями в программировании 1С. В 3.0 вынесли отдельно библиотеку скриптов, но как всегда выложено то что мало применимо.

Суть процесса. Создается внутренний документ, типа Служебная записка. В документе имеется вложенный документ ворд, где в соответствующие поля вставляются данные (содержание, фамилия руководителя отдела и т.д.). Вот и надо автоматизировать этот процесс. Пробовал тупо скопировать скрипт из версии 2.1. - не работает
Такой код.
Сотрудник = Файл.ВладелецФайла.Подгото вил;
РезультатОбработки = "";
Если ЗначениеЗаполнено(Сотрудн� �к) Тогда

//если руководитель найден, считываем его должность

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

КонецЕсли;

Какой добрый форум, ответы советы и т.д и т.п. посыпались тоннами

frody
19.12.2023, 16:17
Помогите новичку.
Нужно выставить значение по умолчанию при создании документа у созданного дополнительного реквизита. Тип реквизита - набор строк.
Никак не могу найти.
ПОМОГИТЕ!!!

frody
19.12.2023, 16:25
Написал вопрос и сразу нашел ответ. Ех удалить бы вопрос. Не хочется позориться.