Перем пПоставщикДанных;
Перем пТабличноеПоле;
Перем пДанные;

Перем пПоставщикДанныхПодч;
Перем пТабличноеПолеПодч;
Перем пДанныеПодч;

Перем пВидыСравнения;


// ----------------------------------------------------------------------------------------------------
Процедура УстановитьПоставщикаДанныхСправочник()
	
	пПоставщикДанных = СоздатьОбъект("ПоставщикДанных");
	пПоставщикДанных.ТипЗначений = "Справочник.Тест";
	пПоставщикДанных.КонтейнерКоманднойПанели = "кнКоманднаяПанель";
	пПоставщикДанных.КонтейнерТабличногоПоля = "кнСписокТест";
	
	пТабличноеПоле = пПоставщикДанных.ТабличноеПоле;
	пТабличноеПоле.СтильЗаголовков = 1;
	пТабличноеПоле.СтильРамки = 1;
	пТабличноеПоле.ЧередованиеЦветовСтрок = 0;   
	
	пДанные = пПоставщикДанных.Данные;
	пДанные.НоваяКолонка("ПометкаУдаления");
	пДанные.НоваяКолонка("Код");
	пДанные.НоваяКолонка("ТестРеквизит");
	
	пДанные.РеквизитСортировки = "ТестРеквизит";
	пДанные.РежимОтладки = 1;//
	пДанные.ПросмотрПоВладельцу = 1;
	пДанные.СоздатьКнопкиПоУмолчанию();	 
		
	пТабличноеПоле.ВосстановитьПозициюКолонок();
	пПоставщикДанных.Обновить();
	
КонецПроцедуры 

Процедура УстановитьПоставщикаДанныхПодчиненный()
	
	пПоставщикДанныхПодч = СоздатьОбъект("ПоставщикДанных");
	пПоставщикДанныхПодч.ТипЗначений = "Справочник.ТестПодчиненный";
	пПоставщикДанныхПодч.КонтейнерТабличногоПоля = "кнСписокТестПодч";
	
	пТабличноеПолеПодч = пПоставщикДанныхПодч.ТабличноеПоле;
	пТабличноеПолеПодч.СтильЗаголовков = 1;
	пТабличноеПолеПодч.СтильРамки = 1;
	пТабличноеПолеПодч.ЧередованиеЦветовСтрок = 0;   
	
	пДанныеПодч = пПоставщикДанныхПодч.Данные;
	пДанныеПодч.НоваяКолонка("ПометкаУдаления");
	пДанныеПодч.НоваяКолонка("Код");
	пДанныеПодч.НоваяКолонка("ТестПодчиненныйРеквизит");
	
	пДанныеПодч.РеквизитСортировки = "ТестПодчиненныйРеквизит";
	пДанныеПодч.РежимОтладки = 1;//
	пДанныеПодч.ПросмотрПоВладельцу = 1; 
	пДанныеПодч.ИзменятьПросмотрПоВладельцу = 0;
	пДанныеПодч.Владелец = пПоставщикДанных.ТабличноеПоле.ТекущаяСтрока;
	пДанныеПодч.СоздатьКнопкиПоУмолчанию();	 
		
	пТабличноеПолеПодч.ВосстановитьПозициюКолонок();
	пПоставщикДанныхПодч.Обновить();
	
КонецПроцедуры 


Процедура кнСписокТестПриАктивизацииСтроки(пТабличноеПоле)
	ТекущийФЛ = пТабличноеПоле.ТекущаяСтрока;
	пДанныеПодч.Владелец = ТекущийФЛ;
	пПоставщикДанныхПодч.Обновить();
КонецПроцедуры

// ------------------------------------------------------------------------------------------------  
Процедура ПриОткрытии()      
	 мОбКомпонентаРаботыСФормойРасширениеФормы = СоздатьОбъект("РасширениеФормы");      
     мОбКомпонентаРаботыСФормойРасширениеФормы.УстановитьФорму(Форма);
     мАтрибутМногострочнаяЧасть = мОбКомпонентаРаботыСФормойРасширениеФормы.ПолучитьАтрибут("МногострочнаяЧасть");                  
     мАтрибутМногострочнаяЧасть.Видимость = 0;  
	 
	 Форма.ИспользоватьСлой("Основной",2);
КонецПроцедуры

Процедура ПослеОткрытия()
	
	Форма.кнКоманднаяПанель.Видимость(0);
	Форма.кнКоманднаяПанель.Видимость(1);
	
КонецПроцедуры

// ------------------------------------------------------------------------------------------------
Процедура ПослеСозданияФормы()
	
	//пВидыСравнения = СоздатьОбъект("ПоставщикДанных.ВидыСравнения");
	УстановитьПоставщикаДанныхСправочник();
	УстановитьПоставщикаДанныхПодчиненный();
	
КонецПроцедуры