2_4_1_80

SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйПовтИсп/Module.bsl

@@ -1,8 +1,3 @@
-////////////////////////////////////////////////////////////////////////////////
-// Подсистема "Электронная подпись".
-// 
-////////////////////////////////////////////////////////////////////////////////
-
 #Область СлужебныеПроцедурыИФункции
 
 // Только для внутреннего использования.
@@ -18,7 +13,7 @@
 	ОбщиеНастройки.Вставить("ИспользоватьШифрование",
 		Константы.ИспользоватьШифрование.Получить());
 	
-	Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+	Если ОбщегоНазначения.РазделениеВключено()
 	 Или ОбщегоНазначения.ИнформационнаяБазаФайловая()
 	   И Не ОбщегоНазначенияКлиентСервер.КлиентПодключенЧерезВебСервер() Тогда
 		
@@ -44,7 +39,8 @@
 		И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор")
 		И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать")
 		И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСКонтрагентами")
-		И ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей"));
+		И ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей")
+		И Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено);
 	
 	Запрос = Новый Запрос;
 	Запрос.Текст =
@@ -100,7 +96,7 @@
 //
 Функция ТипыПрограммЭлектроннойПодписи() Экспорт
 	
-	Если Не ОбщегоНазначенияПовтИсп.ДоступноИспользованиеРазделенныхДанных() Тогда
+	Если Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
 		Возврат Новый ФиксированноеСоответствие(Новый Соответствие);
 	КонецЕсли;
 	
@@ -125,4 +121,37 @@
 	
 КонецФункции
 
+Функция ТипыВладельцев(РегистрПодписей = Истина, ТолькоСсылки = Ложь) Экспорт
+	
+	МассивТипов = Новый Массив;
+	Если РегистрПодписей Тогда
+		Типы = Метаданные.РегистрыСведений.ЭлектронныеПодписи.Измерения.ПодписанныйОбъект.Тип.Типы();
+	Иначе
+		Типы = Метаданные.РегистрыСведений.СертификатыШифрования.Измерения.ЗашифрованныйОбъект.Тип.Типы();
+	КонецЕсли;
+	
+	МассивТипов = Новый Массив;
+	
+	Для Каждого Тип Из Типы Цикл
+		Если Тип = Тип("Неопределено")
+		 Или Тип = Тип("Строка")
+		 Или Тип = Тип("СправочникСсылка." + "ВерсииФайлов") Тогда
+			Продолжить;
+		КонецЕсли;
+		МассивТипов.Добавить(Тип);
+		Если Не ТолькоСсылки Тогда
+			ПолноеИмя = Метаданные.НайтиПоТипу(Тип).ПолноеИмя();
+			Если Метаданные.ВариантВстроенногоЯзыка = Метаданные.СвойстваОбъектов.ВариантВстроенногоЯзыка.Русский Тогда
+				ИмяТипаОбъекта = СтрЗаменить(ПолноеИмя, ".", "Объект.");
+			Иначе
+				ИмяТипаОбъекта = СтрЗаменить(ПолноеИмя, ".", "Object.");
+			КонецЕсли;
+			МассивТипов.Добавить(Тип(ИмяТипаОбъекта));
+		КонецЕсли;
+	КонецЦикла;
+	
+	Возврат МассивТипов;
+	
+КонецФункции
+
 #КонецОбласти