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

description.json

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

src/cf/Catalogs/МашиночитаемыеДоверенности/Forms/ФормаВводаПолномочий/Ext/Form/Module.bsl

@@ -315,6 +315,7 @@
 Процедура ОбновитьКлассификаторыПолномочий(Команда)
 
 	ОбновитьКлассификаторыПолномочийНаСервере();
+	ОбновитьСписокПолномочий();
 	ПоказатьПредупреждение(, НСтр("ru = 'Обновление классификаторов полномочий выполнено.'"));
 
 КонецПроцедуры
@@ -844,4 +845,19 @@
 
 КонецПроцедуры
 
+&НаКлиенте
+Процедура ОбновитьСписокПолномочий()
+
+	КодыПолномочий = Новый Массив;
+
+	Для Каждого Полномочие Из ВыбранныеПолномочияТаблица Цикл
+		Если ЗначениеЗаполнено(Полномочие.Код) И Не Полномочие.НетВКлассификаторе Тогда
+			КодыПолномочий.Добавить(Полномочие.Код);
+		КонецЕсли;
+	КонецЦикла;
+
+	СформироватьДеревоПолномочий(ПоместитьВоВременноеХранилище(КодыПолномочий));
+
+КонецПроцедуры
+
 #КонецОбласти

src/cf/Catalogs/МашиночитаемыеДоверенности/Forms/ФормаСписка/Ext/Form/Module.bsl

@@ -570,9 +570,10 @@
 КонецПроцедуры
 
 &НаКлиенте
-Процедура СертификатОкончаниеВыбора(Результат, Контекст) Экспорт
+Асинх Процедура СертификатОкончаниеВыбора(Результат, Контекст) Экспорт
 	Если ТипЗнч(Результат) = Тип("ДвоичныеДанные") Тогда
-		Сертификат = ЭлектроннаяПодписьКлиент.ПредставлениеСертификата(Новый СертификатКриптографии(Результат));
+		СвойстваСертификата = Ждать ЭлектроннаяПодписьСлужебныйКлиент.СвойстваСертификата(Новый СертификатКриптографии(Результат));
+		Сертификат = СвойстваСертификата.Представление;
 		СертификатПредставителя = Результат;
 	Иначе
 		Сертификат = Неопределено;

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Ext/ManagerModule.bsl

@@ -109,6 +109,7 @@
 	|ГДЕ
 	|	СертификатыКлючейЭлектроннойПодписиИШифрования.УдалитьПользовательОповещенОСрокеДействия
 	|	ИЛИ &УсловиеЗаявления
+	|	ИЛИ СертификатыКлючейЭлектроннойПодписиИШифрования.ДействителенДо > &ТекущаяДата
 	|	ИЛИ НЕ ОдинПользовательВТабличнойЧасти.Ссылка ЕСТЬ NULL";
 
 
@@ -124,6 +125,8 @@
 	Иначе
 		Запрос.Текст = СтрЗаменить(Запрос.Текст, "ИЛИ &УсловиеЗаявления", "");
 	КонецЕсли;
+
+	Запрос.УстановитьПараметр("ТекущаяДата", ТекущаяДатаСеанса());
 
 	МассивСсылок = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
 	ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, МассивСсылок);
@@ -136,7 +139,7 @@
 	Выборка = ОбновлениеИнформационнойБазы.ВыбратьСсылкиДляОбработки(Параметры.Очередь,
 		"Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования");
 	Если Выборка.Количество() > 0 Тогда
-		ОбработатьЗаявленияИОповещенияСертификатов(Выборка);
+		ОбработатьЗаявленияОповещенияИСрокДействияСертификатов(Выборка);
 	КонецЕсли;
 
 	ОбработкаЗавершена = ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь,
@@ -149,7 +152,7 @@
 
 #Область СлужебныеПроцедурыИФункции
 
-Процедура ОбработатьЗаявленияИОповещенияСертификатов(Выборка)
+Процедура ОбработатьЗаявленияОповещенияИСрокДействияСертификатов(Выборка)
 
 	ОбъектовОбработано = 0;
 	ПроблемныхОбъектов = 0;
@@ -174,6 +177,8 @@
 			ЭлементБлокировки.УстановитьЗначение("Ссылка", Выборка.Ссылка);
 			ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
 			Блокировка.Заблокировать();
+
+			ЗаписатьОбъект = Ложь;
 
 			СертификатОбъект = Выборка.Ссылка.ПолучитьОбъект(); // СправочникОбъект.СертификатыКлючейЭлектроннойПодписиИШифрования
 
@@ -204,23 +209,52 @@
 					ОбновлениеИнформационнойБазы.ЗаписатьНаборЗаписей(НаборЗаписейОповещений, Истина);
 				КонецЕсли;
 				СертификатОбъект.УдалитьПользовательОповещенОСрокеДействия = Ложь;
+				ЗаписатьОбъект = Истина;
 			КонецЕсли;
 
 			// Перенос данных заявлений в регистр сведений.
 			Если ЗаявлениеНаВыпускСертификатаДоступно
 			   И ЗначениеЗаполнено(СертификатОбъект.УдалитьСостояниеЗаявления) Тогда
 
 				ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.ОбработатьДанныеДляПереходаНаНовуюВерсию(
-					СертификатОбъект);
+					СертификатОбъект, ЗаписатьОбъект);
 
 			КонецЕсли;
 
 			Если СертификатОбъект.Пользователи.Количество() = 1 Тогда
 				СертификатОбъект.Пользователь = СертификатОбъект.Пользователи[0].Пользователь;
 				СертификатОбъект.Пользователи.Очистить();
+				ЗаписатьОбъект = Истина;
+			КонецЕсли;
+
+			Если СертификатОбъект.ДействителенДо > ТекущаяДатаСеанса() Тогда
+				ДвоичныеДанныеСертификата = СертификатОбъект.ДанныеСертификата.Получить();
+				Если ТипЗнч(ДвоичныеДанныеСертификата) = Тип("ДвоичныеДанные") Тогда
+					Попытка
+						Сертификат = Новый СертификатКриптографии(ДвоичныеДанныеСертификата);
+					Исключение
+						Сертификат = Неопределено;
+					КонецПопытки;
+
+					Если Сертификат <> Неопределено Тогда
+						СвойстваСертификата = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваСертификата(
+							Сертификат, ЭлектроннаяПодписьСлужебный.ДобавкаВремени(), ДвоичныеДанныеСертификата);
+						Если СертификатОбъект.ДействителенДо <> СвойстваСертификата.ДействителенДо Тогда
+							СтрокаПоиска = Формат(СертификатОбъект.ДействителенДо, "ДФ=MM.yyyy");
+							СтрокаЗамены = Формат(СвойстваСертификата.ДействителенДо, "ДФ=MM.yyyy");
+							СертификатОбъект.Наименование = СтрЗаменить(СертификатОбъект.Наименование, СтрокаПоиска, СтрокаЗамены);
+							СертификатОбъект.ДействителенДо = СвойстваСертификата.ДействителенДо;
+							ЗаписатьОбъект = Истина;
+						КонецЕсли;
+					КонецЕсли;
+				КонецЕсли;
 			КонецЕсли;
 
-			ОбновлениеИнформационнойБазы.ЗаписатьОбъект(СертификатОбъект);
+			Если ЗаписатьОбъект Тогда
+				ОбновлениеИнформационнойБазы.ЗаписатьОбъект(СертификатОбъект);
+			Иначе
+				ОбновлениеИнформационнойБазы.ОтметитьВыполнениеОбработки(Выборка.Ссылка);
+			КонецЕсли;
 
 			ОбъектовОбработано = ОбъектовОбработано + 1;
 			ЗафиксироватьТранзакцию();

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Ext/Form.xml

@@ -451,6 +451,7 @@
 											<v8:content>Описание сертификата</v8:content>
 										</v8:item>
 									</Title>
+									<Group>Vertical</Group>
 									<Behavior>Usual</Behavior>
 									<Representation>None</Representation>
 									<ShowTitle>false</ShowTitle>
@@ -463,7 +464,7 @@
 											<Width>51</Width>
 											<AutoMaxWidth>false</AutoMaxWidth>
 											<MaxWidth>51</MaxWidth>
-											<Height>4</Height>
+											<HeightControlVariant>UseContentHeight</HeightControlVariant>
 											<RowSelectionMode>Row</RowSelectionMode>
 											<Header>false</Header>
 											<HorizontalScrollBar>DontUse</HorizontalScrollBar>
@@ -531,10 +532,16 @@
 											</ChildItems>
 										</Table>
 										<Button name="ПоказатьДанныеСертификата" id="744">
-											<Type>UsualButton</Type>
-											<Representation>Picture</Representation>
+											<Type>Hyperlink</Type>
+											<Representation>PictureAndText</Representation>
 											<SkipOnInput>true</SkipOnInput>
 											<CommandName>Form.Command.ПоказатьДанныеСертификата</CommandName>
+											<Title>
+												<v8:item>
+													<v8:lang>ru</v8:lang>
+													<v8:content>Все свойства сертификата</v8:content>
+												</v8:item>
+											</Title>
 											<ExtendedTooltip name="ПоказатьДанныеСертификатаРасширеннаяПодсказка" id="745"/>
 										</Button>
 									</ChildItems>

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Ext/Form/Module.bsl

@@ -978,14 +978,14 @@
 
 // Продолжение процедуры ПерейтиКВыборуТекущегоСертификата.
 &НаКлиенте
-Процедура ПерейтиКВыборуТекущегоСертификатаПослеВыгрузкиСертификата(ВыгруженныеДанные, Контекст) Экспорт
+Асинх Процедура ПерейтиКВыборуТекущегоСертификатаПослеВыгрузкиСертификата(ВыгруженныеДанные, Контекст) Экспорт
 
 	СертификатАдрес = ПоместитьВоВременноеХранилище(ВыгруженныеДанные, УникальныйИдентификатор);
 
 	СертификатОтпечаток = Контекст.ТекущиеДанные.Отпечаток;
 
 	ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(СертификатОписаниеДанных,
-		ЭлектроннаяПодписьКлиент.СвойстваСертификата(Контекст.СертификатКриптографии));
+		Ждать ЭлектроннаяПодписьСлужебныйКлиент.СвойстваСертификата(Контекст.СертификатКриптографии));
 
 	Контекст.СохраненныеСвойства = СохраненныеСвойстваСертификата(Контекст.ТекущиеДанные.Отпечаток,
 		СертификатАдрес, СертификатПараметрыРеквизитов);

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Ext/Form.xml

@@ -380,6 +380,7 @@
 										</v8:item>
 									</Title>
 									<GroupHorizontalAlign>Left</GroupHorizontalAlign>
+									<Group>Vertical</Group>
 									<HorizontalAlign>Left</HorizontalAlign>
 									<Behavior>Usual</Behavior>
 									<Representation>None</Representation>
@@ -393,7 +394,7 @@
 											<Width>51</Width>
 											<AutoMaxWidth>false</AutoMaxWidth>
 											<MaxWidth>51</MaxWidth>
-											<Height>4</Height>
+											<HeightControlVariant>UseContentHeight</HeightControlVariant>
 											<RowSelectionMode>Row</RowSelectionMode>
 											<Header>false</Header>
 											<HorizontalScrollBar>DontUse</HorizontalScrollBar>
@@ -461,10 +462,16 @@
 											</ChildItems>
 										</Table>
 										<Button name="ПоказатьДанныеСертификата" id="744">
-											<Type>UsualButton</Type>
-											<Representation>Picture</Representation>
+											<Type>Hyperlink</Type>
+											<Representation>PictureAndText</Representation>
 											<SkipOnInput>true</SkipOnInput>
 											<CommandName>Form.Command.ПоказатьДанныеСертификата</CommandName>
+											<Title>
+												<v8:item>
+													<v8:lang>ru</v8:lang>
+													<v8:content>Все свойства сертификата</v8:content>
+												</v8:item>
+											</Title>
 											<ExtendedTooltip name="ПоказатьДанныеСертификатаРасширеннаяПодсказка" id="745"/>
 										</Button>
 									</ChildItems>

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Ext/Form/Module.bsl

@@ -341,12 +341,12 @@
 
 // Продолжение процедуры Далее.
 &НаКлиенте
-Процедура ДалееПослеВыгрузкиСертификата(ВыгруженныеДанные, СертификатКриптографии) Экспорт
+Асинх Процедура ДалееПослеВыгрузкиСертификата(ВыгруженныеДанные, СертификатКриптографии) Экспорт
 
 	ПоказатьСтраницуУточнениеСвойствСертификата(ЭтотОбъект,
 		СертификатКриптографии,
 		ВыгруженныеДанные,
-		ЭлектроннаяПодписьКлиент.СвойстваСертификата(СертификатКриптографии));
+		Ждать ЭлектроннаяПодписьСлужебныйКлиент.СвойстваСертификата(СертификатКриптографии));
 
 КонецПроцедуры
 

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатовДляШифрования/Ext/Form.xml

@@ -150,7 +150,7 @@
 									<v8:content>Группа свойства сертификата</v8:content>
 								</v8:item>
 							</Title>
-							<Group>AlwaysHorizontal</Group>
+							<Group>Vertical</Group>
 							<ShowTitle>false</ShowTitle>
 							<ExtendedTooltip name="ГруппаСвойстваСертификатаРасширеннаяПодсказка" id="55"/>
 							<ChildItems>
@@ -161,7 +161,7 @@
 									<Width>51</Width>
 									<AutoMaxWidth>false</AutoMaxWidth>
 									<MaxWidth>51</MaxWidth>
-									<Height>4</Height>
+									<HeightControlVariant>UseContentHeight</HeightControlVariant>
 									<RowSelectionMode>Row</RowSelectionMode>
 									<Header>false</Header>
 									<HorizontalScrollBar>DontUse</HorizontalScrollBar>
@@ -229,10 +229,16 @@
 									</ChildItems>
 								</Table>
 								<Button name="ПоказатьДанныеСертификата" id="47">
-									<Type>UsualButton</Type>
-									<Representation>Picture</Representation>
+									<Type>Hyperlink</Type>
+									<Representation>PictureAndText</Representation>
 									<SkipOnInput>true</SkipOnInput>
 									<CommandName>Form.Command.ПоказатьДанныеСертификата</CommandName>
+									<Title>
+										<v8:item>
+											<v8:lang>ru</v8:lang>
+											<v8:content>Все свойства сертификата</v8:content>
+										</v8:item>
+									</Title>
 									<ExtendedTooltip name="ПоказатьДанныеСертификатаРасширеннаяПодсказка" id="48"/>
 								</Button>
 							</ChildItems>

src/cf/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатовДляШифрования/Ext/Form/Module.bsl

@@ -403,7 +403,7 @@
 
 	СертификатКриптографии = Новый СертификатКриптографии;
 	Ждать СертификатКриптографии.ИнициализироватьАсинх(ПолучитьИзВременногоХранилища(АдресСертификата));
-	СвойстваСертификата = ЭлектроннаяПодписьКлиент.СвойстваСертификата(СертификатКриптографии);
+	СвойстваСертификата = Ждать ЭлектроннаяПодписьСлужебныйКлиент.СвойстваСертификата(СертификатКриптографии);
 
 	ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(
 		СертификатОписаниеДанных, СвойстваСертификата);