Удаление записей регистра сведений

[Александр2018]

Всем привет! Задача: удалить определённые записи из регистра сведений программным методом. Почти написал внешнюю обработку для удаления, но не могу понять как найти функцию или метод удаления в выборке. Почему программным методом, а не интерактивным - не спрашивайте, долго объяснять. Есть идея, что нужно СоздатьНаборЗаписей(), но как это осуществить?

Код Выделить Развернуть

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

РезультатЗапроса = Запрос.Выполнить();
Выб = РезультатЗапроса.Выбрать();
Пока Выб.Следующий() Цикл
Если Выб.Ссылка = неопределено тогда
Выб.Удалить(); //ВОТ ЭТА СТРОКА НЕ РАБОТАЕТ, ОНА КЛЮЧЕВАЯ
        КонецЕсли;
КонецЦикла;
КонецПроцедуры                     

&НаКлиенте
Процедура Удалить(Команда)
УдалитьНаСервере();
КонецПроцедуры


[alex0402]

Есть идея, что нужно СоздатьНаборЗаписей(), но как это осуществить?

примерно так:

Код Выделить Развернуть

НаборЗаписей = РегистрыСведений.ДанныеОбъектовДляРегистрацииВОбменах.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.ИмяИзмерения.Установить(Значение);
//удалить лишние записи
НаборЗаписей.Записать(Истина);

но можно и по другому, главное записать нужные записи (без не нужных) с замещением.

[alexandr_ll]

Всем привет! Задача: удалить определённые записи из регистра сведений программным методом. Почти написал внешнюю обработку для удаления, но не могу понять как найти функцию или метод удаления в выборке. Почему программным методом, а не интерактивным - не спрашивайте, долго объяснять. Есть идея, что нужно СоздатьНаборЗаписей(), но как это осуществить?

Код Выделить Развернуть

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

РезультатЗапроса = Запрос.Выполнить();
Выб = РезультатЗапроса.Выбрать();
Пока Выб.Следующий() Цикл
Если Выб.Ссылка = неопределено тогда
Выб.Удалить(); //ВОТ ЭТА СТРОКА НЕ РАБОТАЕТ, ОНА КЛЮЧЕВАЯ
        КонецЕсли;
КонецЦикла;
КонецПроцедуры                     

&НаКлиенте
Процедура Удалить(Команда)
УдалитьНаСервере();
КонецПроцедуры


Вот из синтакс-помощника:

Код Выделить Развернуть

   Рег = РегистрыСведений.ЗначенияПравПользователя;
    Выборка = Рег.Выбрать();
    Пока Выборка.Следующий() Цикл
        Выборка.ПолучитьМенеджерЗаписи().Удалить();
    КонецЦикла;

[LexaK]

так как вам надо удалить все данные где Ссылка = Неопределено, то весь ваш код вообще не нужен, все делается в три строчки

Код Выделить Развернуть


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

1.проверьте есть ли вообще данные с условием Ссылка = Неопределено
2.сначала потренируйтесь на кошках (т.е. тестовой базе)