Не знаю как удалить предидущее сообщение, но поправил... извините что выкладываю ссылки на другие ресурсы, но хотелось бы получить чтото подобное http://www.modber.ru/catalog/item3340.html имеется УПП 1.3. 1)создал внешнюю обработку ПечатьВорд 2) сделал .doc где вставил все нижеперечисленное в нужных местах docvariable NomerDogovora, DataDoc, Principal, Manager, Organization, NDateDov 3)создал макет с двоичными данными, где указал файл из пункта 2. 4) Добавил код в ПечатьВорд: Модуль объекта: Функция ПолучитьМакетСервер() Возврат ПолучитьМакет("Макет1"); КонецФункции ПРоцедура НапечататьДокумент(Объект) Word = Новый COMОбъект("Word.Application"); Макет = ПолучитьМакетСервер(); временныйПуть = КаталогВременныхФайлов(); имяВременногоФайла = временныйПуть + "gph.doc"; Макет.Записать(имяВременногоФайла); ТекДок = Word.Documents.ADD(имяВременногоФайла); СтруктураДоверенности =ПолучитьДанныеДоверенности(СсылкаНаОбъект.Менеджер); НомерДатаДоверенности = "№ " + СтруктураДоверенности.Номер + " от " + СтруктураДоверенности.Дата; ТекДок.Variables("NomerDogovora").Value=СокрЛП(Строка(СсылкаНаОбъект.Номер)); ТекДок.Variables("DateDok").Value=Строка(Формат(СсылкаНаОбъект.Дата,"ДЛФ = ДД")); ТекДок.Variables("Organization").Value=СокрЛП(СсылкаНаОбъект.Организация.НаименованиеПолное); ТекДок.Variables("Menager").Value=Строка(СсылкаНаОбъект.Менеджер); ТекДок.Variables("NDateDov").Value=Строка(НомерДатаДоверенности); ТекДок.Variables("Principal").Value=Строка(СсылкаНаОбъект.Контрагент); ТекДок.Fields.Update(); Word.ActiveWindow.View.ShowFieldCodes = False; Word.Visible=Истина; КонецПроцедуры 5) В следствии получил следующее - напоминаю, я начинающий ЧАЙНИК! {ВнешнийОтчет.ПечатьВорд.МодульОбъекта(19,50)}: Переменная не определена (СсылкаНаОбъект)ТекДок.Variables("Organization").Value=СокрЛП (<<?>>СсылкаНаОбъект.Организация.НаименованиеПолное); (Проверка: Толстый клиент (обычное приложение)) {ВнешнийОтчет.ПечатьВорд.МодульОбъекта(20,45)}: Переменная не определена (СсылкаНаОбъект)ТекДок.Variables("Menager").Value=Строка (<<?>>СсылкаНаОбъект.Менеджер); (Проверка: Толстый клиент (обычное приложение)) {ВнешнийОтчет.ПечатьВорд.МодульОбъекта(22,47)}: Переменная не определена (СсылкаНаОбъект)ТекДок.Variables("Principal").Value=Строка (<<?>>СсылкаНаОбъект.Контрагент); (Проверка: Толстый клиент (обычное приложение)) {ВнешнийОтчет.ПечатьВорд.МодульОбъекта(14,27)}: Процедура или функция с указанным именем не определена (ПолучитьДанныеДоверенности)СтруктураДоверенности = <<?>>ПолучитьДанныеДоверенности(СсылкаНаОбъект.Менеджер); (Проверка: Толстый клиент (обычное приложение)) 6) Что не так? что не сделал? |