Различия

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

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