Заполнение файла данными документа при записи документа

Выгрузка-загрузка любых данных из 1С (и измененных) в XML между похожими конфигурациями (ФАЙЛ, HTTP, COM) ЛЮБЫХ баз 1С 8.1-8.3 с обработкой и поиском данных по произвольным полям поиска
Загрузка документов из Excel в 1С: УПД, ТОРГ-12, отчеты маркетплейсов, заказы, счета, прайсы
Удаление документов для любых баз на управляемых формах
Загрузка чеков из ФНС в документы 1С:БП, УНФ, ERP, КА и УТ
Документы за поставщика Универсальный передаточный документ (УПД), Товарная накладная ТОРГ-12, Счет-фактура (ERP 2.4, ERP 2.5, КА 2.4, КА 2.5, УТ 11.4, УТ 11.5)

2. CyberBob 4 12.12.17 20:32 Сейчас в теме

Примерно такой код в обработчике должен быть (я его к стати где-то здесь, на ИС, находил). Возможно что-то потребуется подпилить. Есть тонкость по заполнению шаблонов *.doc и *.docx, какие-то заполняются на сервере, какие-то нет, не помню какие.

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

Показать

2. CyberBob 4 12.12.17 20:32 Сейчас в теме

Примерно такой код в обработчике должен быть (я его к стати где-то здесь, на ИС, находил). Возможно что-то потребуется подпилить. Есть тонкость по заполнению шаблонов *.doc и *.docx, какие-то заполняются на сервере, какие-то нет, не помню какие.

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

Показать

3. blandinko 21.12.17 11:41 Сейчас в теме

(2) Спасибо Вам огромное!!