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

Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0
Удаление документов для любых баз на управляемых формах
Загрузка чеков в 1С из ФНС в документы БП, УНФ, ERP, КА и УТ
Новичок новичку: как выгрузить/загрузить XML данные
Документы за поставщика Универсальный передаточный документ (УПД), Товарная накладная ТОРГ-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) Спасибо Вам огромное!!