Различия

Показаны различия между двумя версиями страницы.

--- zapis_v_registr_svedenij_nezavisimyj [2021/02/26 10:57]
tro
+++ zapis_v_registr_svedenij_nezavisimyj [2024/04/24 14:34] (текущий)
tro
@@ Строка 1: / Строка 1: @@
-**Через менеджер записи**
+**Очистка записей по определенному значению**
+<code>
+НаборЗаписей = РегистрыСведений.пр_АссортиментТоваров.СоздатьНаборЗаписей();
+НаборЗаписей.Отбор.Партнер.Установить(Партнер);
+НаборЗаписей.Записать();
+</code>
+**Запись Через менеджер записи**
 <code>
 МенеджерЗаписи 					= РегистрыСведений.ПрикрепленныеФайлы.СоздатьМенеджерЗаписи();
@@ Строка 7: / Строка 14: @@
 МенеджерЗаписи.Записать();
 </code>
+В результате выполнения этого кода новая запись будет добавлена в регистр, или, если регистр уже содержит запись с выбранными значениями измерений "Объект" и "Свойство", - существующая запись будет заменена новой.
+----
+**Добавление новых записей к уже имеющимся записям**
+<code>
+регмен 	= РегистрыСведений.ИсторияИзмененияНалогообложенияНоменклатуры.СоздатьМенеджерЗаписи();
+регмен.Период		= ТекущаяДата();
+регмен.Номенклатура = ЭтотОбъект.Ссылка;
+регмен.СтавкаНДС  	= ЭтотОбъект.СтавкаНДС;
+регмен.Ответственный= ПараметрыСеанса.ТекущийПользователь;
+регмен.Записать(Ложь);
+</code>
+----
+**Добавление новых записей к уже имеющимся записям через набор записей**
+<code>
+НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
+НаборЗаписей.Отбор.Объект.Установить(ПолеВводаНоменклатура);
+Для Каждого СтрокаТаблицы Из ТаблицаСвойств Цикл
+   НоваяЗапись = НаборЗаписей.Добавить();
+   НоваяЗапись.Объект = ПолеВводаНоменклатура;
+   НоваяЗапись.Свойство = СтрокаТаблицы.Свойство;
+   НоваяЗапись.Значение = СтрокаТаблицы.ЗначениеСвойства;
+КонецЦикла;
+НаборЗаписей.Записать();
+</code>
+**Добавление новых записей с затиранием (удалнием) уже имеющихся записей через набор записей**
+<code>
+НаборЗаписей = РегистрыСведений.пр_АссортиментТоваров.СоздатьНаборЗаписей();
+НаборЗаписей.Отбор.Партнер.Установить(Партнер);
+СтрокаНаборЗаписей = НаборЗаписей.Добавить();
+СтрокаНаборЗаписей.Партнер = Партнер;
+СтрокаНаборЗаписей.Номенклатура = Номенклатура;
+СтрокаНаборЗаписей.Характеристика = Характеристика;
+СтрокаНаборЗаписей.НомерПоПорядку = 1;
+НаборЗаписей.Записать();
+</code>
+====== Создание новой записи или изменение одного из реквизитов если запись уже есть ======
+<code>
+	НаборЗаписей = РегистрыСведений.дм_СтатусыРеализацийЭД.СоздатьНаборЗаписей();
+	НаборЗаписей.Отбор.Документ.Установить(докРеализация);
+	НаборЗаписей.Прочитать();
+	Если НаборЗаписей.Количество() = 0  тогда
+		НоваяЗапись 			= НаборЗаписей.Добавить();
+		НоваяЗапись.Документ 	= докРеализация;
+		НоваяЗапись.ВхНД 		= Истина;
+		НаборЗаписей.Записать();
+	Иначе
+		Для Каждого Запись Из НаборЗаписей Цикл
+			Запись.ВхНД = Истина;
+		КонецЦикла;
+		НаборЗаписей.Записать(Истина);
+	КонецЕсли;
+</code>