3_0_2_150

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

@@ -1,3 +1,11 @@
+///////////////////////////////////////////////////////////////////////////////////////////////////////
+// Copyright (c) 2018, ООО 1С-Софт
+// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
+// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
+// Текст лицензии доступен по ссылке:
+// https://creativecommons.org/licenses/by/4.0/legalcode
+///////////////////////////////////////////////////////////////////////////////////////////////////////
+
 #Область СлужебныеПроцедурыИФункции
 
 // Только для внутреннего использования.
@@ -15,7 +23,7 @@
 	
 	Если ОбщегоНазначения.РазделениеВключено()
 	 Или ОбщегоНазначения.ИнформационнаяБазаФайловая()
-	   И Не ОбщегоНазначенияКлиентСервер.КлиентПодключенЧерезВебСервер() Тогда
+	   И Не ОбщегоНазначения.КлиентПодключенЧерезВебСервер() Тогда
 		
 		ОбщиеНастройки.Вставить("ПроверятьЭлектронныеПодписиНаСервере", Ложь);
 		ОбщиеНастройки.Вставить("СоздаватьЭлектронныеПодписиНаСервере", Ложь);
@@ -27,19 +35,12 @@
 			Константы.СоздаватьЭлектронныеПодписиНаСервере.Получить());
 	КонецЕсли;
 	
-	// Использование подсистем.
-	// 1. Подсистема Контактная информация  - российский адрес.
-	// 2. Подсистема Адресный классификатор - код региона по наименованию.
-	// 3. Подсистема Печать - стандартная печатная форма для заявления на выпуск сертификата.
-	// 4. Подсистема Работа с контрагентами - проверка ИНН, КПП, ОГРН, лицевого счета по БИК, СНИЛС.
-	// 5. Подсистема Интернет поддержка пользователей - подключение сервисам 1С.
-	
-	ОбщиеНастройки.Вставить("ЗаявлениеНаВыпускСертификатаДоступно",
-		  ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация")
-		И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор")
-		И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать")
-		И ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей")
-		И Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено);
+	ОбщиеНастройки.Вставить("ЗаявлениеНаВыпускСертификатаДоступно", 
+		Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено);
+	Если ОбщиеНастройки.ЗаявлениеНаВыпускСертификатаДоступно Тогда
+		Заявление = ОбщегоНазначения.ОбщийМодуль("Обработки.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата");
+		ОбщиеНастройки.ЗаявлениеНаВыпускСертификатаДоступно = Заявление.ЗаявлениеНаВыпускСертификатаДоступно();
+	КонецЕсли;		
 	
 	Запрос = Новый Запрос;
 	Запрос.Текст =