Здравствуйте. Появилась задача удалять неиспользуемую номенклатуру за 2012 год. Не получается с номенклатурой удалить и записи в регистре ЦеныНоменклатуры, пишет поле объекта не обнаружено Номенклатура, подскажите пожалуйста в чем дело?

&НаСервере
Процедура УдалитьНеиспользуемые()
    
    Для Каждого Элем из Объект.НайденнаяНоменклатура Цикл
        Если Элем.Используется = Ложь Тогда
            УдалитьЦенуНоменклатуры(Элем.Номенклатура);
            ОбъектДляУдаления = Элем.Номенклатура.ПолучитьОбъект();
            ОбъектДляУдаления.Удалить();
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры

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

на какую строчку ошибка?

(1) Цены.Отбор.Номенклатура.Установить(НомЦена);

(2) А по ней отбор включен?

(2) тоесть?

регистр переодический, подчинение регистратору

=\

(5) ну если подчинён регистратору - то отбор возможен только по регистратору

(7) стоп стоп стоп) отбор по регистратору, а по номенклатуре потом как отобрать?

(8) выгружай набор в ТЗ, там меняй как надо и загружай в набор обратно

(9) мне по сути этот набор нафиг надо удалить, потому что если я удаляю номенклатуру мне бы и желательно все что связано с этой номенклатурой в регистре тоже удалить

(0) Удаление записей из набора не вполне коррктно: нужно удалять строки в документе УстановкаЦенНоменклатуры. Иначе при перепроведении возникнут снова. Да и полностью удалить номенклатуру не удастся, пока есть ссылка в документе установки цен.

А к "Ссылка не найдена" в строках документа как относишься?

(11) Кто сказал что не удастся?

(10) распроведи документы УстановкаЦенНоменклатуры за 2012 год и все

(10) откуда вобще идея удалить записи из регистра родилась? это ж неправильно, удали из ТЧ документа просто, потом опять его проведи

(13) некоторая номенклатура 2012г использовалась в недавних документах 2013г, следовательно распроводить не вариант

(15) на номенклатуру наверное есть не только УстановкаЦенНоменклатуры, но и еще куча всяких документов, поэтому лучший вариант, сделать Папочку типа Неиспользуемая номенклатура и просто перекидывать туда чтоб при набивке документов не мешалась

(15) Почему не вариант? Распровел, удалил нужные позиции, провел. В чем проблема?

(16) вариант уже превысел более 50000 позиций)

(17) А что делать со средней ценой (если она используется конечно)?

(17) буду пробовать сейчас так делать, просто когда мы по прайсу заливали номенклатуру то почему то установка цен не проводилась хотя программно установлена

(18) документ надо менять всё равно, зачем тебе там в итоге битые ссылки? удаляй записи из документа сначала

(19) хз, ни о какой средней цене автор не упоминал. Даже конфы не знаем, но предполагаю, что УТ. А чо там за средняя цена?

(18) Да и пох... Можно ваще сделать эту папку не видимой

(23) у нас стал очень сильно зависать полнотекстовый поиск, даже обновление индекса каждый 5 минут по регламентному не очень помогает

(22) Туплю. Был в другой теме про регистр бухгалтерии.

(24) а зачем вам полнотекстовый поиск?

(24) Короче, самый верный способ - удалять позиции из документов и проводить доки.

(8) а потом только проверку...
Кстати, в "для каждого" удалять нельзя - куча строк может быть пропущена.

СЗ = Новый СписокЗначений;
Для Каждого ЦеныУд ИЗ Цены Цикл
  Если ЦеныУд.Номенклатура = НомЦена Тогда
   СЗ.Добавить(ЦеныУд);
  КонецЕсли;
КонецЦикла;

Для каждого Стр из СЗ Цикл
  Цены.Удалить(СЗ.Значение);
КонецЦикла;


Но напрямую удалять записи из регистра, подчиненного регистратору все же как-то не так как-то...

(27) из всех видов доков, закрытом периоде, супер)))

кароч делаю так)

&НаСервере
Процедура УдалитьНеиспользуемые()
    
    Для Каждого Элем из Объект.НайденнаяНоменклатура Цикл
        Если Элем.Используется = Ложь Тогда
            УдалитьЦенуНоменклатуры(Элем.Номенклатура);
            ОбъектДляУдаления = Элем.Номенклатура.ПолучитьОбъект();
            ОбъектДляУдаления.Удалить();
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры

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


незнаю что получится =\

(24) Если так уж надо почистить справочник номенклатуры, без мульона "объект не найден", лучше создать справочник НенужнаяНоменклатура, куда скопировать данные ненужных позиций из Номенклатуры, выкрутить из древней обработки с ИТС "Поиск и замена значений" куски кода в свою обработку, которая тихо и мирно (но медленно) перепропишет все ненужное на новый справочник и удалит номенклатуру из живого справочника.

(29) Сомневаюсь, что они там чо то закрывают в УТ

(30) Главное не забудь, что тестировать надо на рабочей базе

(32) т.е. долги с покупателями не нужно считать?

(34) Если только задеты будут торговые операции. Но тогда и удалять нельзя элемент. А установка цен номенклатуры как влияет на взаиморасчеты?

(35) а что 50000 номенклатуры в справочнике и по ней ни одной реализации, поступления, перемещения???

(33) [Главное не забудь, что тестировать надо на рабочей базе]
))) Это злая шутка? или хотел сказать на копии?

(30) Еще раз: внутри "Для каждого" удалять нельзя - меняются индексы, и следующая после удаленной строка будет пропущена при обходе цикла. Хорошо, в этом документе удаляемая номенклатура будет встречаться скорее всего один раз, так что это будет незаметно, но вообще - это неправильно.
Кстати, согласно приведенному коду один и тот же документ может открывать и перепроводиться хз сколько раз, раз бежим по номенклатуре, а не по докам... Время некритично, наверное?

(38) а ху.и думать прыгать надо)))

(38) в течении недели успею) да таки так неправильно, но это я по быстрому накатал код =\

(0) Есть такой древний обряд - обрезание.
Используем периодически для больших баз.

(40) так что кроме установки цен, других доков по этой номенклатуре нету?

(41) каждый год что ли?

(41) свертку не разрешили)

(42) насколько знаю нету, ну кроме индивидуального набора упаковок

а ну тогда никаких трудностей, установки почистить и перепровести, а потом грохнуть номенклатуру, только с проверкой на существование ссылок все таки лучше

(43) Как только >"22".
Примерно раз в три года.

(46) Лучше сначала проверить: есть ли доки кроме установки цены, а то всё будет зря ((