Поиск количества ссылок на объект по измерениям в регистрах

Процедура выполняет поиск по измерениям регистров накопления (сменить на любой другой не составит сложности, как и на поиск по ресурсам, реквизитам). Подойдет для тех, у кого режим совместимости 8.3.4 и ниже, в следствие чего, в НайтиПоСсылкам() нет возможности использовать ОбластьПоиска, а платформенный поиск ссылок выдает избыточное количество информации. Писался для работы в толстом клиенте на ОФ, поэтому в коде присутствует функция Сообщить().

Процедура НайтиСсылкуНаОрганизациюВРегистрахИзмеренияхРН (ОбъектДляПоиска, ТипОбъекта)

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

Процедура НайтиСсылкуНаОрганизациюВРегистрахИзмеренияхРН (ОбъектДляПоиска, ТипОбъекта)

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