Нужно получить данные из другого документа для вставки в Word - документ
Нужно из другого документа вывести на макет Word реквизит "НомерДоговора", как это можно сделать? Вот попытки
&НаКлиенте
Процедура НапечататьДокумент(Объект)
Word = Новый COMОбъект("Word.Application");
Макет = ПолучитьМакетНаСервере();
ВременныйПуть = КаталогВременныхФайлов();
ИмяВременногоФайла = ВременныйПуть + "Приложение2.docx";
Макет.Записать(ИмяВременногоФайла);
ТекДок = Word.Documents.ADD(ИмяВременногоФайла);
ТекДок.Variables("NomerPrilojen").Value = Объект.Номер;
ТекДок.Variables("Nomer").Value = ПолучитьНомер(Объект);
ТекДок.Variables("Data").Value = Строка(Формат(Объект.Дата,"ДЛФ = ДД"));
ТекДок.Variables("Kontragent").Value = Строка(Объект.Контрагент);
//ТекДок.Variables("Director").Value = Строка(Объект.Директо
ТекДок.Variables("Kontragent").Value = Строка(Объект.Контрагент);
//ТекДок.Variables("NomerDogovora").Value = НомерДоговора;
ТекДок.Variables("Data").Value = Строка(Формат(Объект.Дата ,"ДЛФ = ДД"));
ТекДок.Fields.Update();
Word.ActiveWindow.View.ShowFieldCodes = False;
Word.Visible = True;
КонецПроцедуры
&НаСервере
Функция ПолучитьНомер(Объект)
НомерДоговора = Объект.ДоговорКонтрагента.Договор.Номер;
КонецФункции
Процедура НапечататьДокумент(Объект)
Word = Новый COMОбъект("Word.Application");
Макет = ПолучитьМакетНаСервере();
ВременныйПуть = КаталогВременныхФайлов();
ИмяВременногоФайла = ВременныйПуть + "Приложение2.docx";
Макет.Записать(ИмяВременногоФайла);
ТекДок = Word.Documents.ADD(ИмяВременногоФайла);
ТекДок.Variables("NomerPrilojen").Value = Объект.Номер;
ТекДок.Variables("Nomer").Value = ПолучитьНомер(Объект);
ТекДок.Variables("Data").Value = Строка(Формат(Объект.Дата,"ДЛФ = ДД"));
ТекДок.Variables("Kontragent").Value = Строка(Объект.Контрагент);
//ТекДок.Variables("Director").Value = Строка(Объект.Директо
ТекДок.Variables("Kontragent").Value = Строка(Объект.Контрагент);
//ТекДок.Variables("NomerDogovora").Value = НомерДоговора;
ТекДок.Variables("Data").Value = Строка(Формат(Объект.Дата ,"ДЛФ = ДД"));
ТекДок.Fields.Update();
Word.ActiveWindow.View.ShowFieldCodes = False;
Word.Visible = True;
КонецПроцедуры
Функция ПолучитьНомер(Объект)
НомерДоговора = Объект.ДоговорКонтрагента.Договор.Номер;
КонецФункции
По теме из базы знаний
- Этюды по программированию. Взаимодействие с Microsoft Word
- Цифровая подпись. Документооборот КОРП 2.1
- Печать нескольких документов в Word
- Доработка визуализации ЭП для 1С:Документооборот государственного учреждения КОРП
- Формирование документа MS Word с использованием БСП и программное добавление закладок
Найденные решения
Остальные ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(3)
Если его не написать в функции (как у Вас было) то вернётся "Неопределено"
Возврат <Возвращаемое значение>
Ключевое слово, которое завершает выполнение функции и возвращает указанное значение в выражение, в котором используется функция.
В качестве возвращаемого значения может выступать выражение или переменная, значение которого содержит результат обращения к функции.
Ключевое слово, которое завершает выполнение функции и возвращает указанное значение в выражение, в котором используется функция.
В качестве возвращаемого значения может выступать выражение или переменная, значение которого содержит результат обращения к функции.
Если его не написать в функции (как у Вас было) то вернётся "Неопределено"
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)