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

Процедура ВывестиДанные(ТекстЗапроса)
	
	Запрос = Новый Запрос(ТекстЗапроса);
	Попытка 
		РезультатЗапроса = Запрос.Выполнить();
		Если Не РезультатЗапроса.Пустой() Тогда
			ТЗ = РезультатЗапроса.Выгрузить();
			Для Каждого Стр Из ТЗ Цикл
				ОбработкаПрерыванияПользователя();
				Строка = РезультатПоиска.Добавить();
				ЗаполнитьЗначенияСвойств(Строка, Стр);
			КонецЦикла;
		КонецЕсли;
	Исключение
		Сообщить(ИнформацияОбОшибке().Описание + " " + ИнформацияОбОшибке().Причина);
	КонецПопытки;
	
КонецПроцедуры

Процедура ПроверитьРегистрНаБитыеСсылки(ОбъектМетаданных)
	
	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();
	Если Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда
		Если ОбъектМетаданных.РежимЗаписи = НезависимыйРежимЗаписи Тогда
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Ресурсы, ИмяТаблицы);
			//АнализСвойствРегистраСведений(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
			Возврат;
		КонецЕсли;
		АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	КонецЕсли;
	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Измерения, ИмяТаблицы);
	АнализСвойствРегистра(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	
	АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы);
	
	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда
		//Для рег. бухгалтерии анализ субконто
		
	КонецЕсли;
	Если Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда
		//Для регистров расчета доп. анализ
	КонецЕсли;

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

Процедура ПроверитьОбъектНаБитыеСсылки(ОбъектМетаданных)
	
	ИмяТаблицы = ОбъектМетаданных.ПолноеИмя();
	АнализСвойствОбъекта(ОбъектМетаданных, ОбъектМетаданных.Реквизиты, ИмяТаблицы);
	Для Каждого ТабЧасть Из ОбъектМетаданных.ТабличныеЧасти Цикл
		Если ТабличныеЧастиИсключения.Найти(ТабЧасть.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		АнализСвойствОбъекта(ОбъектМетаданных, ТабЧасть.Реквизиты, ИмяТаблицы + "." + ТабЧасть.Имя)
	КонецЦикла;
	//проверка владельца у справочников
	Если Метаданные.Справочники.Содержит(ОбъектМетаданных) И ОбъектМетаданных.Владельцы.Количество() > 0 Тогда
		МассивВладельцев = Новый Массив;
		Для Каждого Элемент Из ОбъектМетаданных.Владельцы Цикл
			МассивВладельцев.Добавить(Элемент);
		КонецЦикла;
		//АнализСвойствВладельцаОбъекта(ОбъектМетаданных, МассивВладельцев, ИмяТаблицы);
	КонецЕсли;
	
	//Для задач поле исполнитель
	//проверки в журналах
	
	ОбработкаПрерыванияПользователя();
	
КонецПроцедуры

Процедура АнализСвойствОбъекта(ОбъектМетаданных, Свойства, ИмяТаблицы)
	
	Для Каждого Реквизит Из Свойства Цикл
		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл
			ТекстЗапроса = "";
			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
			Если МетаданныеТипа <> Неопределено
				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
				Если ИспользоватьОграничение Тогда
					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
						Продолжить;
					КонецЕсли;
				КонецЕсли;
				ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);
			КонецЕсли;
			Если Не ПустаяСтрока(ТекстЗапроса) Тогда
				ВывестиДанные(ТекстЗапроса);
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры

Процедура АнализСвойствРегистра(ОбъектМетаданных, Свойства, ИмяТаблицы)
	
	Для Каждого Реквизит Из Свойства Цикл
		Если РеквизитыИсключения.Найти(Реквизит.Имя) <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		Для Каждого моТип Из Реквизит.Тип.Типы() Цикл
			ТекстЗапроса = "";
			МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
			Если МетаданныеТипа <> Неопределено
				 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
				Если ИспользоватьОграничение Тогда
					Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
						Продолжить;
					КонецЕсли;
				КонецЕсли;
				ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, Реквизит.Имя, моТип);
			КонецЕсли;
			Если Не ПустаяСтрока(ТекстЗапроса) Тогда
				ВывестиДанные(ТекстЗапроса);
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	
КонецПроцедуры

Процедура АнализРегистратораРегистра(ОбъектМетаданных, ИмяТаблицы)
	
	МассивРегистраторов = ПолучитьСписокРегистраторов(ОбъектМетаданных);
	Для Каждого Регистратор Из МассивРегистраторов Цикл
		Если РеквизитыИсключения.Найти("Регистратор") <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		моТип = Регистратор;
		ТекстЗапроса = "";
		МетаданныеТипа = Метаданные.НайтиПоТипу(моТип);
		Если МетаданныеТипа <> Неопределено
			 И Не Метаданные.Перечисления.Содержит(МетаданныеТипа) Тогда
			Если ИспользоватьОграничение Тогда
				Если Не ПоискПоТипу(МетаданныеТипа.ПолноеИмя()) Тогда
					Продолжить;
				КонецЕсли;
			КонецЕсли;
			ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, "Регистратор", моТип);
		КонецЕсли;
		Если Не ПустаяСтрока(ТекстЗапроса) Тогда
			ВывестиДанные(ТекстЗапроса);
		КонецЕсли;
	КонецЦикла;
	
КонецПроцедуры

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

Функция ПолучитьМенеджерОбъекта(ОбъектМетаданных)
	
	Перем МенеджерОбъекта;
	Если Метаданные.РегистрыБухгалтерии.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыБухгалтерии[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыНакопления.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыНакопления[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыСведений.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыСведений[ОбъектМетаданных.Имя];
	ИначеЕсли Метаданные.РегистрыРасчета.Содержит(ОбъектМетаданных) Тогда
		МенеджерОбъекта = РегистрыРасчета[ОбъектМетаданных.Имя];
	КонецЕсли;
	Возврат МенеджерОбъекта;
	
КонецФункции

Функция ПоискПоТипу(ИмяТипа)
	
	Результат = Ложь;
	Если ИспользоватьОграничение Тогда
		МассивСтрок = ОграничениеТипов.НайтиСтроки(Новый Структура("ТипДанных", ИмяТипа));
		Если ЗначениеЗаполнено(МассивСтрок) Тогда
			Результат = Истина;
		КонецЕсли;
	КонецЕсли;
	Возврат Результат;
	
КонецФункции

Процедура ДобавитьВЗапросРегистр(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)
	
	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 
			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 
			|	Об.Регистратор КАК ОбъектИсточник,
			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 
			|ИЗ 
			|	" + ИмяТаблицы + " КАК Об
			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);
	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;	
	
КонецПроцедуры

Процедура ДобавитьВЗапросОбъект(ТекстЗапроса, ОбъектМетаданных, ИмяТаблицы, ИмяРеквизита, ТипРеквизита)
	
	Текст = "ВЫБРАТЬ Об." + ИмяРеквизита + " КАК Объект, 
			|	""" + ИмяТаблицы + "." + ИмяРеквизита + """ КАК ТаблицаИсточник, 
			|	Об.Ссылка КАК ОбъектИсточник,
			| 	" + ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита) + " 
			|ИЗ 
			|	" + ИмяТаблицы + " КАК Об
			|ГДЕ " + ДобавитьУсловия(ИмяРеквизита, ТипРеквизита);
	ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС) + Текст;
	
КонецПроцедуры

Функция ДобавитьУсловия(ИмяРеквизита, ТипРеквизита)
	
	мдОбъекта = Метаданные.НайтиПоТипу(ТипРеквизита);
	ИмяТаблицы = мдОбъекта.ПолноеИмя();
	ПроверкаНаПустыеЗначения = " Об." + ИмяРеквизита + " ССЫЛКА " + ИмяТаблицы;
	ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И ВЫРАЗИТЬ(Об." + ИмяРеквизита + " КАК " + ИмяТаблицы + ").Ссылка есть null";
	Если Не Метаданные.Перечисления.Содержит(мдОбъекта) Тогда
		ПроверкаНаПустыеЗначения = ПроверкаНаПустыеЗначения + " И Об." + ИмяРеквизита + " <> Значение(" + ИмяТаблицы + ".ПустаяСсылка)";
	КонецЕсли;
	Возврат ПроверкаНаПустыеЗначения;
	
КонецФункции

Функция ДобавитьОписаниеТипа(ИмяРеквизита, ТипРеквизита)
	
	ОбъектТипа = Метаданные.НайтиПоТипу(ТипРеквизита);
	ИмяТаблицы = ОбъектТипа.ПолноеИмя();
	ОписаниеТипа = """" + ИмяТаблицы + """ КАК ТипДанных";	
	Возврат ОписаниеТипа;
	
КонецФункции

Процедура ОграничениеТиповТипДанныхНачалоВыбора(Элемент, СтандартнаяОбработка)
	
	Перем ЭлементСписка;
	СтандартнаяОбработка = Ложь;
	Строка = ЭлементыФормы.ОграничениеТипов.ТекущиеДанные;
	Если Не ПустаяСтрока(Строка.ТипДанных) Тогда
		ЭлементСписка = СписокТипов.НайтиПоЗначению(Строка.ТипДанных);
	КонецЕсли;
	ВыбранныйЭлемент = СписокТипов.ВыбратьЭлемент( , ЭлементСписка);
	Если ВыбранныйЭлемент <> Неопределено Тогда
		Строка.ТипДанных = ВыбранныйЭлемент.Значение;
	КонецЕсли;
	
КонецПроцедуры

РеквизитыИсключения = Новый Массив;

ТабличныеЧастиИсключения = Новый Массив;

СписокТипов = Новый СписокЗначений;
Для Каждого ОбъектМетаданных Из Метаданные.Справочники Цикл
	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.СправочникОбъект);
КонецЦикла;

Для Каждого ОбъектМетаданных Из Метаданные.Документы Цикл
	СписокТипов.Добавить(ОбъектМетаданных.ПолноеИмя(), ОбъектМетаданных.Имя, , БиблиотекаКартинок.ДокументОбъект);
КонецЦикла;

КоллекцияОбъектов = Новый Массив;
КоллекцияОбъектов.Добавить(Метаданные.ПланыОбмена);
КоллекцияОбъектов.Добавить(Метаданные.Справочники);
КоллекцияОбъектов.Добавить(Метаданные.Документы);
КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовХарактеристик);
КоллекцияОбъектов.Добавить(Метаданные.ПланыСчетов);
КоллекцияОбъектов.Добавить(Метаданные.ПланыВидовРасчета);
КоллекцияОбъектов.Добавить(Метаданные.БизнесПроцессы);
КоллекцияОбъектов.Добавить(Метаданные.Задачи);

КоллекцияРегистров = Новый Массив;
КоллекцияРегистров.Добавить(Метаданные.РегистрыСведений);
КоллекцияРегистров.Добавить(Метаданные.РегистрыНакопления);
КоллекцияРегистров.Добавить(Метаданные.РегистрыБухгалтерии);
КоллекцияРегистров.Добавить(Метаданные.РегистрыРасчета);
   

  //Пример 1
Процедура СтатьяПДРНачалоВыбора(Элемент, СтандартнаяОбработка)
    ФормаВыбора = Справочники.ПрочиеДоходыИРасходы.ПолучитьФормуВыбора(, Элемент);
    ЭлементОтбораВидПДР = ФормаВыбора.Отбор.ВидПрочихДоходовИРасходов;
    Если ЭлементОтбораВидПДР <> Неопределено Тогда
        ЭлементОтбораВидПДР.ВидСравнения  = ВидСравнения.Равно;
        ЭлементОтбораВидПДР.Значение      = Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеВнереализационныеДоходыРасходы;
        ЭлементОтбораВидПДР.Использование = Истина;
    КонецЕсли;
   // Закроем доступ к настройке отбора. Таким образом, пользователь не может отключить заданный программно отбор
   //  и имеет возможность сделать выбор значения только из ограниченного списка.
    ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.ВидПрочихДоходовИРасходов.Доступность = Ложь;
    ФормаВыбора.Открыть();
    СтандартнаяОбработка = Ложь; 
КонецПроцедуры

//Пример 2
Процедура СчетДтНачалоВыбора(Элемент, СтандартнаяОбработка)
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   | Хозрасчетный.Ссылка
                   |ИЗ
                   | ПланСчетов.Хозрасчетный КАК Хозрасчетный
                   |ГДЕ
                   | Хозрасчетный.Родитель В ИЕРАРХИИ (ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Материалы))
                   | И Хозрасчетный.ЗапретитьИспользоватьВПроводках = ЛОЖЬ";
    СписокСчетов = Новый СписокЗначений;
    СписокСчетов.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));

    ФормаВыбора = ПланыСчетов.Хозрасчетный.ПолучитьФормуВыбора(, Элемент);
    ЭлементОтбораСсылка = ФормаВыбора.Отбор.Ссылка;
    Если ЭлементОтбораСсылка <> Неопределено Тогда
        ЭлементОтбораСсылка.ВидСравнения  = ВидСравнения.ВСписке;
        ЭлементОтбораСсылка.Значение      = СписокСчетов;
        ЭлементОтбораСсылка.Использование = Истина;
    КонецЕсли;
    ФормаВыбора.ЭлементыФормы.Список.НастройкаОтбора.Ссылка.Доступность = Ложь;
    ФормаВыбора.Открыть();
    СтандартнаяОбработка = Ложь; 
КонецПроцедуры   

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

//Пример 2
Процедура СчетКтНачалоВыбора(Элемент, СтандартнаяОбработка)
    СчетаКт = Новый СписокЗначений;
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.ПрочиеДоходы);
    ВыбранныйЭлемент = ВыбратьИзСписка(СчетаКт, Элемент, СчетаКт.НайтиПоЗначению(Элемент.Значение));
    Если ВыбранныйЭлемент <> Неопределено Тогда
        Элемент.Значение = ВыбранныйЭлемент.Значение;
    КонецЕсли;
    СтандартнаяОбработка = Ложь;
КонецПроцедуры
   

 Процедура СтатьяПДРНачалоВыбора(Элемент, СтандартнаяОбработка)
    ФормаВыбора = Справочники.ПрочиеДоходыИРасходы.ПолучитьФормуВыбора(, Элемент);
    ЭлементОтбораВидПДР = ФормаВыбора.Отбор.ВидПрочихДоходовИРасходов;
    Если ЭлементОтбораВидПДР <> Неопределено Тогда
        ЭлементОтбораВидПДР.ВидСравнения  = ВидСравнения.Равно;
        ЭлементОтбораВидПДР.Значение      = Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеВнереализационныеДоходыРасходы;
        ЭлементОтбораВидПДР.Использование = Истина;
    КонецЕсли;
    ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.ВидПрочихДоходовИРасходов.Доступность = Ложь;
    ФормаВыбора.Открыть();
    СтандартнаяОбработка = Ложь; 
КонецПроцедуры   

 ФормаВыбора.ЭлементыФормы.СправочникСписок.НастройкаОтбора.ВидПрочихДоходовИРасходов.Доступность = Ложь;   

 Процедура СчетДтНачалоВыбора(Элемент, СтандартнаяОбработка)
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   | Хозрасчетный.Ссылка
                   |ИЗ
                   | ПланСчетов.Хозрасчетный КАК Хозрасчетный
                   |ГДЕ
                   | Хозрасчетный.Родитель В ИЕРАРХИИ (ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.Материалы))
                   | И Хозрасчетный.ЗапретитьИспользоватьВПроводках = ЛОЖЬ";
    СписокСчетов = Новый СписокЗначений;
    СписокСчетов.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));

    ФормаВыбора = ПланыСчетов.Хозрасчетный.ПолучитьФормуВыбора(, Элемент);
    ЭлементОтбораСсылка = ФормаВыбора.Отбор.Ссылка;
    Если ЭлементОтбораСсылка <> Неопределено Тогда
        ЭлементОтбораСсылка.ВидСравнения  = ВидСравнения.ВСписке;
        ЭлементОтбораСсылка.Значение      = СписокСчетов;
        ЭлементОтбораСсылка.Использование = Истина;
    КонецЕсли;
    ФормаВыбора.ЭлементыФормы.Список.НастройкаОтбора.Ссылка.Доступность = Ложь;
    ФормаВыбора.Открыть();
    СтандартнаяОбработка = Ложь; 
КонецПроцедуры   

 Процедура ВидПДРНачалоВыбора(Элемент, СтандартнаяОбработка)
    ВидыПДР = Новый СписокЗначений;
    ВидыПДР.Добавить(Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеВнереализационныеДоходыРасходы);
    ВидыПДР.Добавить(Перечисления.ВидыПрочихДоходовИРасходов.ПрочиеОперационныеДоходыРасходы);
    ВыбранныйЭлемент = ВыбратьИзСписка(ВидыПДР, Элемент, ВидыПДР.НайтиПоЗначению(Элемент.Значение));
    Если ВыбранныйЭлемент <> Неопределено Тогда
        Элемент.Значение = ВыбранныйЭлемент.Значение;
    КонецЕсли;
    СтандартнаяОбработка = Ложь;
КонецПроцедуры   

 Процедура СчетКтНачалоВыбора(Элемент, СтандартнаяОбработка)
    СчетаКт = Новый СписокЗначений;
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПодотчетнымиЛицами);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПоставщикамиИПодрядчиками);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоТекущимОперациям);
    СчетаКт.Добавить(ПланыСчетов.Хозрасчетный.ПрочиеДоходы);
    ВыбранныйЭлемент = ВыбратьИзСписка(СчетаКт, Элемент, СчетаКт.НайтиПоЗначению(Элемент.Значение));
    Если ВыбранныйЭлемент <> Неопределено Тогда
        Элемент.Значение = ВыбранныйЭлемент.Значение;
    КонецЕсли;
    СтандартнаяОбработка = Ложь;
КонецПроцедуры   

  &НаКлиенте
Процедура ОбработатьВыполнить()
    Объект.Обработан=Истина;
    БылоСтрок= Объект.Данные.Количество();
    Для Счетчик =1  по   Объект.Данные.Количество() Цикл 
        НомерСтроки= БылоСтрок-Счетчик;
        лСтр = Объект.Данные[НомерСтроки];
        Если лСтр.Группа = Объект.ВозрастнаяГруппа  Тогда
            // оставляем
        Иначе
            Объект.Данные.Удалить(НомерСтроки);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры    

 ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006"); 
ОбъектСправочника = ЭлементСправочника.ПолучитьОбъект(); 
ОбъектСправочника.ВидыДеятельности.Очистить(); 
ОбъектСправочника.Записать(); 

ОбъектСправочника = ВыбранныйЭлемент.ПолучитьОбъект(); 

// Создать структуру для отбора удаляемых строк. 
СтруктураОтбора = Новый Структура("ВидДеятельности", ВыбранныйВидДеятельности); 

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

// Удалить строки. 
Для Каждого ОчереднаяСтрока Из ПодходящиеСтроки Цикл 
	ОбъектСправочника.ВидыДеятельности.Удалить(ОчереднаяСтрока); 
КонецЦикла; 
ОбъектСправочника.Записать();