
//# ClassBegin НаследникГрупповойКонтекст

Функция Конт(Конт) Возврат Конт; КонецФункции // : Контекст
Функция Сам() Возврат Конт(Контекст); КонецФункции // : Контекст

// проверка бага 2402 http://cvs.alterplast.ru/bugs/show_bug.cgi?id=2402
Процедура Инициализация(конт) Экспорт
	//Конт.МетодФормы();
	ВМ = СоздатьОбъект("ВыполняемыйМодуль");
	ТабМетодов = СоздатьОбъект("ТаблицаЗначений");
	ТабСвойств = СоздатьОбъект("ТаблицаЗначений");

	Сообщить("ВМ.GetMethOfContext(Конт)");	
	ВМ.GetMethOfContext(Конт, ТабМетодов, ТабСвойств);
	//ВМ.GetMethOfContext(Сам(), ТабМетодов, ТабСвойств);
	ТабМетодов.ВыбратьСтроку("");
	ТабСвойств.ВыбратьСтроку("");

	Сообщить("ВМ.GetMethOfContext(Сам())");	
	ВМ.GetMethOfContext(Сам(), ТабМетодов, ТабСвойств);
	ТабМетодов.ВыбратьСтроку("");
	ТабСвойств.ВыбратьСтроку("");

	Сам().ЗаменитьЭксзБазовогоКласса("ГрупповойКонтекст", Конт);
	//ВМ = СоздатьОбъект("ВыполняемыйМодуль");
	////ВМ.GetMethOfContext(Сам());
	//ВМ.GetMethOfContext(Конт, ТабМетодов, ТабСвойств);
	Сообщить("ВМ.GetMethOfContext(Сам())");	
	ВМ.GetMethOfContext(Сам(), ТабМетодов, ТабСвойств);
	ТабМетодов.ВыбратьСтроку("");
	ТабСвойств.ВыбратьСтроку("");
//Сообщить("-------------------------------------- = ");
	//ВМ.GetMethOfContext(Конт);
	
	//Конт.МетодФормы();
КонецПроцедуры

Процедура ПослеОткрытия() Экспорт
Сообщить("Сам.ПослеОткрытия() 1 ");
	Сам().МетодФормы();
Сообщить("Сам.ПослеОткрытия() 2 ");
Сообщить("Сам().Вид() = <"+Сам().Вид()+">");
Сообщить("Сам().ДатаДок = <"+Сам().ДатаДок+">");
Сообщить("Сам().НомерДок = <"+Сам().НомерДок+">");

	Сам().Стр = "Бугага";
	Сообщить("Сам().Стр = <"+Сам().Стр+">");

КонецПроцедуры
//# ClassEnd НаследникГрупповойКонтекст
