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

Контроль отрицательных остатков ТМЦ - Заполнение документа "Поступление (акт, накладная)" по минимальным отрицательным остаткам за период для Бухгалтерия предприятия, редакция 3.0
Удаление документов для любых баз на управляемых формах
Удаление документов и справочников для любых баз на обычных формах
Загрузка чеков ФНС в документы 1С:БП, 1С:УНФ, 1С:ERP, 1С:КА и 1С:УТ
Документы за поставщика Универсальный передаточный документ (УПД), Товарная накладная ТОРГ-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) Спасибо Вам огромное!!