Код

Процедура Открыть(фМодально=0) Экспорт
	стрПуть=Сам(Контекст).ПолучитьПуть();
	спПараметры=СоздатьОбъект("СписокЗначений");
	спПараметры.Установить("ТвойКласс", Сам(Контекст)); //Контекст
	Если Прав(стрПуть, 3)="@MD" Тогда
		Если фМодально=0 Тогда
			ОткрытьФорму		("Обработка."+СтрЗаменить(стрПуть, "@MD", ""), спПараметры);
		Иначе
			ОткрытьФормуМодально("Обработка."+СтрЗаменить(стрПуть, "@MD", ""), спПараметры);
		КонецЕсли;
	    
	Иначе
		Если фМодально=0 Тогда
			ОткрытьФорму		("Обработка.ИмяОбраюотки", спПараметры);
		Иначе
			ОткрытьФормуМодально("Обработка.ИмяОбработки", спПараметры);
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
//--------------------------------------------


Процедура ПриОткрытии()
	Если ТипЗначениястр(Форма.Параметр)<>"СписокЗначений" Тогда
		СтатусВозврата(0); Возврат;
	КонецЕсли;
	ОбъектКласса=Форма.Параметр.Получить("ТвойКласс");
КонецПроцедуры