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

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

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

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

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

	

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

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

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

		Текст = 

		"ВЫБРАТЬ

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

		|ИЗ

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

		|ГДЕ

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

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

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

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

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

		ном=0;

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

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

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

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

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

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

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

			

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

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

			Иначе

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

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

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

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

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

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

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

			КонецЕсли; 		  

			

		КонецЦикла; 

	КонецЦикла;    

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

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

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

//

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



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

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

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

	Иначе

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

	КонецЕсли;

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

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

	КонецЦикла;

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

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

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

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

	КонецЦикла;

	

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

 Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

    ЦветКрасный = Новый Цвет(255,130,124);

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;



        Если ДанныеСтроки.Ссылка.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;

    КонецЦикла;

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

 ДанныеСтроки.Ссылка.НеПолученТовар   

 Функция ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок)

    Массив = Новый Массив;

    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Массив.Добавить(ОформлениеСтроки.Данныестроки.Ссылка);

    КонецЦикла;

    Возврат Массив;

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)   

 Функция ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления)



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

    Запрос.Текст =

        "ВЫБРАТЬ

        |   ПриходнаяНакладнаяБезнал.Ссылка,

        |   ПриходнаяНакладнаяБезнал.НеПолученТовар

        |ИЗ

        |   Документ.ПриходнаяНакладнаяБезнал КАК ПриходнаяНакладнаяБезнал

        |ГДЕ

        |   ПриходнаяНакладнаяБезнал.Ссылка В(&МассивСсылокОформления)";



    Запрос.УстановитьПараметр("МассивСсылокОформления", МассивСсылокОформления);



    Возврат Запрос.Выполнить().Выгрузить();

КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)()   

  Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)



    ЦветКрасный = Новый Цвет(255,130,124);



    МассивСсылокОформления = ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок);

    ТаблицаДанныхОформленияСтрок = ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления);



    Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл

        Данныестроки = ОформлениеСтроки.Данныестроки;

        СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Ссылка");



        Если СтрокаОформленияСтрок.НеПолученТовар Тогда

            ОформлениеСтроки.ЦветФона = ЦветКрасный;

        КонецЕсли;



    КонецЦикла;



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

 //Примеры:

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

ТабСсылок = НайтиПоСсылкам (Ссылки);

Для Каждого Ссылка из ТабСсылок Цикл

    Сообщить (" " + Сокр(Ссылка[0]) + " " + Сокр(Ссылка[1]));

КонецЦикла;

//или

Массив = Новый Массив;

Массив.Добавить(СвылкаНаИскомыйОбъект);

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

Для каждого элем из   СсылкиНаОбъект  цикл

    Сообщить(элем);

    ОбработкаПрерыванияПользователя();

КонецЦикла;      

 СсылкиТЗ=СоздатьОбъект("ТаблицаЗначений");

НайтиСсылки(СсылкаНаТовар,СсылкиТЗ);

//В результате мы получаем ТЗ с ссылками на данный элемент 

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

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

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

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



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

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

Иначе 

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

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

КонецЕсли; 



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