Конструктор внешних печатных форм NEW beta (обычные и управляемые приложения!)

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

Функция ЗарегистрироватьОбработкуВИнформационнойБазеНаСервере(РежимИспользования = "", СсылкаНаЭлемент = Неопределено)

	//Регистрируем обработку в информационной базе
	.......
	
	//{{Начало изменений: maxval:
	СтараяВерсия = Объект.СтараяВерсия;
	//}}Конец изменений: maxval.
	
	
	// Если новая обработка или не заполнено назначение - устанавливаем назначение из обработки
	Если (ЭлементОбъект.Ссылка = Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка()
		 ИЛИ ЭлементОбъект.Назначение.Количество() = 0)
		И (ЭлементОбъект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ЗаполнениеОбъекта
			ИЛИ ЭлементОбъект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет
			ИЛИ ЭлементОбъект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма
			ИЛИ ЭлементОбъект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.СозданиеСвязанныхОбъектов)
		 ТОГДА
		
		ЭлементОбъект.ИспользоватьДляФормыОбъекта = Истина;
		ЭлементОбъект.ИспользоватьДляФормыСписка = Истина;
		
		//{{Начало изменений: maxval:
		Если СтараяВерсия Тогда   
			ПолноеНазначениеЗначение = ДополнительныеОтчетыИОбработки.ПолучитьПолноеНазначениеПоВидуДополнительнойВнешнейОбработки­(ЭлементОбъект.Вид);
		Иначе
			ПолноеНазначениеЗначение = ДополнительныеОтчетыИОбработки.НазначаемыеОбъектыМетаданныхПоВидуВнешнегоОбъекта(ЭлементОбъект.Вид);			
		КонецЕсли;  
		//}}Конец изменений: maxval.
		
		
		Если РегистрационныеДанные.Свойство("Назначение") Тогда
			
			Для Каждого ЭлементЗаданноеНазначение Из РегистрационныеДанные.Назначение Цикл
				
				РазделеннаяСтрока = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ЭлементЗаданноеНазначение, ".");
				
				Если РазделеннаяСтрока[1] = "*" Тогда
					
					НайденныеНазначения = ПолноеНазначениеЗначение.НайтиСтроки(Новый Структура("Класс", РазделеннаяСтрока[0]));
					
					Для Каждого ЭлементНайденноеНазначение Из НайденныеНазначения Цикл
						НоваяСтрока = ЭлементОбъект.Назначение.Добавить();
						НоваяСтрока.ПолноеИмяОбъектаМетаданных = ЭлементНайденноеНазначение.ПолноеИмяОбъектаМетаданных;
					КонецЦикла;
					
				Иначе  					
						Если ПолноеНазначениеЗначение.НайтиСтроки(Новый Структура("ПолноеИмяОбъектаМетаданных", ЭлементЗаданноеНазначение)).Количество() > 0 Тогда
							НоваяСтрока = ЭлементОбъект.Назначение.Добавить();
							//{{Начало изменений: maxval:
							Если СтараяВерсия Тогда
								НоваяСтрока.ПолноеИмяОбъектаМетаданных = ЭлементЗаданноеНазначение;  
							Иначе
								ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(ЭлементЗаданноеНазначение);
								Если ОбъектМетаданных = Неопределено Тогда
									Продолжить;
								КонецЕсли;		
								НоваяСтрока.ОбъектНазначения = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектМетаданных);
							КонецЕсли; 								
							//}}Конец изменений: maxval. 
						КонецЕсли;					
				КонецЕсли;
				
			КонецЦикла;
		КонецЕсли;
		
		//Изменено: maxval 08.01.2014
		//ЭлементОбъект.Назначение.Свернуть("ПолноеИмяОбъектаМетаданных", "");
		//---- Заменено на: ----
		Если СтараяВерсия Тогда
			ЭлементОбъект.Назначение.Свернуть("ПолноеИмяОбъектаМетаданных", "");
		Иначе
			ЭлементОбъект.Назначение.Свернуть("ОбъектНазначения", "");
		КонецЕсли;  
		/// maxval 08.01.2014
		
	КонецЕсли;