Не вставляет во внешнюю форму
Показывать по
10
20
40
сообщений
- 1
- 2
16.08.2012
08:54
#1
"1С 8.2
Комплексная автоматизация.
Функция Печать() Экспорт
СведенияОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.ДатаДоговора);
СтруктураПаспортныхДанных = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(РабочаяДата, Новый Структура("ФизЛицо"));
Параметры.Вставить("ИНН", СведенияОрганизации.ИНН);
Параметры.Вставить("ПаспСерия", СтруктураПаспортныхДанных.ДокументСерия);
Попытка
Состояние("Подключение к Microsoft Word...");
ПриложениеWord = Новый COMОбъект("Word.Application");
Исключение
Сообщить("Ошибка при запуске Microsoft Word"
+ Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
КонецПопытки;
ВордДокумент = ПриложениеWord.Documents.Add(Путь);
ПриложениеWord.Visible = Истина;
ВордКонт = ВордДокумент.Content;
Для Каждого Пар из Параметры Цикл
ВордКонт.Find.Execute("{"+Пар.Ключ+"}",,,,,,,,,СокрЛП(Строка(Пар.Значение)),2);
КонецЦикла;
ВордДокумент.Fields.UpDate()
КонецФункции
Именно серию паспорта не вставляет. Ошибку не выдает. Но поле становится в Word-ом документе чистым.
Чу делать-то? В чем моя ошибка?"
Комплексная автоматизация.
Функция Печать() Экспорт
СведенияОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.ДатаДоговора);
СтруктураПаспортныхДанных = РегистрыСведений.ПаспортныеДанныеФизЛиц.ПолучитьПоследнее(РабочаяДата, Новый Структура("ФизЛицо"));
Параметры.Вставить("ИНН", СведенияОрганизации.ИНН);
Параметры.Вставить("ПаспСерия", СтруктураПаспортныхДанных.ДокументСерия);
Попытка
Состояние("Подключение к Microsoft Word...");
ПриложениеWord = Новый COMОбъект("Word.Application");
Исключение
Сообщить("Ошибка при запуске Microsoft Word"
+ Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
КонецПопытки;
ВордДокумент = ПриложениеWord.Documents.Add(Путь);
ПриложениеWord.Visible = Истина;
ВордКонт = ВордДокумент.Content;
Для Каждого Пар из Параметры Цикл
ВордКонт.Find.Execute("{"+Пар.Ключ+"}",,,,,,,,,СокрЛП(Строка(Пар.Значение)),2);
КонецЦикла;
ВордДокумент.Fields.UpDate()
КонецФункции
Именно серию паспорта не вставляет. Ошибку не выдает. Но поле становится в Word-ом документе чистым.
Чу делать-то? В чем моя ошибка?"
- 1
- 2
Читают тему
(гостей: 1)