Обновление версии конфигурации поставщика на 3.1.9.225

Страница релиза:
https://releases.1c.ru/version_files?nick=SSL31&ver=3.1.9.225
Версии для обновления:

description.json

@@ -1,7 +1,7 @@
 {
-	"Версия": "3.1.9.209",
-	"Дата": "2023-11-10T00:00:00",
-	"Путь": "/version_files?nick=SSL31&ver=3.1.9.209",
+	"Версия": "3.1.9.225",
+	"Дата": "2023-11-24T00:00:00",
+	"Путь": "/version_files?nick=SSL31&ver=3.1.9.225",
 	"ВерсииДляОбновления": [],
 	"Бета": false,
 	"Имя": "1С:Библиотека стандартных подсистем, редакция 3.1",

src/cf/Catalogs/ВерсииФайлов/Ext/ObjectModule.bsl

@@ -20,8 +20,10 @@
 		Возврат;
 	КонецЕсли;
 
+	РеквизитыВладельца = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Владелец, "ТекущаяВерсия, ПометкаУдаления");
+
 	Если ЭтоНовый() Тогда
-		РодительскаяВерсия = Владелец.ТекущаяВерсия;
+		РодительскаяВерсия = РеквизитыВладельца.ТекущаяВерсия;
 	КонецЕсли;
 
 	// Выполним установку индекса пиктограммы при записи объекта.
@@ -31,15 +33,15 @@
 		СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
 	КонецЕсли;
 
-	Если Владелец.ТекущаяВерсия = Ссылка Тогда
-		Если ПометкаУдаления = Истина И Владелец.ПометкаУдаления <> Истина Тогда
+	Если РеквизитыВладельца.ТекущаяВерсия = Ссылка Тогда
+		Если ПометкаУдаления = Истина И РеквизитыВладельца.ПометкаУдаления <> Истина Тогда
 			ВызватьИсключение НСтр("ru = 'Активную версию нельзя удалить.'");
 		КонецЕсли;
 	ИначеЕсли РодительскаяВерсия.Пустая() Тогда
-		Если ПометкаУдаления = Истина И Владелец.ПометкаУдаления <> Истина Тогда
+		Если ПометкаУдаления = Истина И РеквизитыВладельца.ПометкаУдаления <> Истина Тогда
 			ВызватьИсключение НСтр("ru = 'Первую версию нельзя удалить.'");
 		КонецЕсли;
-	ИначеЕсли ПометкаУдаления = Истина И Владелец.ПометкаУдаления <> Истина Тогда
+	ИначеЕсли ПометкаУдаления = Истина И РеквизитыВладельца.ПометкаУдаления <> Истина Тогда
 		// Очищаем у версий, дочерних к помеченной, ссылку на родительскую - 
 		// переставляем на родительскую версию удаляемой версии.
 		Запрос = Новый Запрос;

src/cf/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Ext/Form/Module.bsl

@@ -14,8 +14,10 @@
 	ЗаголовокОшибки = НСтр("ru = 'Ошибка при настройке динамического списка присоединенных файлов.'");
 	ОкончаниеОшибки = НСтр("ru = 'В этом случае настройка динамического списка невозможна.'");
 
+	ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Параметры.Файл, "ВладелецФайла");
+
 	ИмяСправочникаХранилищаВерсийФайлов = РаботаСФайламиСлужебный.ИмяСправочникаХраненияВерсийФайлов(
-		Параметры.Файл.ВладелецФайла, "", ЗаголовокОшибки, ОкончаниеОшибки);
+		ВладелецФайла, "", ЗаголовокОшибки, ОкончаниеОшибки);
 
 	Если Не ПустаяСтрока(ИмяСправочникаХранилищаВерсийФайлов) Тогда
 		НастроитьДинамическийСписок(ИмяСправочникаХранилищаВерсийФайлов);
@@ -68,7 +70,8 @@
 		ПоказатьПредупреждение(, НСтр("ru = 'Смена активной версии разрешена только для неподписанных файлов.'"));
 	Иначе
 		СменитьАктивнуюВерсиюФайла(НоваяАктивнаяВерсия);
-		Оповестить("Запись_Файл", Новый Структура("Событие", "АктивнаяВерсияИзменена"), Параметры.Файл);
+		ПараметрыОповещенияЗаписиФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОповещенияЗаписиФайла("АктивнаяВерсияИзменена");
+		Оповестить("Запись_Файл", ПараметрыОповещенияЗаписиФайла, Параметры.Файл);
 	КонецЕсли;
 
 КонецПроцедуры
@@ -77,7 +80,6 @@
 Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
 
 	Если ИмяСобытия = "Запись_Файл"
-		И Параметр.Свойство("Событие")
 		И (Параметр.Событие = "ЗаконченоРедактирование"
 		Или Параметр.Событие = "ВерсияСохранена") Тогда
 
@@ -253,25 +255,33 @@
 
 	НачатьТранзакцию();
 	Попытка
-		Блокировка = Новый БлокировкаДанных;
 
-		ЭлементБлокировкиДанных = Блокировка.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(Версия.Владелец)).ПолноеИмя());
-		ЭлементБлокировкиДанных.УстановитьЗначение("Ссылка", Версия.Владелец);
+		БлокировкаВерсии = Новый БлокировкаДанных;
 
-		ЭлементБлокировкиДанных = Блокировка.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(Версия)).ПолноеИмя());
+		ЭлементБлокировкиДанных = БлокировкаВерсии.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(Версия)).ПолноеИмя());
 		ЭлементБлокировкиДанных.УстановитьЗначение("Ссылка", Версия);
+		ЭлементБлокировкиДанных.Режим = РежимБлокировкиДанных.Разделяемый;
+
+		БлокировкаВерсии.Заблокировать();
+
+		РеквизитыНовойВерсии = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Версия, "Владелец, ТекстХранилище");
+
+		Блокировка = Новый БлокировкаДанных;
+
+		ЭлементБлокировкиДанных = Блокировка.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(РеквизитыНовойВерсии.Владелец)).ПолноеИмя());
+		ЭлементБлокировкиДанных.УстановитьЗначение("Ссылка", РеквизитыНовойВерсии.Владелец);
 
 		Блокировка.Заблокировать();
 
-		ЗаблокироватьДанныеДляРедактирования(Версия.Владелец, , УникальныйИдентификаторКарточкиФайла);
+		ЗаблокироватьДанныеДляРедактирования(РеквизитыНовойВерсии.Владелец, , УникальныйИдентификаторКарточкиФайла);
 		ЗаблокироватьДанныеДляРедактирования(Версия, , УникальныйИдентификаторКарточкиФайла);
 
-		ФайлОбъект = Версия.Владелец.ПолучитьОбъект();
+		ФайлОбъект = РеквизитыНовойВерсии.Владелец.ПолучитьОбъект();
 		Если ФайлОбъект.ПодписанЭП Тогда
 			ВызватьИсключение НСтр("ru = 'У подписанного файла нельзя изменять активную версию.'");
 		КонецЕсли;
 		ФайлОбъект.ТекущаяВерсия = Версия;
-		ФайлОбъект.ТекстХранилище = Версия.ТекстХранилище;
+		ФайлОбъект.ТекстХранилище = РеквизитыНовойВерсии.ТекстХранилище;
 		ФайлОбъект.Записать();
 
 		ВерсияОбъект = Версия.ПолучитьОбъект();

src/cf/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Ext/Form/Module.bsl

@@ -36,8 +36,7 @@
 Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
 
 	Если ИмяСобытия = "Запись_Файл"
-	   И Параметр.Свойство("Событие")
-	   И (    Параметр.Событие = "ЗаконченоРедактирование"
+	   И (Параметр.Событие = "ЗаконченоРедактирование"
 	      ИЛИ Параметр.Событие = "ВерсияСохранена") Тогда
 
 		Элементы.Список.Обновить();