3
DDD2006
04.09.08
✎
10:52
|
Делалал в 8.0. так
Шаблон=СокрЛП(Константы.ЗаявлениеЮрЛица.Получить());
Попытка
Выпуск=Новый COMОбъект("Word.Application");//ПолучитьCOMОбъект("","WORD.Application")
Исключение
Сообщить(ОписаниеОшибки(),"!!!");
Сообщить("Возможно, MS Word не установлен на этом компьютере.");
Возврат;
КонецПопытки;
ДокВыпуск = Выпуск.Documents.Add(Шаблон,False,0);
Выпуск.Visible=True;
//З 3
ДокВыпуск.Variables.Item("З_3").Value=?(Куда.Пустая()," ",СокрЛП(Куда.Наименование));
Если Владелец.Владельцы.Количество() = 1 Тогда
//ИНН, КПП, ОГРН
Сноска = Владелец.Владельцы.Получить(0).Владелец;
ДокВыпуск.Variables.Item("ФЛ11Adress").Value=ПолучитьАктивнуюВставку2("ФЛАК",Владелец.Владельцы.Получить(0).Владелец);
|
|