Назад к блогу
Команда mitok.ruСлужба заботы

НаборЗаписей: Запись изменение удаление программная работа 1с

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

Служба заботы

Независимый Регистр сведений

Запись

НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(ПолеВводаНоменклатура);
Для Каждого СтрокаТаблицы Из ТаблицаСвойств Цикл
   НоваяЗапись = НаборЗаписей.Добавить();
   НоваяЗапись.Объект = ПолеВводаНоменклатура;
   НоваяЗапись.Свойство = СтрокаТаблицы.Свойство;
   НоваяЗапись.Значение = СтрокаТаблицы.ЗначениеСвойства;
КонецЦикла;
НаборЗаписей.Записать();
\{{</ highlight >}}

### Изменение
```bsl
НабЗ = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
НабЗ.Отбор.ВидЦен.Установить(Выборка.ВидЦен);
НабЗ.Отбор.Номенклатура.Установить(Выборка.Номенклатура);
НабЗ.Отбор.Характеристика.Установить(Выборка.Характеристика);
// Если закомментировать эту строку, то существующие записи перезапишутся
// НабЗ.Прочитать(); 
Если НабЗ.Количество() = 0 Тогда
	НовЗап = НабЗ.Добавить();
Иначе
	НовЗап = НабЗ[0];
КонецЕсли;
ЗаполнитьЗначенияСвойств(НовЗап, Выборка);
НовЗап.ЕдиницаИзмерения = НовЗап.Номенклатура.ЕдиницаИзмерения;
Сообщить(" " + НовЗап.Номенклатура + " - " + НовЗап.ЕдиницаИзмерения);
Попытка
	НабЗ.Записать();
Исключение
	Сообщить(ОписаниеОшибки());
КонецПопытки;
\{{</ highlight >}}

### Удаление
#### Через НаборЗаписей
```bsl
Набор = РегистрыСведений.ИМЯВАШЕГОРЕГИСТРА.СоздатьНаборЗаписей();
Набор.Отбор.ИЗМЕРЕНИЕ.Установить(ССЫЛКАНАИЗМЕРЕНИЕ);
Набор.Записать();
\{{</ highlight >}}

#### Через МенеджерЗаписи
```bsl
МенеджерЗ=РегистрыСведений.ИМЯВАШЕГОРЕГИСТРА.СоздатьМенеджерЗаписи();
МенеджерЗ.Период = НачалоДня(ТекущаяДата());
МенеджерЗ.Контрагент=Контрагент;
МенеджерЗ.Организация=Организация;
МенеджерЗ.Удалить();
\{{</ highlight >}}