2_3_2_195

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

@@ -89,4 +89,38 @@
 	
 КонецФункции
 
+// Возвращает соответствие типов программ электронной подписи по именам.
+//
+// Возвращаемое значение:
+//  Соответствие со свойствами:
+//     * Ключ     - Строка - Уникальное имя программы, присвоенное ее разработчиком.
+//     * Значение - Число  - Число, которое описывает тип программы и дополняет имя программы.
+//
+Функция ТипыПрограммЭлектроннойПодписи() Экспорт
+	
+	Если Не ОбщегоНазначенияПовтИсп.ДоступноИспользованиеРазделенныхДанных() Тогда
+		Возврат Новый ФиксированноеСоответствие(Новый Соответствие);
+	КонецЕсли;
+	
+	УстановитьПривилегированныйРежим(Истина);
+	
+	Запрос = Новый Запрос(
+	"ВЫБРАТЬ
+	|	ПрограммыЭлектроннойПодписиИШифрования.ИмяПрограммы,
+	|	ПрограммыЭлектроннойПодписиИШифрования.ТипПрограммы
+	|ИЗ
+	|	Справочник.ПрограммыЭлектроннойПодписиИШифрования КАК ПрограммыЭлектроннойПодписиИШифрования");
+	
+	Результат = Запрос.Выполнить();
+	Выборка = Результат.Выбрать();
+	
+	ТипыПрограммЭлектроннойПодписи = Новый Соответствие;
+	Пока Выборка.Следующий() Цикл
+		ТипыПрограммЭлектроннойПодписи.Вставить(Выборка.ИмяПрограммы, Выборка.ТипПрограммы);
+	КонецЦикла;
+	
+	Возврат Новый ФиксированноеСоответствие(ТипыПрограммЭлектроннойПодписи);
+	
+КонецФункции
+
 #КонецОбласти