3_1_3_162

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

@@ -9,6 +9,16 @@
 #Область СлужебныеПроцедурыИФункции
 
 // Только для внутреннего использования.
+// 
+// Возвращаемое значение:
+// 	ФиксированнаяСтруктура:
+// 	* ИспользоватьЭлектронныеПодписи - Булево
+// 	* ИспользоватьШифрование - Булево
+// 	* ПроверятьЭлектронныеПодписиНаСервере - Булево
+// 	* СоздаватьЭлектронныеПодписиНаСервере - Булево
+// 	* ЗаявлениеНаВыпускСертификатаДоступно - Булево
+// 	* ОписанияПрограмм - Массив из см. ОписаниеПрограмм
+//
 Функция ОбщиеНастройки() Экспорт
 	
 	ОбщиеНастройки = Новый Структура;
@@ -70,15 +80,9 @@
 		Строки = ПоставляемыеНастройки.НайтиСтроки(Отбор);
 		Идентификатор = ?(Строки.Количество() = 0, "", Строки[0].Идентификатор);
 		
-		Описание = Новый Структура;
-		Описание.Вставить("Ссылка",              Выборка.Ссылка);
-		Описание.Вставить("Наименование",        Выборка.Наименование);
-		Описание.Вставить("ИмяПрограммы",        Выборка.ИмяПрограммы);
-		Описание.Вставить("ТипПрограммы",        Выборка.ТипПрограммы);
-		Описание.Вставить("АлгоритмПодписи",     Выборка.АлгоритмПодписи);
-		Описание.Вставить("АлгоритмХеширования", Выборка.АлгоритмХеширования);
-		Описание.Вставить("АлгоритмШифрования",  Выборка.АлгоритмШифрования);
-		Описание.Вставить("Идентификатор",       Идентификатор);
+		Описание = ОписаниеПрограмм();
+		ЗаполнитьЗначенияСвойств(Описание, Выборка);
+		Описание.Идентификатор = Идентификатор;
 		ОписанияПрограмм.Добавить(Новый ФиксированнаяСтруктура(Описание));
 	КонецЦикла;
 	
@@ -88,6 +92,30 @@
 	
 КонецФункции
 
+// Возвращаемое значение:
+// 	Структура:
+// 	* Ссылка - СправочникСсылка.ПрограммыЭлектроннойПодписиИШифрования
+// 	* Наименование - Строка
+// 	* ИмяПрограммы - Строка
+// 	* ТипПрограммы - Число
+// 	* АлгоритмПодписи - Строка
+// 	* АлгоритмХеширования - Строка
+// 	* АлгоритмШифрования - Строка
+// 	* Идентификатор - Строка
+//
+Функция ОписаниеПрограмм() Экспорт
+	Описание = Новый Структура;
+	Описание.Вставить("Ссылка");
+	Описание.Вставить("Наименование");
+	Описание.Вставить("ИмяПрограммы");
+	Описание.Вставить("ТипПрограммы");
+	Описание.Вставить("АлгоритмПодписи");
+	Описание.Вставить("АлгоритмХеширования");
+	Описание.Вставить("АлгоритмШифрования");
+	Описание.Вставить("Идентификатор");
+	Возврат Описание;
+КонецФункции
+
 Функция ТипыВладельцев(ТолькоСсылки = Ложь) Экспорт
 	
 	Результат = Новый Соответствие;