Перем ПоставщикДанныхЛ, Сервис;

//******************************************************************************
//
//
Процедура ПослеУдаления(ПоставщикДанных)

	ДанныеСпр = ПоставщикДанных.Данные;
	Если ДанныеСпр.ТекущаяСтрока.ПометкаУдаления() = 1 Тогда
		спр = СоздатьОбъект(ПоставщикДанных.ТипЗначений);
		спр.НайтиЭлемент(ДанныеСпр.ТекущаяСтрока);
	    спр.Удалить(1);
	КонецЕсли;
	
КонецПроцедуры

//******************************************************************************
//
//
Процедура КонтейнерТППослеУдаления()
	
	ПослеУдаления(ПоставщикДанныхЛ);
	
КонецПроцедуры


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


//******************************************************************************
//
//
Процедура СтандартныеКнопки(ПоставщикДанных)

	КоманднаяПанель = ПоставщикДанных.Данные.КоманднаяПанель;
	ТабличноеПоле = ПоставщикДанных.ТабличноеПоле;
	
	КоманднаяПанель.УстановитьНаборПиктограмм(Сервис.КартинкаКоманднойПанели,16,16,26);

	Кнопка = КоманднаяПанель.Кнопка("Добавить",,,1,"ДобавитьСтроку",глВзятьКонтекст(Контекст));
	Кнопка.Подсказка = "Добавить новую строку";
	Кнопка.Доступность = ТабличноеПоле.ИзменятьСоставСтрок;
	КоманднаяПанель.Добавить(Кнопка);
	
	Кнопка = КоманднаяПанель.Кнопка("Изменить",,,4,"ИзменитьСтроку",ТабличноеПоле);
	Кнопка.Подсказка = "Изменить текущую строку";
	КоманднаяПанель.Добавить(Кнопка);

	Кнопка = КоманднаяПанель.Кнопка("Удалить",,,2,"УдалитьСтроку",ТабличноеПоле);
	Кнопка.Подсказка = "Удалить текущую строку";
	Кнопка.Доступность = ТабличноеПоле.ИзменятьСоставСтрок;
	КоманднаяПанель.Добавить(Кнопка);

	КоманднаяПанель.Добавить(КоманднаяПанель.Кнопка("Разделитель_1",4));

	Кнопка = КоманднаяПанель.Кнопка("Обновить",,,6,"ОбновитьСтрокиТабличногоПоля",ПоставщикДанных);
	Кнопка.Подсказка = "Обновить текущий список";
	КоманднаяПанель.Добавить(Кнопка);
	
КонецПроцедуры


//******************************************************************************
//
//
Процедура ИницализироватьСписокЛистов()

	ПоставщикДанныхЛ = СоздатьОбъект("ПоставщикДанных");
	ПоставщикДанныхЛ.КонтейнерТабличногоПоля = "КонтейнерТП";
	ПоставщикДанныхЛ.КонтейнерКоманднойПанели = "КонтейнерКП";
	ПоставщикДанныхЛ.ТипЗначений = "Справочник.ВС_ЛистыУК";
	
	ДанныеСпр = ПоставщикДанныхЛ.Данные;
	ДанныеСпр.Владелец = ТекущийЭлемент();
	ДанныеСпр.НоваяКолонка("Код");
	ДанныеСпр.НоваяКолонка("Папка");
	ДанныеСпр.НоваяКолонка("Файл");
	ДанныеСпр.АвтоОбновление = 1;
	ДанныеСпр.ПериодАвтоОбновления = 10;
    
	СтандартныеКнопки(ПоставщикДанныхЛ);

	ПоставщикДанныхЛ.Обновить();
	
КонецПроцедуры


//******************************************************************************
//
//
Процедура ПослеОткрытия()
    
	Сервис = СоздатьОбъект("ПоставщикДанных.Сервис");
	ИницализироватьСписокЛистов();

КонецПроцедуры


//******************************************************************************
//
//
Процедура ПриОткрытии()

	
    
КонецПроцедуры