Получение формы внешней обработки

&НаКлиенте
Процедура Команда1(Команда)
        
    ПараметрыКоманды = Новый Структура;
   	ОткрытьФорму("ВнешняяОбработка.юи_ВыгрузкаВБухгалтерию.Форма.Форма", ПараметрыКоманды, ЭтаФорма, , ВариантОткрытияОкна.ОтдельноеОкно,,,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
	
КонецПроцедуры

&НаСервере
Функция Получить()
	
	ИмяВременногоФайла = КаталогВременныхФайлов()+"юи_ВыгрузкаВБухгалтерию.epf";
   ДвоичныеДанные = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоРеквизиту("ИмяОбъекта","юи_ВыгрузкаВБухгалтерию").ХранилищеОбработки.Получить();
   ДвоичныеДанные.Записать(ИмяВременногоФайла);
   ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременногоФайла);
 	

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

 Процедура ПечатьУПД()
	
	Объект = Документ.ПолучитьОбъект();
	КоличествоЭкземпляров = 1; 
	НаПринтер = Ложь;
	
	ЭтоДокумент = Метаданные.Документы.Содержит(Объект.Метаданные());
	
	Если ЭтоДокумент И Объект.Метаданные().Проведение = Метаданные.СвойстваОбъектов.Проведение.Разрешить 
		и Не УправлениеДопПравамиПользователей.РазрешитьПечатьНепроведенныхДокументов(Объект.Проведен) Тогда
		
		Сообщить("Недостаточно полномочий для печати непроведенного документа!"); 
		Возврат;
		
	КонецЕсли;
	
	Попытка
		СтруктураВнутреннихПечатныхФорм = Объект.ПолучитьСтруктуруПечатныхФорм()
	Исключение
		СтруктураВнутреннихПечатныхФорм = Новый Структура;
	КонецПопытки;
	
	ДеревоМакетов = УниверсальныеМеханизмы.ПолучитьДеревоМакетовПечати(Объект.Ссылка, СтруктураВнутреннихПечатныхФорм);
	
	СтрокаПоУмолчанию = УниверсальныеМеханизмы.ПолучитьСтрокуДереваМакетовПоУмолчанию(Объект.Метаданные().Имя, ДеревоМакетов);
	
	Если СтрокаПоУмолчанию = Неопределено Тогда
		
		Сообщить("Для данного вида " + ?(ЭтоДокумент, "документа ", "") + "не назначено ни одной печатной формы!"); 
		Возврат;
		
	КонецЕсли;
	
	Расшифровка = СтрокаПоУмолчанию.Расшифровка;
	Если ТипЗнч(Расшифровка) = Тип("Структура") и Расшифровка.ВидПечатнойФормы = Перечисления.ВидыДополнительныхВнешнихОбработок.ПечатнаяФорма Тогда
		Если Не РаботаСДиалогами.ПроверитьМодифицированность(Объект) Тогда
			Возврат;
		КонецЕсли;
		
		ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Объект.Ссылка, Расшифровка);
		УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, 
			?(ЭтоДокумент, ОбщегоНазначения.СформироватьЗаголовокДокумента(Объект), Строка(Объект)), Объект.Ссылка);
	Иначе
		//Объект.Печать(Расшифровка, КоличествоЭкземпляров, НаПринтер);
	КонецЕсли;
		
КонецПроцедуры // ПечатьУПД()

////////////////////////////////////////////////////////////­//////////////////////////
////////////////ИЛИ ЧЕРЕЗ КОНСТАНТУ В КОТОРУЮ ЗАПИСАНА ВН. ОБРАБОТКА//////////////////

//ВыбраннаяСтрока = Справочники.ВнешниеОбработки.НайтиПоКоду("OSN000001");
ВыбраннаяСтрока = Константы.ОбработкаДляОтправкиСМС.Получить(); //Константа расположена на ОБЩЕЙ форме НастройкаПараметровУчета	

Выборка = ПолучаемКонтрагентовИзСправочникаРассылкаСМС();
Если Выборка = Неопределено Тогда
	Возврат;
КонецЕсли; 

Попытка
	
	ИмяФайла = ПолучитьИмяВременногоФайла(); //Имя временного файла
	ДвоичныеДанные = ВыбраннаяСтрока.ХранилищеВнешнейОбработки.Получить();
	ДвоичныеДанные.Записать(ИмяФайла);
	
	Форма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);
	
	Если Не Форма = Неопределено Тогда
		Форма.Открыть();
	Иначе
		ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяФайла);
	КонецЕсли;
	
	ТЧ = Форма.ОбработкаОбъект.Контрагенты; //Через форму получаем объект и ТЧ Контрагенты
	ТЧ.Очистить();
	Пока Выборка.Следующий()  Цикл
		СтрТЧ = ТЧ.Добавить();
		СтрТЧ.Контрагент = Выборка.Контрагент;
	КонецЦикла;
	
Исключение
	Предупреждение("Выбранный файл не является внешней обработкой.
	|Либо, данная обработка не предназначена для
	|запуска в этой конфигурации.");
КонецПопытки;