7.7 Очистка справочника номенклатура от неиспользуемых элементов

Остановился на таком варианте:

Код:

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

Свертку базы делали недавно, так что обойдемся стандартной обработкой на целостность. Но подсказали вариант с проверкой связей:

Код:

Связи.ИспользоватьВладельца(Номенклатура.ТекущийЭлемент());
        УдаляемыеСвязи = 0;
        ОставляемыеСвязи = 0;
        Связи.ВыбратьЭлементы();
        Пока Связи.ПолучитьЭлемент()=1 Цикл 
            Если Связи.ДатаСоздания>=ВыбДатаСоздания Тогда // "ВыбДатаСоздания" - реквизит экранной формы
                      Продолжить;
            КонецЕсли;
            Если Связи.ЭтоГруппа()=1 Тогда
                ОставляемыеСвязи = ОставляемыеСвязи+1;
                Продолжить;
             Иначе
                Связи.Удалить(0);
                УдаляемыеСвязи = УдаляемыеСвязи+1;
             КонецЦикла;
          
             Если (ОставляемыеСвязи=0) и (УдаляемыеСвязи>0) Тогда
                    Номенклатура.Удалить(0);
              КонецЕсли;
        КонецЦикла