Доброго всем времени суток. Необходимо из непериодического регистра сведений удалить несколько записей, а оставить одну. Хотелось бы просто записать набор с установленным отбором и одной записью. Но 1С возражает что так не пойдет и такая запись уже есть. Конечно есть! И я с ней согласен. Но по идее она должна старый набор заменить заменить новым, а этого не происходит. Конечно можно очистить набор и добавить запись в уже чистый набор, но не хотелось бы записывать набор два раза.


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

выгрузи в тз, удали там строки, добавь одну, загрузи тз в набор, запиши, ???, получм профит

(0) У набора записей можно удалять записи
А также есть МенеджерЗаписи

(2)Так точно не надо делать

(1)Как вариант, надо попробовать.

(3) Как не надо делать?

Який хлопчик неопытный

Делать запись в базу столько раз, сколько лишних записей в регистре.

(7) к (5)
(6) Особенно твой коментарий был самым нужным.

Нужно очистить записи по определенному штирхкоду?

НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Штрихкод.Установить(НужныйКод);
НаборЗаписей.Записать();

(7) тут все зависит от того, какие галочки у измерения стоят

(9) нет :) Нужно удалить все записи кроме одной одной записью в регистр.

(7) Зависит от примера.
Удаление записей из набора, а потом его запись - это один раз.
А через ТЗ, тоже самое, только дольше.

(11) Имхо, одной записью не получится (если нужно удалить разные наборы измерений). Предлагаю сначала очистить, а потом добавить одну запись.

НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
НаборЗаписей.Записать();

Запись = НаборЗаписей.Добавить();
...
НаборЗаписей.Записать();

(10)
Штрихкод - Основной отбор
Владелец - Все галки стоят

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

(14) ну вставь в ПередЗаписью Сообщить("Гыгыгы") и удивись
при записи набора с отбором по ШК, в котором несколько строк

(13)С предварительной очисткой регистра по отбору, то конечно все и так понятно. Хотелось бы как то поинтереснее.

(15)Специально сделал 10 записей с одним штрихкодом и запустил вот такой код:
Процедура УдалитьВсеКромеУказанного(НужныйКод, НужныйВладелец)
    НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Штрихкод.Установить(НужныйКод);
    НаборЗаписей.Записать();
    
    НоваяЗаписьНабора = НаборЗаписей.Добавить();
    НоваяЗаписьНабора.Владелец = НужныйВладелец;
    НоваяЗаписьНабора.ЕдиницаИзмерения = НужныйВладелец.ЕдиницаХраненияОстатков;
    НоваяЗаписьНабора.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
    НоваяЗаписьНабора.Штрихкод = НужныйКод;
    НоваяЗаписьНабора.Качество = Справочники.Качество.Новый;
    
    НаборЗаписей.Записать();    
КонецПроцедуры
Отработало 2 раза. Юмор не догнал.