Автозаполнение шаблона документов

1С:Документооборот Платформа 1С v8.3

1. eaglemw 15.09.16 11:02 Сейчас в теме

Добрый день

как настроить автообновление шаблона документа, при изменении карточки документа. Часть информации добавляется карточку документа в процессе движения документа. Вариант ручного обновления через "Заполнить файл данными документа" - человеческий фактор, который хотелось бы исключить.

Ответы

В избранное Подписаться на ответы

Свернуть все

2. Skromnyi 12 15.09.16 16:13 Сейчас в теме

Через дополнительные обработчики бизнес-событий

3. eaglemw 15.09.16 16:27 Сейчас в теме

какой код там надо прописать? я все настроил, застопорился на коде.... кто может помочь? просто никто не юзал такую функциональность из знакомых

4. Skromnyi 12 16.09.16 09:56 Сейчас в теме

у меня на 1.4 работает такой код для обработчика: Автоматическое заполнение файлов Внутреннего документа после утверждения

Задача = Событие.Источник;
МассивПредметов = МультипредметностьКлиентСервер.ПолучитьМассивПредметовОбъекта(Задача);
Для Каждого Документ ИЗ МассивПредметов Цикл
	Если ДелопроизводствоКлиентСервер.ЭтоВнутреннийДокумент(Документ) Тогда
		Если  ТипЗнч(Задача.БизнесПроцесс)= Тип("БизнесПроцессСсылка.Утверждение") Тогда
			Запрос = Новый Запрос;
			Запрос.Текст = 
			"ВЫБРАТЬ
			|	РезультатыУтверждения.РезультатУтверждения
			|ИЗ
			|	БизнесПроцесс.Утверждение.РезультатыУтверждения КАК РезультатыУтверждения
			|ГДЕ
			|	РезультатыУтверждения.ЗадачаИсполнителя = &ЗадачаИсполнителя
			|	И РезультатыУтверждения.РезультатУтверждения = &РезультатУтверждения";
			Запрос.УстановитьПараметр("ЗадачаИсполнителя", Задача);
			Запрос.УстановитьПараметр("РезультатУтверждения", Перечисления.РезультатыУтверждения.Утверждено);
			Результат = Запрос.Выполнить();
			Если НЕ Результат.Пустой() Тогда
				КоличествоФайлов = Делопроизводство.КоличествоФайлов(Документ.Ссылка);
				Если КоличествоФайлов > 0 Тогда
					ВсеФайлыДокумента = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(Документ.Ссылка, Ложь);
					Для Каждого ТекущийФайл Из ВсеФайлыДокумента Цикл
						СозданИзШаблона = ?(ТекущийФайл.ШаблонОснованиеДляСоздания <> Справочники.Файлы.ПустаяСсылка(), Истина, Ложь);
						Если СозданИзШаблона Тогда 
							ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Истина, ТекущийФайл.Ссылка, Ложь);
							Если ДанныеВыполнения.Результат Тогда
								Комментарий = "Автозаполнение полей файла после утверждения документа";
								АвтозаполнениеШаблоновФайловСервер.ОбновитьВерсиюИзДвоичныхДанных(ДанныеВыполнения.ДвоичныеДанныеЗаполненногоФайла, ТекущийФайл, Комментарий);
							КонецЕсли;	
						КонецЕсли;
					КонецЦикла;   
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецЦикла;

Показать

5. Skromnyi 12 16.09.16 09:57 Сейчас в теме

Подписка на вид события: Выполнение задачи

6. Skromnyi 12 16.09.16 09:58 Сейчас в теме

для обработчика "Автоматическое заполнение файлов Внутреннего документа после согласования" код такой:

Задача = Событие.Источник;
МассивПредметов = МультипредметностьКлиентСервер.ПолучитьМассивПредметовОбъекта(Задача);
Для Каждого Документ ИЗ МассивПредметов Цикл
	Если ДелопроизводствоКлиентСервер.ЭтоВнутреннийДокумент(Документ) Тогда
		Если  ТипЗнч(Задача.БизнесПроцесс)= Тип("БизнесПроцессСсылка.Согласование") Тогда
			Виза = РаботаСВизамиСогласования.ПолучитьАктивнуюВизуПоЗадаче(Документ, Задача);
			Если Виза <> Неопределено  И Виза.РезультатСогласования <> Перечисления.РезультатыСогласования.НеСогласовано Тогда
				КоличествоФайлов = Делопроизводство.КоличествоФайлов(Документ.Ссылка);
				Если КоличествоФайлов > 0 Тогда
					ВсеФайлыДокумента = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(Документ.Ссылка, Ложь);
					Для Каждого ТекущийФайл Из ВсеФайлыДокумента Цикл
						СозданИзШаблона = ?(ТекущийФайл.ШаблонОснованиеДляСоздания <> Справочники.Файлы.ПустаяСсылка(), Истина, Ложь);
						Если СозданИзШаблона Тогда 
							ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Истина, ТекущийФайл.Ссылка, Ложь);
							Если ДанныеВыполнения.Результат Тогда
								Комментарий = "Автозаполнение полей файла после согласования документа";
								АвтозаполнениеШаблоновФайловСервер.ОбновитьВерсиюИзДвоичныхДанных(ДанныеВыполнения.ДвоичныеДанныеЗаполненногоФайла, ТекущийФайл, Комментарий);
							КонецЕсли;	
						КонецЕсли;
					КонецЦикла;   
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецЦикла;

Показать

7. Skromnyi 12 16.09.16 10:00 Сейчас в теме

подписка такая-же: Выполнение задачи

8. Skromnyi 12 16.09.16 10:01 Сейчас в теме

ну и уж до кучи обработчик "Автоматическое заполнение файлов Внутреннего документа после регистрации"

Документ = Событие.Источник;
КоличествоФайлов = Делопроизводство.КоличествоФайлов(Документ.Ссылка);
Если КоличествоФайлов > 0 Тогда
	ВсеФайлыДокумента = РаботаСФайламиВызовСервера.ПолучитьВсеПодчиненныеФайлы(Документ.Ссылка, Ложь);
	Для Каждого ТекущийФайл Из ВсеФайлыДокумента Цикл
		СозданИзШаблона = ?(ТекущийФайл.ШаблонОснованиеДляСоздания <> Справочники.Файлы.ПустаяСсылка(), Истина, Ложь);
		Если СозданИзШаблона Тогда 
			ДанныеВыполнения = АвтозаполнениеШаблоновФайловКлиентСервер.ЗаполнитьПоляФайлаДаннымиВладельца(Истина, ТекущийФайл, Ложь);
			Если ДанныеВыполнения.Результат Тогда
				Комментарий = "Автозаполнение полей файла после регистрации";
				АвтозаполнениеШаблоновФайловСервер.ОбновитьВерсиюИзДвоичныхДанных(ДанныеВыполнения.ДвоичныеДанныеЗаполненногоФайла, ТекущийФайл, Комментарий);
			КонецЕсли;	
		КонецЕсли;
	КонецЦикла;   
КонецЕсли;

Показать

Подписка: Регистрация внутреннего документа

10. Julia13 13.12.18 11:21 Сейчас в теме

(8)
Спасибо, очень помогло!! Я именно это и искала)

12. user626131 30.01.19 09:39 Сейчас в теме

(8) а в каком формате должен быть файл? docx или doc, чтобы обновление было на сервере?

13. Skromnyi 12 30.01.19 13:26 Сейчас в теме

(12) у нас используется "doc", т.к. с "docx" были какие-то проблемы (точно сейчас их уже не помню).

14. user626131 31.01.19 08:48 Сейчас в теме

(13) и у вас происходит обновление файла на сервере формата .doc? На сервере стоит МС Офис?

9. Skromnyi 12 16.09.16 10:09 Сейчас в теме

еще можно здесь посмотреть: http://infostart.ru/public/293365/

11. Svet_Serg 28.01.19 10:03 Сейчас в теме

Документооборот 8 КОРП, 2.1.12.2 - работает безотказно! Спасибо!

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Запретить печатать документ "Товарный чек", пока статус Чека ККМ не будет "Чек пробит", а сам Чек ККМ не будет проведен. (6) 1 $m Dev УТ11 v8	6	вчера, 12:00 LastSoldier
Помогите добавить в запрос поле с выборкой со счета 90.03 (7) 0.87 $m Dev	7	26.02.2021 Shecurok
Почему 27 счёт не попадает в поле счёт учёта ? (27) 0.27 $m Dev БГУ	27	26.02.2021 Terabaytus
Необходимо в вузе разработать информационную систему для отчетности преподавателей по выполнению научных показателей (32) 2 $m Управление персоналом Обучение, бизнес-тренинг, курсы Автоматизация Аналитика УУ	32	26.02.2021 delta
УТ 10.3 изменяет количетсво товара в чеке ККМ при продаже БезПередачиТовара (9) 0.4 $m Dev	9	26.02.2021 andrey7617
Ошибка СУБД при входе в базу 1С (37) 0.55 $m Admin СУБД PostgreSQL	37	25.02.2021 dimonas
Работа с файлами на мобильном клиенте (8) 0.3 $m MobileDev v8::Mobile	8	24.02.2021 irlandets1980
Грейды программистов 1с (25) 10 $m Общие вопросы управления	25	24.02.2021 maguga
MDF SQL ищу битый файл для теста DataNumen SQL Recovery (10) 1 $m Utils	10	22.02.2021 XAKEP
Как получить значение имея НавигационнуюСсылку к полю (2) 0.25 $m Dev	2	21.02.2021 AlexxSys
Мобильный клиент. Android. Обрезает строку ввода от сканера (3) 0.35 $m MobileDev	3	21.02.2021 gamletspb
Не приходит письмо от apple после ввода карты для оплаты. (10) 5 $m MobileDev	10	20.02.2021 maksa2005
Прикрепленная подпись и БСП. Возможно ли? (10) 1 $m БСП 8.3.14	10	20.02.2021 mat skywalker
заглушка на запуск (управляемое приложение) (7) 1 $m Dev	7	19.02.2021 morrex
Сложный расчет ЗП в бухгалтерии (Нужен совет по реализации) (12) 2 $m Зарплата БП3.0 v8	12	19.02.2021 Dilovar9
Перетаскивание в списке справочника (3) 0.15 $m Dev	3	18.02.2021 user1292093
загрузка базы из dt (61) 2 $m Admin	61	18.02.2021 doctorov_s
Списание задолженности в валюте управленческого учета (5) 1 $m Финансы УТ11	5	18.02.2021 gmtv
Каким образом установить налоговый учет для 14 счета в плане счетов? И вообще - это возможно? (5) 0.2 $m БУ БП3.0	5	18.02.2021 German_Tagil
ЗУП 3.1 Переносы отпуска в Графике отпусков (12) 1 $m Зарплата ЗУП3.x	12	17.02.2021 alex_bitti