Работа с печатными формами в формате Microsoft Word через COM-соединение — это классическая задача для разработчика 1С, когда требуется создать сложные документы с гибким форматированием. Однако новички часто сталкиваются с двумя проблемами: некорректным выводом пустых полей (ошибка в Word «Ошибка! Переменная неопределенна») и сложностями при получении актуальных данных о руководителе организации. В этой статье мы подробно разберем, как оптимизировать код 1С для стабильной работы с макетами Word.
Разберем ситуацию: в вашем шаблоне Word (файле .docx) созданы специальные поля — переменные (Variables). Когда 1С обращается к документу через COM-объект, она пытается присвоить этим переменным значения. Если данные в 1С отсутствуют (например, у контрагента не указан номер телефона или адрес электронной почты), и в Word передается пустое значение или NULL, механизм обновления полей Word может выдать ошибку «Ошибка! Переменная неопределенна».
Проанализируем типичный код передачи данных:
ТекДок.Variables("ПокупательТел").Value = "" + Данные.ПокупательТел;
Проблема здесь в том, что если Данные.ПокупательТел имеет значение NULL (что часто бывает при левых соединениях в запросе), пустая строка может не «спасти» ситуацию в некоторых версиях Word. Кроме того, Word ожидает четко определенную строковую структуру.
Самый надежный способ избежать ошибок в макете — принудительная проверка значения на заполненность в коде 1С перед отправкой в COM-объект. Рассмотрим, как это реализовать с помощью тернарного оператора:
// Используем функцию ПустаяСтрока и проверку типа
ТекДок.Variables("ПокупательТел").Value = ?(ПустаяСтрока(Строка(Данные.ПокупательТел)), " ", Строка(Данные.ПокупательТел));
ТекДок.Variables("ПокупательЭП").Value = ?(ПустаяСтрока(Строка(Данные.ПокупательЭП)), " ", Строка(Данные.ПокупательЭП));
В данном примере, если поле в 1С не заполнено, мы передаем в Word пробел " " или пустую строку "". Это заставляет Word считать переменную определенной, и надпись об ошибке исчезнет. Обратите внимание на использование функции Строка() — это гарантирует, что даже если из запроса пришло значение Неопределено или NULL, оно будет корректно преобразовано для логической проверки.
Чтобы не загромождать код логическими проверками, рекомендуется обрабатывать пустые значения еще на уровне получения данных из базы. Выясним, как модифицировать запрос к базе данных, используя функцию ЕСТЬNULL.
Рассмотрим фрагмент запроса:
"ВЫБРАТЬ
| ЗаказКлиента.Ссылка КАК Ссылка,
| ЕСТЬNULL(КонтрагентыКонтактнаяИнформация.НомерТелефона, """") КАК ПокупательТел,
| ЕСТЬNULL(КонтрагентыКонтактнаяИнформация.АдресЭП, """") КАК ПокупательЭП
|ИЗ
| Документ.ЗаказКлиента КАК ЗаказКлиента"
Использование ЕСТЬNULL(Поле, "") гарантирует, что в структуру Данные попадет пустая строка вместо значения NULL, если контактная информация не задана. Это значительно упрощает последующую передачу переменных в Word.
Вопрос автоматического вывода директора требует понимания архитектуры метаданных 1С. В исходном коде автора директор брался из поля КонтактноеЛицо, что является методологической ошибкой. Контактное лицо — это менеджер со стороны контрагента, а не официальный руководитель организации.
Чтобы получить директора организации правильно, выполним следующие шаги:
ОтветственныеЛицаОрганизаций.Рассмотрим пример получения данных руководителя через стандартные механизмы:
// Получаем сведения о руководителе на дату документа
СведенияОбОрганизации = ФормированиеПечатныхФорм.СведенияОЮрФизЛице(Данные.Организация, Данные.ДатаДок);
РуководительФИО = СведенияОбОрганизации.Руководитель;
ТекДок.Variables("Директор").Value = Строка(РуководительФИО);
Если вам требуется вывести ФИО директора в родительном падеже (например, «в лице Директора Иванова Ивана Петровича»), воспользуемся встроенной функцией склонения:
РезультатСклонения = "";
ФизическиеЛица.Просклонять(РуководительФИО, 2, РезультатСклонения); // 2 - родительный падеж
ТекДок.Variables("ДиректорРодПадеж").Value = РезультатСклонения;
Проанализируем важный момент, на который указали участники обсуждения. В исходном коде функции получения адресов содержали грубую ошибку:
&НаСервере
Функция ПолучитьПА(Ссылка, ДатаДок)
ПокупательПА = ФормированиеПечатныхФорм.ПолучитьАдресИзКонтактнойИнформации(Ссылка, "Фактический", ДатаДок);
ПоставщикПА = ФормированиеПечатныхФорм.ПолучитьАдресИзКонтактнойИнформации(Ссылка, "Фактический", ДатаДок);
Возврат ПокупательПА;
Возврат ПоставщикПА; // Этот код никогда не выполнится
КонецФункции
Оператор Возврат немедленно прерывает выполнение функции. Для корректной работы нам нужно либо возвращать структуру, либо вызывать функции отдельно для покупателя и поставщика. Правильнее будет сделать так:
// В основной процедуре печати
ДанныеПокупателя = ПолучитьДанныеКонтрагента(Данные.Контрагент, Данные.ДатаДок);
ТекДок.Variables("ПокупательЮА").Value = ДанныеПокупателя.ЮридическийАдрес;
ДанныеОрганизации = ПолучитьДанныеОрганизации(Данные.Организация, Данные.ДатаДок);
ТекДок.Variables("ПоставщикЮА").Value = ДанныеОрганизации.ЮридическийАдрес;
Для повышения стабильности работы программы, особенно при массовой печати документов, важно придерживаться следующих правил:
1. Создание объекта вне цикла. Если вы печатаете сразу 10 договоров, создавайте Новый COMОбъект("Word.Application") один раз перед началом цикла Для Каждого, а внутри цикла только открывайте новые документы. Это сэкономит ресурсы сервера.
2. Принудительное обновление полей. После того как все переменные переданы, необходимо вызвать команду обновления, иначе Word может не отобразить новые данные сразу:
ТекДок.Fields.Update();
3. Завершение процесса. После выполнения печати обязательно закрывайте приложение, чтобы в диспетчере задач не оставались «зависшие» процессы WINWORD.EXE:
Word.Quit();
Word = Неопределено;
Подведем итог: чтобы печатная форма Word работала безупречно, всегда проверяйте значения переменных на NULL или пустоту перед передачей, используйте системные регистры для получения данных о руководителях и не забывайте корректно завершать работу с COM-объектами. Это обеспечит профессиональный вид документов и стабильную работу системы 1С.