Внешняя печатная форма word

Автор: Admin 22 октября, 2019 13 комментария

Дополнительно, Обработки, Общие, Отчеты, Программирование

Понадобилась однажды срочно внешняя печатная форма на основе word-шаблона для типовой БП 3.0. Я себе примерно представлял как можно сделать такую внешнюю обработку с обычным макетом и встроить её в справочник ‘Дополнительные отчеты и обработки’, но как проделать то же самое с word я не представлял. Но все оказалось довольно-таки просто, правда и пришлось убить на это полдня.

Внимание! После прочтения этой статьи можете ознакомиться с более универсальным вариантом по этой статье ‘Внешняя печатная форма word.Часть2’ !

Итак, для начала создаем наш печатный макет word:

Параметры в этом файле я оформлял как <Параметр>, но вы можете оформлять их по любому другому шаблону, просто в коде будете заменять текст аналогично своему формату.

Далее создаем новый макет ‘МакетWORD’ с типом ‘Двоичные данные’:

Макет с типом "Двоичные данные". — **Макет с типом “Двоичные данные”.**

После чего щелкаем по нему два раза и загружаем туда наш файл-шаблон ‘word’:

Наш печатный макет в формате 'word'. — **Наш печатный макет в формате ‘word’.**

Переходим теперь к реквизитам и форме нашей внешней печатной обработки. Добавляем реквизит ‘СсылкаНаОбъект‘ с типом объекта, для которого мы делаем нашу печатную форму:

Реквизит обработки 'СсылкаНаОбъект'. — **Реквизит обработки ‘СсылкаНаОбъект’.**

Добавляем реквизит формы ‘ОбъектыНазначения’ – для печати из дополнительных отчетов и обработок. На форму выводим наш реквизит ‘СсылкаНаОбъект’ и созданную нами команду ‘ПечатьСФормы’:

Итак, теперь приступаем к 1 этапу – делаем печать из формы обработки:

&НаКлиенте
Процедура ПечатьСФормы(Команда) //Наша команда с формы
	
	СобратьМакет(Объект.СсылкаНаОбъект);
	
КонецПроцедуры

&НаСервере
Функция ПолучитьДанныеМакета()
	
	ОбработкаОбъект = РеквизитФормыВЗначение("Объект"); 
	
	АдресХранилища = Новый УникальныйИдентификатор();
	Макет          = ОбработкаОбъект.ПолучитьМакет("МакетWORD"); 
	
	ВременныйФайл = ПолучитьИмяВременногоФайла("doc"); 
	Макет.Записать(ВременныйФайл);
	
	Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВременныйФайл),АдресХранилища); 
	УдалитьФайлы(ВременныйФайл); 
	
	Возврат Адрес; 
    
КонецФункции

&НаКлиенте
Процедура СобратьМакет(п_СсылкаНаОбъект)

	Пользователь = ПользователиКлиентСервер.ТекущийПользователь();
	
	Каталог        = КаталогВременныхФайлов(); 
	Каталог        = ?(Прав(Каталог,1) = "\", Каталог, Каталог + "\");
	
	ПолноеИмяФайла = Каталог + Строка(Новый УникальныйИдентификатор) + ".doc";
	
	Попытка
		
		Индификатор   = ПолучитьДанныеМакета();
		МакетДоговора = ПолучитьИзВременногоХранилища(Индификатор);
		МакетДоговора.Записать(ПолноеИмяФайла);
		
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
	Попытка
		MSWord = Новый COMОбъект("Word.Application");
	Исключение
		Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС + 
		"Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
	КонецПопытки;
	
	MSWord.Documents.Open(ПолноеИмяФайла); 
	
	Попытка
		
			
			Документ = MSWord.Application.Documents(1);
			Документ.Activate();
			
			СамыйКрутойПрограмист1с = СокрЛП(п_СсылкаНаОбъект);
			Компания                = "КРАФТ 1С";
			СамыйКрутойБлогПро1с    = "www.craft1c.ru";
			ДатаПараметр  			= Строка(ТекущаяДата());
			
			// Поиск и замена маркеров
			Замена = Документ.Content.Find;     		
			Замена.Execute("<СамыйКрутойПрограмист1с>",Ложь,Истина,Ложь,,,Истина,,Ложь,СамыйКрутойПрограмист1с);
			
			Замена = Документ.Content.Find;     		
			Замена.Execute("<Компания>", Ложь, Истина, Ложь, , , Истина , , Ложь, Компания);
			
			Замена = Документ.Content.Find;     		
			Замена.Execute("<СамыйКрутойБлогПро1с>", Ложь, Истина, Ложь, , , Истина , , Ложь, СамыйКрутойБлогПро1с);
			
			Замена = Документ.Content.Find;     		
			Замена.Execute("<ДатаПараметр>", Ложь, Истина, Ложь, , , Истина , , Ложь, ДатаПараметр);
			
		
	Исключение
		
		Сообщение = Новый СообщениеПользователю();
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
		
		MSWord.Application.Quit();
		
		Возврат;
		
	КонецПопытки;
	
	MSWord.Application.Visible = Истина;
	MSWord.Activate();
	
КонецПроцедуры

&НаКлиенте

Процедура ПечатьСФормы(Команда) //Наша команда с формы

СобратьМакет(Объект.СсылкаНаОбъект);

КонецПроцедуры

&НаСервере

Функция ПолучитьДанныеМакета()

ОбработкаОбъект = РеквизитФормыВЗначение("Объект");

АдресХранилища = Новый УникальныйИдентификатор();

Макет = ОбработкаОбъект.ПолучитьМакет("МакетWORD");

ВременныйФайл = ПолучитьИмяВременногоФайла("doc");

Макет.Записать(ВременныйФайл);

Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВременныйФайл),АдресХранилища);

УдалитьФайлы(ВременныйФайл);

Возврат Адрес;

КонецФункции

&НаКлиенте

Процедура СобратьМакет(п_СсылкаНаОбъект)

Пользователь = ПользователиКлиентСервер.ТекущийПользователь();

Каталог = КаталогВременныхФайлов();

Каталог = ?(Прав(Каталог,1) = "\", Каталог, Каталог + "\");

ПолноеИмяФайла = Каталог + Строка(Новый УникальныйИдентификатор) + ".doc";

Попытка

Индификатор = ПолучитьДанныеМакета();

МакетДоговора = ПолучитьИзВременногоХранилища(Индификатор);

МакетДоговора.Записать(ПолноеИмяФайла);

Исключение

Сообщить(ОписаниеОшибки());

КонецПопытки;

Попытка

MSWord = Новый COMОбъект("Word.Application");

Исключение

Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС +

"Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);

КонецПопытки;

MSWord.Documents.Open(ПолноеИмяФайла);

Попытка

Документ = MSWord.Application.Documents(1);

Документ.Activate();

СамыйКрутойПрограмист1с = СокрЛП(п_СсылкаНаОбъект);

Компания = "КРАФТ 1С";

СамыйКрутойБлогПро1с = "www.craft1c.ru";

ДатаПараметр = Строка(ТекущаяДата());

// Поиск и замена маркеров

Замена = Документ.Content.Find;

Замена.Execute("<СамыйКрутойПрограмист1с>",Ложь,Истина,Ложь,,,Истина,,Ложь,СамыйКрутойПрограмист1с);

Замена = Документ.Content.Find;

Замена.Execute("<Компания>", Ложь, Истина, Ложь, , , Истина , , Ложь, Компания);

Замена = Документ.Content.Find;

Замена.Execute("<СамыйКрутойБлогПро1с>", Ложь, Истина, Ложь, , , Истина , , Ложь, СамыйКрутойБлогПро1с);

Замена = Документ.Content.Find;

Замена.Execute("<ДатаПараметр>", Ложь, Истина, Ложь, , , Истина , , Ложь, ДатаПараметр);

Исключение

Сообщение = Новый СообщениеПользователю();

Сообщение.Текст = ОписаниеОшибки();

Сообщение.Сообщить();

MSWord.Application.Quit();

Возврат;

КонецПопытки;

MSWord.Application.Visible = Истина;

MSWord.Activate();

КонецПроцедуры

Результат выполнения данного кода будет следующий:

Супер, но есть проблема, как сделать так что бы это все печаталось через внешние отчеты и обработки? Это то с чем мне пришлось провозиться полдня, и решение на мой взгляд не самое оптимальное, но по крайней мере рабочее!

Для начала в модуле обработки добавляем функцию ‘СведенияОВнешнейОбработке‘:

Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = Новый Структура;
	
	МассивНазначений = Новый Массив;
	
	//Для каждого МД Из Метаданные.Документы Цикл
	//	МассивНазначений.Добавить(МД.ПолноеИмя());
	//КонецЦикла;
	
	//Для каждого МД Из Метаданные.Справочники Цикл
	//МассивНазначений.Добавить(Метаданные.Справочники.Сотрудники);
	//КонецЦикла;
	
	ПараметрыРегистрации.Вставить("Вид"					, "ПечатнаяФорма"); 
	ПараметрыРегистрации.Вставить("Назначение"			, МассивНазначений);
	ПараметрыРегистрации.Вставить("Наименование"		, "craft1c_ВнешняяПечатнаяФормаWord");
	ПараметрыРегистрации.Вставить("Версия"				, "1.1.1");
	ПараметрыРегистрации.Вставить("БезопасныйРежим"		, ЛОЖЬ);
	ПараметрыРегистрации.Вставить("Информация"			, "craft1c_ВнешняяПечатнаяФормаWord");
	
	ТаблицаКоманд = Новый ТаблицаЗначений;
	ТаблицаКоманд.Колонки.Добавить("Представление"); 
	ТаблицаКоманд.Колонки.Добавить("Идентификатор"); 
	ТаблицаКоманд.Колонки.Добавить("Использование");
	ТаблицаКоманд.Колонки.Добавить("ПоказыватьОповещение");
	ТаблицаКоманд.Колонки.Добавить("Модификатор");
	
	НоваяКоманда = ТаблицаКоманд.Добавить();
	НоваяКоманда.Представление 			= "craft1c_ВнешняяПечатнаяФормаWord";
	НоваяКоманда.Идентификатор 			= "craft1c_ВнешняяПечатнаяФормаWord"; 
	НоваяКоманда.Использование 			= "ОткрытиеФормы"; //Важно! Открываем форму!
	НоваяКоманда.ПоказыватьОповещение 	= Истина;
	НоваяКоманда.Модификатор 			= "craft1c_ВнешняяПечатнаяФормаWord";
	
	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации;
	
КонецФункции

Функция СведенияОВнешнейОбработке() Экспорт

ПараметрыРегистрации = Новый Структура;

МассивНазначений = Новый Массив;

//Для каждого МД Из Метаданные.Документы Цикл

// МассивНазначений.Добавить(МД.ПолноеИмя());

//КонецЦикла;

//Для каждого МД Из Метаданные.Справочники Цикл

//МассивНазначений.Добавить(Метаданные.Справочники.Сотрудники);

//КонецЦикла;

ПараметрыРегистрации.Вставить("Вид" , "ПечатнаяФорма");

ПараметрыРегистрации.Вставить("Назначение" , МассивНазначений);

ПараметрыРегистрации.Вставить("Наименование" , "craft1c_ВнешняяПечатнаяФормаWord");

ПараметрыРегистрации.Вставить("Версия" , "1.1.1");

ПараметрыРегистрации.Вставить("БезопасныйРежим" , ЛОЖЬ);

ПараметрыРегистрации.Вставить("Информация" , "craft1c_ВнешняяПечатнаяФормаWord");

ТаблицаКоманд = Новый ТаблицаЗначений;

ТаблицаКоманд.Колонки.Добавить("Представление");

ТаблицаКоманд.Колонки.Добавить("Идентификатор");

ТаблицаКоманд.Колонки.Добавить("Использование");

ТаблицаКоманд.Колонки.Добавить("ПоказыватьОповещение");

ТаблицаКоманд.Колонки.Добавить("Модификатор");

НоваяКоманда = ТаблицаКоманд.Добавить();

НоваяКоманда.Представление = "craft1c_ВнешняяПечатнаяФормаWord";

НоваяКоманда.Идентификатор = "craft1c_ВнешняяПечатнаяФормаWord";

НоваяКоманда.Использование = "ОткрытиеФормы"; //Важно! Открываем форму!

НоваяКоманда.ПоказыватьОповещение = Истина;

НоваяКоманда.Модификатор = "craft1c_ВнешняяПечатнаяФормаWord";

ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);

Возврат ПараметрыРегистрации;

КонецФункции

Затем в модуле формы обработки создаем 2 процедуры и прописываем алгоритм печати из дополнительных отчетов и обработок:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ОбъектыНазначения = Новый СписокЗначений;
	
	Если Параметры.Свойство("ОбъектыНазначения") Тогда
		
		Для Каждого Элемент Из Параметры.ОбъектыНазначения Цикл
			
			ОбъектыНазначения.Добавить(Элемент);
			
		КонецЦикла;
		
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	
	Если ЭтаФорма.ОбъектыНазначения.Количество() > 0 Тогда
		
		Для Каждого Элемент Из ОбъектыНазначения Цикл
			
			СобратьМакет(Элемент);
			
		КонецЦикла;
		
		ЭтаФорма.Закрыть();
		
	КонецЕсли;
	
КонецПроцедуры

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

ОбъектыНазначения = Новый СписокЗначений;

Если Параметры.Свойство("ОбъектыНазначения") Тогда

Для Каждого Элемент Из Параметры.ОбъектыНазначения Цикл

ОбъектыНазначения.Добавить(Элемент);

КонецЦикла;

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура ПриОткрытии(Отказ)

Если ЭтаФорма.ОбъектыНазначения.Количество() > 0 Тогда

Для Каждого Элемент Из ОбъектыНазначения Цикл

СобратьМакет(Элемент);

КонецЦикла;

ЭтаФорма.Закрыть();

КонецЕсли;

КонецПроцедуры

Алгоритм придумал сам, проанализировав типовой механизм работы с внешними печатными формами. Он далеко не идеален, я думаю можно было сделать и более грамотно. Но меня устраивает и так.

Теперь заходим в справочник ‘Дополнительные отчеты и обработки’:

И подключаем нашу обработку:

Внешняя печатная обработка 'craft1c_ВнешняяПечатнаяФормаWord'. — **Внешняя печатная обработка ‘craft1c_ВнешняяПечатнаяФормаWord’.**

Все! Готово! Заходим в сотрудника и тестируем:

Печатная форма из справочника 'Сотрудники'. — **Печатная форма из справочника ‘Сотрудники’.**

Открывается наш заполненные макет word-файла. Единственный минус что при первой печати программа может запросить разрешение на выполнение не безопасных действий. И придется второй раз выводить на печать. Но это будет только 1 раз в рамках одного сеанса.

Без изменения типовой конфигурации мы сделали внешнюю печатную форму word. Этот механизм работает на БП 3.0 версии ‘3.0.67.63’. Думаю будет работать и на других типовых конфигурациях.

Ну и как всегда готовый бесплатный файл для Вас! Удачи!

Скачать файлы ‘craft1c_ВнешняяПечатнаяФормаWord.epf’

13 комментария

Николай 19 февраля, 2020 в 9:45 дп

Все круто не хвататет работы с табличной частью Все голову сломал не могу найти как добавлять в тч

1+

Ответить ↓
1. Admin (Автор записи)19 февраля, 2020 в 10:11 дп
  
  Привет! Что ты имеешь ввиду? Расскажи подробнее, может помогу чем…
  
  1+
  
  Ответить ↓
  1. Иван 26 февраля, 2020 в 9:49 пп
    
    Через п_СсылкаНаОбъект передается только ФИО сотрудника, а как передавать другие данные? Например название организации?
    
    2+
    
    Ответить ↓
    1. Admin (Автор записи)27 февраля, 2020 в 5:47 дп
      
      Не очень понял, но смотри: п_СсылкаНаОбъект – это ссылка на объект справочника “Сотрудники”, откуда ты уже получаешь все его реквизиты. Имея ссылку на сотрудника, ты можешь любыми доступными способами получить всю связанную информацию (организации, физ. лицо и т.д. – запросами и т.д.). Или ты хочешь еще передавать вообще не связанную информацию с формы? Скинь пример того, что ты хочешь получить, помогу.
      
      1+
      
      Ответить ↓
      1. Иван 27 февраля, 2020 в 8:58 дп
        
        Конфигурация ЗУП ПРОФ 3.1.13.76
        Например, мне нужно получить дату и номер трудового договора сотрудника.Я создаю функцию в которую передаю ссылку п_СсылкаНаОбъект,запросом вытягиваю данные отсюда ОсновныеДанныеКонтрактаДоговораСотрудникаСрезПоследних.НомерДоговораКонтракта(в этом регистре делаю отбор по п_СсылкаНаОбъект).
        При запуске формы мне выдает Значение не является значением объектного типа
        
        1+
      2. Admin (Автор записи)27 февраля, 2020 в 9:30 дп
        
        Написал на почту возможные причины ошибки
        
        1+
Павел 2 марта, 2020 в 3:16 пп

Она через открытие формы работает?((

1+

Ответить ↓
1. Admin (Автор записи)2 марта, 2020 в 4:46 пп
  
  Согласен, есть небольшой недостаток. Думаю можно сделать и без открытия. Посмотрю, если получится еще один вариант выложу.
  
  1+
  
  Ответить ↓
  1. Павел 3 марта, 2020 в 7:35 дп
    
    считаю это важным аспектом
    
    1+
    
    Ответить ↓
    1. Admin (Автор записи)3 марта, 2020 в 9:00 дп
      
      Есть Еще один вариант! Напишу статью сегодня. Оказывается столько всего интересного и крутого есть)!
      
      1+
      
      Ответить ↓
Admin (Автор записи)3 марта, 2020 в 9:41 дп

Зацени этот вариант:
https://craft1c.ru/vneshnjaja-pechatnaja-forma-word-chast2/

1+

Ответить ↓
Павел 3 марта, 2020 в 9:42 дп

Реализовал свой вариант. Если интересно могу скинуть.

1+

Ответить ↓
1. Admin (Автор записи)3 марта, 2020 в 9:42 дп
  
  Давай закинь на почту, только если он отличается от второй моей заметки)
  
  1+
  
  Ответить ↓

Внешняя печатная форма word

13 комментария

Оставить комментарий Отменить ответ