Поиск в базе битых ссылок - объект не найден

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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