Различия

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

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