Merge branch 'pr-784' into develop

Author: LevkinSergey

src/Инструменты/src/DataProcessors/УИ_РедакторРеквизитовОбъекта/Forms/ФормаОбъекта/Module.bsl

@@ -49,7 +49,8 @@
 	УИ_РаботаСФормами.ФормаПриСозданииНаСервереСоздатьРеквизитыПараметровЗаписи(ЭтотОбъект,
 		Элементы.ГруппаПараметрыЗаписи);
 	УИ_ОбщегоНазначения.ФормаИнструментаПриСозданииНаСервере(ЭтотОбъект, Отказ, СтандартнаяОбработка);
-	
+
+	ДобавитьКомандуОчисткиТаблицы(Элементы._НаборЗаписей, "_НаборЗаписей");	
 КонецПроцедуры
 
 &НаКлиенте
@@ -984,10 +985,38 @@
 
 КонецПроцедуры
 
+&НаКлиенте
+Процедура Подключаемый_ОчиститьТаблицу(Команда)
+	Префикс = "_ОчиститьТаблицу_";
+	ПутьКДанным = Сред(Команда.Имя, СтрДлина(Префикс) + 1);
+	ОчиститьТаблицуНаСервере(ПутьКДанным);
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции
 
+&НаСервере
+Процедура ДобавитьКомандуОчисткиТаблицы(Таблица, ПутьКДанным)
+	ИмяКоманды = "_ОчиститьТаблицу_" + ПутьКДанным;
+	Если Команды.Найти(ИмяКоманды) <> Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+
+	НоваяКоманда = Команды.Добавить(ИмяКоманды);
+	НоваяКоманда.Действие = "Подключаемый_ОчиститьТаблицу";
+	НоваяКоманда.Заголовок = "Очистить таблицу";
+
+	Кнопка = Элементы.Добавить("ОчиститьТаблицу_" + ПутьКДанным, Тип("КнопкаФормы"), Таблица.КоманднаяПанель);
+	Кнопка.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
+	Кнопка.ИмяКоманды = ИмяКоманды;
+КонецПроцедуры
+
+&НаСервере
+Процедура ОчиститьТаблицуНаСервере(ПутьКДанным)
+	ЭтотОбъект[ПутьКДанным].Очистить();
+КонецПроцедуры
+
 &НаСервереБезКонтекста
 Функция ЕстьПраваАдминистратора()
 	Возврат ПравоДоступа("Администрирование", Метаданные);
@@ -1702,6 +1731,8 @@
 			Кнопка = Элементы.Добавить(СтрШаблон("ОткрытьОбъект_%1", ИмяТаблицы), Тип("КнопкаФормы"), ГруппаКнопок);
 			Кнопка.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
 			Кнопка.ИмяКоманды = "ОткрытьОбъект";
+			
+			ДобавитьКомандуОчисткиТаблицы(НоваяТаблица, ИмяТаблицы);
 		КонецЦикла;
 	КонецЕсли;