СостояниеСертификатаГруппа
276
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
index e40c60d34..9a4c6a141 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
@@ -207,6 +207,15 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ПредупреждениеОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
+
+ ДополнительныеПараметры = Новый Структура("Сертификат", Объект.Ссылка);
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьНавигационнуюСсылкуКлассификатора(
+ Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка, ДополнительныеПараметры);
+
+КонецПроцедуры
+
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -274,11 +283,15 @@
&НаКлиенте
Процедура СертификатОтозван(Команда)
- Объект.Отозван = Не Объект.Отозван;
- Элементы.ФормаСертификатОтозван.Пометка = Объект.Отозван;
-
- Если Объект.Отозван Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'После записи отменить отзыв будет невозможно.'"));
+ Если Не Объект.Отозван Тогда
+ ОписаниеСледующее = Новый ОписаниеОповещения("ПослеОтветаНаВопросСертификатОтозван", ЭтотОбъект);
+ ПоказатьВопрос(ОписаниеСледующее, НСтр("ru = 'Сертификат будет помечен как отозванный, его нельзя будет использовать для подписи в программе.
+ |Рекомендуется устанавливать этот признак, когда подано, но еще не исполнено заявление на отзыв сертификата.
+ |Продолжить?'"), РежимДиалогаВопрос.ДаНет);
+ Иначе
+ ОписаниеСледующее = Новый ОписаниеОповещения("ПослеОтветаНаВопросСертификатОтозван", ЭтотОбъект);
+ ПоказатьВопрос(ОписаниеСледующее, НСтр("ru = 'Если сертификат отозван в удостоверяющем центре, сделать подпись таким сертификатом будет невозможно, даже если снять отметку в программе.
+ |Продолжить?'"), РежимДиалогаВопрос.ДаНет);
КонецЕсли;
КонецПроцедуры
@@ -345,17 +358,22 @@
Объект.Ссылка, "ДанныеСертификата").Получить();
Если ТипЗнч(ДвоичныеДанныеСертификата) = Тип("ДвоичныеДанные") Тогда
+
Сертификат = Новый СертификатКриптографии(ДвоичныеДанныеСертификата);
Если ЗначениеЗаполнено(АдресСертификата) Тогда
ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, АдресСертификата);
Иначе
АдресСертификата = ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, УникальныйИдентификатор);
КонецЕсли;
+
ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(ОписаниеДанныхСертификата,
ЭлектроннаяПодпись.СвойстваСертификата(Сертификат));
+ ОбновитьВидимостьПредупреждения(Сертификат);
+
Иначе
АдресСертификата = "";
Элементы.ПоказатьДанныеСертификата.Доступность = Ложь;
+ Элементы.ПредупреждениеГруппа.Видимость = Ложь;
Элементы.ФормаПроверитьСертификат.Доступность = ЗначениеЗаполнено(ДвоичныеДанныеСертификата);
Элементы.ФормаСохранитьДанныеСертификатаВФайл.Доступность = Ложь;
Элементы.АвтоПоляИзДанныхСертификата.Видимость = Истина;
@@ -367,10 +385,7 @@
КонецЕсли;
Элементы.ФормаСертификатОтозван.Пометка = Объект.Отозван;
- Если Объект.Отозван Тогда
- Элементы.ФормаСертификатОтозван.Доступность = Ложь;
- КонецЕсли;
-
+
Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
ЭтоАвтор = Объект.Добавил = Пользователи.ТекущийПользователь();
СертификатДоступен = СертификатДоступенПользователю();
@@ -536,6 +551,56 @@
КонецПроцедуры
+&НаСервере
+Процедура ОбновитьВидимостьПредупреждения(Знач СертификатКриптографии = Неопределено)
+
+ Если Объект.Отозван Тогда
+
+ Элементы.ПредупреждениеГруппа.Видимость = Истина;
+ Элементы.Предупреждение.Заголовок = НСтр("ru='Сертификат помечен в программе как отозванный'");
+
+ ИначеЕсли Объект.ДействителенДо > ТекущаяДатаСеанса() Тогда
+
+ Если ЗначениеЗаполнено(АдресСертификата) Тогда
+
+ Если СертификатКриптографии = Неопределено Тогда
+ СертификатКриптографии = Новый СертификатКриптографии(ПолучитьИзВременногоХранилища(АдресСертификата));
+ КонецЕсли;
+
+ РезультатПроверкиУдостоверяющегоЦентраСертификата = ЭлектроннаяПодписьСлужебный.РезультатПроверкиУдостоверяющегоЦентраСертификата(
+ СертификатКриптографии);
+
+ ДанныеПредупреждения = РезультатПроверкиУдостоверяющегоЦентраСертификата.Предупреждение;
+
+ Если РезультатПроверкиУдостоверяющегоЦентраСертификата.Действует
+ И Не ЗначениеЗаполнено(ДанныеПредупреждения.ТекстОшибки) Тогда
+
+ Элементы.ПредупреждениеГруппа.Видимость = Ложь;
+ Иначе
+ Элементы.ПредупреждениеГруппа.Видимость = Истина;
+ МассивСтрок = Новый Массив;
+ МассивСтрок.Добавить(ДанныеПредупреждения.ТекстОшибки);
+ Если ЗначениеЗаполнено(ДанныеПредупреждения.Причина) Тогда
+ МассивСтрок.Добавить(Символы.ПС);
+ МассивСтрок.Добавить(ДанныеПредупреждения.Причина);
+ КонецЕсли;
+ Если ЗначениеЗаполнено(ДанныеПредупреждения.Решение) Тогда
+ МассивСтрок.Добавить(Символы.ПС);
+ МассивСтрок.Добавить(ДанныеПредупреждения.Решение);
+ КонецЕсли;
+ Элементы.Предупреждение.Заголовок = Новый ФорматированнаяСтрока(МассивСтрок);
+ КонецЕсли;
+
+ Иначе
+ Элементы.ПредупреждениеГруппа.Видимость = Ложь;
+ КонецЕсли;
+
+ Иначе
+ Элементы.ПредупреждениеГруппа.Видимость = Ложь;
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОформитьСписокПользователей()
@@ -617,6 +682,19 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ПослеОтветаНаВопросСертификатОтозван(РезультатВопроса, ДополнительныеПараметры) Экспорт
+
+ Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
+ Возврат;
+ КонецЕсли;
+
+ Объект.Отозван = Не Объект.Отозван;
+ Элементы.ФормаСертификатОтозван.Пометка = Объект.Отозван;
+ ОбновитьВидимостьПредупреждения();
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОткрытьСписокПользователей(РежимПросмотра)
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
index a6c91a0f0..3ac9e4124 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
@@ -3,27 +3,43 @@
Список можно открыть соответствующей командой в разделе Администрирование - Органайзер.
В списке выводится:
- Наименование учетной записи;
-
- Имя пользователя - указывается имя отправителя писем, оно может отличаться от имени пользователя в программе;
-
- Адрес электронной почты учетной записи в формате name@server.net.
Для учетных записей, получение и отправка с которых выполняется автоматически без участия пользователя, должен быть обязательно введен пароль. Также для корректной работы программы обязательно должна быть настроена системная учетная запись электронной почты.
+
+Имя пользователя - указывается имя отправителя писем, оно может отличаться от имени пользователя в программе;
+
+Адрес электронной почты учетной записи в формате name@server.net. Для учетных записей, получение и отправка с которых выполняется автоматически без участия пользователя, должен быть обязательно введен пароль. Также для корректной работы программы обязательно должна быть настроена системная учетная запись электронной почты.
Системная учетная запись электронной почты
- Программа поставляется с предопределенной учетной записью - системной учетной записью электронной почты. Она используется по умолчанию для рассылки различных уведомлений из программы, например, для автоматической отправки сообщений администратору по завершению обновления программы. Перед использованием этих возможностей необходимо настроить системную учетную запись.
-
- Настройка системной учетной записи производится по соответствующей команде в разделе Администрирование - Органайзер. Также можно
Изменить ее в списке.
Ввод учетной записи электронной почты
+
+Настройка системной учетной записи производится по соответствующей команде в разделе Администрирование - Органайзер. Также можно
Изменить ее в списке.Ввод учетной записи электронной почты
- При попытке сохранения программа проверяет введенные учетные записи электронной почты (пытается отослать пробное сообщение). Учетные записи, не прошедшие проверку, не сохраняются.
-
- Нажмите Создать, введите необходимые поля:
+
+- Нажмите Создать, введите необходимые поля:
Настройка учетной записи электронной почты
+
+С помощью переключателя выберите способ авторизации:
+- Ввести пароль, в этом случае укажите в поле справа Пароль учетной записи;
+
+- Авторизоваться на почтовом сервисе, в этом случае программа выводит инструкцию авторизации, которая зависит от почтового сервиса. Следуйте инструкции программы.
+- На почтовом сервисе потребуется указать данные о приложении, например, callback URL, который программа формирует автоматически.
+- Воспользовавшись указаниями почтового сервиса, зарегистрируйте приложение, получите данные для авторизации и заполните нужные поля, например:
+- ID приложения;
+- пароль приложения (client secret).
Установите с помощью флажков, как Почта будет использоваться:
+- Для отправки писем;
+
+- Для получения писем;
+Укажите с помощью переключателя, кем будет использоваться почта:
+- Всеми пользователями (общая почта)
+- Только мной.
+Укажите Имя отправителя (Ваше имя или название организации);
+
+Нажмите Создать. Программа предпримет попытку автоматической настройки и проверки учетной записи. Следуйте указаниям программы. При этом если при автоматической настройке произошел сбой, можно попытаться настроить параметры вручную.
+Если автоматически настроить почту не удалось, нажмите Настроить вручную.
+Настройка учетной записи электронной почты
- Нажмите
Изменить, с помощью программы произведите необходимые настройки.
Проверка учетной записи электронной почты
-
Выделите учетную запись в списке, нажмите Еще - Проверить учетную запись для проверки введенных параметров учетной записи. При этом отправляется стандартное почтовое отправление и проверяется возможность соединения с сервером входящих почтовых сообщений (если учетная запись используется для получения почты).
- -
+
+-
Если в учетной записи не прописан пароль, программа его запрашивает. При необходимости введите пароль.
См. также: