Имя: Пароль:
1C
1С v8
Не печатаются документы через Word.Aplication
0 FuriKuri
 
16.07.14
12:23
В базе  УТ 11.1 добавлена печать через документ Word помещенный в макет. Вот собственно сам код:

Если Тип = "Поставка" тогда
            Договор = РеквизитФормыВЗначение("Объект").ПолучитьМакет("МакетДоговорПоставки");
        Иначе
            Договор = РеквизитФормыВЗначение("Объект").ПолучитьМакет("МакетДоговорПодряда");
        КонецЕсли;
        ОбъектWord = Договор.Получить();
        ДокументWord = ОбъектWord.Application.Documents(1);
        ДокументWord.Activate();
        
        Fnd = ДокументWord.Content.Find;
        Fnd.ClearFormatting();
        Fnd.Forward = -1;  
        
        // Заменяем ключевые поля на нужные значения
        
        Для каждого СтрокаСоответствия Из СоответствиеРеквизитов Цикл  
            Fnd.Execute(СтрокаСоответствия.Ключ,,,,,,,,, СтрокаСоответствия.Значение, 2);  
        КонецЦикла;
        
        ДокументWord.Application.Visible = Истина;    
        ДокументWord.Activate();

Проблема такая - если база файловая, документ отлично выводится. Если же база серверная, то при нажатии на кнопку формирования документа ничего не происходит. Если пытаюсь поймать что-нибудь в отладке, то она зависает на рандомной строке =\
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс