Доброе время суток
Возникла необхождимость почистить справочник номенклатуры от элементов на которые нет ссылок ни в одном документе.
Написал несложный код.
<code>
   МассивСсылок = Новый Массив;
   Отбор = Новый Структура("ЭтоГруппа");
   Отбор.ЭтоГруппа = Ложь;
   Выборка = Справочники.Номенклатура.Выбрать(,,Отбор,);        
   Пока Выборка.Следующий() Цикл
       ЕстьДокументы = Ложь;
       МассивСсылок.Добавить (Выборка.Ссылка);
       ТабСсылок = НайтиПоСсылкам(МассивСсылок);
       Для каждого СтрокаТабСсылок Из ТабСсылок Цикл
           Если Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(СтрокаТабСсылок.Данные)) Тогда
               ЕстьДокументы = Истина;
               Прервать;    
           КонецЕсли;                
       КонецЦикла;
       Если НЕ ЕстьДокументы Тогда
           ЭлементСправочника = Выборка.Ссылка.ПолучитьОбъект() ;
           ЭлементСправочника.УстановитьПометкуУдаления(Истина,Истина);
           Сообщить (Выборка.Ссылка);
       КонецЕсли;
       МассивСсылок.Очистить();
   КонецЦикла;
</code>
Проблема: уж очень медленно работает.
Хотелось бы решить задачу в соответствии с рекомендациями 1с , а именно убрать запрос в цикле. Есть идеи ?

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

это в цикле и очень тяжелое

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

запросом получи массив номенклатуры и сунь один раз в НайтиПоСсылкам

а потом уже перебирай ТабСсылок и удаляй необходимое

пометить все, удалить помеченные, разметить все.. ну.. вы поняли

>        МассивСсылок.Добавить (Выборка.Ссылка);
>        ТабСсылок = НайтиПоСсылкам(МассивСсылок);

это в цикле!? или я брежу?

(5)+ а, есть оказывается
>МассивСсылок.Очистить();

присоединяюсь к (4).

Шаг первый - пометить всю номенклатуру на удаление.
шаг второй - сделать удаление всех помеченных объектов
шаг третий - снять пометку удаления с номенклатуры
шаг четвертый - профит

млять..на увидел (4) (((

УдалитьОбъекты (DeleteObjects)  

Синтаксис:  

УдалитьОбъекты(<Список ссылок>, <Найденные данные>, <Проверять>)  

Параметры:  

<Список ссылок> обязательный  

Тип: Массив. Список ссылок на объекты, которые нужно удалить.  

<Найденные данные> необязательный  

Тип: ТаблицаЗначений. Таблица значений, в которую помещаются найденные ссылки на объект, содержит колонки с индексами:  

    0 - искомая ссылка;  

    1 - ссылка на объект, который содержит искомую ссылку;  

    2 - объект метаданных, которому соответствуют данные, в которых найдена ссылка.  

<Проверять> необязательный  

Тип: Булево. Параметр определяет, выполнять ли контроль ссылочной целостности при выполнении процедуры. Истина - перед удалением проверяется, нет ли ссылок на удаляемый объект. Если есть, то объект не удаляется, а ссылки помещаются в таблицу значений <Найденные данные>. Ложь - проверка не выполняется.  

Значение по умолчанию: Ложь.  

Описание:  

Удаляет объекты.  

// удаление помеченных объектов с контролем ссылочной целостности  

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

Найденные = 0;  

УдалитьОбъекты(Помеченные,Найденные, Истина);  

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

   СтрНеУдален = "Объект не удален:" + Сокр(Ссылка(0));  

   СтрСсылка = ", используется в " + Сокр(Ссылка(1));  

   Сообщить (СтрНеУдален + СтрСсылка);  

КонецЦикла ;

(4) еще запомнить те, которые были помечены, и после удаления еще раз пометить их

(11) не надо их запоминать, а просто инвертировать пометку, потом обратно

(12) а что делать с помеченными ранее?

ну хотя да, прав