UPD 12.12.2024: добавлен скрипт заполнения файла результатами согласования
Поделюсь (точнее пишу для себя, чтобы не потерять) теми скриптами автозаполнения шаблонов файлов 1С: Документооборот 3.0 которые использовал на этапе первичной настройки. Возможно кому‑то и пригодиться кроме меня. Список будет в дальнейшем пополняться.
Поле файла "ДолжностьАдресата"
Выводим должность адресата документа
РезультатОбработки = ""; Сотрудник = Файл.ВладелецФайла.Адресат; Если ЗначениеЗаполнено(Сотрудник) Тогда РезультатОбработки = СклонениеПредставленийОбъектов.ПросклонятьПредставление( Строка(Сотрудник.Должность), 3); КонецЕсли;
Поле файла "Содержание"
При работе Документооборота 3.0 и Word есть особенность, знак новой строки превращается в перенос строки и из-за этого весь текст содержания документа (когда его много) выглядит плохо...
данный скрипт приводит в читаемы вид текст
Документ = Файл.ВладелецФайла; РезультатОбработки = СтрЗаменить(ОбщегоНазначенияДокументооборотВызовСервера.ЗначениеРеквизитаОбъекта(Документ, "Содержание"), Символы.ПС, Символы.Таб + Символы.ПС + Символы.Таб);3. Поле файла "ФИО Адресата"
Вытаскиваем ФИО Адресата документа отдельно от должности.
РезультатОбработки = ""; Сотрудник = Файл.ВладелецФайла.Адресат; Если ЗначениеЗаполнено(Сотрудник) Тогда РезультатОбработки = СклонениеПредставленийОбъектов.ПросклонятьПредставление( Строка(Сотрудник.ПредставлениеВДокументах), 3); КонецЕсли;
Поле файла "Должность руководителя выбранной организации" (актуально когда в одной базе учет по нескольким организациям и если в организации один и тот человек занимает разные должность, например "Директор" в одной, а в другой "Генеральный директор"
РезультатОбработки = ""; Организация = Файл.ВладелецФайла.Организация; Если ЗначениеЗаполнено(Организация) Тогда Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ОтветственныеЛицаОрганизацийСрезПоследних.Сотрудник.Должность КАК СотрудникДолжность |ИЗ | РегистрСведений.ОтветственныеЛицаОрганизаций.СрезПоследних( | , | Организация = &Организация | И ОтветственноеЛицо = ЗНАЧЕНИЕ(Перечисление.ОтветственныеЛицаОрганизаций.РуководительОрганизации)) КАК ОтветственныеЛицаОрганизацийСрезПоследних"; Запрос.УстановитьПараметр("Организация", Организация); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Если ВыборкаДетальныеЗаписи.Следующий() Тогда РезультатОбработки = ВыборкаДетальныеЗаписи.СотрудникДолжность; КонецЕсли; КонецЕсли;
Поле файла "Подготовил"
Актуально когда нужно инициалы и фамилию подготовившего документ вставить вниз документа мелким шрифтом
РезультатОбработки = ""; Сотрудник = Файл.ВладелецФайла.Подготовил; Если ЗначениеЗаполнено(Сотрудник) Тогда РезультатОбработки = СклонениеПредставленийОбъектов.ПросклонятьПредставление( Строка(Сотрудник.ПредставлениеВДокументах), 1); КонецЕсли;
Телефон исполнителя
Для внутренних и исходящих документов
РезультатОбработки = ""; КонтактнаяИнформация = Файл.ВладелецФайла.Подготовил.КонтактнаяИнформация; Для Каждого Инфо Из КонтактнаяИнформация Цикл Если Инфо.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонПользователя Тогда РезультатОбработки = Инфо.Представление; Прервать; КонецЕсли; КонецЦикла; РезультатОбработки = Инфо.Представление;
Результаты согласования в файл
Выводим в файл результаты согласования. Применимо, когда в обработке есть этап согласования, который выполняет один человек, например руководитель организации. При этом согласование в настройках обработки: включить Формирование визы согласований
результат визуализации результата согласования 
настройки процесса Согласование Положительные и отрицательные результаты выведены отдельно, для того чтобы в шаблоне можно было помечать разными цветами.Важное замечание: указанные выводимые тэги не должны помещаться в таблицу, иначе скрипт автоматического заполнения файла данными документа не будет работать. Скрипт приведен ниже
Док = Параметры.ОбработкаОбъект.Владелец; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Файлы.Ссылка |ИЗ | Справочник.Файлы КАК Файлы |ГДЕ | Файлы.ВладелецФайла = &ВладелецФайла |И Файлы.ШаблонОснованиеДляСоздания <> &ПустойФайл"; Запрос.УстановитьПараметр("ПустойФайл", Справочники.Файлы.ПустаяСсылка()); Запрос.УстановитьПараметр("ВладелецФайла", Док); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Ложь, ВыборкаДетальныеЗаписи.Ссылка, Истина); КонецЦикла;
Положительные и отрицательные результаты выведены отдельно, для того чтобы в шаблоне можно было помечать разными цветами.
7.1Автор визы
РезультатОбработки = ""; Документ = Файл.ВладелецФайла; лТекст = " |ВЫБРАТЬ | ВизыСогласования.УстановилРезультат КАК УстановилРезультат |ИЗ | Справочник.ВизыСогласования КАК ВизыСогласования |ГДЕ | ВизыСогласования.Документ = &Документ"; лЗапрос = Новый Запрос(лТекст); лЗапрос.УстановитьПараметр("Документ", Документ); лВыборка = лЗапрос.Выполнить().Выбрать(); Пока лВыборка.Следующий() Цикл РезультатОбработки = лВыборка.УстановилРезультат; КонецЦикла;
7.2 Результат согласования СОГЛАСОВАНО и СОГЛАСОВАНО С ЗАМЕЧАНИЯМИ
РезультатОбработки = ""; Документ = Файл.ВладелецФайла; лТекст = " |ВЫБРАТЬ | ВизыСогласования.РезультатСогласования КАК РезультатСогласования |ИЗ | Справочник.ВизыСогласования КАК ВизыСогласования |ГДЕ | ВизыСогласования.Документ = &Документ"; лЗапрос = Новый Запрос(лТекст); лЗапрос.УстановитьПараметр("Документ", Документ); лВыборка = лЗапрос.Выполнить().Выбрать(); Пока лВыборка.Следующий() Цикл РезультатОбработки = ВРег(лВыборка.РезультатСогласования); КонецЦикла; Если РезультатОбработки = ВРег("Согласовано") ИЛИ РезультатОбработки = ВРег("Согласовано с замечаниями") Тогда РезультатОбработки = ВРег(лВыборка.РезультатСогласования); ИНАЧЕ РезультатОбработки = ""; КонецЕсли;
7.3 Результат согласования: НЕ СОГАСОВАНО
РезультатОбработки = ""; Документ = Файл.ВладелецФайла; лТекст = " |ВЫБРАТЬ | ВизыСогласования.РезультатСогласования КАК РезультатСогласования |ИЗ | Справочник.ВизыСогласования КАК ВизыСогласования |ГДЕ | ВизыСогласования.Документ = &Документ"; лЗапрос = Новый Запрос(лТекст); лЗапрос.УстановитьПараметр("Документ", Документ); лВыборка = лЗапрос.Выполнить().Выбрать(); Пока лВыборка.Следующий() Цикл РезультатОбработки = ВРег(лВыборка.РезультатСогласования); КонецЦикла; Если РезультатОбработки = ВРег("Не согласовано") Тогда РезультатОбработки = ВРег(лВыборка.РезультатСогласования); ИНАЧЕ РезультатОбработки = ""; КонецЕсли;
7.4 Комментарий при согласовании
РезультатОбработки = ""; Документ = Файл.ВладелецФайла; лТекст = " |ВЫБРАТЬ | ВизыСогласования.Комментарий КАК Комментарий |ИЗ | Справочник.ВизыСогласования КАК ВизыСогласования |ГДЕ | ВизыСогласования.Документ = &Документ"; лЗапрос = Новый Запрос(лТекст); лЗапрос.УстановитьПараметр("Документ", Документ); лВыборка = лЗапрос.Выполнить().Выбрать(); Пока лВыборка.Следующий() Цикл РезультатОбработки = ВРег(СОКРЛП(лВыборка.Комментарий)); КонецЦикла;
