сп=Новый СписокЗначений;

	сп.Добавить("СотрудникиОрганизаций");

	сп.Добавить("ФизическиеЛица");

	сп.Добавить("ДоговорыКонтрагентов");

	сп.Добавить("Контрагенты");

	

	Для Каждого стр из сп Цикл

		текСпр=стр.Значение;

		Запрос = Новый Запрос;

		Текст = 

		"ВЫБРАТЬ

		|	СотрудникиОрганизаций.Ссылка

		|ИЗ

		|	Справочник.%текСпр% КАК СотрудникиОрганизаций

		|ГДЕ

		|	НЕ СотрудникиОрганизаций.ПометкаУдаления И НЕ СотрудникиОрганизаций.ЭтоГруппа";

		Запрос.Текст = СтрЗаменить(Текст,"%текСпр%",текСпр);

		РезультатЗапроса = Запрос.Выполнить();

		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

		итЗаписей = Строка(ВыборкаДетальныеЗаписи.Количество());

		ном=0;

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			ном=ном+1; Состояние(текСпр+": "+Строка(ном)+" из "+итЗаписей);

			СсылкаНаУдаляемыйЭлемент = ВыборкаДетальныеЗаписи.Ссылка;

			// Найти ссылки на удаляемый элемент - СсылкаНаУдаляемыйЭлемент. 

			МассивСсылок = Новый Массив; 

			МассивСсылок.Добавить(СсылкаНаУдаляемыйЭлемент); 

			НайденныеСсылки = НайтиПоСсылкам(МассивСсылок); 

			

			Если НайденныеСсылки.Количество() > 0 Тогда 

				Сообщить("Нельзя удалять элемент:"+Строка(СсылкаНаУдаляемыйЭлемент)+", на него имеются ссылки",СтатусСообщения.Внимание); 

			Иначе

				Сообщить("Удаляем элемент:"+Строка(СсылкаНаУдаляемыйЭлемент),СтатусСообщения.Информация); 

				// Получаем объект

				УдаляемыйЭлемент = СсылкаНаУдаляемыйЭлемент.ПолучитьОбъект(); 

				// Установить пометку

				//УдаляемыйЭлемент.УстановитьПометкуУдаления(Истина); 

				// Удалить сразу

				УдаляемыйЭлемент.Удалить();

			КонецЕсли; 		  

			

		КонецЦикла; 

	КонецЦикла;    

 // Параметры:

//  пМассивСсылок – Массив – ссылок;

//  пТаблицаРезультатов - ТаблицаЗначений - возвращаемая таблица с найденными ссылками.

//

Процедура НайтиПоСсылкам(пМассивСсылок, пТаблицаРезультатов) Экспорт



	НайденныеСсылки = НайтиПоСсылкам(пМассивСсылок);

	Если пМассивСсылок.Количество() < 2 Тогда 

		НачальнаяКолонка = 1;

	Иначе

		НачальнаяКолонка = 0;

	КонецЕсли;

	Для Сч = НачальнаяКолонка По НайденныеСсылки.Колонки.Количество() - 1 Цикл

		пТаблицаРезультатов.Колонки.Добавить(НайденныеСсылки.Колонки[Сч].Имя);

	КонецЦикла;

	Для Каждого Строка Из НайденныеСсылки Цикл

		НоваяСтрока = пТаблицаРезультатов.Добавить();

		НоваяСтрока.Данные = ЗначениеВСтрокуВнутр(Строка.Данные);

		НоваяСтрока.Метаданные = Строка.Метаданные.ПолноеИмя();

	КонецЦикла;

	

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

   // Найти ссылки на удаляемый элемент - СсылкаНаУдаляемыйЭлемент. 

МассивСсылок = Новый Массив; 

МассивСсылок.Добавить(СсылкаНаУдаляемыйЭлемент); 

НайденныеСсылки = НайтиПоСсылкам(МассивСсылок); 



Если НайденныеСсылки.Количество() > 0 Тогда 

	Сообщить("Нельзя удалять элемент, на него имеются ссылки"); 

Иначе 

	УдаляемыйЭлемент = СсылкаНаУдаляемыйЭлемент.ПолучитьОбъект(); 

	УдаляемыйЭлемент.Удалить(); 

КонецЕсли; 



УдаляемыйЭлемент.УстановитьПометкуУдаления(Истина);