astakhovp/SSL
1
0 Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

3_1_7_61

Browse Source
This commit is contained in:
Компания 1С committed 2022-05-26 12:00:00 +03:00
1 parent 05491df6f5
commit 514ae42c64
182 files changed
+5255 -2872
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/Catalogs/Валюты/Forms/ПараметрыПрописиВалютыНаДругихЯзыках/Module.bsl
+1 -1
View File
@@ -49,7 +49,7 @@
ЭтотОбъект[ОписаниеЯзыка.Имя] = Параметры.ТекущееЗначение;
КонецЕсли;
ОсновнойЯзык = Метаданные.ОсновнойЯзык.КодЯзыка;
ОсновнойЯзык = ОбщегоНазначения.КодОсновногоЯзыка();
Для каждого Представление Из Параметры.Представления Цикл
SSL/src/Catalogs/ВерсииРасширений/ManagerModule.bsl
+12 -13
View File
@@ -54,8 +54,8 @@
// который требуется для анализа наличия расширений и контроля динамического обновления,
// а также из формы установки расширений конфигурации в режиме 1С:Предприятия.
//
// Для сеанса запущенного без разделителей возвращается только состав неразделенных (общих)
// расширений, независимо от установленных разделителей.
// Для сеанса запущенного без разделителей исключаются расширения, предназначенные
// только для неразделенного режима (инструменты администратора сервиса).
//
// Возвращаемое значение:
// ФиксированнаяСтруктура:
@@ -64,15 +64,6 @@
//
Функция УстановленныеРасширения(ПриЗапуске = Ложь) Экспорт
Если ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
Неразделенные = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
Иначе
Неразделенные = Ложь;
КонецЕсли;
РасширенияБазыДанных = РасширенияКонфигурации.Получить();
Если ПриЗапуске Тогда
РасширенияПриЗапуске = Новый Соответствие;
@@ -121,11 +112,19 @@
МодульОбновлениеКонфигурации = Неопределено;
КонецЕсли;
// Исключить из контроля расширения только для неразделенных пользователей,
// так как они не подключаются в областях и не вносят изменений
// в код конфигурации (это инструменты администратора сервиса).
НеразделенныйРежим = ОбщегоНазначения.РазделениеВключено()
И Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных();
Для Каждого Расширение Из Расширения Цикл
Если Неразделенные И Расширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.РазделениеДанных Тогда
Если НеразделенныйРежим
И Расширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.РазделениеДанных Тогда
Продолжить;
КонецЕсли;
Если МодульОбновлениеКонфигурации <> Неопределено И МодульОбновлениеКонфигурации.ЭтоИсправление(Расширение) Тогда
Если МодульОбновлениеКонфигурации <> Неопределено
И МодульОбновлениеКонфигурации.ЭтоИсправление(Расширение) Тогда
Исправления.Добавить(Расширение);
Иначе
Основные.Добавить(Расширение);
SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl
+1 -1
View File
@@ -641,7 +641,7 @@
Представление = Наименования[Язык.КодЯзыка][ИмяВида];
Если ЗначениеЗаполнено(Представление) Тогда
Если Язык = Метаданные.ОсновнойЯзык Тогда
Если СтрСравнить(Язык.КодЯзыка, ОбщегоНазначения.КодОсновногоЯзыка()) = 0 Тогда
ВидКонтактнойИнформации.Наименование = Представление;
Иначе
SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
+33 -3
View File
@@ -1403,11 +1403,13 @@
Если ОбъектыРасширений Тогда
СвойстваРасширений = Новый Структура;
ИдентификаторыКлючейРасширений = ИдентификаторыКлючейРасширений();
РасширенияБазыДанных = Новый Массив;
ИдентификаторыКлючейРасширений = ИдентификаторыКлючейРасширений(РасширенияБазыДанных);
СвойстваРасширений.Вставить("ИменаПодключенныхРасширений",
ИменаРасширений(ИсточникРасширенийКонфигурации.СеансАктивные, ИдентификаторыКлючейРасширений));
СвойстваРасширений.Вставить("ИменаНеподключенныхРасширений",
ИменаРасширений(ИсточникРасширенийКонфигурации.СеансОтключенные, ИдентификаторыКлючейРасширений));
ДополнитьИменаНеподключенныхРасширенийВСеансеБезРазделителей(СвойстваРасширений, РасширенияБазыДанных);
КонецЕсли;
СвойстваОбъектовМетаданных = СвойстваОбъектовМетаданных(ОбъектыРасширений,, ИдентификаторыКлючейРасширений);
@@ -1854,13 +1856,16 @@
КонецФункции
Функция ИдентификаторыКлючейРасширений()
Функция ИдентификаторыКлючейРасширений(РасширенияБазыДанных = Неопределено)
Расширения = РасширенияКонфигурации.Получить();
ИдентификаторыКлючейРасширений = Новый Соответствие;
Для Каждого Расширение Из Расширения Цикл
КлючРасширения = НРег(Расширение.Имя) + " " + Base64Строка(Расширение.ХешСумма);
ИдентификаторыКлючейРасширений.Вставить(КлючРасширения, НРег(Расширение.УникальныйИдентификатор));
Если ТипЗнч(РасширенияБазыДанных) = Тип("Массив") Тогда
РасширенияБазыДанных.Добавить(Расширение);
КонецЕсли;
КонецЦикла;
Возврат ИдентификаторыКлючейРасширений;
@@ -2975,6 +2980,31 @@
КонецФункции
// Для процедуры ОбновитьДанные.
Процедура ДополнитьИменаНеподключенныхРасширенийВСеансеБезРазделителей(СвойстваРасширений, РасширенияБазыДанных)
Если Не СтандартныеПодсистемыСервер.ЭтоРазделенныйРежимСеансаБезРазделителей() Тогда
Возврат;
КонецЕсли;
ИменаПодключенныхРасширений = СвойстваРасширений.ИменаПодключенныхРасширений;
ИменаНеподключенныхРасширений = СвойстваРасширений.ИменаНеподключенныхРасширений;
Для Каждого Расширение Из РасширенияБазыДанных Цикл
ИдентификаторРасширения = НРег(Расширение.УникальныйИдентификатор);
ИмяРасширенияДляПоиска = НРег(Расширение.Имя);
Если ИменаПодключенныхРасширений.Получить(ИдентификаторРасширения) <> Неопределено
Или ИменаПодключенныхРасширений.Получить(ИмяРасширенияДляПоиска) <> Неопределено
Или ИменаНеподключенныхРасширений.Получить(ИдентификаторРасширения) <> Неопределено
Или ИменаНеподключенныхРасширений.Получить(ИмяРасширенияДляПоиска) <> Неопределено Тогда
Продолжить;
КонецЕсли;
ИменаНеподключенныхРасширений.Вставить(ИмяРасширенияДляПоиска, Расширение.Имя);
ИменаНеподключенныхРасширений.Вставить(НРег(ИдентификаторРасширения), Расширение.Имя);
КонецЦикла;
КонецПроцедуры
// Для функций ИдентификаторОбъектаМетаданныхПоПолномуИмени, ИдентификаторыОбъектовМетаданных.
Функция ИдентификаторыОбъектовМетаданныхСПопыткойПовтора(ПолныеИменаОбъектовМетаданных, ВызыватьИсключение, ОдинЭлемент)
@@ -3509,7 +3539,7 @@
КонецЕсли;
Если Свойства.ОбъектРасширений Тогда
ОбъектРасширенияНеСуществует = Не Свойства.ПометкаУдаления;
ОбъектРасширенияНеСуществует = Свойства.ПометкаУдаления;
ИмяРасширения = "";
ИдентификаторРасширения = ?(СтрНачинаетсяС(Свойства.ИдентификаторРасширения, "? "),
Сред(Свойства.ИдентификаторРасширения, 3), Свойства.ИдентификаторРасширения);
SSL/src/Catalogs/МакетыПечатныхФорм/Forms/УсловияВидимостиВПодменюПечать/Form.form
+5 -1
View File
@@ -59,7 +59,7 @@
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<listChoiceMode>true</listChoiceMode>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
@@ -581,6 +581,10 @@
<event>OnReadAtServer</event>
<name>ПриЧтенииНаСервере</name>
</handlers>
<handlers>
<event>BeforeWrite</event>
<name>ПередЗаписью</name>
</handlers>
<handlers>
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
SSL/src/Catalogs/МакетыПечатныхФорм/Forms/УсловияВидимостиВПодменюПечать/Module.bsl
+26
View File
@@ -67,6 +67,31 @@
КонецПроцедуры
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
Для Каждого Условие Из УсловияВидимости Цикл
ИндексСтроки = УсловияВидимости.Индекс(Условие);
Если Не ЗначениеЗаполнено(Условие.ВидСравнения) Тогда
ТекстСообщения = НСтр("ru = 'Укажите вид сравнения'");
Поле = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("УсловияВидимости[%1].ПредставлениеВидаСравнения", Формат(ИндексСтроки, "ЧГ=0;"));
ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , Поле, , Отказ);
КонецЕсли;
Если Не ЗначениеЗаполнено(Условие.Поле) Тогда
ТекстСообщения = НСтр("ru = 'Выберите поле'");
Поле = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("УсловияВидимости[%1].ПредставлениеПоля", Формат(ИндексСтроки, "ЧГ=0;"));
ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , Поле, , Отказ);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыУсловияВидимости
@@ -94,6 +119,7 @@
КонецПроцедуры
&НаКлиенте
Процедура УсловияВидимостиВидСравненияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Module.bsl
+1 -1
View File
@@ -822,7 +822,7 @@
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Набор", ТекущийНабор);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ОбщегоНазначения.ЭтоОсновнойЯзык());
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
Если Не ПоказатьНеиспользуемыеРеквизиты Тогда
SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ManagerModule.bsl
+8 -1
View File
@@ -48,9 +48,16 @@
КонецПроцедуры
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда
Возврат;
КонецЕсли;
#Иначе
Если СтрСравнить(СтандартныеПодсистемыКлиент.ПараметрКлиента("КодОсновногоЯзыка"), ОбщегоНазначенияКлиент.КодОсновногоЯзыка()) = 0 Тогда
Возврат;
КонецЕсли;
#КонецЕсли
Если ЗначениеЗаполнено(Данные.Родитель) Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ОповещениеОбОкончанииСрокаДействия/Module.bsl
+5
View File
@@ -14,12 +14,17 @@
Сертификат = Параметры.Сертификат;
ЗаявлениеНаВыпускСертификатаДоступно = ЭлектроннаяПодпись.ОбщиеНастройки().ЗаявлениеНаВыпускСертификатаДоступно;
// Локализация
Если ЗаявлениеНаВыпускСертификатаДоступно И ЗначениеЗаполнено(Сертификат) Тогда
ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(
"Обработка.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата");
ВыпущенныеСертификаты = ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.ВыпущенныеСертификаты(
Сертификат);
КонецЕсли;
// Конец Локализация
ЕстьПеревыпущенные = ВыпущенныеСертификаты.Количество() > 0;
Элементы.ДекорацияПеревыпущен.Видимость = ЕстьПеревыпущенные;
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Form.form
+11
View File
@@ -1381,6 +1381,17 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>РезультатПроверкиУдостоверяющегоЦентра</name>
<id>26</id>
<valueType/>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>Подписать</name>
<title>
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl
+24 -2
View File
@@ -330,6 +330,13 @@
#Область СлужебныеПроцедурыИФункции
&НаСервереБезКонтекста
Функция ОшибкаСертификатПомеченКакОтозванный()
Возврат ЭлектроннаяПодписьСлужебный.ОшибкаСертификатПомеченКакОтозванный()
КонецФункции
&НаКлиенте
Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
@@ -553,7 +560,17 @@
Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
НСтр("ru = 'Сертификат помечен в программе как отозванный.
|Выберите другой сертификат.'"));
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
ДополнительныеДанныеОшибки = Новый Структура("ДополнительныеДанныеПроверокНаКлиенте", ОшибкаСертификатПомеченКакОтозванный());
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере,,ДополнительныеДанныеОшибки);
Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(РезультатПроверкиУдостоверяющегоЦентра)
И Не РезультатПроверкиУдостоверяющегоЦентра.Действует Тогда
ПредупреждениеОбОшибке = РезультатПроверкиУдостоверяющегоЦентра.Предупреждение; // см. ЭлектроннаяПодписьСлужебныйКлиентСервер.ПредупреждениеПриПроверкеУдостоверяющегоЦентраСертификата
Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", ПредупреждениеОбОшибке.ТекстОшибки);
ДополнительныеДанныеОшибки = Новый Структура("ДополнительныеДанныеПроверокНаКлиенте", ПредупреждениеОбОшибке);
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере,,ДополнительныеДанныеОшибки);
Возврат;
КонецЕсли;
@@ -748,7 +765,7 @@
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере, НеподписанныеДанные = Неопределено)
Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере, НеподписанныеДанные = Неопределено, ДополнительныеДанные = Неопределено)
Если ОписаниеДанных.Свойство("ПрекратитьВыполнение") Тогда
@@ -772,6 +789,11 @@
КонецЕсли;
ДополнительныеПараметры = Новый Структура;
Если ЗначениеЗаполнено(ДополнительныеДанные) Тогда
Для Каждого КлючИЗначение Из ДополнительныеДанные Цикл
ДополнительныеПараметры.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
КонецЕсли;
Если НеподписанныеДанные <> Неопределено Тогда
ДополнительныеПараметры.Вставить("НеподписанныеДанные", НеподписанныеДанные);
КонецЕсли;
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаExtraCryptoAPI_3_0_1_27/Template.addin → SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаExtraCryptoAPI_3_0_1_28/Template.addin
BIN
View File
Binary file not shown.
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
+1 -1
View File
@@ -809,7 +809,7 @@
<usePurposes>MobileDevice</usePurposes>
</forms>
<templates uuid="5189beb9-b939-4f97-aca0-c2f3492ac8b9">
<name>КомпонентаExtraCryptoAPI_3_0_1_27</name>
<name>КомпонентаExtraCryptoAPI_3_0_1_28</name>
<synonym>
<key>ru</key>
<value>Компонента ExtraCryptoAPI</value>
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Form.form
+376 -15
View File
@@ -2286,10 +2286,10 @@
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПриПроверкеОбнаруженыОшибки</name>
<name>ТехническиеПодробностиОшибки</name>
<id>275</id>
<items xsi:type="form:Decoration">
<name>КартинкаПриПроверкеОбнаруженыОшибки</name>
<name>КартинкаТехническиеПодробностиОшибки</name>
<id>279</id>
<title>
<key>ru</key>
@@ -2301,7 +2301,7 @@
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КартинкаПредупреждениеРасширеннаяПодсказка1</name>
<name>КартинкаТехническиеПодробностиОшибкиРасширеннаяПодсказка</name>
<id>281</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -2311,7 +2311,7 @@
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаПредупреждениеКонтекстноеМеню1</name>
<name>КартинкаТехническиеПодробностиОшибкиКонтекстноеМеню</name>
<id>280</id>
<autoFill>true</autoFill>
</contextMenu>
@@ -2324,10 +2324,10 @@
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаПриПроверкеОбнаруженыОшибки</name>
<name>ГруппаТехническиеПодробностиОшибки</name>
<id>282</id>
<items xsi:type="form:FormField">
<name>ТекстПриПроверкеОбнаруженыОшибки</name>
<name>ТекстТехническиеПодробностиОшибки</name>
<id>284</id>
<visible>true</visible>
<enabled>true</enabled>
@@ -2339,7 +2339,7 @@
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>СообщенияОбОшибкахРасширеннаяПодсказка1</name>
<name>ТекстТехническиеПодробностиОшибкиРасширеннаяПодсказка</name>
<id>286</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -2349,7 +2349,7 @@
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СообщенияОбОшибкахКонтекстноеМеню1</name>
<name>ТекстТехническиеПодробностиОшибкиКонтекстноеМеню</name>
<id>285</id>
<autoFill>true</autoFill>
</contextMenu>
@@ -2362,7 +2362,7 @@
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>Opening</event>
<name>ТекстПриПроверкеОбнаруженыОшибкиОткрытие</name>
<name>ТекстТехническиеПодробностиОшибкиОткрытие</name>
</handlers>
<height>7</height>
<horizontalStretch>true</horizontalStretch>
@@ -2383,7 +2383,7 @@
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>НужнаПомощьПриПроверкеОбнаруженыОшибки</name>
<name>НужнаПомощьТехническиеПодробностиОшибки</name>
<id>287</id>
<title>
<key>ru</key>
@@ -2395,7 +2395,7 @@
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НужнаПомощьРасширеннаяПодсказка1</name>
<name>НужнаПомощьТехническиеПодробностиОшибкиРасширеннаяПодсказка</name>
<id>289</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -2405,7 +2405,7 @@
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НужнаПомощьКонтекстноеМеню1</name>
<name>НужнаПомощьТехническиеПодробностиОшибкиКонтекстноеМеню</name>
<id>288</id>
<autoFill>true</autoFill>
</contextMenu>
@@ -2432,7 +2432,7 @@
<value>При проверке обнаружены ошибки</value>
</title>
<extendedTooltip>
<name>ГруппаСообщенияОбОшибкахРасширеннаяПодсказка1</name>
<name>ГруппаТехническиеПодробностиОшибкиРасширеннаяПодсказка</name>
<id>283</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -2458,10 +2458,10 @@
</userVisible>
<title>
<key>ru</key>
<value>При проверке обнаружены ошибки</value>
<value>Технические подробности ошибки</value>
</title>
<extendedTooltip>
<name>ПриПроверкеОбнаруженыОшибкиРасширеннаяПодсказка</name>
<name>ТехническиеПодробностиОшибкиРасширеннаяПодсказка</name>
<id>276</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -2648,6 +2648,367 @@ vasyapupkin@example.com завершена.</value>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПриПроверкеОбнаруженыОшибки</name>
<id>393</id>
<items xsi:type="form:FormGroup">
<name>ГруппаОписаниеОшибки</name>
<id>395</id>
<items xsi:type="form:Decoration">
<name>КартинкаПриПроверкеОбнаруженыОшибки</name>
<id>397</id>
<title>
<key>ru</key>
<value>Картинка при проверке обнаружены ошибки</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КартинкаПриПроверкеОбнаруженыОшибкиРасширеннаяПодсказка</name>
<id>399</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаПриПроверкеОбнаруженыОшибкиКонтекстноеМеню</name>
<id>398</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Предупреждение32</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ТекстСообщенияОбОшибках</name>
<id>402</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>СообщенияОбОшибках</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ТекстСообщенияОбОшибкахРасширеннаяПодсказка</name>
<id>404</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТекстСообщенияОбОшибкахКонтекстноеМеню</name>
<id>403</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>40</width>
<height>2</height>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>false</verticalStretch>
<wrap>true</wrap>
<multiLine>true</multiLine>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<backColor xsi:type="core:ColorRef">
<color>Style.FormBackColor</color>
</backColor>
<borderColor xsi:type="core:ColorRef">
<color>Style.FormBackColor</color>
</borderColor>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Описание ошибки</value>
</title>
<extendedTooltip>
<name>ГруппаОписаниеОшибкиРасширеннаяПодсказка</name>
<id>396</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>AlwaysHorizontal</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаВозможныеПричины</name>
<id>405</id>
<items xsi:type="form:Decoration">
<name>ДекорацияВозможныеПричины</name>
<id>407</id>
<title>
<key>ru</key>
<value>Декорация возможные причины</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияВозможныеПричиныРасширеннаяПодсказка</name>
<id>409</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияВозможныеПричиныКонтекстноеМеню</name>
<id>408</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Возможные причины</value>
</title>
<extendedTooltip>
<name>ГруппаВозможныеПричиныРасширеннаяПодсказка</name>
<id>406</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<controlRepresentation>Button</controlRepresentation>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<showTitle>auto</showTitle>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаСпособыУстранения</name>
<id>410</id>
<items xsi:type="form:Decoration">
<name>ДекорацияСпособыУстранения</name>
<id>412</id>
<title>
<key>ru</key>
<value>Декорация способы устранения</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияСпособыУстраненияРасширеннаяПодсказка</name>
<id>414</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияСпособыУстраненияКонтекстноеМеню</name>
<id>413</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Способы устранения</value>
</title>
<extendedTooltip>
<name>ГруппаСпособыУстраненияРасширеннаяПодсказка</name>
<id>411</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<controlRepresentation>Button</controlRepresentation>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<showTitle>auto</showTitle>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаДополнительныеСсылки</name>
<id>415</id>
<items xsi:type="form:Decoration">
<name>РекомендацииПоРешениюТиповыхПроблем</name>
<id>417</id>
<title>
<key>ru</key>
<value>Рекомендации по решению типовых проблем</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>РекомендацииПоРешениюТиповыхПроблемРасширеннаяПодсказка</name>
<id>419</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>РекомендацииПоРешениюТиповыхПроблемКонтекстноеМеню</name>
<id>418</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<groupHorizontalAlign>Left</groupHorizontalAlign>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>Click</event>
<name>НужнаПомощьНажатие</name>
</handlers>
<hyperlink>true</hyperlink>
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Дополнительные ссылки</value>
</title>
<verticalStretch>true</verticalStretch>
<extendedTooltip>
<name>ГруппаДополнительныеСсылкиРасширеннаяПодсказка</name>
<id>416</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>HorizontalIfPossible</group>
<verticalAlign>Bottom</verticalAlign>
<behavior>Auto</behavior>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>При проверке обнаружены ошибки</value>
</title>
<extendedTooltip>
<name>ПриПроверкеОбнаруженыОшибкиРасширеннаяПодсказка</name>
<id>394</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl
+41 -19
View File
@@ -213,13 +213,13 @@
Процедура СообщенияОбОшибкахОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Элементы.Страницы.ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки;
Элементы.Страницы.ТекущаяСтраница = Элементы.ТехническиеПодробностиОшибки;
НастроитьЭлементыТекущейСтраницы();
КонецПроцедуры
&НаКлиенте
Процедура ТекстПриПроверкеОбнаруженыОшибкиОткрытие(Элемент, СтандартнаяОбработка)
Процедура ТекстТехническиеПодробностиОшибкиОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Элементы.Страницы.ТекущаяСтраница = Элементы.НастройкаУчетнойЗаписи;
@@ -252,8 +252,11 @@
ПредыдущаяСтраница = Неопределено;
Если ТекущаяСтраница = Элементы.НастройкаСервераИсходящейПочты Тогда
ПредыдущаяСтраница = Элементы.НастройкаУчетнойЗаписи;
ИначеЕсли ТекущаяСтраница = Элементы.ПроверкаНастроекУчетнойЗаписи Или ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки Тогда
ИначеЕсли ТекущаяСтраница = Элементы.ПроверкаНастроекУчетнойЗаписи Или ТекущаяСтраница = Элементы.ТехническиеПодробностиОшибки Тогда
ПредыдущаяСтраница = Элементы.НастройкаУчетнойЗаписи;
ИначеЕсли ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки Тогда
ПредыдущаяСтраница = Элементы.НастройкиАвторизацииПриложения;
ПроверкаЗавершиласьСОшибками = Ложь;
КонецЕсли;
Если ПредыдущаяСтраница <> Неопределено Тогда
@@ -305,7 +308,7 @@
ТекущаяСтраница = Элементы.Страницы.ТекущаяСтраница;
СледующаяСтраница = Неопределено;
Если ТекущаяСтраница = Элементы.НастройкаУчетнойЗаписи Или ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки Тогда
Если ТекущаяСтраница = Элементы.НастройкаУчетнойЗаписи Или ТекущаяСтраница = Элементы.ТехническиеПодробностиОшибки Тогда
ПроверитьЗаполнениеНаСтраницеНастройкаУчетнойЗаписи(Отказ);
Если Не Отказ И Не НастройкиЗаполнены Тогда
ЗаполнитьНастройкиУчетнойЗаписи();
@@ -380,7 +383,7 @@
КонецЕсли;
Если ПроверкаЗавершиласьСОшибками Тогда
СледующаяСтраница = Элементы.НастройкаУчетнойЗаписи;
СледующаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки;
Иначе
Если СпособНастройки = "Автоматически" Тогда
СледующаяСтраница = Элементы.ПроверкаНастроекУчетнойЗаписи;
@@ -583,7 +586,7 @@
КонецЕсли;
Иначе
Если ТекущаяСтраница = Элементы.НастройкаУчетнойЗаписи
И ПроверкаЗавершиласьСОшибками Или ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки Тогда
И ПроверкаЗавершиласьСОшибками Или ТекущаяСтраница = Элементы.ТехническиеПодробностиОшибки Тогда
ЗаголовокКнопкиДалее = НСтр("ru = 'Повторить'");
ИначеЕсли ТекущаяСтраница = Элементы.НастройкаУчетнойЗаписи
И СпособНастройки = "Автоматически" Тогда
@@ -603,7 +606,8 @@
Элементы.КнопкаДалее.КнопкаПоУмолчанию =ТекущаяСтраница <> Элементы.ПроверкаНастроекУчетнойЗаписи;
Элементы.КнопкаДалее.Доступность = Не (ТекущаяСтраница = Элементы.ПроверкаНастроекУчетнойЗаписи И ПроверкаПропущена);
Элементы.КнопкаДалее.Видимость = Не (ТекущаяСтраница = Элементы.ПроверкаНастроекУчетнойЗаписи И СпособНастройки = "Вручную")
И Не (ТекущаяСтраница = Элементы.Авторизация И Не ЭтоВебКлиент());
И Не (ТекущаяСтраница = Элементы.Авторизация И Не ЭтоВебКлиент())
И Не ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки;
// КнопкаНазад
Элементы.КнопкаНазад.Видимость = ТекущаяСтраница <> Элементы.НастройкаУчетнойЗаписи
@@ -1111,15 +1115,23 @@
Если СтрНачинаетсяС(НРег(Элемент.Документ.URL), НРег(АдресПеренаправления)) Тогда
ПриПолученииОтветаПочтовогоСервера(Элемент.Документ.URL, НастройкиАвторизации.АдресПолученияКлюча);
ПерейтиНаСледующуюСтраницу();
ИначеЕсли СтрНачинаетсяС(ВебСтраница, "{") И СтрЗаканчиваетсяНа(ВебСтраница, "}") Тогда
ПриПолученииОтветаПочтовогоСервера(ВебСтраница, НастройкиАвторизации.АдресПолученияКлюча);
ПерейтиНаСледующуюСтраницу();
КонецЕсли;
#КонецЕсли
КонецПроцедуры
&НаСервере
Процедура ПриПолученииОтветаПочтовогоСервера(СтрокаURI, АдресПолученияКлюча)
Процедура ПриПолученииОтветаПочтовогоСервера(СтрокаПараметров, АдресПолученияКлюча)
Если СтрНачинаетсяС(СтрокаПараметров, "{") Тогда
Ответ = РаботаСПочтовымиСообщениямиСлужебный.JSONВЗначение(СтрокаПараметров);
Иначе
Ответ = ПараметрыИзСтрокиURI(СтрокаПараметров);
КонецЕсли;
Ответ = ПараметрыИзСтрокиURI(СтрокаURI);
КодАвторизации = Ответ["code"];
КодОшибки = Ответ["error"];
ТекстОшибки = Ответ["error_description"];
@@ -1128,21 +1140,18 @@
ТекстОшибки = РаскодироватьСтроку(ТекстОшибки, СпособКодированияСтроки.КодировкаURL);
КонецЕсли;
Если ИдентификаторЗапроса <> Ответ["state"] Тогда
СообщенияОбОшибках = НСтр("ru = 'Не удалось авторизоваться на сервере %1. Неверный идентификатор ответа.'");
ПроверкаЗавершиласьСОшибками = Истина;
Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(КодОшибки) Тогда
СообщенияОбОшибках = ОписаниеОшибкиАвторизацииПочтовогоСервера(КодОшибки, ТекстОшибки);
ПроверкаЗавершиласьСОшибками = Истина;
Возврат;
ИначеЕсли ИдентификаторЗапроса <> Ответ["state"] Тогда
СообщенияОбОшибках = НСтр("ru = 'Не удалось авторизоваться на почтовом сервере. Неверный идентификатор ответа.'");
ПроверкаЗавершиласьСОшибками = Истина;
ИначеЕсли Не ПолучитьКлючиДоступаКПочтовомуСерверу(КодАвторизации, АдресПолученияКлюча) Тогда
ПроверкаЗавершиласьСОшибками = Истина;
КонецЕсли;
Если Не ПолучитьКлючиДоступаКПочтовомуСерверу(КодАвторизации, АдресПолученияКлюча) Тогда
ПроверкаЗавершиласьСОшибками = Истина;
Возврат;
Если ПроверкаЗавершиласьСОшибками Тогда
ЗаполнитьПояснения();
КонецЕсли;
КонецПроцедуры
@@ -1516,4 +1525,17 @@
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьПояснения()
ПоясненияПоОшибке = РаботаСПочтовымиСообщениямиСлужебный.ПоясненияПоОшибке(СообщенияОбОшибках, , Истина);
ВозможныеПричины = РаботаСПочтовымиСообщениямиСлужебный.ФорматированныйСписок(ПоясненияПоОшибке.ВозможныеПричины);
СпособыУстранения = РаботаСПочтовымиСообщениямиСлужебный.ФорматированныйСписок(ПоясненияПоОшибке.СпособыУстранения);
Элементы.ДекорацияВозможныеПричины.Заголовок = ВозможныеПричины;
Элементы.ДекорацияСпособыУстранения.Заголовок = СпособыУстранения;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
+31 -15
View File
@@ -3,27 +3,43 @@
<p>Список можно открыть соответствующей командой в разделе <strong>Администрирование - Органайзер</strong>. </p>
<p>В списке выводится:</p>
<ul><li><strong>Наименование</strong> учетной записи;
</li><li><strong>Имя пользователя</strong> - указывается имя отправителя писем, оно может отличаться от имени <a href="Catalog.Пользователи.Form.ФормаЭлемента/Help">пользователя</a> в программе;
</li><li><strong>Адрес электронной почты </strong>учетной записи в формате <a href="mailto:name@server.net">name@server.net</a>. </li></ul><p>Для учетных записей, получение и отправка с которых выполняется автоматически без участия пользователя, должен быть обязательно введен пароль. Также для корректной работы программы обязательно должна быть настроена системная учетная запись электронной почты.</p>
</li>
<li><strong>Имя пользователя</strong> - указывается имя отправителя писем, оно может отличаться от имени <a href="Catalog.Пользователи.Form.ФормаЭлемента/Help">пользователя</a> в программе;
</li>
<li><strong>Адрес электронной почты </strong>учетной записи в формате <a href="mailto:name@server.net">name@server.net</a>. </li></ul><p>Для учетных записей, получение и отправка с которых выполняется автоматически без участия пользователя, должен быть обязательно введен пароль. Также для корректной работы программы обязательно должна быть настроена системная учетная запись электронной почты.</p>
<h3>Системная учетная запись электронной почты</h3>
<ul><li>Программа поставляется с предопределенной учетной записью - системной учетной записью электронной почты. Она используется по умолчанию для рассылки различных уведомлений из программы, например, для автоматической отправки сообщений администратору по завершению обновления программы. Перед использованием этих возможностей необходимо <a href="Catalog.УчетныеЗаписиЭлектроннойПочты.Form.ФормаЭлемента/Help">настроить</a> системную учетную запись.
</li><li>Настройка системной учетной записи производится по соответствующей команде в разделе <strong>Администрирование - Органайзер</strong>. Также можно <img src="StdPicture.Change"></img><strong>Изменить</strong> ее в списке.</li></ul><h3>Ввод учетной записи электронной почты</h3>
</li>
<li>Настройка системной учетной записи производится по соответствующей команде в разделе <strong>Администрирование - Органайзер</strong>. Также можно <img src="StdPicture.Change"></img><strong>Изменить</strong> ее в списке.</li></ul><h3>Ввод учетной записи электронной почты</h3>
<ul><li>При попытке сохранения программа проверяет введенные учетные записи электронной почты (пытается отослать пробное сообщение). Учетные записи, не прошедшие проверку, не сохраняются.
</li><li>Нажмите <strong>Создать</strong>, введите необходимые поля:
</li>
<li>Нажмите <strong>Создать</strong>, введите необходимые поля:
<ul><li>Укажите <strong>Адрес почты</strong> учетной записи в формате <a href="mailto:name@server.net">name@server.net</a>;
</li><li>Введите <strong>Пароль</strong> учетной записи;
</li><li>Установите с помощью флажков, как <strong>Использовать учетную запись</strong>:
<ul><li><strong>Для отправки почты</strong>;
</li><li><strong>Для получения почты</strong>;</li></ul></li><li>Укажите, <strong>Для кого учетная запись</strong>:
<ul><li><strong>Для всех</strong>;
</li><li><strong>Только для меня</strong>.</li></ul></li><li>Укажите <strong>Имя отправителя</strong> (Ваше имя или название организации);
</li><li>С помощью переключателя определите способ создания учетной записи:
<ul><li><strong>Определить параметры подключения автоматически</strong> (рекомендуется);
<ul><li>Нажмите <strong>Создать</strong>. Программа предпримет попытку автоматической настройки и проверки учетной записи. Следуйте указаниям программы. При этом если при автоматической настройке произошел сбой, можно попытаться настроить параметры вручную. </li></ul></li><li><strong>Настроить параметры подключения вручную</strong>;</li></ul></li><li>
<p>Нажмите <strong>Далее</strong> для заполнения остальных параметров, при этом программа проставляет рекомендуемые параметры для большинства почтовых серверов. Их требуется только проверить и попытаться сохранить учетную запись заново.</p></li></ul></li></ul><h3>Настройка учетной записи электронной почты</h3>
</li>
<li>С помощью переключателя выберите способ авторизации:</li>
<ul><li><b>Ввести пароль</b>, в этом случае укажите в поле справа <strong>Пароль</strong> учетной записи;
</li>
<li><b>Авторизоваться на почтовом сервисе</b>, в этом случае программа выводит инструкцию авторизации, которая зависит от почтового сервиса. Следуйте инструкции программы.</li>
<ul><li>На почтовом сервисе потребуется указать данные о приложении, например, <b>callback URL</b>, который программа формирует автоматически.</li>
<li>Воспользовавшись указаниями почтового сервиса, зарегистрируйте приложение, получите данные для авторизации и заполните нужные поля, например: </li>
<ul><ul><ul><li><b>ID приложения</b>;</li>
<li><b>пароль приложения (client secret)</b>.</li></ul></ul></ul></ul></ul><li>Установите с помощью флажков, как <strong>Почта будет использоваться</strong>:
<ul><li><strong>Для отправки писем</strong>;
</li>
<li><strong>Для получения писем</strong>;</li></ul></li>
<li>Укажите с помощью переключателя, кем будет использоваться почта:
<ul><li><strong>Всеми пользователями (общая почта)</strong></li>
<li><strong>Только мной</strong>.</li></ul></li>
<li>Укажите <strong>Имя отправителя</strong> (Ваше имя или название организации);
</li></ul></li>
<li>Нажмите <strong>Создать</strong>. Программа предпримет попытку автоматической настройки и проверки учетной записи. Следуйте указаниям программы. При этом если при автоматической настройке произошел сбой, можно попытаться настроить параметры вручную. </li>
<li>Если автоматически настроить почту не удалось, нажмите <b>На</b><strong>строить вручную</strong>.</li>
<ul><li>
<p>Нажмите <strong>Далее</strong> для заполнения остальных параметров, при этом программа проставляет рекомендуемые параметры для большинства почтовых серверов. Их требуется только проверить и попытаться сохранить учетную запись заново.</p></li></ul></ul><h3>Настройка учетной записи электронной почты</h3>
<ul><li>Нажмите <img src="StdPicture.Change" width="16" height="16"></img> <strong>Изменить</strong>, с помощью программы произведите необходимые <a href="Catalog.УчетныеЗаписиЭлектроннойПочты.Form.ФормаЭлемента/Help">настройки</a>.</li></ul><h3>Проверка учетной записи электронной почты</h3>
<ul><li>
<div>Выделите учетную запись в списке, нажмите <strong>Еще - Проверить учетную запись</strong> для проверки введенных параметров учетной записи. При этом отправляется стандартное почтовое отправление и проверяется возможность соединения с сервером входящих почтовых сообщений (если учетная запись используется для получения почты).</div>
</li><li>
</li>
<li>
<div>Если в учетной записи не прописан пароль, программа его запрашивает. При необходимости введите пароль.</div></li></ul><h3>См. также: </h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl
+2 -5
View File
@@ -1472,13 +1472,10 @@
&НаКлиенте
Процедура СписокВыборПослеВыбораРежимаРедактирования(Результат, ПараметрыВыполнения) Экспорт
РезультатОткрыть = "Открыть";
РезультатРедактировать = "Редактировать";
Если Результат = РезультатРедактировать Тогда
Если Результат = "Редактировать" Тогда
Обработчик = Новый ОписаниеОповещения("СписокВыборПослеРедактированияФайла", ЭтотОбъект, ПараметрыВыполнения);
РаботаСФайламиСлужебныйКлиент.РедактироватьФайл(Обработчик, ПараметрыВыполнения.ДанныеФайла);
ИначеЕсли Результат = РезультатОткрыть Тогда
ИначеЕсли Результат = "Открыть" Тогда
РаботаСФайламиКлиент.ОткрытьФайл(ПараметрыВыполнения.ДанныеФайла, Ложь);
КонецЕсли;
КонецПроцедуры
SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl
+23 -11
View File
@@ -189,15 +189,7 @@
КонецЕсли;
КонецЕсли;
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
Если ПустаяСтрока(Объект.ЗаголовокЯзык1) Тогда
Объект.ЗаголовокЯзык1 = Объект.Заголовок;
КонецЕсли;
Если ПустаяСтрока(Объект.ЗаголовокЯзык2) Тогда
Объект.ЗаголовокЯзык2 = Объект.Заголовок;
КонецЕсли;
КонецЕсли;
ЗаполнитьМультиязычныеРеквизиты();
Если ПараметрыЗаписи.Свойство("ОбработкаПродолжения") Тогда
ОбработкаПродолженияПриОшибкеЗаписи = ПараметрыЗаписи.ОбработкаПродолжения;
@@ -674,6 +666,9 @@
Возврат;
КонецЕсли;
Если ИндексСтраницы = 2 Тогда
ЗаполнитьМультиязычныеРеквизиты();
Если Не ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
@@ -983,7 +978,7 @@
НаборыСвойств, "ЭтоДополнительноеСведение", (ЭтоДополнительноеСведение = 1), Истина);
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(
НаборыСвойств, "ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык, Истина);
НаборыСвойств, "ЭтоОсновнойЯзык", ОбщегоНазначения.ЭтоОсновнойЯзык(), Истина);
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(
НаборыСвойств, "КодЯзыка", ТекущийЯзык().КодЯзыка, Истина);
@@ -1149,6 +1144,23 @@
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьМультиязычныеРеквизиты()
Если Не ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
Возврат;
КонецЕсли;
Если ПустаяСтрока(Объект.ЗаголовокЯзык1) Тогда
Объект.ЗаголовокЯзык1 = Объект.Заголовок;
КонецЕсли;
Если ПустаяСтрока(Объект.ЗаголовокЯзык2) Тогда
Объект.ЗаголовокЯзык2 = Объект.Заголовок;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПослеВыбораРеквизитовДляРазблокирования(РазблокируемыеРеквизиты, Контекст) Экспорт
@@ -2419,7 +2431,7 @@
"Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеСведения");
КонецЕсли;
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ОбщегоНазначения.ЭтоОсновнойЯзык());
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
НачатьТранзакцию();
SSL/src/CommonForms/ВводНаРазныхЯзыках/Module.bsl
+4 -6
View File
@@ -34,8 +34,8 @@
СуффиксДополнительногоЯзыка1 = "Язык1";
СуффиксДополнительногоЯзыка2 = "Язык2";
Если СтрСравнить(Константы.ОсновнойЯзык.Получить(), ТекущийЯзык().КодЯзыка) <> 0 Тогда
Если Не ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда
СуффиксОсновногоЯзыка = МультиязычностьСервер.СуффиксТекущегоЯзыка();
Если СуффиксОсновногоЯзыка = "Язык1" Тогда
СуффиксДополнительногоЯзыка1 = "";
@@ -130,9 +130,9 @@
ЭтотОбъект[ОписаниеЯзыка.Имя] = Параметры.ТекущиеЗначение;
КонецЕсли;
Если ХранениеВТабличнойЧасти Тогда
ОсновнойЯзык = ОбщегоНазначения.КодОсновногоЯзыка();
ОсновнойЯзык = Метаданные.ОсновнойЯзык.КодЯзыка;
Если ХранениеВТабличнойЧасти Тогда
Для каждого Представление Из Параметры.Представления Цикл
@@ -151,9 +151,7 @@
И (ИспользуетсяПервыйДополнительныйЯзык
ИЛИ ИспользуетсяВторойДополнительныйЯзык) Тогда
ОсновнойЯзык = ОбщегоНазначения.КодОсновногоЯзыка();
ОписаниеЯзыка = ОписаниеЯзыка(Константы.ОсновнойЯзык.Получить());
ОписаниеЯзыка = ОписаниеЯзыка(ОсновнойЯзык);
Если ПустаяСтрока(СуффиксОсновногоЯзыка) Тогда
ЭтотОбъект[ОписаниеЯзыка.Имя] = Параметры.ТекущиеЗначение;
Иначе
SSL/src/CommonForms/Вопрос/Module.bsl
+2
View File
@@ -85,6 +85,8 @@
ОжиданиеСчетчик = ОжиданиеСчетчик + 1;
ПродолжитьОбратныйОтсчет();
КонецЕсли;
ТекущийЭлемент = Элементы.Колонки;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Module.bsl
+14
View File
@@ -323,6 +323,10 @@
КонтейнерПодписи, ДобавкаВремени, ДатаСеанса);
Контекст.Вставить("ПараметрыПодписи", ПараметрыПодписи);
ДатаПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(ПараметрыПодписи);
Если ЗначениеЗаполнено(ДатаПодписи) Тогда
Контекст.Вставить("ДатаПодписи", ДатаПодписи);
КонецЕсли;
Контекст.МенеджерКриптографии.НачатьПолучениеСертификатовИзПодписи(Новый ОписаниеОповещения(
"ВыбратьФайлПослеПолученияСертификатовИзПодписи", ЭтотОбъект, Контекст,
@@ -432,9 +436,14 @@
ТекущаяДатаСеанса = ТекущаяДатаСеанса();
СвойстваПодписи = ПолучитьИзВременногоХранилища(АдресСвойствПодписи);
ДатаПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(СвойстваПодписи);
Если Не ЗначениеЗаполнено(ДатаПодписи) Тогда
Если Не ЗначениеЗаполнено(СвойстваПодписи.ДатаПодписи) Тогда
СвойстваПодписи.ДатаПодписи = ТекущаяДатаСеанса;
КонецЕсли;
Иначе
СвойстваПодписи.ДатаПодписи = ДатаПодписи;
КонецЕсли;
СвойстваПодписи.ДатаПроверкиПодписи = ТекущаяДатаСеанса;
СвойстваПодписи.ПодписьВерна = ПодписьВерна;
@@ -488,6 +497,11 @@
КонтейнерПодписи = МенеджерКриптографии.ПолучитьКонтейнерПодписейКриптографии(ДанныеПодписи);
ПараметрыПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ПараметрыПодписиКриптографии(КонтейнерПодписи,
ЭлектроннаяПодписьСлужебный.ДобавкаВремени(), ТекущаяДатаСеанса());
ДатаПодписиИзПараметровПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(ПараметрыПодписи);
Если ЗначениеЗаполнено(ДатаПодписиИзПараметровПодписи) Тогда
ДатаПодписи = ДатаПодписиИзПараметровПодписи;
КонецЕсли;
КонецЕсли;
СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(Сертификаты[0]);
SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html
+32 -19
View File
@@ -1,35 +1,48 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body>
<p>Настройка параметров для использования средств электронной подписи и шифрования (криптографии). </p>
<p>Открывается по команде <strong>Настройки электронной подписи и шифрования</strong> раздела <strong>Администрирование - Общие настройки</strong>.</p>
<p>Открывается по команде <strong>Программы и сертификаты электронной подписи и шифрования</strong> раздела <strong>Администрирование - Общие настройки</strong>.</p>
<p>Для электронной подписи и шифрования требуется установить специальную стороннюю программу (криптопровайдер).</p>
<p>Для того чтобы подписывать данные, нужно включить флажок <strong>Электронная подпись</strong>, а для шифрования нужно включить флажок <strong>Шифрование</strong> в разделе <strong>Администрирование - Общие настройки</strong>. После этого становятся доступными соответствующие команды в программе.</p>
<p>Электронная подпись - реквизит электронного документа, с помощью которого можно удостовериться в неизменности электронного документа с момента его подписи. Для установки подписи необходимо иметь сертификат ключа электронной подписи. Сертификат можно получить в удостоверяющем центре. Например, в удостоверяющем центре фирмы 1С <a href="http://ca.1c.ru/">http://ca.1c.ru/</a>. Только удостоверяющий центр может выдать юридически значимый (квалифицированный сертификат).</p>
<p>В случае использования распределенной информационной базы большую часть настроек можно изменить только в главном узле.</p>
<h3>Сертификаты</h3>
<ul><li>Показывает все сертификаты, которые используются для подписания и шифрования данных, а также заявления на выпуск нового сертификата.
</li><li>Можно установить отбор только своих сертификатов в поле <strong>Показать</strong>. По умолчанию показываются все сертификаты.
</li><li>Предусмотрен отбор по полю <strong>Состояние заявления</strong> ("Любое", "Не подготовлено", "Подготовлено", "Отправлено", "Отклонено", "Исполнено, сертификат не установлен", "Исполнено").
</li><li><a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ФормаЭлемента/Help">Сертификат</a> можно <strong>Добавить</strong> из числа <strong>установленных на компьютере</strong>. Также это можно сделать в процессе подписания или шифрования данных.
</li><li>Также с помощью кнопки <strong>Добавить</strong> можно подготовить <a href="DataProcessor.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Form.Форма/Help">Заявление на выпуск нового сертификата</a>.
</li><li>Просмотреть сертификат или заявление на выпуск нового сертификата можно, дважды щелкнув по нему мышью. Также можно это сделать с помощью команды <strong>Изменить</strong> контекстного меню по правой кнопке мыши или меню <strong>Еще</strong>.</li></ul><h3>Программы</h3>
</li>
<li>Можно установить отбор только своих сертификатов в поле <strong>Показать</strong>. По умолчанию показываются все сертификаты.
</li>
<li>Предусмотрен отбор по полю <strong>Состояние заявления</strong> ("Любое", "Не подготовлено", "Подготовлено", "Отправлено", "Отклонено", "Исполнено, сертификат не установлен", "Исполнено").
</li>
<li><a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ФормаЭлемента/Help">Сертификат</a> можно <strong>Добавить</strong> из числа <strong>установленных на компьютере</strong>. Также это можно сделать в процессе подписания или шифрования данных.
</li>
<li>Также с помощью кнопки <strong>Добавить</strong> можно подготовить <a href="DataProcessor.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Form.Форма/Help">Заявление на выпуск нового сертификата</a>.
</li>
<li>Просмотреть сертификат или заявление на выпуск нового сертификата можно, дважды щелкнув по нему мышью. Также можно это сделать с помощью команды <strong>Изменить</strong> контекстного меню по правой кнопке мыши или меню <strong>Еще</strong>.</li></ul><h3>Программы</h3>
<ul><li>Содержит список программ, которые будут использованы в информационной базе (в том числе во всех узлах распределенной ИБ).
</li><li>Эти программы не обязательно должны быть установлены на всех компьютерах. Более того, установка более одной программы на одном компьютере может вызвать конфликты между ними.
</li><li>После запуска в списке уже присутствуют две записи о программах, наиболее распространенных в России - ViPNet CSP и КриптоПро CSP.
</li><li>Можно добавить записи о других программах (поставляются готовые настройки для Microsoft Enhanced CSP, ViPNet CSP, КриптоПро CSP, ЛИССИ CSP, Сигнал-КОМ CSP).
</li><li>Если требуется использовать программу отличную от известных, тогда нужно указать ее имя, тип и алгоритмы, как указано в инструкции, поставляемой ее производителем.
</li><li>В колонке <strong>Результат проверки</strong> отражаются сведения, по которым можно понять установлена ли программа на компьютере или нет или же установлена, но некорректно.<span lang="RU">
</span></li><li>Linux: <strong>Путь к программе (&lt;Имя программы, соответствующей выделенной строке в списке&gt;)</strong> - поле, которое требуется обязательно заполнять на компьютерах под управлением ОС Linux.</li>
<li>В нижней части списка расположена ссылка <a href="http://its.1c.ru/db/metod81#content:5784:1">Инструкция по работе с программами электронной подписи и шифрования</a>. Перейдите по этой ссылке в соответствующий раздел 1С:ИТС, если имеются вопросы.
</li><li><strong>Проверять подписи и сертификаты на сервере</strong> - этот флажок виден только для серверных баз. Если его установить, тогда проверка электронной подписи и сертификата будет происходить на сервере, что позволяет не устанавливать программу на каждом компьютере, гдетребуется только такие операции.
<ul><li>В записи о программе можно перейти к списку <strong>Пути к программе на серверах Linux</strong> - в котором нужно указать пути для тех компьютеров, на которых сервер 1С:Предприятия работает под управлением ОС Linux.</li></ul></li></ul><h3>Дополнительно</h3>
</li>
<li>Эти программы не обязательно должны быть установлены на всех компьютерах. Более того, установка более одной программы на одном компьютере может вызвать конфликты между ними.
</li>
<li>После запуска в списке уже присутствуют две записи о программах, наиболее распространенных в России - ViPNet CSP и КриптоПро CSP.
</li>
<li>Можно добавить записи о других программах (поставляются готовые настройки для Microsoft Enhanced CSP, ViPNet CSP, КриптоПро CSP, ЛИССИ CSP, Сигнал-КОМ CSP).
</li>
<li>Если требуется использовать программу отличную от известных, тогда нужно указать ее имя, тип и алгоритмы, как указано в инструкции, поставляемой ее производителем.
</li>
<li>В колонке <strong>Результат проверки</strong> отражаются сведения, по которым можно понять установлена ли программа на компьютере или нет или же установлена, но некорректно.<span lang="RU">
</span></li>
<li>Linux: <strong>Путь к программе (&lt;Имя программы, соответствующей выделенной строке в списке&gt;)</strong> - поле, которое требуется обязательно заполнять на компьютерах под управлением ОС Linux.</li>
<ul><li>В записи о программе можно перейти к списку <strong>Пути к программе на серверах Linux</strong> - в котором нужно указать пути для тех компьютеров, на которых сервер 1С:Предприятия работает под управлением ОС Linux.</li></ul><li>В нижней части списка расположена ссылка <a href="http://its.1c.ru/db/metod81#content:5784:1">Инструкция по работе с программами электронной подписи и шифрования</a>. Перейдите по этой ссылке в соответствующий раздел 1С:ИТС, если имеются вопросы.</li></ul><h3>Дополнительно</h3>
<ul><li>Задайте <strong>Расширение для зашифрованных файлов</strong> при отправке по почте, при выполнении команды <strong>Сохранить как</strong> и при экспорте папки (по умолчанию <strong>.p7m</strong>).
</li><li>
</li>
<li>
<div>Напишите <strong>Расширение для файлов подписи</strong> (по умолчанию <strong>.p7s</strong>).</div>
</li><li>
</li>
<li>
<div>С помощью переключателя <strong>При сохранении данных в файл вместе с электронной подписью</strong> задайте поведение программы при выполнении команды <strong>Сохранить вместе с электронной подписью</strong>: </div>
<ul><li>
<div><strong>Сохранять все подписи</strong> - все подписи сохраняются; </div>
</li><li>
<div><strong>Спрашивать</strong> - выбор сохраняемых подписей осуществляется из <a href="CommonForm.СохранениеВместеСЭлектроннойПодписью/Help">списка</a>.</div></li></ul></li><li>
</li>
<li>
<div><strong>Спрашивать</strong> - выбор сохраняемых подписей осуществляется из <a href="CommonForm.СохранениеВместеСЭлектроннойПодписью/Help">списка</a>.</div></li></ul></li>
<li>
<div>Включите флажок <strong>Сохранять сертификат</strong> для сохранения на компьютер сертификата вместе с файлом и электронной подписью.</div></li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/CommonForms/Расширения/Form.form
+37 -134
View File
@@ -401,6 +401,43 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>ПредупреждениеОписание2</name>
<id>222</id>
<title>
<key>ru</key>
<value>Чтобы использовать расширения области данных, требуется запустить сеанс с разделителями.
Изменения расширений для пользователей области данных вступят в силу при их следующем входе в программу.</value>
</title>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПредупреждениеОписание2РасширеннаяПодсказка</name>
<id>224</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредупреждениеОписание2КонтекстноеМеню</name>
<id>223</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>URLProcessing</event>
<name>ПредупреждениеОписаниеОбработкаНавигационнойСсылки</name>
</handlers>
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -434,140 +471,6 @@
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаИнформация</name>
<id>184</id>
<items xsi:type="form:Decoration">
<name>ИнформацияКартинка</name>
<id>186</id>
<title>
<key>ru</key>
<value>Информация картинка</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ИнформацияКартинкаРасширеннаяПодсказка</name>
<id>188</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИнформацияКартинкаКонтекстноеМеню</name>
<id>187</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Информация32</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаИнформацияОписание</name>
<id>189</id>
<items xsi:type="form:Decoration">
<name>ИнформацияОписание</name>
<id>191</id>
<title>
<key>ru</key>
<value>Изменения расширений области данных, вступят в силу только для пользователей области данных и только при их следующем входе в программу.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ИнформацияОписаниеРасширеннаяПодсказка</name>
<id>193</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИнформацияОписаниеКонтекстноеМеню</name>
<id>192</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
<verticalAlign>Center</verticalAlign>
<titleHeight>2</titleHeight>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Информация описание</value>
</title>
<extendedTooltip>
<name>ГруппаИнформацияОписаниеРасширеннаяПодсказка</name>
<id>190</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Информация</value>
</title>
<extendedTooltip>
<name>ГруппаИнформацияРасширеннаяПодсказка</name>
<id>185</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>HorizontalIfPossible</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:Table">
<name>СписокРасширений</name>
<id>19</id>
SSL/src/CommonForms/Расширения/Module.bsl
+3 -18
View File
@@ -22,10 +22,6 @@
НавигационнаяСсылка = "e1cib/app/ОбщаяФорма.Расширения";
Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
ВызватьИсключение НСтр("ru = 'Недостаточно прав доступа. Обратитесь к администратору.'");
КонецЕсли;
Если Не ПравоДоступа("Администрирование", Метаданные) Тогда
Элементы.СписокРасширенийБезопасныйРежимФлаг.ТолькоПросмотр = Истина;
КонецЕсли;
@@ -369,7 +365,8 @@
// Обновление реквизита формы для условного форматирования.
ЭтоНеразделенныйПользовательВОбласти = ЭтоНеразделенныйПользовательВОбласти();
Элементы.ГруппаИнформация.Видимость = ЭтоНеразделенныйПользовательВОбласти;
Элементы.ПредупреждениеОписание.Видимость = Не ЭтоНеразделенныйПользовательВОбласти;
Элементы.ПредупреждениеОписание2.Видимость = ЭтоНеразделенныйПользовательВОбласти;
КонецПроцедуры
@@ -1543,19 +1540,7 @@
&НаСервереБезКонтекста
Функция ЭтоНеразделенныйПользовательВОбласти()
СеансЗапущенБезРазделителей = Истина;
Если ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
СеансЗапущенБезРазделителей = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
КонецЕсли;
Возврат СеансЗапущенБезРазделителей
И ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных();
Возврат СтандартныеПодсистемыСервер.ЭтоРазделенныйРежимСеансаБезРазделителей();
КонецФункции
SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl
+13
View File
@@ -1267,6 +1267,9 @@
КонецЕсли;
Если ДанныеПечати = Неопределено Тогда
Если Не ЗначениеЗаполнено(Образец) Тогда
Возврат;
КонецЕсли;
Объекты = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Образец);
ОтображаемыеПоля = ЗаполнитьСписокОтображаемыхПолей(КоллекцияПолей);
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда
@@ -2292,6 +2295,12 @@
Если Элементы.ПосмотретьПечатнуюФорму.Пометка Тогда
Элементы.СтраницыМакетов.ТекущаяСтраница = Элементы.СтраницаМакет;
Иначе
Если Не ЗначениеЗаполнено(Образец) Тогда
Элементы[ИмяСпискаПолей()].ТекущаяСтрока = ЭтотОбъект[ИмяСпискаПолей()].ПолучитьЭлементы()[0].ПолучитьИдентификатор();
ОбщегоНазначенияКлиент.СообщитьПользователю(
НСтр("ru = 'Выберите образец, по данным которого будет формироваться печатная форма'"), , ИмяСпискаПолей() + "[0].Образец");
Возврат;
КонецЕсли;
СформироватьПечатнуюФорму();
Элементы.СтраницыМакетов.ТекущаяСтраница = Элементы.СтраницаОбразец;
КонецЕсли;
@@ -2326,6 +2335,10 @@
Для Каждого Область Из Элементы.ТабличныйДокумент.ПолучитьВыделенныеОбласти() Цикл
Если СтрНачинаетсяС(Область.Имя, "ШтампЭП") Тогда
Область.Имя = "";
#Если ВебКлиент Тогда
// Требуется для обновления отображения
Область.Защита = Область.Защита;
#КонецЕсли
КонецЕсли;
КонецЦикла;
SSL/src/CommonForms/УстановленныеИсправления/Form.form
+51 -1
View File
@@ -406,6 +406,32 @@
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InCommandBarAndInAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>УстановленныеИсправленияЗакрыть</name>
<id>110</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>УстановленныеИсправленияЗакрытьРасширеннаяПодсказка</name>
<id>111</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Close</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>УстановленныеИсправленияСправка</name>
<id>72</id>
@@ -1267,13 +1293,18 @@
<attributes>
<name>Фильтр</name>
<id>3</id>
<valueType/>
<valueType>
<types>ValueList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<extInfo xsi:type="form:ValueListExtInfo">
<itemValueType/>
</extInfo>
</attributes>
<attributes>
<name>РазделениеВключено</name>
@@ -1301,6 +1332,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ПриОбновлении</name>
<id>11</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>СохранитьКак</name>
<title>
@@ -1330,6 +1374,12 @@
<name>Исправления</name>
<valueType/>
</parameters>
<parameters>
<name>ПриОбновлении</name>
<valueType>
<types>Boolean</types>
</valueType>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
SSL/src/CommonForms/УстановленныеИсправления/Module.bsl
+48 -2
View File
@@ -25,11 +25,27 @@
Элементы.ИнформацияОписание.Заголовок = НСтр("ru = 'Состав исправлений настраивается администратором приложения.'");
ИначеЕсли ЭтоПодчиненныйУзелРИБ Тогда
Элементы.ИнформацияОписание.Заголовок = НСтр("ru = 'Управление составом исправлений выполняется в центральном узле.'");
ИначеЕсли Параметры.ПриОбновлении Тогда
Элементы.ИнформацияОписание.Заголовок = НСтр("ru = 'Установленные исправления вступят в силу после перезапуска программы.'");
ИначеЕсли Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда
Элементы.ГруппаИнформация.Видимость = Ложь;
КонецЕсли;
Если РазделениеВключено Или ЭтоПодчиненныйУзелРИБ Или Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда
Если ЗначениеЗаполнено(Параметры.Исправления) Тогда
Если ТипЗнч(Параметры.Исправления) = Тип("СписокЗначений") Тогда
Фильтр = Параметры.Исправления;
ИначеЕсли ТипЗнч(Параметры.Исправления) = Тип("Массив") Тогда
Фильтр.ЗагрузитьЗначения(Параметры.Исправления);
КонецЕсли;
КонецЕсли;
ПриОбновлении = Параметры.ПриОбновлении;
Элементы.УстановленныеИсправленияЗакрыть.Видимость = ПриОбновлении;
Если РазделениеВключено
Или ЭтоПодчиненныйУзелРИБ
Или Не ОбщегоНазначения.ЭтоWindowsКлиент()
Или Параметры.ПриОбновлении Тогда
Элементы.ФормаУстановитьИсправление.Видимость = Ложь;
Элементы.ФормаУдалитьИсправление.Видимость = Ложь;
Элементы.УстановленныеИсправленияКонтекстноеМенюДобавить.Видимость = Ложь;
@@ -123,13 +139,15 @@
Расширения = РасширенияКонфигурации.Получить();
УстановитьПривилегированныйРежим(Ложь);
ОписаниеИсправлений = ОписаниеУстановленныхИсправлений();
Для Каждого Расширение Из Расширения Цикл
Если Не ОбновлениеКонфигурации.ЭтоИсправление(Расширение) Тогда
Продолжить;
КонецЕсли;
Если Фильтр <> Неопределено И Фильтр.НайтиПоЗначению(Расширение.Имя) = Неопределено Тогда
Если Фильтр.Количество() <> 0 И Фильтр.НайтиПоЗначению(Расширение.Имя) = Неопределено Тогда
Продолжить;
КонецЕсли;
@@ -147,12 +165,40 @@
НоваяСтрока.Описание = СвойстваИсправления.Description;
НоваяСтрока.ПрименимоДля = ИсправлениеПрименимоДля(СвойстваИсправления);
Иначе
Описание = ОписаниеИсправлений[Расширение.Имя];
НоваяСтрока.Статус = 1;
НоваяСтрока.Описание = Описание;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция ОписаниеУстановленныхИсправлений()
Если Не ПриОбновлении Тогда
Возврат Новый Соответствие;
КонецЕсли;
АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
ПараметрыМетода = Новый Массив;
ПараметрыМетода.Добавить(АдресХранилища);
ПараметрыМетода.Добавить(Фильтр.ВыгрузитьЗначения());
ПараметрыМетода.Добавить(Истина);
ФоновоеЗадание = РасширенияКонфигурации.ВыполнитьФоновоеЗаданиеСРасширениямиБазыДанных(
"ОбновлениеКонфигурации.ОписанияНовыхПатчей",
ПараметрыМетода);
ФоновоеЗадание.ОжидатьЗавершенияВыполнения(Неопределено);
ОписаниеНовыхПатчей = ПолучитьИзВременногоХранилища(АдресХранилища);
Если ТипЗнч(ОписаниеНовыхПатчей) <> Тип("Соответствие") Тогда
ОписаниеНовыхПатчей = Новый Соответствие;
КонецЕсли;
Возврат ОписаниеНовыхПатчей;
КонецФункции
&НаСервере
Функция ИсправлениеПрименимоДля(СвойстваИсправления)
SSL/src/CommonForms/ФормаВариантаОтчета/Module.bsl
+4
View File
@@ -166,6 +166,10 @@
ИмяСтраницы = СвязиСтраниц[Параметры.ИмяСтраницы];
НайденнаяСтраница = Элементы.Найти(ИмяСтраницы);
Если НайденнаяСтраница = Неопределено Тогда
НайденнаяСтраница = Элементы.Найти(Параметры.ИмяСтраницы);
КонецЕсли;
Если НайденнаяСтраница <> Неопределено Тогда
Элементы.СтраницыНастроек.ТекущаяСтраница = НайденнаяСтраница;
КонецЕсли;
SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl
+51 -16
View File
@@ -1186,6 +1186,14 @@
Возврат;
КонецЕсли;
Формула = ВариантыОтчетовСлужебныйКлиентСервер.ФормулаПоПутиКДанным(Отчет.КомпоновщикНастроек.Настройки, Строка(Строка.Поле));
Если ТипЗнч(Формула) <> Тип("ПользовательскоеПолеВыражениеКомпоновкиДанных") Тогда
ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗакрытииФормыНастроекДляТехническогоСпециалиста", ЭтотОбъект);
ОткрытьФормуНастроекДляТехническогоСпециалиста("СтраницаПользовательскихПолей", ОписаниеОповещения);
Возврат;
КонецЕсли;
ВариантыОтчетовСлужебныйКлиент.ИзменитьФормулу(
ЭтотОбъект, Отчет.КомпоновщикНастроек.Настройки, Строка(Строка.Поле));
@@ -1853,24 +1861,9 @@
&НаКлиенте
Процедура ПерейтиКНастройкамДляТехническогоСпециалиста(Команда)
ПараметрыФормы = Новый Структура;
ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ПараметрыФормы, ФормаПараметры, Истина);
ПараметрыФормы.Вставить("КлючВарианта", Строка(КлючТекущегоВарианта));
ПараметрыФормы.Вставить("Вариант", Отчет.КомпоновщикНастроек.Настройки);
ПараметрыФормы.Вставить("ПользовательскиеНастройки", Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);
ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета);
ПараметрыФормы.Вставить("ВариантНаименование", ВариантНаименование);
ПараметрыФормы.Вставить("ИдентификаторЭлементаСтруктурыНастроек", ИдентификаторЭлементаСтруктурыНастроек);
ПараметрыФормы.Вставить("ИмяСтраницы", Элементы.СтраницыНастроек.ТекущаяСтраница.Имя);
ПараметрыФормы.Вставить("ПредставлениеВарианта", ВариантНаименование);
ПараметрыФормы.Вставить("ВариантМодифицирован", ВариантИзменен);
ПараметрыФормы.Вставить("ПользовательскиеНастройкиМодифицированы",
ВариантИзменен Или ПользовательскиеНастройкиМодифицированы);
ОткрытьФорму(НастройкиОтчета.ПолноеИмя + ".ФормаВарианта", ПараметрыФормы, ВладелецФормы);
ОткрытьФормуНастроекДляТехническогоСпециалиста(Элементы.СтраницыНастроек.ТекущаяСтраница.Имя);
РезультатВыбораСформирован = Истина;
Закрыть();
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
@@ -7454,6 +7447,9 @@
Для Каждого Запись Из ПомеченныеНаУдаление Цикл
СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(
КомпоновщикНастроек, Запись.КлючСвойстваЭлементаСтруктуры, Запись.ИдентификаторЭлементаСтруктуры, РасширенныйРежим);
Если СвойствоЭлементаСтруктуры = Неопределено Тогда
Продолжить;
КонецЕсли;
ЭлементНастройки = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(Запись.ИдентификаторЭлемента);
Если ЭлементНастройки = Неопределено Тогда
@@ -7671,4 +7667,43 @@
#КонецОбласти
&НаКлиенте
Процедура ОткрытьФормуНастроекДляТехническогоСпециалиста(ИмяСтраницы, ОбработчикЗавершения = Неопределено)
ПараметрыФормы = Новый Структура;
ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ПараметрыФормы, ФормаПараметры, Истина);
ПараметрыФормы.Вставить("КлючВарианта", Строка(КлючТекущегоВарианта));
ПараметрыФормы.Вставить("Вариант", Отчет.КомпоновщикНастроек.Настройки);
ПараметрыФормы.Вставить("ПользовательскиеНастройки", Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);
ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета);
ПараметрыФормы.Вставить("ВариантНаименование", ВариантНаименование);
ПараметрыФормы.Вставить("ИдентификаторЭлементаСтруктурыНастроек", ИдентификаторЭлементаСтруктурыНастроек);
ПараметрыФормы.Вставить("ИмяСтраницы", ИмяСтраницы);
ПараметрыФормы.Вставить("ПредставлениеВарианта", ВариантНаименование);
ПараметрыФормы.Вставить("ВариантМодифицирован", ВариантИзменен);
ПараметрыФормы.Вставить("ПользовательскиеНастройкиМодифицированы",
ВариантИзменен Или ПользовательскиеНастройкиМодифицированы);
Если ОбработчикЗавершения <> Неопределено Тогда
РежимОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
КонецЕсли;
ОткрытьФорму(НастройкиОтчета.ПолноеИмя + ".ФормаВарианта", ПараметрыФормы, ВладелецФормы, , , , ОбработчикЗавершения, РежимОкна);
Если ОбработчикЗавершения = Неопределено Тогда
РезультатВыбораСформирован = Истина;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытииФормыНастроекДляТехническогоСпециалиста(Результат, ДополнительныеПараметры) Экспорт
Если ТипЗнч(Результат) = Тип("Структура") Тогда
ОбновитьФорму(Результат);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/ФормаОтчета/Module.bsl
+3 -2
View File
@@ -1886,7 +1886,7 @@
Возврат;
КонецЕсли;
КлючТекущихПользовательскихНастроек = ОписаниеНастроек.КлючНастроек; // Строка
УстановитьТекущиеПользовательскиеНастройки(ОписаниеНастроек.КлючНастроек);
ПредставлениеТекущихПользовательскихНастроек = ОписаниеНастроек.Представление;
Отчет.КомпоновщикНастроек.ЗагрузитьПользовательскиеНастройки(ОписаниеНастроек.Настройки);
@@ -3706,7 +3706,8 @@
Элементы.ГруппаСохранениеВыборВариантаОтчета.Видимость = Не ОбщегоНазначения.РазделениеВключено()
Или ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных();
Элементы.ИзменитьСоставБыстрыхНастроек.Видимость = ПоказыватьКомандыИзмененияВарианта;
Элементы.ИзменитьСоставБыстрыхНастроек.Видимость = ПоказыватьКомандыИзмененияВарианта
И Не ОбщегоНазначения.ЭтоМобильныйКлиент();
ЭтоПредопределенныйВариант = Не НастройкиОтчета.Пользовательский
И ЗначениеЗаполнено(НастройкиОтчета.ПредопределенныйСсылка);
SSL/src/CommonModules/АвтономнаяРабота/Module.bsl
+1 -1
View File
@@ -145,7 +145,7 @@
КонецПроцедуры
// Для вызова из формы восстановления связи с главным узлом
// см. общую форму ВосстановлениеСвязиСГлавнымУзлом
// см. ОбщаяФорма.ВосстановлениеСвязиСГлавнымУзлом.
//
Процедура ПриПодтвержденииОтключенияСвязиСГлавнымУзлом() Экспорт
SSL/src/CommonModules/Анкетирование/Module.bsl
+8
View File
@@ -95,6 +95,14 @@
МодульВариантыОтчетов.НастроитьОтчетВМодулеМенеджера(Настройки, Метаданные.Отчеты.АналитическийОтчетПоАнкетированию);
КонецПроцедуры
// См. РассылкаОтчетовПереопределяемый.ОпределитьИсключаемыеОтчеты
Процедура ПриОпределенииИсключаемыхОтчетов(ИсключаемыеОтчеты) Экспорт
ИсключаемыеОтчеты.Добавить(Метаданные.Отчеты.АнализОпроса);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
SSL/src/CommonModules/ВариантыОтчетов/Module.bsl
+4 -2
View File
@@ -4766,9 +4766,11 @@
Языки = Новый Массив;
КодТекущегоЯзыка = ?(ТипЗнч(ТекущийЯзык()) = Тип("Строка"), ТекущийЯзык(), ТекущийЯзык().КодЯзыка);
Исключения = Новый Массив;
Исключения.Добавить(ТекущийЯзык());
Исключения.Добавить(Метаданные.ОсновнойЯзык);
Исключения.Добавить(КодТекущегоЯзыка);
Исключения.Добавить(ОбщегоНазначения.КодОсновногоЯзыка());
Для Каждого Язык Из Метаданные.Языки Цикл
SSL/src/CommonModules/ВариантыОтчетовПовтИсп/Module.bsl
+1 -1
View File
@@ -227,7 +227,7 @@
Результат.Колонки.Добавить("ПолноеИмя", ВариантыОтчетов.ОписаниеТиповСтрока(510));
Результат.Колонки.Добавить("Представление", ВариантыОтчетов.ОписаниеТиповСтрока(150));
Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
Если ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда
Возврат Результат;
КонецЕсли;
SSL/src/CommonModules/ВариантыОтчетовСлужебныйКлиент/Module.bsl
+20 -1
View File
@@ -2163,7 +2163,14 @@
НеиспользуемыеОбласти.Добавить("ИспользоватьВЗаголовкеПолейРесурсов");
НеиспользуемыеОбласти.Добавить("ИспользоватьВЗаголовкеОбщегоИтога");
#Если ВебКлиент Тогда
СистемнаяИнформация = Новый СистемнаяИнформация;
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(СистемнаяИнформация.ВерсияПриложения, "8.3.20.1859") > 0 Тогда
НеиспользуемыеОбласти.Добавить("ИспользоватьВЗаголовкеПолейРесурсовОбщегоИтога");
КонецЕсли;
#Иначе
НеиспользуемыеОбласти.Добавить("ИспользоватьВЗаголовкеПолейРесурсовОбщегоИтога");
#КонецЕсли
Возврат НеиспользуемыеОбласти;
@@ -3575,6 +3582,10 @@
Для Каждого Формула Из Формулы Цикл
Если ТипЗнч(Формула) <> Тип("ПользовательскоеПолеВыражениеКомпоновкиДанных") Тогда
Продолжить;
КонецЕсли;
Если СокрЛП(Выражение) = Формула.ПолучитьВыражениеДетальныхЗаписей() Тогда
Возврат Формула;
КонецЕсли;
@@ -3589,6 +3600,15 @@
Формула = ВариантыОтчетовСлужебныйКлиентСервер.ФормулаПоПутиКДанным(Настройки, ПутьКДанным);
Если ТипЗнч(Формула) <> Тип("ПользовательскоеПолеВыражениеКомпоновкиДанных") Тогда
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Редактирование поля ""%1""доступно в форме настроек для технического специалиста на закладке ""Пользовательские поля""'"),
Формула.Заголовок);
ПоказатьПредупреждение(Неопределено, ТекстСообщения);
Возврат;
КонецЕсли;
ПараметрыРедактированияФормулы = КонструкторФормулКлиент.ПараметрыРедактированияФормулы();
ПараметрыРедактированияФормулы.Операнды = Форма.НастройкиОтчета.АдресСхемы;
ПараметрыРедактированияФормулы.ИмяКоллекцииСКДОперандов = ИмяКоллекции;
@@ -3665,7 +3685,6 @@
Формула = ДополнительныеПараметры.Формула;
Формула.УстановитьВыражениеДетальныхЗаписей(Выражение);
Формула.УстановитьПредставлениеВыражений(ПредставлениеВыражения, "");
Формула.Заголовок = ?(ЗначениеЗаполнено(Заголовок), Заголовок, ПредставлениеВыражения);
ОписаниеФормулы = ДополнительныеПараметры.КоллекцияПолей.НайтиПоле(Новый ПолеКомпоновкиДанных(Формула.ПутьКДанным));
SSL/src/CommonModules/ДлительныеОперации/Module.bsl
+5
View File
@@ -561,6 +561,11 @@
Если ПараметрыВыполнения.БезРасширений Тогда
ПараметрыВыполнения.БезРасширений = ЗначениеЗаполнено(ПараметрыСеанса.ПодключенныеРасширения);
ИначеЕсли Не ПараметрыВыполнения.СРасширениямиБазыДанных
И СтандартныеПодсистемыСервер.ЭтоРазделенныйРежимСеансаБезРазделителей() Тогда
ПараметрыВыполнения.СРасширениямиБазыДанных = Истина;
КонецЕсли;
ПараметрыЭкспортнойПроцедуры = ПараметрыПроцедуры;
SSL/src/CommonModules/ЗаполнениеОбъектовПереопределяемый/Module.bsl
-3
View File
@@ -47,9 +47,6 @@
// Для регистрации условий следует использовать процедуру
// ПодключаемыеКоманды.ДобавитьУсловиеВидимостиКоманды.
// Условия объединяются по "И".
// * ИзменяетВыбранныеОбъекты - Булево - определяет доступность команды, когда у пользователя нет прав на
// изменение объекта. Если Истина, то в описанной выше ситуации кнопка будет недоступна.
// Значение по умолчанию - Истина.
//
// Настройки процесса выполнения:
// * МножественныйВыбор - Булево
SSL/src/CommonModules/ИнтеграцияПодсистемБСП/Module.bsl
+39 -2
View File
@@ -691,6 +691,8 @@
МодульКалендарныеГрафикиСлужебный.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
ОбновлениеИнформационнойБазыСлужебный.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
Если ОбщегоНазначения.ПодсистемаСуществует(
"СтандартныеПодсистемы.РаботаВМоделиСервиса.ОбновлениеВерсииИБВМоделиСервиса") Тогда
МодульОбновлениеИнформационнойБазыСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль(
@@ -706,13 +708,16 @@
МодульРаботаСФайламиСлужебныйВМоделиСервиса.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УдалениеПомеченныхОбъектов") Тогда
МодульУдалениеПомеченныхОбъектовСлужебный = ОбщегоНазначения.ОбщийМодуль("УдалениеПомеченныхОбъектовСлужебный");
МодульУдалениеПомеченныхОбъектовСлужебный.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись") Тогда
МодульЭлектроннаяПодписьСлужебный = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебный");
МодульЭлектроннаяПодписьСлужебный.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
ОбновлениеИнформационнойБазыСлужебный.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецПроцедуры
// См. ОчередьЗаданийПереопределяемый.ПриОпределенииИспользованияРегламентныхЗаданий.
@@ -847,6 +852,12 @@
МодульРаботаСАдресами.ПриДобавленииКлассификаторов(Классификаторы);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись")
И Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") <> Неопределено Тогда
МодульЭлектроннаяПодписьСлужебный = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебный");
МодульЭлектроннаяПодписьСлужебный.ПриДобавленииКлассификаторов(Классификаторы);
КонецЕсли;
КонецПроцедуры
// См. РаботаСКлассификаторамиПереопределяемый.ПриЗагрузкеКлассификатора.
@@ -877,6 +888,13 @@
ДополнительныеПараметры);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись")
И Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") <> Неопределено Тогда
МодульЭлектроннаяПодписьСлужебный = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебный");
МодульЭлектроннаяПодписьСлужебный.ПриЗагрузкеКлассификатора(Идентификатор, Версия, Адрес, Обработан,
ДополнительныеПараметры);
КонецЕсли;
КонецПроцедуры
// См. РаботаСКлассификаторамиВМоделиСервисаПереопределяемый.ПриОбработкеОбластиДанных.
@@ -4334,6 +4352,25 @@
#КонецОбласти
#Область РассылкаОтчетов
// См. РассылкаОтчетовПереопределяемый.ОпределитьИсключаемыеОтчеты
Процедура ПриОпределенииИсключаемыхОтчетов(ИсключаемыеОтчеты) Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступомСлужебный = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступомСлужебный");
МодульУправлениеДоступомСлужебный.ПриОпределенииИсключаемыхОтчетов(ИсключаемыеОтчеты);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Анкетирование") Тогда
МодульАнкетирование = ОбщегоНазначения.ОбщийМодуль("Анкетирование");
МодульАнкетирование.ПриОпределенииИсключаемыхОтчетов(ИсключаемыеОтчеты);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область РаботаСФайлами
// См. РаботаСФайламиСлужебный.ПриОпределенииОбъектовИсключенияСинхронизацииФайлов.
SSL/src/CommonModules/МультиязычностьСервер/Module.bsl
+5 -5
View File
@@ -238,7 +238,7 @@
Представление[ИмяРеквизита] = ТекущийОбъект[ИмяРеквизита];
КонецЦикла;
Отбор.КодЯзыка = Метаданные.ОсновнойЯзык.КодЯзыка;
Отбор.КодЯзыка = ОбщегоНазначения.КодОсновногоЯзыка();
НайденныеСтроки = Представления.НайтиСтроки(Отбор);
Если НайденныеСтроки.Количество() > 0 Тогда
Для каждого ИмяРеквизита Из Реквизиты Цикл
@@ -314,7 +314,7 @@
ИмяРеквизита = Реквизит.Имя;
Отбор = Новый Структура();
Отбор.Вставить("КодЯзыка", Метаданные.ОсновнойЯзык.КодЯзыка);
Отбор.Вставить("КодЯзыка", ОбщегоНазначения.КодОсновногоЯзыка());
НайденныеСтроки = Объект.Представления.НайтиСтроки(Отбор);
Если НайденныеСтроки.Количество() > 0 Тогда
@@ -328,7 +328,7 @@
КонецЕсли;
Представление = Объект.Представления.Добавить();
Представление.КодЯзыка = Метаданные.ОсновнойЯзык.КодЯзыка;
Представление.КодЯзыка = ОбщегоНазначения.КодОсновногоЯзыка();
КонецЕсли;
Представление[ИмяРеквизита] = Объект[ИмяРеквизита];
@@ -467,7 +467,7 @@
Возврат Истина;
КонецЕсли;
Константы.ОсновнойЯзык.Установить(Метаданные.ОсновнойЯзык.КодЯзыка);
Константы.ОсновнойЯзык.Установить(ОбщегоНазначения.КодОсновногоЯзыка());
Возврат Ложь;
@@ -1977,7 +1977,7 @@
ДанныеОбъекта.СсылкаНаПоследнийОбработанныйОбъекты,
ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ПолноеИмя).ПустаяСсылка());
ШаблонПолейЗапроса = "ДанныеОбъекта.%1%2 КАК %1%2"; // @Qurey-part1
ШаблонПолейЗапроса = "ДанныеОбъекта.%1%2 КАК %1%2";
ЗначенияЯзыковыхКонстант = ДанныеДляИзмененияМультиязычныхРеквизитов.НастройкиИзмененияЯзыков;
МультиязычныеРеквизиты = ДанныеОбъекта.ЯзыковыеПоля;
SSL/src/CommonModules/ОбновлениеИнформационнойБазы/Module.bsl
+1 -1
View File
@@ -3030,7 +3030,7 @@
// Строка - версия.
//
// Пример:
// ВерсияКонфигурацииИБ = ВерсияИБ(Метаданные.Имя);
// ВерсияКонфигурацииИБ = ОбновлениеИнформационнойБазы.ВерсияИБ(Метаданные.Имя);
//
Функция ВерсияИБ(Знач ИдентификаторБиблиотеки) Экспорт
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСД/Module.bsl
+1 -1
View File
@@ -39,7 +39,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "БиблиотекаСинхронизацииДанных";
Описание.Версия = "1.0.1.19";
Описание.Версия = "1.0.1.23";
Описание.ИдентификаторИнтернетПоддержки = "DSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "1.0.1.1";
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСП/Module.bsl
+1 -1
View File
@@ -45,7 +45,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.7.34";
Описание.Версия = "3.1.7.61";
Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
SSL/src/CommonModules/ОбновлениеИнформационнойБазыСлужебный/Module.bsl
+1 -1
View File
@@ -2385,8 +2385,8 @@
Попытка
Если РежимОбновленияДанных = "ПереходСДругойПрограммы" Тогда
ИтерацииОбновления = ИтерацииОбновления();
ПерейтиСДругойПрограммы(ИтерацииОбновления);
ИтерацииОбновления = ИтерацииОбновления();
РежимОбновленияДанных = РежимОбновленияДанных();
ОперативноеОбновление = Ложь;
SSL/src/CommonModules/ОбновлениеКонфигурации/Module.bsl
+18 -2
View File
@@ -497,8 +497,11 @@
КонецЦикла;
КонецЕсли;
ТекущийСеанс = ПолучитьТекущийСеансИнформационнойБазы().ПолучитьФоновоеЗадание();
ЭтоФоновоеЗадание = (ТекущийСеанс <> Неопределено);
ТекстДляАсинхронногоВызова = "";
Если ОбщегоНазначения.ИнформационнаяБазаФайловая() И ВФоне Тогда
Если ОбщегоНазначения.ИнформационнаяБазаФайловая() И (ВФоне Или ЭтоФоновоеЗадание) Тогда
ТекстДляАсинхронногоВызова = НСтр("ru = 'Обновление параметров работы расширений после установки или
|удаления патчей завершилось с ошибкой.'")
КонецЕсли;
@@ -561,8 +564,12 @@
КонецЕсли;
КонецПроцедуры
Процедура ОписанияНовыхПатчей(АдресХранилища, ТекущиеИсправления) Экспорт
Процедура ОписанияНовыхПатчей(АдресХранилища, ТекущиеИсправления, ДляОбновления = Ложь) Экспорт
Если ДляОбновления Тогда
Описания = Новый Соответствие;
Иначе
Описания = Новый Массив;
КонецЕсли;
Для Каждого Исправление Из ТекущиеИсправления Цикл
Если Метаданные.ОбщиеМакеты.Найти(Исправление) = Неопределено Тогда
Продолжить;
@@ -583,12 +590,21 @@
Строка = Макет.ПолучитьСтроку(НомерСтроки);
ОписаниеПатча = ОписаниеПатча + Символы.ПС + Строка;
КонецЦикла;
Если ДляОбновления Тогда
Описания.Вставить(Исправление, ОписаниеПатча);
Иначе
Описания.Добавить(Исправление + ": " + ОписаниеПатча);
КонецЕсли;
Прервать;
КонецЦикла;
КонецЦикла;
Если ДляОбновления Тогда
ПоместитьВоВременноеХранилище(Описания, АдресХранилища);
Иначе
ОписаниеСтрокой = СтрСоединить(Описания, Символы.ПС);
ПоместитьВоВременноеХранилище(ОписаниеСтрокой, АдресХранилища);
КонецЕсли;
КонецПроцедуры
// Вызывается при завершении обновления конфигурации через COM-соединение.
SSL/src/CommonModules/ОбновлениеКонфигурацииКлиент/Module.bsl
+6 -7
View File
@@ -299,14 +299,13 @@
// Открывает форму со списком установленных исправлений.
//
// Параметры:
// Исправления - СписокЗначений - список имен установленных исправлений, которые необходимо отобразить.
// Если не указан, отображаются все исправления.
//
Процедура ПоказатьУстановленныеИсправления(Исправления = Неопределено) Экспорт
Процедура ПоказатьУстановленныеИсправления(Параметры = Неопределено, РежимОткрытия = Неопределено) Экспорт
ПараметрыФормы = Новый Структура("Исправления", Исправления);
ОткрытьФорму("ОбщаяФорма.УстановленныеИсправления", ПараметрыФормы);
Если Параметры = Неопределено Тогда
Параметры = Новый Структура;
КонецЕсли;
ОткрытьФорму("ОбщаяФорма.УстановленныеИсправления", Параметры,,,,,, РежимОткрытия);
КонецПроцедуры
SSL/src/CommonModules/Обсуждения/Module.bsl
+81 -48
View File
@@ -43,10 +43,18 @@
ВызватьИсключение НСтр("ru='Не указаны получатели сообщения'");
КонецЕсли;
ПолучателиПользователиИБ = ТипЗнч(Получатели[0]) = Тип("СправочникСсылка.Пользователи");
Если ПолучателиПользователиИБ Тогда
Получатели = ПользователиСистемыВзаимодействия(Получатели);
Если ТипЗнч(Получатели[0]) = Тип("СправочникСсылка.Пользователи") Тогда
ПолучателиПоСсылкам = ПользователиСистемыВзаимодействия(Получатели);
Получатели = Новый Массив;
Для Каждого КлючИЗначение Из ПолучателиПоСсылкам Цикл
Получатель = КлючИЗначение.Значение;
Если ТипЗнч(Получатель) = Тип("ПользовательСистемыВзаимодействия") Тогда
Получатели.Добавить(Получатель);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Получатели = Получатели; // Массив Из ПользовательСистемыВзаимодействия
Если ОбсуждениеКонтекст <> Неопределено
И ТипЗнч(ОбсуждениеКонтекст) <> Тип("ИдентификаторОбсужденияСистемыВзаимодействия") Тогда
@@ -77,7 +85,7 @@
ИначеЕсли ОбсуждениеКонтекст = Неопределено Тогда
Если Получатели.Количество() = 1 Тогда
Участник = ЭлементСоответствия(Получатели, 0).Значение;
Участник = Получатели[0];
Обсуждение = НеГрупповоеОбсуждениеМеждуПользователями(Автор.Идентификатор, Участник.Идентификатор);
Иначе
Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
@@ -288,7 +296,7 @@
// Возвращаемое значение:
// Соответствие из КлючИЗначение:
// * Ключ - СправочникСсылка.Пользователи
// * Значение - см. ПользовательСистемыВзаимодействия
// * Значение - ПользовательСистемыВзаимодействия
//
Функция ПользователиСистемыВзаимодействия(ПользователиИнформационнойБазы) Экспорт
ОбщегоНазначенияКлиентСервер.ПроверитьПараметр(
@@ -381,11 +389,22 @@
УстановитьПривилегированныйРежим(Ложь);
Исключение
Ошибка = ИнформацияОбОшибке();
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При создании пользователя %1 произошла ошибка.'"),
Пользователь);
ОписаниеОшибки = ОписаниеОшибки + Символы.ПС + ОшибкаПолучениеИдентификатораСВ
+ Символы.ПС + ПодробноеПредставлениеОшибки(Ошибка);
ОписаниеОшибки = ?(Не ЗначениеЗаполнено(ОшибкаПолучениеИдентификатораСВ), "",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'При получении идентификатора пользователя системы взаимодействия
|для пользователя %1 (%2) произошла ошибка:
|%3'"),
Строка(Пользователь),
Строка(ИдентификаторПользователяИнформационнойБазы),
ОшибкаПолучениеИдентификатораСВ)
+ Символы.ПС + Символы.ПС);
ОписаниеОшибки = ОписаниеОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'При создании пользователя системы взаимодействия
|для пользователя %1 (%2) произошла ошибка:
|%3'"),
Строка(Пользователь),
Строка(ИдентификаторПользователяИнформационнойБазы),
ПодробноеПредставлениеОшибки(Ошибка));
ЗаписьЖурналаРегистрации(ОбсужденияСлужебный.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Ошибка,,,
ОписаниеОшибки);
@@ -492,16 +511,26 @@
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
#Область СлужебныйПрограммныйИнтерфейс
Функция ЭтоОшибкаУстановкиСоединенияССерверомВзаимодействия(ИнформацияОбОшибке)
// Только для повышения производительности не должно влиять на функциональность,
// так как работает негарантированно.
//
// Параметры:
// ИнформацияОбОшибке - ИнформацияОбОшибке
//
// Возвращаемое значение:
// Булево
//
Функция ЭтоОшибкаУстановкиСоединенияССерверомВзаимодействия(ИнформацияОбОшибке) Экспорт
// Только для повышения производительности не влияет на функциональность.
СтрокиНаРазныхЯзыках = Новый Массив;
// АПК:1297-выкл - не локализуется, строки на других языках уже строго определены.
// АПК:1405-выкл - не локализуется, строки на других языках уже строго определены.
// АПК:1036-выкл - не локализуется, строки на других языках уже строго определены.
СтрокаНаРазныхЯзыках =
СтрокиНаРазныхЯзыках.Добавить(
"az = 'Qarşılıqlı fəaliyyət sistmei qeydə alınmayıb';
|en = 'The collaboration system is not registered';
|hy = 'Փոխազդեցության համակարգը գրանցված չէ';
@@ -522,21 +551,52 @@
|ru = 'Система взаимодействия не зарегистрирована';
|tr = 'Etkileşim sistemine kayıtlı değil';
|uk = 'Система взаємодії не зареєстрована';
|fr = 'Le système d’interaction n’est pas enregistré'"; // @Non-NLS
|fr = 'Le système d’interaction n’est pas enregistré'"); // @Non-NLS
СтрокиНаРазныхЯзыках.Добавить(
"az = 'Невозможно установить соединение с сервером системы взаимодействия';
|en = 'Невозможно установить соединение с сервером системы взаимодействия';
|hy = 'Невозможно установить соединение с сервером системы взаимодействия';
|bg = 'Невозможно установить соединение с сервером системы взаимодействия';
|hu = 'Невозможно установить соединение с сервером системы взаимодействия';
|vi = 'Невозможно установить соединение с сервером системы взаимодействия';
|el = 'Невозможно установить соединение с сервером системы взаимодействия';
|ka = 'Невозможно установить соединение с сервером системы взаимодействия';
|el = 'Невозможно установить соединение с сервером системы взаимодействия';
|it = 'Невозможно установить соединение с сервером системы взаимодействия';
|kk = 'Невозможно установить соединение с сервером системы взаимодействия';
|zh = 'Невозможно установить соединение с сервером системы взаимодействия';
|lv = 'Невозможно установить соединение с сервером системы взаимодействия';
|lt = 'Невозможно установить соединение с сервером системы взаимодействия';
|de = 'Невозможно установить соединение с сервером системы взаимодействия';
|pl = 'Невозможно установить соединение с сервером системы взаимодействия';
|ro = 'Невозможно установить соединение с сервером системы взаимодействия';
|ru = 'Невозможно установить соединение с сервером системы взаимодействия';
|tr = 'Невозможно установить соединение с сервером системы взаимодействия';
|uk = 'Невозможно установить соединение с сервером системы взаимодействия';
|fr = 'Невозможно установить соединение с сервером системы взаимодействия'"); // @Non-NLS
// АПК:1036-вкл
// АПК:1405-вкл
// АПК:1297-вкл
Для Каждого СтрокаНаРазныхЯзыках Из СтрокиНаРазныхЯзыках Цикл
//@skip-check bsl-nstr-string-literal-format
СтрокаПоиска = НСтр(СтрокаНаРазныхЯзыках);
Если Не ЗначениеЗаполнено(СтрокаПоиска) Тогда
Возврат Ложь;
Если ЗначениеЗаполнено(СтрокаПоиска)
И СтрНачинаетсяС(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), СтрокаПоиска) Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Возврат СтрНачинаетсяС(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), СтрокаПоиска);
Возврат Ложь;
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ОбновитьОписаниеПользователяВСистемеВзаимодействия(ПользовательСВ, ОписаниеПользователя)
Фотография = ОписаниеПользователя.Фотография;
@@ -586,7 +646,7 @@
// Параметры:
// ПолучателиПриемник - КоллекцияИдентификаторовПользователейСистемыВзаимодействия
// ПолучателиИсточник - Массив из СправочникСсылка.Пользователи
// ПолучателиИсточник - КоллекцияИдентификаторовПользователейСистемыВзаимодействия
// - Массив из ПользовательСистемыВзаимодействия
//
Процедура ДобавитьПолучателей(ПолучателиПриемник, ПолучателиИсточник)
@@ -595,43 +655,16 @@
Возврат;
КонецЕсли;
ПолучателиПользователиИБ = (ТипЗнч(ПолучателиИсточник[0]) = Тип("СправочникСсылка.Пользователи"));
Если ПолучателиПользователиИБ Тогда
Для каждого Получатель Из ПолучателиИсточник Цикл
Если Получатель.Значение <> Неопределено Тогда
ПолучателиПриемник.Добавить(Получатель.Значение.Идентификатор);
КонецЕсли;
КонецЦикла;
Иначе
Для каждого Получатель Из ПолучателиИсточник Цикл // ИдентификаторПользователяСистемыВзаимодействия, ПользовательСистемыВзаимодействия
Для Каждого Получатель Из ПолучателиИсточник Цикл
Если ТипЗнч(Получатель) = Тип("ИдентификаторПользователяСистемыВзаимодействия") Тогда
ПолучателиПриемник.Добавить(Получатель);
Иначе
ИначеЕсли ТипЗнч(Получатель) = Тип("ПользовательСистемыВзаимодействия") Тогда
ПолучателиПриемник.Добавить(Получатель.Идентификатор);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Функция ЭлементСоответствия(Соответствие, Индекс)
Сч = 0;
Для каждого КлючЗначение Из Соответствие Цикл
Если Сч = Индекс Тогда
Возврат КлючЗначение;
КонецЕсли;
Сч = Сч + 1;
КонецЦикла;
Возврат Неопределено;
КонецФункции
// Параметры:
// Автор - ИдентификаторПользователяСистемыВзаимодействия
// Участник - ИдентификаторПользователяСистемыВзаимодействия
SSL/src/CommonModules/ОбщегоНазначенияКлиентСервер/Module.bsl
+21 -4
View File
@@ -1665,7 +1665,7 @@
Функция АдресЭлектроннойПочтыСоответствуетТребованиям(Знач Адрес, РазрешитьЛокальныеАдреса = Ложь) Экспорт
// Допустимые символы для email.
Буквы = "abcdefghijklmnopqrstuvwxyz";
Буквы = "abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя";
Цифры = "0123456789";
СпецСимволы = ".@_-:+";
@@ -2204,7 +2204,22 @@
// Расписание - РасписаниеРегламентногоЗадания - исходное расписание.
//
// Возвращаемое значение:
// Структура - расписание в виде структуры.
// Структура:
// * ВремяЗавершения - Дата
// * ВремяКонца - Дата
// * ВремяНачала - Дата
// * ДатаКонца - Дата
// * ДатаНачала - Дата
// * ДеньВМесяце - Дата
// * ДеньНеделиВМесяце - Число
// * ДниНедели - Число
// * ИнтервалЗавершения - Число
// * Месяцы - Массив из Число
// * ПаузаПовтора - Число
// * ПериодНедель - Число
// * ПериодПовтораВТечениеДня - Число
// * ПериодПовтораДней - Число
// * ДетальныеРасписанияДня - Массив из см. РасписаниеВСтруктуру
//
Функция РасписаниеВСтруктуру(Знач Расписание) Экспорт
@@ -3406,11 +3421,13 @@
// Строка - код языка.
//
Функция КодОсновногоЯзыка() Экспорт
#Если НЕ ТонкийКлиент И НЕ ВебКлиент И НЕ МобильныйКлиент Тогда
Возврат Метаданные.ОсновнойЯзык.КодЯзыка;
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Возврат ОбщегоНазначения.КодОсновногоЯзыка();
#Иначе
Возврат СтандартныеПодсистемыКлиент.ПараметрКлиента("КодОсновногоЯзыка");
#КонецЕсли
КонецФункции
// Устарела. Следует использовать ОбщегоНазначенияКлиент.ПредставлениеЛокальнойДатыСоСмещением
SSL/src/CommonModules/ПодключаемыеКоманды/Module.bsl
+18 -1
View File
@@ -895,6 +895,11 @@
Если Не ЗначениеЗаполнено(КомандаФормы.Картинка) И Подменю.Вид = ВидГруппыФормы.Подменю Тогда
КомандаФормы.Картинка = Подменю.Картинка;
КонецЕсли;
Если Не ЗначениеЗаполнено(КомандаФормы.Картинка) Тогда
КомандаФормы.Картинка = СведенияОПодменю.КартинкаПодменю;
КонецЕсли;
Если СтрДлина(КомандаФормы.Заголовок) <= 35 И Подменю.Отображение <> ОтображениеКнопки.Картинка Тогда
КомандаФормы.Отображение = ОтображениеКнопки.КартинкаИТекст;
Иначе
@@ -953,6 +958,7 @@
// * ГруппаПоУмолчанию - ГруппаФормы
// * ПоследняяКоманда - КомандаФормы
// * КомандыСУсловиямиВидимости - Массив
// * КартинкаПодменю - Картинка
//
Функция СведенияОВсехПодменю()
@@ -965,6 +971,7 @@
СведенияОВсехПодменю.Колонки.Добавить("ГруппаПоУмолчанию");
СведенияОВсехПодменю.Колонки.Добавить("ПоследняяКоманда");
СведенияОВсехПодменю.Колонки.Добавить("КомандыСУсловиямиВидимости", Новый ОписаниеТипов("Массив"));
СведенияОВсехПодменю.Колонки.Добавить("КартинкаПодменю");
Возврат СведенияОВсехПодменю;
@@ -1104,6 +1111,7 @@
Функция ЗарегистрироватьПодменю(Элементы, СведенияОВсехПодменю, ИмяПодменю, ШаблонНового = Неопределено, КоманднаяПанель = Неопределено, ПодменюПоУмолчанию = Неопределено)
ВыведеноКоманд = 0;
Группы = Новый Структура;
КартинкаПодменю = Неопределено;
Если ЗначениеЗаполнено(ИмяПодменю) Тогда
Подменю = Элементы.Найти(ИмяПодменю);
Если Подменю = Неопределено Тогда
@@ -1115,10 +1123,18 @@
Подменю.Заголовок = ШаблонНового.Заголовок;
Если Подменю.Вид = ВидГруппыФормы.Подменю Тогда
Подменю.Картинка = ШаблонНового.Картинка;
КартинкаПодменю = Подменю.Картинка;
Подменю.Отображение = ШаблонНового.Отображение;
КонецЕсли;
Иначе
ГруппаПоУмолчанию = Подменю;
Если Подменю.Вид = ВидГруппыФормы.Подменю Тогда
КартинкаПодменю = Подменю.Картинка;
ИначеЕсли ШаблонНового <> Неопределено Тогда
КартинкаПодменю = ШаблонНового.Картинка;
ИначеЕсли ПодменюПоУмолчанию <> Неопределено Тогда
КартинкаПодменю = ПодменюПоУмолчанию.КартинкаПодменю;
КонецЕсли;
ВыведеноКоманд = КоличествоКомандВГруппе(ГруппаПоУмолчанию);
Для Каждого Группа Из Подменю.ПодчиненныеЭлементы Цикл
Если ТипЗнч(Группа) <> Тип("ГруппаФормы") Тогда
@@ -1171,6 +1187,7 @@
Результат.ГруппаПоУмолчанию = ГруппаПоУмолчанию;
Результат.Группы = Группы;
Результат.ВыведеноКоманд = ВыведеноКоманд;
Результат.КартинкаПодменю = КартинкаПодменю;
Возврат Результат;
КонецФункции
@@ -1249,7 +1266,7 @@
Продолжить;
КонецЕсли;
ИдентификаторОбъектаМетаданных = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектМетаданныхПоставщика);
ИдентификаторОбъектаМетаданных = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектМетаданныхПоставщика, Ложь);
Если ТипЗнч(ИдентификаторОбъектаМетаданных) <> Отбор Тогда
Продолжить;
КонецЕсли;
SSL/src/CommonModules/ПользователиСлужебный/Module.bsl
+10 -1
View File
@@ -4870,6 +4870,8 @@
ЭлементБлокировки.УстановитьЗначение("Ссылка", ВладелецКИ);
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ПочтаДляВосстановленияПароля = "";
НачатьТранзакцию();
Попытка
@@ -4882,7 +4884,6 @@
СтрокаСПочтой = КонтактнаяИнформацияПользователя[0];
ПочтаДляВосстановленияПароля = "";
Если ЗначениеЗаполнено(СтрокаСПочтой.Значение) Тогда
ПочтаДляВосстановленияПароля = МодульУправлениеКонтактнойИнформацией.АдресЭлектроннойПочты(СтрокаСПочтой.Значение);
Если Не ОбщегоНазначенияКлиентСервер.АдресЭлектроннойПочтыСоответствуетТребованиям(ПочтаДляВосстановленияПароля) Тогда
@@ -4929,6 +4930,14 @@
ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Предупреждение,
Метаданные.Справочники.Пользователи, ПользовательСсылка, ТекстСообщения);
Если ЗначениеЗаполнено(ПочтаДляВосстановленияПароля)
И СтрНайти(ТекстСообщения, ПочтаДляВосстановленияПароля) > 0 Тогда
Уточнение = НСтр("ru = 'Адрес электронной почты %1 занят другим пользователем и не может быть использован для восстановления пароля.'");
Уточнение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Уточнение, ПочтаДляВосстановленияПароля);
ОбновлениеИнформационнойБазы.ЗарегистрироватьПроблемуСДанными(ПользовательСсылка, Уточнение);
КонецЕсли;
КонецПопытки;
Возврат Результат;
SSL/src/CommonModules/РаботаСПочтовымиСообщениямиСлужебный/Module.bsl
+6 -1
View File
@@ -1709,7 +1709,7 @@
КонецФункции
Функция ПоясненияПоОшибке(ТекстОшибки, Знач КодЯзыка = Неопределено) Экспорт
Функция ПоясненияПоОшибке(ТекстОшибки, Знач КодЯзыка = Неопределено, ДляПомощникаНастройки = Ложь) Экспорт
Если КодЯзыка = Неопределено Тогда
КодЯзыка = ТекущийЯзык().КодЯзыка;
@@ -1773,9 +1773,14 @@
СпособыУстранения.Добавить(НСтр("ru = 'Проверьте подключение к Интернету.'"));
КонецЕсли;
Если ДляПомощникаНастройки Тогда
СпособыУстранения.Добавить(НСтр("ru = 'Проверьте введенные настройки.'"));
Иначе
СпособыУстранения.Добавить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр(
"ru = 'Попробуйте перенастроить почту (кнопка <a href=\""%1\"">Перенастроить</a> в настройках почты).'"),
"Перенастроить"));
КонецЕсли;
СпособыУстранения.Добавить(НСтр("ru = 'Обратитесь к администратору локальной сети.'"));
СпособыУстранения.Добавить(НСтр("ru = 'Обратитесь к администратору почтового сервера.'"));
КонецЕсли;
SSL/src/CommonModules/РаботаСФайламиКлиент/Module.bsl
+1 -1
View File
@@ -876,7 +876,7 @@
#Если ВебКлиент Тогда
Если ПараметрыВыполнения.ДанныеФайла.Расширение <> "mxl" Тогда
Текст = НСтр("ru = 'Сохраните файл на компьютер, после чего распечатать его при помощи приложения, предназначенного для работы с данным файлом.'");
Текст = НСтр("ru = 'Сохраните файл на компьютер, после чего распечатайте его при помощи приложения, предназначенного для работы с данным файлом.'");
ПоказатьПредупреждение(, Текст);
Возврат;
КонецЕсли;
SSL/src/CommonModules/РаботаСФайламиСлужебныйКлиент/Module.bsl
+2 -1
View File
@@ -10503,7 +10503,8 @@
Процедура ВыбратьРежимИРедактироватьФайл(ОбработчикРезультата, ДанныеФайла, ДоступностьКомандыРедактировать) Экспорт
ПерсональныеНастройки = ПерсональныеНастройкиРаботыСФайлами();
РезультатОткрыть = ПерсональныеНастройки.ВариантОткрытияФайла;
РезультатОткрыть = ?(ДанныеФайла.ФайлРедактируетТекущийПользователь И ДоступностьКомандыРедактировать,
"Редактировать", ПерсональныеНастройки.ВариантОткрытияФайла);
СпособОткрытия = ПерсональныеНастройки.ТекстовыеФайлыСпособОткрытия;
Если СпособОткрытия = ПредопределенноеЗначение("Перечисление.СпособыОткрытияФайлаНаПросмотр.ВоВстроенномРедакторе") Тогда
SSL/src/CommonModules/РассылкаОтчетов/Module.bsl
+22 -2
View File
@@ -368,8 +368,8 @@
КонецЕсли;
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Отчеты отправлены ''%1'' (%2) от %3. %4'"),
ПредставлениеПолучателя, АдресПолучателя, ПредставлениеОтправителя, ДополнительныеСведения);
НСтр("ru = 'Отчеты отправлены ''%1'' от %2. %3'"),
ПредставлениеПолучателя, ПредставлениеОтправителя, ДополнительныеСведения);
ЗаписьЖурнала(ПараметрыЖурнала,, ТекстСообщения);
Исключение
@@ -396,6 +396,26 @@
// Доставка.
Если ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, ОбщиеВложения) Тогда
РассылкаВыполнена = Истина;
Если ПараметрыДоставки.Получатели <> Неопределено Тогда
ПредставлениеПолучателя = Новый Массив;
Для каждого ПолучательРассылки Из ПараметрыДоставки.Получатели Цикл
ПредставлениеПолучателя.Добавить(Строка(ПолучательРассылки.Ключ) + " (" + ПолучательРассылки.Значение + ")");
КонецЦикла;
ПредставлениеПолучателя = СтрСоединить(ПредставлениеПолучателя, Символы.ПС);
ДополнительныеСведения = "";
Если ОтправлятьСкрытыеКопииОтправителю Тогда
ДополнительныеСведения = НСтр("ru = 'Копия направлена отправителю.'");
КонецЕсли;
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Отчеты отправлены %1 получателям от %2. %3
|%4'"),
ПараметрыДоставки.Получатели.Количество(), ПредставлениеОтправителя,
ДополнительныеСведения, ПредставлениеПолучателя);
ЗаписьЖурнала(ПараметрыЖурнала,, ТекстСообщения);
КонецЕсли;
КонецЕсли;
КонецЕсли;
SSL/src/CommonModules/РассылкаОтчетовПовтИсп/Module.bsl
+4
View File
@@ -57,7 +57,10 @@
// Исключаемые отчеты используются в качестве исключающего фильтра при выборе отчетов.
Функция ИсключаемыеОтчеты() Экспорт
МассивМетаданных = Новый Массив;
ИнтеграцияПодсистемБСП.ПриОпределенииИсключаемыхОтчетов(МассивМетаданных);
РассылкаОтчетовПереопределяемый.ОпределитьИсключаемыеОтчеты(МассивМетаданных);
Результат = Новый Массив;
@@ -68,6 +71,7 @@
ИсключаемыеОтчеты = Новый ФиксированныйМассив(Результат);
Возврат ИсключаемыеОтчеты;
КонецФункции
#КонецОбласти
SSL/src/CommonModules/РегламентныеЗаданияСервер/Module.bsl
+14 -16
View File
@@ -1051,22 +1051,14 @@
Если Задание <> Неопределено Тогда
ЕстьИзменения = Ложь;
ОбновитьЗначениеСвойстваЗадания(Задание,
"Наименование", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"Использование", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"Ключ", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"ИмяПользователя", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"ИнтервалПовтораПриАварийномЗавершении", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"КоличествоПовторовПриАварийномЗавершении", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"Параметры", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание,
"Расписание", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "Наименование", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "Использование", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "Ключ", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "ИмяПользователя", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "ИнтервалПовтораПриАварийномЗавершении", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "КоличествоПовторовПриАварийномЗавершении", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "Параметры", Параметры, ЕстьИзменения);
ОбновитьЗначениеСвойстваЗадания(Задание, "Расписание", Параметры, ЕстьИзменения);
Если ЕстьИзменения Тогда
Задание.Записать();
@@ -1167,7 +1159,13 @@
Возврат;
КонецЕсли;
Если ТипЗнч(Задание[ИмяСвойства]) = Тип("РасписаниеРегламентногоЗадания")
И ТипЗнч(ПараметрыЗадания[ИмяСвойства]) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(Задание[ИмяСвойства], ПараметрыЗадания[ИмяСвойства]);
Иначе
Задание[ИмяСвойства] = ПараметрыЗадания[ИмяСвойства];
КонецЕсли;
ЕстьИзменения = Истина;
КонецПроцедуры
SSL/src/CommonModules/СерверныеОповещения/Module.bsl
+69 -28
View File
@@ -1495,6 +1495,22 @@
КонецФункции
Функция УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке)
УровеньЖурнала = УровеньЖурналаРегистрации.Ошибка;
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения") Тогда
Возврат УровеньЖурнала;
КонецЕсли;
МодульОбсуждения = ОбщегоНазначения.ОбщийМодуль("Обсуждения");
Если МодульОбсуждения.ЭтоОшибкаУстановкиСоединенияССерверомВзаимодействия(ИнформацияОбОшибке) Тогда
УровеньЖурнала = УровеньЖурналаРегистрации.Предупреждение;
КонецЕсли;
Возврат УровеньЖурнала;
КонецФункции
// Параметры:
// Служебный - Булево - если Истина и имя текущего пользователя пустое,
// тогда создать служебного пользователя и установить регламентному заданию.
@@ -1531,7 +1547,7 @@
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка регистрации пользователя в системе взаимодействия'",
ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке),,,
ТекстОшибки);
Возврат Ложь;
КонецПопытки;
@@ -1621,38 +1637,60 @@
Функция ИдентификаторЛичногоОбсуждения(ИдентификаторПользователяИБ = Неопределено)
УстановитьПривилегированныйРежим(Истина);
Если ИдентификаторПользователяИБ = Неопределено Тогда
ИдентификаторПользователяИБ = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;
УникальныйИдентификатор = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;
Иначе
УникальныйИдентификатор = ИдентификаторПользователяИБ;
КонецЕсли;
КлючЛичногоОбсуждения = "СерверныеОповещения" + "_" + НРег(ИдентификаторПользователяИБ);
КлючЛичногоОбсуждения = "СерверныеОповещения" + "_" + НРег(УникальныйИдентификатор);
Попытка
ОбновлятьУчастниковОбсуждения = Ложь;
Если ИдентификаторПользователяИБ = Неопределено Тогда
ИдентификаторТекущегоПользователя = СистемаВзаимодействия.ИдентификаторТекущегоПользователя();
Обсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(КлючЛичногоОбсуждения);
Создано = Ложь;
Если Обсуждение = Неопределено Тогда
Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
Обсуждение.Отображаемое = Ложь;
Обсуждение.Ключ = КлючЛичногоОбсуждения;
Обсуждение.Участники.Добавить(ИдентификаторТекущегоПользователя);
Попытка
Обсуждение.Записать();
Создано = Истина;
Исключение
Создано = Ложь;
КонецПопытки;
Если Не Создано Тогда
СуществующееОбсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(КлючЛичногоОбсуждения);
Если СуществующееОбсуждение <> Неопределено Тогда
Обсуждение = СуществующееОбсуждение;
ОбновлятьУчастниковОбсуждения = Истина;
Иначе
Обсуждение.Записать();
Попытка
ИдентификаторТекущегоПользователя = СистемаВзаимодействия.ПолучитьИдентификаторПользователя(УникальныйИдентификатор);
ОбновлятьУчастниковОбсуждения = Истина;
Исключение
ИдентификаторТекущегоПользователя = СистемаВзаимодействия.ИдентификаторТекущегоПользователя();
КонецПопытки;
КонецЕсли;
НомерПопытки = 1;
Создано = Ложь;
Пока Истина Цикл
Обсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(КлючЛичногоОбсуждения);
Если Обсуждение <> Неопределено Тогда
Прервать;
КонецЕсли;
НовоеОбсуждение = СистемаВзаимодействия.СоздатьОбсуждение();
НовоеОбсуждение.Отображаемое = Ложь;
НовоеОбсуждение.Ключ = КлючЛичногоОбсуждения;
НовоеОбсуждение.Участники.Добавить(ИдентификаторТекущегоПользователя);
Попытка
НовоеОбсуждение.Записать();
Обсуждение = НовоеОбсуждение;
Создано = Истина;
Прервать;
Исключение
НомерПопытки = НомерПопытки + 1;
Если НомерПопытки > 10 Тогда
ВызватьИсключение;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если Не Создано И Обсуждение.Отображаемое Тогда
КонецПопытки;
КонецЦикла;
Если Не Создано
И (Обсуждение.Отображаемое
Или ОбновлятьУчастниковОбсуждения
И (Обсуждение.Участники.Количество() <> 1
Или Не Обсуждение.Участники.Содержит(ИдентификаторТекущегоПользователя))) Тогда
Обсуждение.Отображаемое = Ложь;
Если ОбновлятьУчастниковОбсуждения Тогда
Обсуждение.Участники.Очистить();
Обсуждение.Участники.Добавить(ИдентификаторТекущегоПользователя);
КонецЕсли;
Обсуждение.Записать();
КонецЕсли;
Исключение
@@ -1666,9 +1704,10 @@
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка создания личного обсуждения'",
ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,, ТекстОшибки);
УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке),,, ТекстОшибки);
Возврат Неопределено;
КонецПопытки;
УстановитьПривилегированныйРежим(Ложь);
Возврат Обсуждение.Идентификатор;
@@ -1678,6 +1717,7 @@
КлючОбщегоОбсуждения = "СерверныеОповещения";
УстановитьПривилегированныйРежим(Истина);
Попытка
Обсуждение = СистемаВзаимодействия.ПолучитьОбсуждение(КлючОбщегоОбсуждения);
Создано = Ложь;
@@ -1711,10 +1751,11 @@
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка создания общего обсуждения'",
ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке),,,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
Возврат Неопределено;
КонецПопытки;
УстановитьПривилегированныйРежим(Ложь);
Возврат Обсуждение.Идентификатор;
@@ -1750,7 +1791,7 @@
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка отправки сообщения'",
ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Предупреждение,,, ТекстОшибки);
УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке),,, ТекстОшибки);
Возврат Ложь;
КонецПопытки;
@@ -1793,7 +1834,7 @@
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка очистки устаревших сообщений'",
ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
УровеньЖурналаРегистрацииОшибкиСВ(ИнформацияОбОшибке),,,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
SSL/src/CommonModules/СерверныеОповещенияКлиент/Module.bsl
+8
View File
@@ -355,6 +355,8 @@
Процедура ПослеОшибкиПодключенияОбработчикаНовыхЛичныхСообщений(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
СтандартнаяОбработка = Ложь;
Контекст.СостояниеПолучения.НачатоПодключениеОбработчикаНовыхЛичныхСообщений = Ложь;
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
@@ -373,6 +375,8 @@
Процедура ПриОшибкеПолученияНовогоЛичногоСообщенияСистемыВзаимодействия(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
СтандартнаяОбработка = Ложь;
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка получения нового личного сообщения'",
ОбщегоНазначенияКлиент.КодОсновногоЯзыка()),
@@ -390,6 +394,8 @@
Процедура ПослеОшибкиПодключенияОбработчикаНовыхОбщихСообщений(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
СтандартнаяОбработка = Ложь;
Контекст.СостояниеПолучения.НачатоПодключениеОбработчикаНовыхОбщихСообщений = Ложь;
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
@@ -408,6 +414,8 @@
Процедура ПриОшибкеПолученияНовогоОбщегоСообщенияСистемыВзаимодействия(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
СтандартнаяОбработка = Ложь;
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
НСтр("ru = 'Серверные оповещения.Ошибка получения нового общего сообщения'",
ОбщегоНазначенияКлиент.КодОсновногоЯзыка()),
SSL/src/CommonModules/СтандартныеПодсистемыСервер/Module.bsl
+38 -10
View File
@@ -672,12 +672,38 @@
// Вызывает исключение с требованием перезапустить сеанс из-за обновления расширений программы.
Процедура ПотребоватьПерезапускСеансаПоПричинеДинамическогоОбновленияРасширенийПрограммы() Экспорт
Если ЭтоРазделенныйРежимСеансаБезРазделителей() Тогда
ТекстОшибки =
НСтр("ru = 'Для выполнения требуемых действий следует
|запустить сеанс с установленными разделителями.
|
|Расширения области данных не подключаются при входе
|в область данных в сеансе, запущенном без разделителей.'");
Иначе
ТекстОшибки = НСтр("ru = 'Расширения программы обновлены, требуется перезапустить сеанс.'");
КонецЕсли;
УстановитьТребуетсяПерезапускСеанса(ТекстОшибки);
ВызватьИсключение ТекстОшибки;
КонецПроцедуры
// Возвращаемое значение:
// Булево
//
Функция ЭтоРазделенныйРежимСеансаБезРазделителей() Экспорт
Если Не ОбщегоНазначения.РазделениеВключено()
Или Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных()
Или Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
Возврат Ложь;
КонецЕсли;
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
Возврат МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
КонецФункции
// Устанавливает параметр сеанса необходимости перезапуска с текстом
// краткого представления ошибки для проверки в исключении попытки.
//
@@ -923,10 +949,11 @@
// Для определения предопределенных элементов в подсистемах Свойства и КонтактнаяИнформация
// зачитываются реквизиты ИмяПредопределенногоНабора и ИмяПредопределенногоВида.
ЗначенияРеквизитов = Новый Структура("ИмяПредопределенногоНабора, ИмяПредопределенногоВида", "", "");
ЗначенияРеквизитов = Новый Структура("ИмяПредопределенногоНабора,ИмяПредопределенногоВида,ИмяПредопределенныхДанных",
"", "", "");
ЗаполнитьЗначенияСвойств(ЗначенияРеквизитов, Элемент);
Если (Элемент.ИмяПредопределенныхДанных = ""
Если (ЗначенияРеквизитов.ИмяПредопределенныхДанных = ""
И ЗначенияРеквизитов.ИмяПредопределенногоНабора = ""
И ЗначенияРеквизитов.ИмяПредопределенногоВида = "") Тогда
Возврат Ложь;
@@ -1087,6 +1114,7 @@
| #ТаблицаПланаОбмена КАК ПланОбмена
|ГДЕ
| ПланОбмена.РегистрироватьИзменения
| И НЕ ПланОбмена.ЭтотУзел
| И НЕ ПланОбмена.ПометкаУдаления";
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ТаблицаПланаОбмена", "ПланОбмена." + ИмяПланаОбмена);
@@ -1499,10 +1527,10 @@
Отбор = Новый Структура("Пользователь", ИмяПользователя);
Выборка = ХранилищеСистемныхНастроек.Выбрать(Отбор);
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(РежимСовместимости, "8.3.18.0") < 0 Тогда
КлючПоискаРусский = "НастройкиОкна";
КлючПоискаРусский = "НастройкиОкна"; // @Non-NLS
КлючПоискаАнглийский = "WindowSettings";
Иначе
КлючПоискаРусский = "НастройкиОкнаТонкогоКлиента";
КлючПоискаРусский = "НастройкиОкнаТонкогоКлиента"; // @Non-NLS
КлючПоискаАнглийский = "ThinClientWindowSettings";
КонецЕсли;
Пока Истина Цикл
@@ -3818,14 +3846,14 @@
ТипыНастроек = Новый Массив;
// Русский вариант.
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(РежимСовместимости, "8.3.18.0") < 0 Тогда
ТипыНастроек.Добавить("/НастройкиОкна");
ТипыНастроек.Добавить("/Такси/НастройкиОкна");
ТипыНастроек.Добавить("/НастройкиОкна"); // @Non-NLS
ТипыНастроек.Добавить("/Такси/НастройкиОкна"); // @Non-NLS
Иначе
ТипыНастроек.Добавить("/НастройкиОкнаТонкогоКлиента");
ТипыНастроек.Добавить("/Такси/НастройкиОкнаТонкогоКлиента");
ТипыНастроек.Добавить("/НастройкиОкнаТонкогоКлиента"); // @Non-NLS
ТипыНастроек.Добавить("/Такси/НастройкиОкнаТонкогоКлиента"); // @Non-NLS
КонецЕсли;
ТипыНастроек.Добавить("/НастройкиОкнаВебКлиента");
ТипыНастроек.Добавить("/Такси/НастройкиОкнаВебКлиента");
ТипыНастроек.Добавить("/НастройкиОкнаВебКлиента"); // @Non-NLS
ТипыНастроек.Добавить("/Такси/НастройкиОкнаВебКлиента"); // @Non-NLS
// Английский вариант.
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(РежимСовместимости, "8.3.18.0") < 0 Тогда
ТипыНастроек.Добавить("/WindowSettings");
SSL/src/CommonModules/УдалениеПомеченныхОбъектовКлиент/Module.bsl
+6 -8
View File
@@ -120,9 +120,7 @@
ОписаниеРегламентногоЗадания = СведенияОРегламентномЗаданииУдаленияПомеченных.Расписание;
Расписание = Новый РасписаниеРегламентногоЗадания;
ЗаполнитьЗначенияСвойств(Расписание, ОписаниеРегламентногоЗадания);
// АПК: 574 - выкл Процедура не поддерживается на мобильном клиенте.
Диалог = Новый ДиалогРасписанияРегламентногоЗадания(Расписание);
// АПК: 574 - вкл
Диалог = Новый ДиалогРасписанияРегламентногоЗадания(Расписание); // АПК: 574 Процедура не поддерживается на мобильном клиенте.
Диалог.Показать(Обработчик);
КонецЕсли;
КонецПроцедуры
@@ -231,14 +229,14 @@
Процедура РегламентныеЗаданияПослеИзмененияРасписания(Расписание, ПараметрыВыполнения) Экспорт
Если Расписание = Неопределено Тогда
Расписание = ПараметрыВыполнения.СтароеРасписание;
УдалениеПомеченныхИспользование = Ложь;
Иначе
Возврат;
КонецЕсли;
УдалениеПомеченныхИспользование = Истина;
Изменения = Новый Структура("Расписание", Расписание);
Изменения = Новый Структура;
Изменения.Вставить("Расписание", Расписание);
Изменения.Вставить("Использование", Истина);
УдалениеПомеченныхОбъектовСлужебныйВызовСервера.УстановитьРежимУдалятьПоРасписанию(Изменения);
КонецЕсли;
Оповестить("ИзменилсяРежимАвтоматическиУдалятьПомеченныеОбъекты");
SSL/src/CommonModules/УдалениеПомеченныхОбъектовСлужебный/Module.bsl
+13 -1
View File
@@ -38,14 +38,26 @@
// См. ОчередьЗаданийПереопределяемый.ПриПолученииСпискаШаблонов.
Процедура ПриПолученииСпискаШаблонов(ШаблоныЗаданий) Экспорт
ШаблоныЗаданий.Добавить("УдалениеПомеченных");
ШаблоныЗаданий.Добавить(Метаданные.РегламентныеЗадания.УдалениеПомеченныхОбъектов.Имя);
ШаблоныЗаданий.Добавить(Метаданные.РегламентныеЗадания.КонтрольУдаленияПомеченныхОбъектов.Имя);
КонецПроцедуры
// См. ОчередьЗаданийПереопределяемый.ПриОпределенииПсевдонимовОбработчиков.
Процедура ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам) Экспорт
СоответствиеИменПсевдонимам.Вставить(Метаданные.РегламентныеЗадания.УдалениеПомеченныхОбъектов.ИмяМетода);
СоответствиеИменПсевдонимам.Вставить(Метаданные.РегламентныеЗадания.КонтрольУдаленияПомеченныхОбъектов.ИмяМетода);
КонецПроцедуры
// См. ОбщегоНазначенияПереопределяемый.ПриДобавленииИсключенийПоискаСсылок.
Процедура ПриДобавленииИсключенийПоискаСсылок(ИсключенияПоискаСсылок) Экспорт
ИсключенияПоискаСсылок.Добавить(Метаданные.РегистрыСведений.УдаляемыеОбъекты);
ИсключенияПоискаСсылок.Добавить(Метаданные.РегистрыСведений.НеудаленныеОбъекты);
КонецПроцедуры
// См. ПодключаемыеКомандыПереопределяемый.ПриОпределенииКомандПодключенныхКОбъекту.
SSL/src/CommonModules/УдалениеПомеченныхОбъектовСлужебныйВызовСервера/Module.bsl
+6 -18
View File
@@ -8,7 +8,7 @@
#Область СлужебныйПрограммныйИнтерфейс
// Устанавливает режим автоматического удаления помеченных объектов
// Устанавливает режим автоматического удаления помеченных объектов.
//
// Параметры:
// Изменения - Структура:
@@ -18,31 +18,19 @@
// Возвращаемое значение:
// Булево
//
Функция УстановитьРежимУдалятьПоРасписанию(Изменения) Экспорт
Процедура УстановитьРежимУдалятьПоРасписанию(Изменения) Экспорт
Если Не Пользователи.ЭтоПолноправныйПользователь(,, Ложь) Тогда
ВызватьИсключение НСтр("ru = 'Недостаточно прав для совершения операции.'");
КонецЕсли;
УдалятьПомеченныеОбъекты = Изменения.Использование;
Отбор = Новый Структура;
Отбор.Вставить("Метаданные", Метаданные.РегламентныеЗадания.УдалениеПомеченныхОбъектов);
Задания = РегламентныеЗаданияСервер.НайтиЗадания(Отбор);
Для Каждого Задание Из Задания Цикл
Параметры = Новый Структура;
Параметры.Вставить("Использование", УдалятьПомеченныеОбъекты);
Параметры.Вставить("Использование", Изменения.Использование);
Параметры.Вставить("Расписание", Изменения.Расписание);
РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Параметры);
ИдентификаторЗадания = РегламентныеЗаданияСервер.УникальныйИдентификатор(Метаданные.РегламентныеЗадания.УдалениеПомеченныхОбъектов);
РегламентныеЗаданияСервер.ИзменитьЗадание(ИдентификаторЗадания, Параметры);
Возврат Истина;
КонецЦикла;
Возврат Ложь;
КонецФункции
КонецПроцедуры
// Возвращает расписание регламентного задания.
//
SSL/src/CommonModules/УправлениеДоступомСлужебный/Module.bsl
+35 -31
View File
@@ -542,6 +542,8 @@
НовыеРолиПользователей = ТекущиеСвойстваПользователей.РолиПользователей;
Администраторы = ТекущиеСвойстваПользователей.Администраторы;
РазделениеВключено = ОбщегоНазначения.РазделениеВключено();
НеобходимоОбновлениеИБ = ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы();
ИдентификаторТекущегоПользователяИБ = ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор;
ОбязательныеРолиАдминистратора = Новый Соответствие;
ОбязательныеРолиАдминистратора.Вставить("ПолныеПрава", Истина);
@@ -562,12 +564,6 @@
ИдентификаторПользователяИБ = ОписаниеПользователя.ИдентификаторПользователяИБ;
НовыйАдминистраторИБ = Ложь;
Отказ = Ложь;
ИнтеграцияПодсистемБСП.ПриОбновленииРолейПользователяИБ(ИдентификаторПользователяИБ, Отказ);
Если Отказ Тогда
Продолжить;
КонецЕсли;
// Поиск пользователя ИБ.
Если ТипЗнч(ИдентификаторПользователяИБ) = Тип("УникальныйИдентификатор") Тогда
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
@@ -581,6 +577,17 @@
Продолжить;
КонецЕсли;
Если НеобходимоОбновлениеИБ
И ИдентификаторПользователяИБ = ИдентификаторТекущегоПользователяИБ Тогда
Продолжить;
КонецЕсли;
Отказ = Ложь;
ИнтеграцияПодсистемБСП.ПриОбновленииРолейПользователяИБ(ИдентификаторПользователяИБ, Отказ);
Если Отказ Тогда
Продолжить;
КонецЕсли;
Отбор = Новый Структура("Пользователь", ТекущийПользователь);
НовыеРоли = НовыеРолиПользователей.Скопировать(
НовыеРолиПользователей.НайтиСтроки(Отбор), "Роль, РольСсылка");
@@ -795,7 +802,10 @@
Возврат;
КонецЕсли;
Если Не ТранзакцияАктивна() Или ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
Если МонопольныйРежим()
Или Не ТранзакцияАктивна()
Или ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
ИзменитьРегламентноеЗаданиеОбновленияДоступа(ВключитьЗадание);
ИначеЕсли ВключитьЗадание Тогда
@@ -2408,6 +2418,15 @@
КонецПроцедуры
// Обработчики событий подсистемы РассылкаОтчетов.
// См. РассылкаОтчетовПереопределяемый.ОпределитьИсключаемыеОтчеты
Процедура ПриОпределенииИсключаемыхОтчетов(ИсключаемыеОтчеты) Экспорт
ИсключаемыеОтчеты.Добавить(Метаданные.Отчеты.ПраваДоступа);
КонецПроцедуры
// Обработчики событий подсистемы КонтрольВеденияУчета.
// См. ИнтеграцияПодсистемБСП.ПриОпределенииОбъектовИсключаемыхИзПроверки
@@ -2906,33 +2925,18 @@
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийПользователь", Пользователи.АвторизованныйПользователь());
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЗначенияПоУмолчанию.ТипЗначенийДоступа КАК ТипЗначений,
| ЗначенияПоУмолчанию.ВсеРазрешеныБезИсключений КАК ВсеРазрешеныБезИсключений
|ПОМЕСТИТЬ ЗначенияПоУмолчаниюДляПользователя
"ВЫБРАТЬ
| ЗначенияПоУмолчанию.ТипЗначенийДоступа КАК ТипЗначений
|ИЗ
| РегистрСведений.ЗначенияГруппДоступаПоУмолчанию КАК ЗначенияПоУмолчанию
|ГДЕ
| ИСТИНА В
| (ВЫБРАТЬ ПЕРВЫЕ 1
| ИСТИНА
| ИЗ
| Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ПО (ГруппыДоступаПользователи.Ссылка = ЗначенияПоУмолчанию.ГруппаДоступа)
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ПО
| ГруппыДоступаПользователи.Ссылка = ЗначенияПоУмолчанию.ГруппаДоступа
| И ГруппыДоступаПользователи.Пользователь = СоставыГруппПользователей.ГруппаПользователей
| И СоставыГруппПользователей.Пользователь = &ТекущийПользователь)
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| ЗначенияПоУмолчанию.ТипЗначений
|ИЗ
| ЗначенияПоУмолчаниюДляПользователя КАК ЗначенияПоУмолчанию
| ПО (ГруппыДоступаПользователи.Пользователь = СоставыГруппПользователей.ГруппаПользователей)
| И (СоставыГруппПользователей.Пользователь = &ТекущийПользователь)
|
|СГРУППИРОВАТЬ ПО
| ЗначенияПоУмолчанию.ТипЗначений
| ЗначенияПоУмолчанию.ТипЗначенийДоступа
|
|ИМЕЮЩИЕ
| МИНИМУМ(ЗначенияПоУмолчанию.ВсеРазрешеныБезИсключений) = ИСТИНА";
@@ -6296,7 +6300,6 @@
ИмяПараметра = "СтандартныеПодсистемы.УправлениеДоступом.ИдентификаторыРолей";
ЗначениеСеанса = УправлениеДоступомСлужебныйПовтИсп.ИдентификаторыРолейСеанса();
РегистрыСведений.ПараметрыРаботыВерсийРасширений.ЗаблокироватьДляИзмененияВФайловойИБ();
ТекущееЗначение = ПоследниеИдентификаторыРолей(ИмяПараметра);
Если ТекущееЗначение.ХешСумма = ЗначениеСеанса.ХешСумма Тогда
@@ -24760,7 +24763,8 @@
СтандартныеПодсистемыСервер.ПотребоватьПерезапускСеансаПоПричинеДинамическогоОбновленияРасширенийПрограммы();
КонецЕсли;
Исключение
Если ЭтоСеансФоновогоЗадания() Тогда
Если ЭтоСеансФоновогоЗадания()
Или СтандартныеПодсистемыСервер.ЭтоРазделенныйРежимСеансаБезРазделителей() Тогда
ВызватьИсключение;
КонецЕсли;
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
SSL/src/CommonModules/УправлениеПечатью/Module.bsl
+18 -2
View File
@@ -1717,6 +1717,10 @@
// Проверим, все ли макеты были сформированы.
Для Каждого ПечатнаяФорма Из КоллекцияПечатныхФорм Цикл
Если Не ПечатнаяФорма.ОфисныеДокументы = Неопределено Тогда
ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
КонецЕсли;
Если ПечатнаяФорма.ТабличныйДокумент = Неопределено Тогда
ТекстСообщенияОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'В обработчике печати не был сформирован табличный документ для: %1'"),
@@ -3002,6 +3006,17 @@
КонецПроцедуры
Процедура ИсправитьПризнакПроверкаПроведенияПередПечатью(КомандыПечати, ОбъектМетаданных)
Если Метаданные.Документы.Содержит(ОбъектМетаданных) Тогда
Если ОбъектМетаданных.Проведение = Метаданные.СвойстваОбъектов.Проведение.Запретить Тогда
КомандыПечати.ЗаполнитьЗначения(Ложь, "ПроверкаПроведенияПередПечатью");
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Функция УникальныйИдентификаторКомандыПечати(КомандаПечати)
Параметры = Новый Массив;
@@ -3079,6 +3094,7 @@
КонецЦикла;
КомандыПечати.Сортировать("Порядок Возр, Представление Возр");
ИсправитьПризнакПроверкаПроведенияПередПечатью(КомандыПечати, ОбъектМетаданных);
УстановитьНастройкиКомандПечати(КомандыПечати, Источник.СсылкаМетаданных);
ОпределитьВидимостьКомандПечатиПоФункциональнымОпциям(КомандыПечати);
@@ -5585,12 +5601,12 @@
ЗначенияСвойствОбъектов = МодульУправлениеСвойствами.ЗначенияСвойств(Объекты, , , , КодЯзыка);
Для Каждого ЗначенияСвойствОбъекта Из ЗначенияСвойствОбъектов Цикл
ИмяСвойства = ЗначенияСвойствОбъекта.ИмяСвойства;
Свойство = ЗначенияСвойствОбъекта.Свойство;
Объект = ЗначенияСвойствОбъекта.ВладелецСвойств;
НайденныеСтроки = Данные.НайтиСтроки(Новый Структура("Ссылка", Объект));
Для Каждого СтрокаТаблицы Из НайденныеСтроки Цикл
СтрокаТаблицы[ИмяСвойства] = ЗначенияСвойствОбъекта.Значение;
СтрокаТаблицы[ИдентификаторыДляФормул[Свойство]] = ЗначенияСвойствОбъекта.Значение;
КонецЦикла;
КонецЦикла;
SSL/src/CommonModules/УправлениеСвойствами/Module.bsl
+20 -12
View File
@@ -985,6 +985,18 @@
ВладелецСвойств = ОбъектыСоСвойствами;
КонецЕсли;
Если ПолучатьДопРеквизиты Тогда
ПолучатьДопРеквизиты = ИспользоватьДопРеквизиты(ВладелецСвойств);
КонецЕсли;
Если ПолучатьДопСведения Тогда
ПолучатьДопСведения = ИспользоватьДопСведения(ВладелецСвойств);
КонецЕсли;
Если Не ПолучатьДопРеквизиты И Не ПолучатьДопСведения Тогда
Возврат Новый ТаблицаЗначений;
КонецЕсли;
Если Свойства = Неопределено Тогда
Свойства = СвойстваОбъекта(ВладелецСвойств, ПолучатьДопРеквизиты, ПолучатьДопСведения);
КонецЕсли;
@@ -1825,19 +1837,10 @@
КлючНаборовСвойств = НачалоКлюча + Лев(КлючНазначения + "00000000000000000000000000000000", 32);
НовыйКлюч = НовыйКлючНазначения(Форма.КлючНазначенияИспользования, НачалоКлюча, КлючНаборовСвойств);
Если НовыйКлюч = Неопределено Тогда
// Ключ уже дополнен.
НовыйКлюч = Форма.КлючНазначенияИспользования;
Если НовыйКлюч <> Неопределено Тогда
Форма.КлючНазначенияИспользования = НовыйКлюч;
КонецЕсли;
НовыйКлючПоложения = НовыйКлючНазначения(Форма.КлючСохраненияПоложенияОкна, НачалоКлюча, КлючНаборовСвойств);
Если НовыйКлючПоложения = Неопределено Тогда
// Ключ уже дополнен.
НовыйКлючПоложения = Форма.КлючСохраненияПоложенияОкна;
КонецЕсли;
СтандартныеПодсистемыСервер.УстановитьКлючНазначенияФормы(Форма, НовыйКлюч, НовыйКлючПоложения);
КонецПроцедуры
Функция РезультатВычисленияУсловия(Форма, ОписаниеОбъекта, Параметры)
@@ -1924,8 +1927,13 @@
ТипОбъекта = ТипЗнч(ОписаниеОбъекта.Ссылка);
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ТипОбъекта);
Если ОбщегоНазначения.ВидОбъектаПоТипу(ТипОбъекта) = "Справочник" Тогда
ТабличнаяЧасть = МетаданныеОбъекта.ТабличныеЧасти.Найти("ДополнительныеРеквизиты");
Если ТабличнаяЧасть = Неопределено Тогда
ОтключитьДополнительныеРеквизитыНаФорме(Форма, ДополнительныеПараметры);
Возврат Ложь;
КонецЕсли;
Если ОбщегоНазначения.ВидОбъектаПоТипу(ТипОбъекта) = "Справочник" Тогда
Если Не МетаданныеОбъекта.Иерархический
Или МетаданныеОбъекта.ВидИерархии <> Метаданные.СвойстваОбъектов.ВидИерархии.ИерархияГруппИЭлементов Тогда
ЭтоГруппа = Ложь;
SSL/src/CommonModules/УправлениеСвойствамиСлужебный/Module.bsl
+68 -1
View File
@@ -205,6 +205,11 @@
НоваяСтрока.Порядок = "До";
КонецЕсли;
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "3.1.7.53";
Обработчик.РежимВыполнения = "Оперативно";
Обработчик.Процедура = "УправлениеСвойствамиСлужебный.ОчиститьНеиспользуемыеНастройки";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "*";
Обработчик.РежимВыполнения = "Отложенно";
@@ -872,7 +877,7 @@
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Свойства", Свойства);
Запрос.УстановитьПараметр("НаборыСвойств", НаборыСвойств);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ОбщегоНазначения.ЭтоОсновнойЯзык());
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
Запрос.Текст =
@@ -1788,6 +1793,68 @@
Строка = СтрСоединить(СтрРазделить(Строка, НедопустимыеСимволы, Истина));
КонецПроцедуры
Процедура ОчиститьНеиспользуемыеНастройки() Экспорт
Отбор = Новый Структура;
Отбор.Вставить("КлючНастроек", "КлючНазначенияИспользованияФормы");
УдалитьНастройкуИзХранилища(Отбор);
Отбор.КлючНастроек = "КлючСохраненияПоложенияОкнаФормы";
УдалитьНастройкуИзХранилища(Отбор);
КонецПроцедуры
Процедура УдалитьНастройкуИзХранилища(Отбор)
ВыборкаНастроек = ХранилищеСистемныхНастроек.Выбрать(Отбор);
Пока СледующаяНастройка(ВыборкаНастроек) Цикл
Попытка
КлючОбъекта = ВыборкаНастроек.КлючОбъекта;
Если СтрНачинаетсяС(КлючОбъекта, "КлючНаборовСвойств") Тогда
ОбщегоНазначения.ХранилищеСистемныхНастроекУдалить(ВыборкаНастроек.КлючОбъекта,
ВыборкаНастроек.КлючНастроек,
ВыборкаНастроек.Пользователь);
КонецЕсли;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ТекстОшибки = НСтр("ru = 'При очистке настроек в обработчике %1
|возникла ошибка:
|%2'");
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстОшибки,
"УправлениеСвойствамиСлужебный.ОчиститьНеиспользуемыеНастройки",
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
ЗаписьЖурналаРегистрации(
ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Предупреждение,,,
ТекстОшибки);
КонецПопытки;
КонецЦикла;
КонецПроцедуры
Функция СледующаяНастройка(Выборка)
ЕстьСледующий = Ложь;
Попытка
ЕстьСледующий = Выборка.Следующий();
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ТекстОшибки = НСтр("ru = 'При чтении настроек в обработчике %1
|возникла ошибка:
|%2'");
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстОшибки,
"УправлениеСвойствамиСлужебный.ОчиститьНеиспользуемыеНастройки",
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
ЗаписьЖурналаРегистрации(
ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Предупреждение,,,
ТекстОшибки);
КонецПопытки;
Возврат ЕстьСледующий;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры и функции.
SSL/src/CommonModules/УправлениеЭлектроннойПочтой/Module.bsl
+1
View File
@@ -1059,6 +1059,7 @@
| И (ИдентификаторыПисемКЗагрузке.ИдентификаторПисьма = ЭлектронноеПисьмоИсходящее.ИдентификаторСообщения
| ИЛИ ИдентификаторыПисемКЗагрузке.ИдентификаторПисьма = ЭлектронноеПисьмоИсходящее.ИдентификаторСообщенияОтправкаIMAP
| ИЛИ ИдентификаторыПисемКЗагрузке.ИдентификаторОригинальногоПисьмаMicrosoft = ЭлектронноеПисьмоИсходящее.ИдентификаторСообщения)
| И ЭлектронноеПисьмоИсходящее.СтатусПисьма = ЗНАЧЕНИЕ(Перечисление.СтатусыИсходящегоЭлектронногоПисьма.Отправлено)
|ГДЕ
| ЭлектронноеПисьмоВходящее.Ссылка ЕСТЬ NULL
| И ЭлектронноеПисьмоИсходящее.Ссылка ЕСТЬ NULL";
SSL/src/CommonModules/ЭлектроннаяПодпись/Module.bsl
+92 -73
View File
@@ -554,10 +554,7 @@
//
Функция ДатаПодписания(Подпись, ПривестиКЧасовомуПоясуСеанса = Истина) Экспорт
ЧтениеДанных = Новый ЧтениеДанных(Подпись);
РезультатЧтения = ЧтениеДанных.Прочитать();
Буфер = РезультатЧтения.ПолучитьБуферДвоичныхДанных();
ДатаПодписания = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписанияУниверсальная(Буфер);
ДатаПодписания = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписанияУниверсальная(Подпись);
Если ДатаПодписания = Неопределено Тогда
Возврат Неопределено;
@@ -1008,8 +1005,8 @@
// до которого требуется усовершенствование. Если фактический ТипПодписи
// тот же или выше, тогда никаких действий произведено не будет.
//
// ДобавитьАрхивнуюМеткуВремени - Булево - если указано Истина и ТипПодписи указан архивная,
// и фактический ТипПодписи архивная, тогда будет добавлена метка времени.
// ДобавитьАрхивнуюМеткуВремени - Булево - если указано Истина и фактический ТипПодписи архивная,
// тогда будет добавлена метка времени.
//
// МенеджерКриптографии - Неопределено - получить менеджер криптографии для проверки
// электронных подписей, как настроил администратор.
@@ -1048,9 +1045,8 @@
Попытка
КонтейнерПодписи = МенеджерКриптографии.ПолучитьКонтейнерПодписейКриптографии(Подпись);
Исключение
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При чтении данных подписи: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Результат.ТекстОшибки = ОписаниеОшибки;
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Не удалось прочитать данные подписи: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Возврат Результат;
КонецПопытки;
@@ -1062,87 +1058,86 @@
Результат.СвойстваПодписи = СвойстваПодписи;
УсовершенствованиеПроизошло = Ложь;
ОписаниеОшибки = "";
ИнформацияОбОшибке = Неопределено;
Если ЗначениеЗаполнено(ПараметрыПодписиКриптографии.СрокДействияПоследнейМеткиВремени)
И ПараметрыПодписиКриптографии.СрокДействияПоследнейМеткиВремени < ТекущаяДатаСеанса() Тогда
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Истек срок действия подписи: %1'"), ПараметрыПодписиКриптографии.СрокДействияПоследнейМеткиВремени);
Возврат Результат;
КонецЕсли;
Если ОписаниеОшибки = "" Тогда
РезультатПроверкиСертификата = ПроверитьСертификат(МенеджерКриптографии, ПараметрыПодписиКриптографии.СертификатПоследнейМеткиВремени, ОписаниеОшибки);
ОписаниеОшибки = "";
РезультатПроверкиСертификата = ПроверитьСертификат(МенеджерКриптографии,
ПараметрыПодписиКриптографии.СертификатПоследнейМеткиВремени, ОписаниеОшибки);
Если РезультатПроверкиСертификата Тогда
Если ЗначениеЗаполнено(ТипПодписи)
И ЭлектроннаяПодписьСлужебныйКлиентСервер.ПодлежитУсовершенствованию(ПараметрыПодписиКриптографии.ТипПодписи, ТипПодписи) Тогда
Если ЗначениеЗаполнено(ТипПодписи) И ЭлектроннаяПодписьСлужебныйКлиентСервер.ПодлежитУсовершенствованию(
ПараметрыПодписиКриптографии.ТипПодписи, ТипПодписи) Тогда
Попытка
ДвоичныеДанныеРезультата = МенеджерКриптографии.УсовершенствоватьПодпись(Подпись,
ЭлектроннаяПодписьСлужебныйКлиентСервер.ТипПодписиКриптографии(ТипПодписи));
УсовершенствованиеПроизошло = Истина;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Не удалось усовершенствовать подпись: %1'"), КраткоеПредставлениеОшибки(
ИнформацияОбОшибке()));
Возврат Результат;
КонецПопытки;
ИначеЕсли ДобавитьАрхивнуюМеткуВремени И (ПараметрыПодписиКриптографии.ТипПодписи = Перечисления.ТипыПодписиКриптографии.АрхивнаяCAdESAv3
Или ПараметрыПодписиКриптографии.ТипПодписи = Перечисления.ТипыПодписиКриптографии.CAdESAv2) Тогда
ИначеЕсли ДобавитьАрхивнуюМеткуВремени И (ПараметрыПодписиКриптографии.ТипПодписи
= Перечисления.ТипыПодписиКриптографии.АрхивнаяCAdESAv3 Или ПараметрыПодписиКриптографии.ТипПодписи
= Перечисления.ТипыПодписиКриптографии.CAdESAv2) Тогда
Попытка
ДвоичныеДанныеРезультата = МенеджерКриптографии.ДобавитьАрхивнуюМеткуВремени(Подпись);
УсовершенствованиеПроизошло = Истина;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Не удалось добавить архивную метку времени в подпись: %1'"), КраткоеПредставлениеОшибки(
ИнформацияОбОшибке()));
Возврат Результат;
КонецПопытки;
Иначе // Есть подписи, которые не нужно усовершенствовать, но нужно заполнить их свойства, они уже прочитаны выше.
Результат.Успех = Истина;
Возврат Результат;
КонецЕсли;
Иначе
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При проверке сертификата: %1'"), ОписаниеОшибки);
КонецЕсли;
СвойстваСертификата = СвойстваСертификата(ПараметрыПодписиКриптографии.СертификатПоследнейМеткиВремени);
СведенияОСертификате = ЭлектроннаяПодписьСлужебныйКлиентСервер.СведенияОСертификатеСтрокой(
СвойстваСертификата);
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Не действует сертификат подписи: %1
|%2'"), ОписаниеОшибки, СведенияОСертификате);
Возврат Результат;
КонецЕсли;
Если ИнформацияОбОшибке <> Неопределено Тогда
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При усовершенствовании подписи: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецЕсли;
Если УсовершенствованиеПроизошло Тогда
Попытка
КонтейнерПодписи = МенеджерКриптографии.ПолучитьКонтейнерПодписейКриптографии(ДвоичныеДанныеРезультата);
Исключение
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При чтении данных усовершенствованной подписи: %1'"),
КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Результат.ТекстОшибки = ОписаниеОшибки;
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Не удалось прочитать данные усовершенствованной подписи: %1'"), КраткоеПредставлениеОшибки(
ИнформацияОбОшибке()));
Возврат Результат;
КонецПопытки;
ПараметрыПодписиКриптографии = ЭлектроннаяПодписьСлужебныйКлиентСервер.ПараметрыПодписиКриптографии(КонтейнерПодписи,
ЭлектроннаяПодписьСлужебный.ДобавкаВремени(), ТекущаяДатаСеанса());
ПараметрыПодписиКриптографии = ЭлектроннаяПодписьСлужебныйКлиентСервер.ПараметрыПодписиКриптографии(
КонтейнерПодписи, ЭлектроннаяПодписьСлужебный.ДобавкаВремени(), ТекущаяДатаСеанса());
РезультатПроверкиСертификата = ПроверитьСертификат(МенеджерКриптографии,
ПараметрыПодписиКриптографии.СертификатПоследнейМеткиВремени, ОписаниеОшибки);
Если РезультатПроверкиСертификата Тогда
СвойстваПодписи.Подпись = ДвоичныеДанныеРезультата;
СвойстваПодписи.ТипПодписи = ПараметрыПодписиКриптографии.ТипПодписи;
СвойстваПодписи.СрокДействияПоследнейМеткиВремени = ПараметрыПодписиКриптографии.СрокДействияПоследнейМеткиВремени;
Результат.СвойстваПодписи = СвойстваПодписи;
Иначе
СвойстваСертификата = СвойстваСертификата(ПараметрыПодписиКриптографии.СертификатПоследнейМеткиВремени);
СведенияОСертификате = ЭлектроннаяПодписьСлужебныйКлиентСервер.СведенияОСертификатеСтрокой(СвойстваСертификата);
СведенияОСертификате = ЭлектроннаяПодписьСлужебныйКлиентСервер.СведенияОСертификатеСтрокой(
СвойстваСертификата);
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При проверке сертификата после усовершенствования: %1
НСтр("ru='Не действует сертификат полученной метки времени: %1
|%2'"), ОписаниеОшибки, СведенияОСертификате);
ВызватьИсключение ОписаниеОшибки;
КонецЕсли;
КонецЕсли;
Если ОписаниеОшибки <> "" Тогда
Результат.ТекстОшибки = ОписаниеОшибки;
Иначе
Результат.Успех = Истина;
КонецЕсли;
Результат.СвойстваПодписи = СвойстваПодписи;
Возврат Результат;
КонецФункции
@@ -1184,26 +1179,16 @@
Результат = Новый Структура("Успех, ТекстОшибки, СвойстваПодписи", Ложь);
СвойстваПодписи = УстановленныеПодписи(ПодписанныйОбъект, ПорядковыйНомер)[0];
Подпись = СвойстваПодписи.Подпись;
УстановленныеПодписи = УстановленныеПодписи(ПодписанныйОбъект, ПорядковыйНомер);
Если МенеджерКриптографии = Неопределено Тогда
ПараметрыСоздания = ЭлектроннаяПодписьСлужебный.ПараметрыСозданияМенеджераКриптографии();
ПараметрыСоздания.АлгоритмПодписи =
ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмСформированнойПодписи(Подпись);
МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии(
"ПродлениеСрокаДействияПодписи", ПараметрыСоздания);
Если МенеджерКриптографии = Неопределено Тогда
Результат.ТекстОшибки = ПараметрыСоздания.ОписаниеОшибки;
Если УстановленныеПодписи.Количество() = 0 Тогда
Результат.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Не удалось найти подпись с порядковым номером %1 у %2'"), ПорядковыйНомер, ПодписанныйОбъект);
Возврат Результат;
КонецЕсли;
МенеджерКриптографии.АдресаСерверовМетокВремени = ОбщиеНастройки().АдресаСерверовМетокВремени;
КонецЕсли;
СвойстваПодписи = УстановленныеПодписи[0];
Подпись = СвойстваПодписи.Подпись;
Результат = УсовершенствоватьПодпись(Подпись, ТипПодписи, ДобавитьАрхивнуюМеткуВремени, МенеджерКриптографии);
@@ -1455,7 +1440,10 @@
Возврат Ложь;
КонецЕсли;
ДатаПодписания = ДатаПодписания(ПодписьДляПроверки);
СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписиИзДвоичныхДанных(ПодписьДляПроверки);
ДатаПодписания = ?(ЗначениеЗаполнено(СвойстваПодписи.ДатаШтампаВремени),
СвойстваПодписи.ДатаШтампаВремени, СвойстваПодписи.ДатаПодписания);
Если Не ЗначениеЗаполнено(ДатаПодписания) Тогда
ДатаПодписания = НаДату;
КонецЕсли;
@@ -1471,17 +1459,45 @@
Возврат Ложь;
КонецПопытки;
ДатаПодписания = ДатаПодписания(ПодписьДляПроверки);
Если ОбщиеНастройки().ДоступнаУсовершенствованнаяПодпись Тогда
Попытка
КонтейнерПодписи = МенеджерКриптографииДляПроверки.ПолучитьКонтейнерПодписейКриптографии(ПодписьДляПроверки);
Исключение
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='При чтении данных подписи: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
Если ВызыватьИсключение Тогда
ВызватьИсключение;
КонецЕсли;
Возврат Ложь;
КонецПопытки;
ПараметрыПодписиКриптографии = ЭлектроннаяПодписьСлужебныйКлиентСервер.ПараметрыПодписиКриптографии(КонтейнерПодписи,
ЭлектроннаяПодписьСлужебный.ДобавкаВремени(), ТекущаяДатаСеанса());
ДатаПодписания = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(ПараметрыПодписиКриптографии);
Иначе
СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписиИзДвоичныхДанных(ПодписьДляПроверки);
ДатаПодписания = ?(ЗначениеЗаполнено(СвойстваПодписи.ДатаШтампаВремени),
СвойстваПодписи.ДатаШтампаВремени, СвойстваПодписи.ДатаПодписания);
КонецЕсли;
Если Не ЗначениеЗаполнено(ДатаПодписания) Тогда
ДатаПодписания = НаДату;
КонецЕсли;
КонецЕсли;
Если ВызыватьИсключение Тогда
ОписаниеОшибки = Null;
КонецЕсли;
Возврат ПроверитьСертификат(МенеджерКриптографииДляПроверки, Сертификат, ОписаниеОшибки, ДатаПодписания);
ДополнительныеПараметры = ЭлектроннаяПодписьСлужебный.ДополнительныеПараметрыПроверкиСертификата();
ДополнительныеПараметры.ДляПроверкиПодписи = Истина;
Возврат ЭлектроннаяПодписьСлужебный.ПроверитьСертификат(МенеджерКриптографии, Сертификат, ОписаниеОшибки, НаДату, ДополнительныеПараметры);
КонецФункции
@@ -1895,11 +1911,7 @@
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания(
Метаданные.РегламентныеЗадания.ПродлениеДостоверностиПодписей);
Если Не ИспользоватьЭлектронныеПодписи() Тогда
Возврат;
КонецЕсли;
Если Не ДоступнаУсовершенствованнаяПодпись() Тогда
Если Не ИспользоватьЭлектронныеПодписи() Или Не ДоступнаУсовершенствованнаяПодпись() Тогда
Возврат;
КонецЕсли;
@@ -2069,7 +2081,14 @@
НоваяЗапись.УстановившийПодпись = Пользователи.АвторизованныйПользователь();
КонецЕсли;
ДатаПодписиИзПараметровПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(
СвойстваПодписи);
Если ЗначениеЗаполнено(ДатаПодписиИзПараметровПодписи) Тогда
ДатаПодписи = ДатаПодписиИзПараметровПодписи;
Иначе
ДатаПодписи = ДатаПодписания(СвойстваПодписи.Подпись);
КонецЕсли;
Если ДатаПодписи <> Неопределено Тогда
НоваяЗапись.ДатаПодписи = ДатаПодписи;
SSL/src/CommonModules/ЭлектроннаяПодписьКлиент/Module.bsl
+12 -8
View File
@@ -1044,15 +1044,19 @@
//
Процедура ДатаПодписания(Оповещение, Подпись, ПривестиКЧасовомуПоясуСеанса = Истина) Экспорт
ПараметрыОповещения = Новый Структура;
ПараметрыОповещения.Вставить("Оповещение", Оповещение);
ПараметрыОповещения.Вставить("ПривестиКЧасовомуПоясуСеанса", ПривестиКЧасовомуПоясуСеанса);
ДатаПодписания = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписанияУниверсальная(Подпись);
ЧтениеДанных = Новый ЧтениеДанных(Подпись);
ЧтениеДанных.НачатьЧтениеВБуферДвоичныхДанных(Новый ОписаниеОповещения(
"ДатаПодписанияПослеЧтенияВБуферДвоичныхДанных",
ЭлектроннаяПодписьСлужебныйКлиент,
ПараметрыОповещения));
Если ДатаПодписания = Неопределено Тогда
ВыполнитьОбработкуОповещения(Оповещение, Неопределено);
Возврат;
КонецЕсли;
Если ПривестиКЧасовомуПоясуСеанса Тогда
ДатаПодписания = ДатаПодписания + (ОбщегоНазначенияКлиент.ДатаСеанса()
- ОбщегоНазначенияКлиент.ДатаУниверсальная());
КонецЕсли;
ВыполнитьОбработкуОповещения(Оповещение, ДатаПодписания);
КонецПроцедуры
SSL/src/CommonModules/ЭлектроннаяПодписьКлиентСервер/Module.bsl
+3
View File
@@ -63,6 +63,9 @@
Структура.Вставить("КомуВыданСертификат");
Структура.Вставить("ТипПодписи");
Структура.Вставить("СрокДействияПоследнейМеткиВремени");
Структура.Вставить("ДатаПодписиИзМетки");
Структура.Вставить("НеподтвержденнаяДатаПодписи");
Структура.Вставить("ОписаниеСертификата");
Структура.Вставить("ОшибкаПриАвтоматическомПродлении", Ложь);
SSL/src/CommonModules/ЭлектроннаяПодписьКлиентСерверЛокализация/Module.bsl
+103 -77
View File
@@ -151,6 +151,63 @@
КонецПроцедуры
// Возвращаемое значение:
// Неопределено, Структура - данные удостоверяющего центра:
// * Государственный - Булево
// * ПериодыДействия - Неопределено, Массив из Структура:
// **ДатаС - Дата
// **ДатаПо - Дата, Неопределено
// * ДатаОкончанияДействия - Неопределено, Дата
// * ДатаОбновления - Неопределено, Дата
//
Функция ДанныеУдостоверяющегоЦентра(ЗначенияПоиска, АккредитованныеУдостоверяющиеЦентры) Экспорт
Результат = Неопределено;
// Локализация
Если АккредитованныеУдостоверяющиеЦентры = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
НайденПериодДействия = Неопределено;
НайденаДатаОкончанияДействия = Неопределено;
МассивПолейПоиска = СтрРазделить(ЗначенияПоиска, ",");
Государственный = Ложь;
Для Каждого ЗначениеПоиска Из МассивПолейПоиска Цикл
ПодготовленноеЗначениеПоиска = ПодготовитьЗначениеПоиска(ЗначениеПоиска);
Если НайденПериодДействия = Неопределено Тогда
НайденПериодДействия = АккредитованныеУдостоверяющиеЦентры.ПериодыДействия.Получить(ПодготовленноеЗначениеПоиска);
КонецЕсли;
Если НайденаДатаОкончанияДействия = Неопределено Тогда
НайденаДатаОкончанияДействия = АккредитованныеУдостоверяющиеЦентры.ДатыОкончанияДействия.Получить(ПодготовленноеЗначениеПоиска);
КонецЕсли;
Если Не Государственный И АккредитованныеУдостоверяющиеЦентры.ГосударственныеУЦ.Получить(ПодготовленноеЗначениеПоиска) <> Неопределено Тогда
Государственный = Истина;
КонецЕсли;
КонецЦикла;
Если НайденПериодДействия = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Государственный", Государственный);
Результат.Вставить("ПериодыДействия", НайденПериодДействия);
Результат.Вставить("ДатаОкончанияДействия", НайденаДатаОкончанияДействия);
Результат.Вставить("ДатаОбновления", АккредитованныеУдостоверяющиеЦентры.ДатаОбновления);
// Конец Локализация
Возврат Результат;
КонецФункции
// Локализация
Функция ПредставлениеСубъекта(Знач Сертификат, Знач Отчество)
@@ -239,62 +296,6 @@
КонецПроцедуры
Функция ДанныеУдостоверяющегоЦентра(ПоляПоиска, АккредитованныеУдостоверяющиеЦентры) Экспорт
Если АккредитованныеУдостоверяющиеЦентры = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
НайденПериодДействия = Неопределено;
НайденаДатаОкончанияДействия = Неопределено;
МассивПолейПоиска = СтрРазделить(ПоляПоиска, ",");
Государственный = Ложь;
Для Каждого ПолеПоиска Из МассивПолейПоиска Цикл
ПодготовленноеПолеПоиска = ПодготовитьПолеПоиска(ПолеПоиска);
Если НайденПериодДействия = Неопределено Тогда
НайденПериодДействия = АккредитованныеУдостоверяющиеЦентры.ПериодыДействия.Получить(ПодготовленноеПолеПоиска);
КонецЕсли;
Если НайденаДатаОкончанияДействия = Неопределено Тогда
НайденаДатаОкончанияДействия = АккредитованныеУдостоверяющиеЦентры.ДатыОкончанияДействия.Получить(ПодготовленноеПолеПоиска);
КонецЕсли;
Если Не Государственный И АккредитованныеУдостоверяющиеЦентры.ГосударственныеУЦ.Получить(ПодготовленноеПолеПоиска) <> Неопределено Тогда
Государственный = Истина;
КонецЕсли;
КонецЦикла;
Если НайденПериодДействия = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Государственный", Государственный);
Результат.Вставить("ПериодыДействия", НайденПериодДействия);
Результат.Вставить("ДатаОкончанияДействия", НайденаДатаОкончанияДействия);
Результат.Вставить("ДатаПроверкиОбновления", АккредитованныеУдостоверяющиеЦентры.ДатаПроверкиОбновления);
Возврат Результат;
КонецФункции
Функция ПодготовитьПолеПоиска(Знач ПолеПоиска) Экспорт
ПолеПоиска = ВРег(ПолеПоиска);
ПолеПоиска = СтрЗаменить(ПолеПоиска, """", "");
ПолеПоиска = СтрЗаменить(ПолеПоиска, "«", "");
ПолеПоиска = СтрЗаменить(ПолеПоиска, "»", "");
ПолеПоиска = СтрЗаменить(ПолеПоиска, "“", "");
ПолеПоиска = СтрЗаменить(ПолеПоиска, "”", "");
Возврат ПолеПоиска;
КонецФункции
Функция КонтекстПроверкиУдостоверяющегоЦентраСертификата() Экспорт
Структура = Новый Структура;
@@ -310,30 +311,43 @@
Функция ДанныеДляПроверкиУдостоверяющегоЦентра(Сертификат) Экспорт
Результат = Новый Структура("ПоляПоиска, НаименованиеУдостоверяющегоЦентра");
Результат = Новый Структура("ЗначенияПоиска, НаименованиеУдостоверяющегоЦентра");
СвойстваИздателя = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваИздателяСертификата(Сертификат);
Результат.НаименованиеУдостоверяющегоЦентра = СвойстваИздателя.ОбщееИмя;
ПоляПоиска = Новый Массив;
ЗначенияПоиска = Новый Массив;
Если СвойстваИздателя.Свойство("ОГРН") И ЗначениеЗаполнено(СвойстваИздателя.ОГРН) Тогда
ПоляПоиска.Добавить(СвойстваИздателя.ОГРН);
ЗначенияПоиска.Добавить(СвойстваИздателя.ОГРН);
КонецЕсли;
Если ЗначениеЗаполнено(СвойстваИздателя.ОбщееИмя) Тогда
ПоляПоиска.Добавить(СвойстваИздателя.ОбщееИмя);
ЗначенияПоиска.Добавить(СвойстваИздателя.ОбщееИмя);
КонецЕсли;
Если ПоляПоиска.Количество() > 0 Тогда
Результат.ПоляПоиска = СтрСоединить(ПоляПоиска, ",");
Если ЗначенияПоиска.Количество() > 0 Тогда
Результат.ЗначенияПоиска = СтрСоединить(ЗначенияПоиска, ",");
КонецЕсли;
Возврат Результат;
КонецФункции
Функция ПодготовитьЗначениеПоиска(Знач ЗначениеПоиска) Экспорт
ЗначениеПоиска = ВРег(ЗначениеПоиска);
ЗначениеПоиска = СтрЗаменить(ЗначениеПоиска, """", "");
ЗначениеПоиска = СтрЗаменить(ЗначениеПоиска, "«", "");
ЗначениеПоиска = СтрЗаменить(ЗначениеПоиска, "»", "");
ЗначениеПоиска = СтрЗаменить(ЗначениеПоиска, "“", "");
ЗначениеПоиска = СтрЗаменить(ЗначениеПоиска, "”", "");
Возврат ЗначениеПоиска;
КонецФункции
// Только для внутреннего использования.
// Возвращаемое значение:
// см. ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию
@@ -351,7 +365,7 @@
РезультатПроверкиУдостоверяющегоЦентра.Государственный = ДанныеУдостоверяющегоЦентра.Государственный;
НаДату = КонтекстПроверки.НаДату;
ДатаДляСравнения = НаДату + КонтекстПроверки.ДобавкаВремени;
ДатаДляСравнения = НаДату - КонтекстПроверки.ДобавкаВремени;
Количество = ДанныеУдостоверяющегоЦентра.ПериодыДействия.Количество();
@@ -370,7 +384,7 @@
Если ДатаДляСравнения > ПериодДействия.ДатаПо Тогда
РезультатПроверкиУдостоверяющегоЦентра.Действует = Ложь;
ДатаПрекращенияАккредитацииУЦ = ПериодДействия.ДатаПо;
ДатаПрекращенияАккредитацииУЦ = ПериодДействия.ДатаПо + КонтекстПроверки.ДобавкаВремени;
Прервать;
КонецЕсли;
@@ -383,14 +397,14 @@
ЭтоИндивидуальныйПредприниматель = ЗначениеЗаполнено(СвойстваСубъекта.ОГРНИП);
ЭтоФизическоеЛицо = Не ЭтоЮридическоеЛицо И Не ЭтоИндивидуальныйПредприниматель;
ДатаПрекращенияДействия = ДатаПрекращенияДействияСертификатовВыданныхКоммерческимиУЦ();
ДатаПрекращенияДействия = ДатаПрекращенияДействияСертификатовВыданныхКоммерческимиУЦ() + КонтекстПроверки.ДобавкаВремени;
// Аккредитация удостоверяющего центра прекращена.
Если Не РезультатПроверкиУдостоверяющегоЦентра.Действует Тогда
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Сертификат не действует с %1, так как аккредитация удостоверяющего центра %2, выдавшего сертификат, прекращена.'"),
Формат(ДатаПрекращенияАккредитацииУЦ, "ДЛФ=D"), КонтекстПроверки.НаименованиеУдостоверяющегоЦентра);
Формат(ДатаПрекращенияАккредитацииУЦ, "ДЛФ=DT"), КонтекстПроверки.НаименованиеУдостоверяющегоЦентра);
Если Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
@@ -425,16 +439,23 @@
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = Ложь;
Если НаДату < ДатаПрекращенияДействия Тогда
ТекстОшибки = НСтр("ru = 'После %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами %2.'");
Если ЭтоИндивидуальныйПредприниматель Тогда
ТекстОшибки = НСтр("ru = 'После %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
Иначе
ТекстОшибки = НСтр("ru = 'После %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
КонецЕсли;
ДатаПредупреждения = ДатаПрекращенияДействия;
Иначе
ТекстОшибки = НСтр("ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами %2.'");
Если ЭтоИндивидуальныйПредприниматель Тогда
ТекстОшибки = НСтр("ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
Иначе
ТекстОшибки = НСтр("ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
КонецЕсли;
КонецЕсли;
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ТекстОшибки,
Формат(ДатаПрекращенияДействия, "ДЛФ=D"),
?(ЭтоИндивидуальныйПредприниматель, НСтр("ru = 'индивидуальным предпринимателям'"), НСтр("ru = 'юридическим лицам и их сотрудникам'")));
Формат(ДатаПрекращенияДействия, "ДЛФ=DT"));
Если Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.Решение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -457,14 +478,18 @@
КонецЕсли;
// Аккредитация удостоверяющего центра скоро закончится.
Если ЗначениеЗаполнено(ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия)
И (ДатаПредупреждения = Неопределено Или ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия < ДатаПредупреждения) Тогда
Если ЗначениеЗаполнено(ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия) Тогда
ДатаПредупреждения = ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия;
ДатаОкончанияДействия = ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия + КонтекстПроверки.ДобавкаВремени;
Если ДатаОкончанияДействия > НаДату
И (ДатаПредупреждения = Неопределено Или ДатаОкончанияДействия < ДатаПредупреждения) Тогда
ДатаПредупреждения = ДатаОкончанияДействия;
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'После %1 нельзя будет подписывать документы этим сертификатом, так как аккредитация удостоверяющего центра %2, выдавшего сертификат, будет прекращена.'"),
Формат(ДанныеУдостоверяющегоЦентра.ДатаОкончанияДействия, "ДЛФ=D"), КонтекстПроверки.НаименованиеУдостоверяющегоЦентра);
Формат(ДатаОкончанияДействия, "ДЛФ=DT"), КонтекстПроверки.НаименованиеУдостоверяющегоЦентра);
ВозможенПеревыпуск = ВозможенПеревыпускСертификата(НаДату, ЭтоФизическоеЛицо, ДатаПрекращенияДействия);
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = ВозможенПеревыпуск;
@@ -479,13 +504,15 @@
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Срок действия сертификата скоро закончится.
Если СвойстваСертификата.ДействителенДо <= НаДату + КоличествоДнейДляОповещенияОбОкончанииСрокаДействия()*24*60*60
И (ДатаПредупреждения = Неопределено Или СвойстваСертификата.ДействителенДо < ДатаПредупреждения)Тогда
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'После %1 нельзя будет подписывать документы этим сертификатом, так как срок действия сертификата закончится.'"),
Формат(СвойстваСертификата.ДействителенДо, "ДЛФ=D"));
Формат(СвойстваСертификата.ДействителенДо, "ДЛФ=DT"));
ВозможенПеревыпуск = ВозможенПеревыпускСертификата(НаДату, ЭтоФизическоеЛицо, ДатаПрекращенияДействия);
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = ВозможенПеревыпуск;
@@ -512,11 +539,10 @@
Функция ДатаПрекращенияДействияСертификатовВыданныхКоммерческимиУЦ()
Возврат Дата(2023, 1, 1);
Возврат Дата(2023, 1, 1) - 3*60*60; // Универсальное время относительно московского.
КонецФункции
Функция СсылкаНаСтатьюОбУдостоверяющихЦентрах() Экспорт
Возврат "https://its.1c.ru/db/eldocs#content:110:hdoc";
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебный/Module.bsl
+53 -45
View File
@@ -396,24 +396,27 @@
//
Функция РезультатПроверкиУдостоверяющегоЦентраСертификата(СертификатКриптографии, НаДату = Неопределено, ЭтоПроверкаПодписи = Ложь) Экспорт
Результат = ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
// Локализация
Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") = Неопределено
Или ЭлектроннаяПодписьСлужебныйПовтИсп.АккредитованныеУдостоверяющиеЦентры() = Неопределено Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Возврат Результат;
КонецЕсли;
МодульЭлектроннаяПодписьКлиентСерверЛокализация = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьКлиентСерверЛокализация");
ДанныеДляПроверкиУдостоверяющегоЦентра = МодульЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеДляПроверкиУдостоверяющегоЦентра(
СертификатКриптографии);
Если ДанныеДляПроверкиУдостоверяющегоЦентра.ПоляПоиска = Неопределено Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Если ДанныеДляПроверкиУдостоверяющегоЦентра.ЗначенияПоиска = Неопределено Тогда
Возврат Результат;
КонецЕсли;
ДанныеУдостоверяющегоЦентра = ЭлектроннаяПодписьСлужебныйПовтИсп.ДанныеУдостоверяющегоЦентра(
ДанныеДляПроверкиУдостоверяющегоЦентра.ПоляПоиска);
ДанныеДляПроверкиУдостоверяющегоЦентра.ЗначенияПоиска);
Если ДанныеУдостоверяющегоЦентра = Неопределено Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Возврат Результат;
КонецЕсли;
КонтекстПроверки = МодульЭлектроннаяПодписьКлиентСерверЛокализация.КонтекстПроверкиУдостоверяющегоЦентраСертификата();
@@ -434,6 +437,8 @@
Результат.Предупреждение.Решение = СтроковыеФункции.ФорматированнаяСтрока(Результат.Предупреждение.Решение);
КонецЕсли;
// Конец Локализация
Возврат Результат;
КонецФункции
@@ -892,6 +897,13 @@
СоответствиеИменПсевдонимам.Вставить(Метаданные.РегламентныеЗадания.ПродлениеДостоверностиПодписей.ИмяМетода);
Если Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено Тогда
ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата =
ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(
"Обработка.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата");
ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам)
КонецЕсли;
КонецПроцедуры
// См. ЗагрузкаДанныхИзФайлаПереопределяемый.ПриОпределенииСправочниковДляЗагрузкиДанных.
@@ -979,7 +991,8 @@
Возврат;
КонецЕсли;
ЗагрузитьДанныеАккредитованныхУЦ(Версия, Адрес, Обработан, ДополнительныеПараметры);
МодульЭлектроннаяПодписьСлужебныйЛокализация = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебныйЛокализация");
МодульЭлектроннаяПодписьСлужебныйЛокализация.ЗагрузитьДанныеАккредитованныхУЦ(Версия, Адрес, Обработан, ДополнительныеПараметры);
КонецПроцедуры
@@ -994,14 +1007,14 @@
// Возвращаемое значение:
// Строка - идентификатор классификатора.
//
Функция ИдентификаторКлассификатора() Экспорт
Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Функция ИдентификаторКлассификатора()
МодульЭлектроннаяПодписьСлужебныйЛокализация = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебныйЛокализация");
Если МодульЭлектроннаяПодписьСлужебныйЛокализация <> Неопределено Тогда
Возврат МодульЭлектроннаяПодписьСлужебныйЛокализация.ИдентификаторКлассификатора();
КонецЕсли;
Возврат Неопределено;
КонецФункции
@@ -1018,17 +1031,6 @@
КонецФункции
Процедура ЗагрузитьДанныеАккредитованныхУЦ(Версия, Адрес, Обработан, ДополнительныеПараметры) Экспорт
Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") = Неопределено Тогда
Возврат;
КонецЕсли;
МодульЭлектроннаяПодписьСлужебныйЛокализация = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебныйЛокализация");
МодульЭлектроннаяПодписьСлужебныйЛокализация.ЗагрузитьДанныеАккредитованныхУЦ(Версия, Адрес, Обработан, ДополнительныеПараметры);
КонецПроцедуры
// Возвращает дополнительные параметры создания менеджера криптографии.
//
// Возвращаемое значение:
@@ -1444,40 +1446,39 @@
Процедура ЗаполнитьСписокТиповПодписейКриптографии(СписокВыбора, Операция = Неопределено, ТипПодписи = Неопределено) Экспорт
СписокВыбора.Очистить();
Если (ТипПодписи = Неопределено Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES) И Операция <> "Усовершенствование" Тогда
СписокВыбора.Добавить(Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Базовая подпись (%1)
Если Операция <> "Усовершенствование"
И (Не ЗначениеЗаполнено(ТипПодписи) Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES) Тогда
СписокВыбора.Добавить(Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Базовая подпись (%1)
|становится недействительной после окончания срока действия сертификата подписанта (обычно в течение 1 года).'"),
"CAdES-BES"));
КонецЕсли;
РазделениеВключено = ОбщегоНазначения.РазделениеВключено();
ДобавитьТипПодписи = Ложь;
Если РазделениеВключено Тогда
ЭтоМодельСервисаСДоступнымУсовершенствованием =
ЭлектроннаяПодпись.ОбщиеНастройки().ЭтоМодельСервисаСДоступнымУсовершенствованием;
ЭтоМодельСервисаСДоступнымУсовершенствованием = ЭлектроннаяПодпись.ОбщиеНастройки().ЭтоМодельСервисаСДоступнымУсовершенствованием;
ДобавитьТипПодписи = ЭтоМодельСервисаСДоступнымУсовершенствованием Или Не Операция = "Настройки";
Иначе
Если ТипПодписи = Неопределено
Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST
И Операция <> "Усовершенствование"
Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES Тогда
Если Не ЗначениеЗаполнено(ТипПодписи) Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST
И Операция <> "Усовершенствование" Или ТипПодписи = Перечисления.ТипыПодписиКриптографии.БазоваяCAdESBES Тогда
ДобавитьТипПодписи = Истина;
КонецЕсли;
КонецЕсли;
Если ДобавитьТипПодписи Тогда
СписокВыбора.Добавить(Перечисления.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Подпись с меткой доверенного времени (%1)
|действует после окончания срока действия сертификата подписанта.'"),
"CAdES-T"));
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Подпись с меткой доверенного времени (%1)
|действует после окончания срока действия сертификата подписанта.'"), "CAdES-T"));
КонецЕсли;
Если Операция = Неопределено
Или Не (РазделениеВключено И Операция = "Настройки")
Тогда
Если Операция = Неопределено Или Не (РазделениеВключено И Операция = "Настройки") Тогда
СписокВыбора.Добавить(Перечисления.ТипыПодписиКриптографии.АрхивнаяCAdESAv3,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Архивная подпись (%1)
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Архивная подпись (%1)
|содержит полный набор доказательств подлинности, в том числе цепочку сертификатов, и автоматически продлевается.'"),
"CAdES-A"));
КонецЕсли;
@@ -2304,8 +2305,7 @@
Прервать;
КонецЕсли;
Выборка = РезультатЗапроса.Выбрать();
УсовершенствоватьРегламентнымЗаданием(
Выборка, ПараметрыВыполнения);
УсовершенствоватьРегламентнымЗаданием(Выборка, ПараметрыВыполнения);
КонецЦикла;
КонецПроцедуры
@@ -2638,18 +2638,21 @@
Если Результат.Успех Тогда
Если Параметры.ЭлементДанныхДляСервера.Свойство("ПодписанныйОбъект") Тогда
Результат.СвойстваПодписи.ПодписанныйОбъект = Параметры.ЭлементДанныхДляСервера.ПодписанныйОбъект;
Результат.СвойстваПодписи.ПорядковыйНомер = Параметры.ЭлементДанныхДляСервера.ПорядковыйНомер;
ПредставлениеОшибки = ОбновитьУсовершенствованнуюПодпись(
Результат.СвойстваПодписи);
ПредставлениеОшибки = ОбновитьУсовершенствованнуюПодпись(Результат.СвойстваПодписи);
Если ЗначениеЗаполнено(ПредставлениеОшибки) Тогда
Результат.Успех = Ложь;
Результат.ТекстОшибки = ПредставлениеОшибки;
Возврат Результат;
КонецЕсли;
Если ЗначениеЗаполнено(Результат.СвойстваПодписи.Подпись) Тогда
ЗарегистрироватьУсовершенствованиеПодписиВЖурнале(Результат.СвойстваПодписи);
КонецЕсли;
КонецЕсли;
Иначе
Возврат Результат;
@@ -2678,11 +2681,12 @@
Параметры.ЭлементДанныхДляСервера.ПорядковыйНомер, Параметры.ТипПодписи,
Параметры.ДобавитьАрхивнуюМеткуВремени, Параметры.ИдентификаторФормы, МенеджерКриптографии);
Иначе
РезультатЗапроса = ЭлектроннаяПодпись.УсовершенствоватьПодпись(Подпись,
Параметры.ТипПодписи,
РезультатЗапроса = ЭлектроннаяПодпись.УсовершенствоватьПодпись(Подпись, Параметры.ТипПодписи,
Параметры.ДобавитьАрхивнуюМеткуВремени, МенеджерКриптографии);
КонецЕсли;
ЗаполнитьЗначенияСвойств(Результат, РезультатЗапроса);
КонецЕсли;
Если Не Результат.Успех Тогда
@@ -3812,6 +3816,10 @@
И Не СертификатПеревыпущен(Форма.Сертификат);
КонецЕсли;
Если ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Форма, "РезультатПроверкиУдостоверяющегоЦентра") Тогда
Форма.РезультатПроверкиУдостоверяющегоЦентра = РезультатПроверкиУдостоверяющегоЦентраСертификата(Сертификат);
КонецЕсли;
Форма.СертификатНаСервереОписаниеОшибки = Новый Структура;
Если Не ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйВызовСервера/Module.bsl
+7 -3
View File
@@ -359,10 +359,14 @@
Если Параметры.Операция = "Подписание" Тогда
МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = Параметры.ЗначениеПароля;
Попытка
Если ЭлектроннаяПодпись.ДоступнаУсовершенствованнаяПодпись() И ЗначениеЗаполнено(Параметры.ТипПодписи) Тогда
МенеджерКриптографии.АдресаСерверовМетокВремени = ЭлектроннаяПодпись.ОбщиеНастройки().АдресаСерверовМетокВремени;
Если ЭлектроннаяПодпись.ДоступнаУсовершенствованнаяПодпись() Тогда
НастройкиПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.НастройкиСозданияПодписи(Параметры.ТипПодписи,
ЭлектроннаяПодпись.ОбщиеНастройки().АдресаСерверовМетокВремени);
Если ЗначениеЗаполнено(НастройкиПодписи.АдресаСерверовМетокВремени) Тогда
МенеджерКриптографии.АдресаСерверовМетокВремени = НастройкиПодписи.АдресаСерверовМетокВремени;
КонецЕсли;
ДвоичныеДанныеРезультата = МенеджерКриптографии.Подписать(Данные, СертификатКриптографии,
ЭлектроннаяПодписьСлужебныйКлиентСервер.ТипПодписиКриптографии(Параметры.ТипПодписи));
НастройкиПодписи.ТипПодписи);
Иначе
ДвоичныеДанныеРезультата = МенеджерКриптографии.Подписать(Данные, СертификатКриптографии);
КонецЕсли;
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйКлиент/Module.bsl
+82 -71
View File
@@ -294,25 +294,6 @@
КонецПроцедуры
// Продолжение процедуры ДатаПодписания.
Процедура ДатаПодписанияПослеЧтенияВБуферДвоичныхДанных(БуферДанныхПодписи, Контекст) Экспорт
ДатаПодписания = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписанияУниверсальная(БуферДанныхПодписи);
Если ДатаПодписания = Неопределено Тогда
ВыполнитьОбработкуОповещения(Контекст.Оповещение, Неопределено);
Возврат;
КонецЕсли;
Если Контекст.ПривестиКЧасовомуПоясуСеанса Тогда
ДатаПодписания = ДатаПодписания + (ОбщегоНазначенияКлиент.ДатаСеанса()
- ОбщегоНазначенияКлиент.ДатаУниверсальная());
КонецЕсли;
ВыполнитьОбработкуОповещения(Контекст.Оповещение, ДатаПодписания);
КонецПроцедуры
// Продолжение процедуры НайтиДействительныеЛичныеСертификаты.
Процедура НайтиДействительныеЛичныеСертификаты(Оповещение, Отбор = Неопределено) Экспорт
@@ -1240,24 +1221,75 @@
Возврат;
КонецЕсли;
Если Контекст.Свойство("ПроверитьСертификатНаКлиенте") Тогда
МенеджерКриптографии = Контекст.МенеджерКриптографии;
Иначе
МенеджерДляПолученияДатыПодписи = Контекст.МенеджерКриптографии;
Если Не Контекст.Свойство("ПроверитьСертификатНаКлиенте") Тогда
// Проверка сертификата на сервере и на клиенте.
МенеджерКриптографии = Неопределено;
Контекст.Вставить("МенеджерКриптографии", Неопределено);
КонецЕсли;
Контекст.Вставить("Сертификат", Сертификат);
Контекст.Вставить("МенеджерКриптографии", МенеджерКриптографии);
ЭлектроннаяПодписьКлиент.ДатаПодписания(
Новый ОписаниеОповещения("ПроверитьПодписьНаКлиентеПослеПолученияДатыПодписания", ЭтотОбъект, Контекст),
Контекст.ДанныеПодписи);
Если ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ДоступнаУсовершенствованнаяПодпись
И ТипЗнч(МенеджерДляПолученияДатыПодписи) = Тип("МенеджерКриптографии") Тогда
Оповещение = Новый ОписаниеОповещения(
"ПроверитьПодписьНаКлиентеПослеПолученияКонтейнераПодписи", ЭтотОбъект, Контекст,
"ПроверитьПодписьНаКлиентеПослеОшибкиПолученияКонтейнераПодписиНаКлиенте", ЭтотОбъект);
МенеджерДляПолученияДатыПодписи.НачатьПолучениеКонтейнераПодписейКриптографии(Оповещение, Контекст.ДанныеПодписи);
Иначе
СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписиИзДвоичныхДанных(Контекст.ДанныеПодписи);
Если Не СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().РазделениеВключено
И ТипЗнч(МенеджерДляПолученияДатыПодписи) = Тип("МенеджерКриптографии") Тогда
Если СвойстваПодписи.ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.БазоваяCAdESBES")
И СвойстваПодписи.ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST")
И СвойстваПодписи.ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.ОбычнаяCMS")
И СвойстваПодписи.ТипПодписи <> Неопределено Тогда
ТекстОповещения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = '%1: Для проверки подписей этого типа требуется версия платформы 1С:Предприятие выше 8.3.20.1838 или 8.3.21.1302.'"),
СвойстваПодписи.ТипПодписи);
ПоказатьОповещениеПользователя(НСтр("ru = 'Для корректной проверки подписей требуется обновление платформы.'"),,
ТекстОповещения,БиблиотекаКартинок.Предупреждение32, СтатусОповещенияПользователя.Важное,
"ОбновлениеПлатформыДляПроверкиПодписей");
КонецЕсли;
КонецЕсли;
ДатаПодписания = ?(ЗначениеЗаполнено(СвойстваПодписи.ДатаШтампаВремени),
СвойстваПодписи.ДатаШтампаВремени, СвойстваПодписи.ДатаПодписания);
ПроверитьПодписьНаКлиентеПослеПолученияДатыПодписания(ДатаПодписания, Контекст);
КонецЕсли;
КонецПроцедуры
// Продолжение процедуры ПроверитьПодпись.
Процедура ПроверитьПодписьНаКлиентеПослеПолученияДатыПодписания(ДатаПодписания, Контекст) Экспорт
Процедура ПроверитьПодписьНаКлиентеПослеПолученияКонтейнераПодписи(КонтейнерПодписи, Контекст) Экспорт
ДатаСеанса = ОбщегоНазначенияКлиент.ДатаСеанса();
ДобавкаВремени = ДатаСеанса - ОбщегоНазначенияКлиент.ДатаУниверсальная();
ПараметрыПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ПараметрыПодписиКриптографии(
КонтейнерПодписи, ДобавкаВремени, ДатаСеанса);
ДатаПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ДатаПодписиИзПараметровПодписи(ПараметрыПодписи);
ПроверитьПодписьНаКлиентеПослеПолученияДатыПодписания(ДатаПодписи, Контекст);
КонецПроцедуры
// Продолжение процедуры ПроверитьПодпись.
Процедура ПроверитьПодписьНаКлиентеПослеОшибкиПолученияКонтейнераПодписиНаКлиенте(ИнформацияОбОшибке, СтандартнаяОбработка,
Контекст) Экспорт
СтандартнаяОбработка = Ложь;
ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
ВыполнитьОбработкуОповещения(Контекст.Оповещение, ТекстОшибки);
КонецПроцедуры
// Продолжение процедуры ПроверитьПодпись.
Процедура ПроверитьПодписьНаКлиентеПослеПолученияДатыПодписания(ДатаПодписания, Контекст)
Если Не ЗначениеЗаполнено(ДатаПодписания) Тогда
ДатаПодписания = Контекст.НаДату;
@@ -1617,8 +1649,11 @@
Функция РезультатПроверкиУдостоверяющегоЦентраСертификата(СертификатКриптографии, НаДату = Неопределено, ЭтоПроверкаПодписи = Ложь) Экспорт
Результат = ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
// Локализация
Если Не ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ДоступнаПроверкаПоСпискуУЦ Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Возврат Результат;
КонецЕсли;
МодульЭлектроннаяПодписьКлиентСерверЛокализация = ОбщегоНазначенияКлиент.ОбщийМодуль(
@@ -1627,17 +1662,15 @@
ДанныеДляПроверкиУдостоверяющегоЦентра = МодульЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеДляПроверкиУдостоверяющегоЦентра(
СертификатКриптографии);
Если ДанныеДляПроверкиУдостоверяющегоЦентра.ПоляПоиска = Неопределено Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Если ДанныеДляПроверкиУдостоверяющегоЦентра.ЗначенияПоиска = Неопределено Тогда
Возврат Результат;
КонецЕсли;
ДанныеУдостоверяющегоЦентра = ЭлектроннаяПодписьСлужебныйКлиентПовтИсп.ДанныеУдостоверяющегоЦентра(
ДанныеДляПроверкиУдостоверяющегоЦентра.ПоляПоиска);
ДанныеДляПроверкиУдостоверяющегоЦентра.ЗначенияПоиска);
Если ДанныеУдостоверяющегоЦентра = Неопределено Тогда
Возврат ЭлектроннаяПодписьСлужебныйКлиентСервер.РезультатПроверкиУдостоверяющегоЦентраПоУмолчанию();
Возврат Результат;
КонецЕсли;
КонтекстПроверки = МодульЭлектроннаяПодписьКлиентСерверЛокализация.КонтекстПроверкиУдостоверяющегоЦентраСертификата();
@@ -1660,6 +1693,8 @@
Результат.Предупреждение.Решение);
КонецЕсли;
// Конец Локализация
Возврат Результат;
КонецФункции
@@ -2479,6 +2514,8 @@
ДополнительныеДанные.Вставить("НеподписанныеДанные");
ДополнительныеДанные.Вставить("Сертификат");
ДополнительныеДанные.Вставить("Подпись");
ДополнительныеДанные.Вставить("ДополнительныеДанныеПроверокНаКлиенте");
ДополнительныеДанные.Вставить("ДополнительныеДанныеПроверокНаСервере");
Если ТипЗнч(ДополнительныеПараметры) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(ПараметрыФормы, ДополнительныеПараметры);
@@ -4127,7 +4164,14 @@
МодульСервисКриптографииКлиент.Подписать(Оповещение, Данные, СертификатДляПодписи, , ПараметрыОперации);
Иначе
Если ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ДоступнаУсовершенствованнаяПодпись Тогда
НастройкиПодписи = НастройкиПодписания(Контекст.ОписаниеДанных.ТипПодписи);
Попытка
НастройкиПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.НастройкиСозданияПодписи(
Контекст.ОписаниеДанных.ТипПодписи,
ЭлектроннаяПодписьКлиент.ОбщиеНастройки().АдресаСерверовМетокВремени);
Исключение
ВыполнитьНаСторонеЦиклПослеОшибкиОперацииНаКлиенте(ИнформацияОбОшибке(), Ложь, Контекст);
Возврат;
КонецПопытки;
Если ЗначениеЗаполнено(НастройкиПодписи.АдресаСерверовМетокВремени) Тогда
МенеджерКриптографии.АдресаСерверовМетокВремени = НастройкиПодписи.АдресаСерверовМетокВремени;
КонецЕсли;
@@ -4179,9 +4223,10 @@
АдресРезультата = Неопределено;
Если Контекст.Операция = "Подписание" Тогда
ПараметрыДляСервера.Вставить("ТипПодписи", Контекст.ОписаниеДанных.ТипПодписи);
ПараметрыДляСервера.Вставить("Комментарий", Контекст.Форма.Комментарий);
ПараметрыДляСервера.Вставить("ЗначениеПароля", Контекст.ЗначениеПароля);
ПараметрыДляСервера.Вставить("ТипПодписи", Контекст.ОписаниеДанных.ТипПодписи);
Если Контекст.ЭлементДанных.Свойство("Объект")
И Не ТипЗнч(Контекст.ЭлементДанных.Объект) = Тип("ОписаниеОповещения") Тогда
@@ -6827,39 +6872,6 @@
КонецФункции
Функция НастройкиПодписания(ТипПодписи)
Если Не ЗначениеЗаполнено(ТипПодписи) Тогда
Возврат Неопределено;
КонецЕсли;
Результат = Новый Структура("ТипПодписи, АдресаСерверовМетокВремени");
Результат.АдресаСерверовМетокВремени = Новый Массив;
Результат.ТипПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.ТипПодписиКриптографии(ТипПодписи);
Если ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СПолнымНаборомПроверочныхДанныхCAdESC")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.РасширеннаяДолгосрочнаяCAdESXLongType2")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.АрхивнаяCAdESAv3") Тогда
АдресаСерверовМетокВремени = ЭлектроннаяПодписьКлиент.ОбщиеНастройки().АдресаСерверовМетокВремени;
Если АдресаСерверовМетокВремени.Количество() = 0 Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Для подписания в формате %1 заполните адреса серверов штампов времени.'"), ТипПодписи);
КонецЕсли;
Результат.АдресаСерверовМетокВремени = АдресаСерверовМетокВремени;
ИначеЕсли ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.БазоваяCAdESBES")
И ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.ОбычнаяCMS") Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Тип подписи криптографии %1 не поддерживается.'"), ТипПодписи);
КонецЕсли;
Возврат Результат;
КонецФункции
#Область ДобавлениеСертификата
// Продолжение процедуры ЭлектроннаяПодписьКлиент.ДобавитьСертификат.
@@ -7841,7 +7853,6 @@
КонецПроцедуры
// Описание
//
// Параметры:
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйКлиентПовтИсп/Module.bsl
+2 -2
View File
@@ -14,7 +14,7 @@
КонецФункции
Функция ДанныеУдостоверяющегоЦентра(ПоляПоиска) Экспорт
Функция ДанныеУдостоверяющегоЦентра(ЗначенияПоиска) Экспорт
АккредитованныеУдостоверяющиеЦентры = ЭлектроннаяПодписьСлужебныйКлиентПовтИсп.АккредитованныеУдостоверяющиеЦентры();
Если АккредитованныеУдостоверяющиеЦентры = Неопределено Тогда
@@ -22,7 +22,7 @@
КонецЕсли;
МодульЭлектроннаяПодписьКлиентСерверЛокализация = ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиентСерверЛокализация");
Возврат МодульЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеУдостоверяющегоЦентра(ПоляПоиска, АккредитованныеУдостоверяющиеЦентры);
Возврат МодульЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеУдостоверяющегоЦентра(ЗначенияПоиска, АккредитованныеУдостоверяющиеЦентры);
КонецФункции
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйКлиентСервер/Module.bsl
+421 -68
View File
@@ -992,7 +992,7 @@
// * УстановившийПодпись - СправочникСсылка.Пользователи
// * Комментарий - Строка
// * ИмяФайлаПодписи - Строка
// * ДатаПодписи - Дата
// * ДатаПодписи - Дата - дата подписи неподтвержденная
// * ДатаПроверкиПодписи - Дата
// * ПодписьВерна - Булево
// * Сертификат - ДвоичныеДанные
@@ -1000,6 +1000,8 @@
// * КомуВыданСертификат - Строка
// * ТипПодписи - ПеречислениеСсылка.ТипыПодписиКриптографии
// * СрокДействияПоследнейМеткиВремени - Дата
// * ДатаПодписиИзМетки - Дата
// * НеподтвержденнаяДатаПодписи - Дата
//
Функция СвойстваПодписи(ДвоичныеДанныеПодписи, СвойстваСертификата, Комментарий,
АвторизованныйПользователь, ИмяФайлаПодписи = "", ПараметрыПодписи = Неопределено) Экспорт
@@ -1016,12 +1018,17 @@
СвойстваПодписи.Вставить("Сертификат", СвойстваСертификата.ДвоичныеДанные);
СвойстваПодписи.Вставить("Отпечаток", СвойстваСертификата.Отпечаток);
СвойстваПодписи.Вставить("КомуВыданСертификат", СвойстваСертификата.КомуВыдан);
СвойстваПодписи.Вставить("ТипПодписи");
СвойстваПодписи.Вставить("СрокДействияПоследнейМеткиВремени");
СвойстваПодписи.Вставить("ДатаПодписиИзМетки");
СвойстваПодписи.Вставить("НеподтвержденнаяДатаПодписи");
Если ПараметрыПодписи <> Неопределено Тогда
СвойстваПодписи.Вставить("ТипПодписи", ПараметрыПодписи.ТипПодписи);
СвойстваПодписи.Вставить("СрокДействияПоследнейМеткиВремени", ПараметрыПодписи.СрокДействияПоследнейМеткиВремени);
СвойстваПодписи.Вставить("ДатаПодписиИзМетки", ПараметрыПодписи.ДатаПодписиИзМетки);
СвойстваПодписи.Вставить("НеподтвержденнаяДатаПодписи", ПараметрыПодписи.НеподтвержденнаяДатаПодписи);
КонецЕсли;
Возврат СвойстваПодписи;
@@ -1055,6 +1062,25 @@
КонецФункции
// Только для внутреннего использования.
// Возвращаемое значение:
// Дата, Неопределено
//
Функция ДатаПодписиИзПараметровПодписи(ПараметрыПодписи) Экспорт
Если ЗначениеЗаполнено(ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
ПараметрыПодписи, "ДатаПодписиИзМетки", Неопределено)) Тогда
Возврат ПараметрыПодписи.ДатаПодписиИзМетки;
КонецЕсли;
Если ЗначениеЗаполнено(ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
ПараметрыПодписи, "НеподтвержденнаяДатаПодписи", Неопределено)) Тогда
Возврат ПараметрыПодписи.НеподтвержденнаяДатаПодписи;
КонецЕсли;
Возврат Неопределено;
КонецФункции
// Только для внутреннего использования.
//
@@ -1178,6 +1204,41 @@
КонецФункции
// Только для внутреннего использования.
Функция НастройкиСозданияПодписи(ТипПодписи, АдресаСерверовМетокВремени) Экспорт
Результат = Новый Структура("ТипПодписи, АдресаСерверовМетокВремени");
Результат.АдресаСерверовМетокВремени = АдресаСерверовМетокВремени;
Если Не ЗначениеЗаполнено(ТипПодписи) Тогда
Результат.ТипПодписи = ТипПодписиКриптографии(
ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.БазоваяCAdESBES"));
Возврат Результат;
КонецЕсли;
Если ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СПолнымНаборомПроверочныхДанныхCAdESC")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.РасширеннаяДолгосрочнаяCAdESXLongType2")
Или ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.АрхивнаяCAdESAv3") Тогда
Если Результат.АдресаСерверовМетокВремени.Количество() = 0 Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Для создания подписи типа ""%1"" заполните адреса серверов штампов времени.'"), ТипПодписи);
КонецЕсли;
ИначеЕсли ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.БазоваяCAdESBES")
И ТипПодписи <> ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.ОбычнаяCMS") Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Создание подписи типа ""%1"" не поддерживается.'"), ТипПодписи);
КонецЕсли;
Результат.ТипПодписи = ТипПодписиКриптографии(ТипПодписи);
Возврат Результат;
КонецФункции
// Только для внутреннего использования.
Функция ПодлежитУсовершенствованию(ТипПодписи, НовыйТипПодписи) Экспорт
@@ -1310,30 +1371,375 @@
КонецФункции
// Только для внутреннего использования.
Функция ДатаПодписанияУниверсальная(БуферДвоичныхДанныхПодписи) Экспорт
Функция ДатаПодписанияУниверсальная(Данные) Экспорт
ДатаПодписания = Неопределено;
ДвоичныеДанные = ДвоичныеДанныеИзДанных(Данные,
"ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмПодписи");
АнализДанных = НовыйАнализДанных(ДвоичныеДанные);
// SEQUENCE (PKCS #7 ContentInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// OBJECT IDENTIFIER (contentType).
ПропуститьНачалоБлока(АнализДанных, 0, 6);
// 1.2.840.113549.1.7.2 signedData (PKCS #7).
ПроверитьДанныеБлока(АнализДанных, "2A864886F70D010702");
ПропуститьРодительскийБлок(АнализДанных);
// [0]CS (content [0] EXPLICIT ANY DEFINED BY contentType OPTIONAL).
ПропуститьНачалоБлока(АнализДанных, 2, 0);
// SEQUENCE (content SignedData).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER (version Version).
ПропуститьБлок(АнализДанных, 0, 2);
// SET (digestAlgorithms DigestAlgorithmIdentifiers).
ПропуститьБлок(АнализДанных, 0, 17);
// SEQUENCE (contentInfo ContentInfo).
ПропуститьБлок(АнализДанных, 0, 16);
// [0]CS (certificates [0] IMPLICIT ExtendedCertificatesAndCertificates OPTIONAL).
ПропуститьБлок(АнализДанных, 2, 0, Ложь);
// [1]CS (crls [1] IMPLICIT CertificateRevocationLists OPTIONAL).
ПропуститьБлок(АнализДанных, 2, 1, Ложь);
// SET (signerInfos SET OF SignerInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 17);
// SEQUENCE (signerInfo SignerInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER (version Version).
ПропуститьБлок(АнализДанных, 0, 2);
// SEQUENCE (issuerAndSerialNumber IssuerAndSerialNumber).
ПропуститьБлок(АнализДанных, 0, 16);
// SEQUENCE (digestAlgorithm DigestAlgorithmIdentifier).
ПропуститьБлок(АнализДанных, 0, 16);
// [0]CS (authenticatedAttributes [0] IMPLICIT Attributes OPTIONAL).
ПропуститьНачалоБлока(АнализДанных, 2, 0);
Если АнализДанных.ЕстьОшибка Тогда
Возврат Неопределено;
КонецЕсли;
СмещениеСледующего = АнализДанных.Родители[0].СмещениеСледующего;
Пока АнализДанных.Смещение < СмещениеСледующего Цикл
// SEQUENCE (Attributes).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
Если АнализДанных.ЕстьОшибка Тогда
Возврат Неопределено;
КонецЕсли;
// OBJECT IDENTIFIER
ПропуститьНачалоБлока(АнализДанных, 0, 6);
РазмерДанных = АнализДанных.Родители[0].РазмерДанных;
Если РазмерДанных = 0 Тогда
ПриОшибкеСтруктурыДанных(АнализДанных);
Возврат Неопределено;
КонецЕсли;
Если РазмерДанных = 9 Тогда
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение, РазмерДанных); // БуферДвоичныхДанных
СтрокаБуфера = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер);
Если СтрокаБуфера = "2A864886F70D010905" Тогда // 1.2.840.113549.1.9.5 signingTime
ДатаПодписания = ПрочитатьДатуПодписанияИзБуфера(АнализДанных.Буфер, АнализДанных.Смещение + 11);
Если ЗначениеЗаполнено(ДатаПодписания) Тогда
Возврат ДатаПодписания;
Иначе
Возврат Неопределено;
КонецЕсли;
Позиция = 0;
Для Каждого Байт Из БуферДвоичныхДанныхПодписи Цикл
Если Байт = 15 И ЭтоЗаголовокДаты(БуферДвоичныхДанныхПодписи, Позиция) Тогда
ДатаСтрокой = ДатаСтрокой(БуферДвоичныхДанныхПодписи, Позиция);
Если ЭтоЦифры(ДатаСтрокой) Тогда
Попытка
ДатаПодписания = Дата("20" + ДатаСтрокой); // Универсальное время.
Прервать;
Исключение
ДатаПодписания = Неопределено;
КонецПопытки;
КонецЕсли;
КонецЕсли;
Позиция = Позиция + 1;
ПропуститьРодительскийБлок(АнализДанных); // OBJECT IDENTIFIER
ПропуститьРодительскийБлок(АнализДанных); // SEQUENCE
КонецЦикла;
Возврат Неопределено;
КонецФункции
// Только для внутреннего использования.
Функция СвойстваПодписиИзДвоичныхДанных(Данные) Экспорт
СвойстваПодписи = Новый Структура("ТипПодписи, ДатаПодписания, ДатаШтампаВремени",
ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.ОбычнаяCMS"), Неопределено, Неопределено);
ДвоичныеДанные = ДвоичныеДанныеИзДанных(Данные,
"ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмПодписи");
АнализДанных = НовыйАнализДанных(ДвоичныеДанные);
// SEQUENCE (PKCS #7 ContentInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// OBJECT IDENTIFIER (contentType).
ПропуститьНачалоБлока(АнализДанных, 0, 6);
// 1.2.840.113549.1.7.2 signedData (PKCS #7).
ПроверитьДанныеБлока(АнализДанных, "2A864886F70D010702");
ПропуститьРодительскийБлок(АнализДанных);
// [0]CS (content [0] EXPLICIT ANY DEFINED BY contentType OPTIONAL).
ПропуститьНачалоБлока(АнализДанных, 2, 0);
// SEQUENCE (content SignedData).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER (version Version).
ПропуститьБлок(АнализДанных, 0, 2);
// SET (digestAlgorithms DigestAlgorithmIdentifiers).
ПропуститьБлок(АнализДанных, 0, 17);
// SEQUENCE (contentInfo ContentInfo).
ПропуститьБлок(АнализДанных, 0, 16);
// [0]CS (certificates [0] IMPLICIT ExtendedCertificatesAndCertificates OPTIONAL).
ПропуститьБлок(АнализДанных, 2, 0, Ложь);
// [1]CS (crls [1] IMPLICIT CertificateRevocationLists OPTIONAL).
ПропуститьБлок(АнализДанных, 2, 1, Ложь);
// SET (signerInfos SET OF SignerInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 17);
// SEQUENCE (signerInfo SignerInfo).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER (version Version).
ПропуститьБлок(АнализДанных, 0, 2);
// SEQUENCE (issuerAndSerialNumber IssuerAndSerialNumber).
ПропуститьБлок(АнализДанных, 0, 16);
// SEQUENCE (digestAlgorithm DigestAlgorithmIdentifier).
ПропуститьБлок(АнализДанных, 0, 16);
// [0]CS (authenticatedAttributes [0] IMPLICIT Attributes OPTIONAL).
ПропуститьНачалоБлока(АнализДанных, 2, 0);
Если АнализДанных.ЕстьОшибка Тогда
Возврат СвойстваПодписи;
КонецЕсли;
ЕстьДайджестСообщения = Ложь; // 1.2.840.113549.1.9.4
ЕстьТипКонтента = Ложь; // 1.2.840.113549.1.9.3
ЕстьВеткаСертификата = Ложь; // 1.2.840.113549.1.9.16.2.47 или 1.2.840.113549.1.9.16.2.12
СмещениеСледующего = АнализДанных.Родители[0].СмещениеСледующего;
Пока АнализДанных.Смещение < СмещениеСледующего И Не АнализДанных.ЕстьОшибка Цикл
// SEQUENCE (Attributes).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
Если АнализДанных.ЕстьОшибка Тогда
Прервать;
КонецЕсли;
// OBJECT IDENTIFIER
ПропуститьНачалоБлока(АнализДанных, 0, 6);
РазмерДанных = АнализДанных.Родители[0].РазмерДанных;
Если РазмерДанных = 0 Тогда
ПриОшибкеСтруктурыДанных(АнализДанных);
Прервать;
КонецЕсли;
Если РазмерДанных = 9 Тогда
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение, РазмерДанных); // БуферДвоичныхДанных
СтрокаБуфера = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер);
Если СтрокаБуфера = "2A864886F70D010904" Тогда // 1.2.840.113549.1.9.4 messageDigest
ЕстьДайджестСообщения = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D010903" Тогда // 1.2.840.113549.1.9.3 contentType
ЕстьТипКонтента = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D010905" Тогда // 1.2.840.113549.1.9.5 signingTime
ДатаПодписания = ПрочитатьДатуПодписанияИзБуфера(АнализДанных.Буфер, АнализДанных.Смещение + 11);
Если ЗначениеЗаполнено(ДатаПодписания) Тогда
СвойстваПодписи.ДатаПодписания = ДатаПодписания;
КонецЕсли;
КонецЕсли;
ИначеЕсли РазмерДанных = 11 Тогда
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение, РазмерДанных); // БуферДвоичныхДанных
СтрокаБуфера = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер);
Если СтрокаБуфера = "2A864886F70D010910022F" Тогда // 1.2.840.113549.1.9.16.2.47 signingCertificateV2
ЕстьВеткаСертификата = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D010910020C" Тогда // 1.2.840.113549.1.9.16.2.12 signingCertificate
ЕстьВеткаСертификата = Истина;
КонецЕсли;
КонецЕсли;
ПропуститьРодительскийБлок(АнализДанных); // OBJECT IDENTIFIER
ПропуститьРодительскийБлок(АнализДанных); // SEQUENCE
КонецЦикла;
Если ЕстьВеткаСертификата И ЕстьДайджестСообщения И ЕстьТипКонтента Тогда
СвойстваПодписи.ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.БазоваяCAdESBES");
Иначе
Возврат СвойстваПодписи;
КонецЕсли;
ПропуститьРодительскийБлок(АнализДанных); // [0]CS
// SEQUENCE (digestEncryptionAlgorithm AlgorithmIdentifier).
ПропуститьБлок(АнализДанных, 0, 16);
// signature SignatureValue
ПропуститьБлок(АнализДанных, 0, 4);
// [1]CS (unsignedAttrs [1] IMPLICIT UnsignedAttributes OPTIONAL).
ПропуститьНачалоБлока(АнализДанных, 2, 1);
ЕстьВеткаМеткиВремени = Ложь; // 1.2.840.113549.1.9.16.2.14
ЕстьВеткаОписаниеСертификатов = Ложь; // 1.2.840.113549.1.9.16.2.21
ЕстьВеткаОписаниеОтзыва = Ложь; // 1.2.840.113549.1.9.16.2.22
ЕстьВеткаЗначениеСертификатов = Ложь; // 1.2.840.113549.1.9.16.2.23
ЕстьВеткаЗначениеОтзыва = Ложь; // 1.2.840.113549.1.9.16.2.24
ЕстьВеткаСписокСерверовОтзыва = Ложь; // 1.2.840.113549.1.9.16.2.26
ЕстьВеткаАрхива = Ложь; // 0.4.0.1733.2.5
СмещениеСледующего = АнализДанных.Родители[0].СмещениеСледующего;
Пока АнализДанных.Смещение < СмещениеСледующего И Не АнализДанных.ЕстьОшибка Цикл
// SEQUENCE (Attributes).
ПропуститьНачалоБлока(АнализДанных, 0, 16);
Если АнализДанных.ЕстьОшибка Тогда
Прервать;
КонецЕсли;
// OBJECT IDENTIFIER
ПропуститьНачалоБлока(АнализДанных, 0, 6);
РазмерДанных = АнализДанных.Родители[0].РазмерДанных;
Если РазмерДанных = 0 Тогда
ПриОшибкеСтруктурыДанных(АнализДанных);
Прервать;
КонецЕсли;
Если РазмерДанных = 11 Тогда
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение, РазмерДанных); // БуферДвоичныхДанных
СтрокаБуфера = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер);
Если СтрокаБуфера = "2A864886F70D010910020E" Тогда // 1.2.840.113549.1.9.16.2.14 timeStampToken
ЕстьВеткаМеткиВремени = Истина;
РазмерДанных = АнализДанных.Родители[1].РазмерДанных - 13;
// SET
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение + 11, РазмерДанных);
ДатаШтампаВремени = ПрочитатьДатуИзШтампаВремени(Буфер);
Если ЗначениеЗаполнено(ДатаШтампаВремени) Тогда
СвойстваПодписи.ДатаШтампаВремени = ДатаШтампаВремени;
КонецЕсли;
ИначеЕсли СтрокаБуфера = "2A864886F70D0109100215" Тогда // 1.2.840.113549.1.9.16.2.21 certificateRefs
ЕстьВеткаОписаниеСертификатов = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D0109100216" Тогда // 1.2.840.113549.1.9.16.2.22 revocationRefs
ЕстьВеткаОписаниеОтзыва = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D0109100217" Тогда // 1.2.840.113549.1.9.16.2.23 certValues
ЕстьВеткаЗначениеСертификатов = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D0109100218" Тогда // 1.2.840.113549.1.9.16.2.24 revocationValues
ЕстьВеткаЗначениеОтзыва = Истина;
ИначеЕсли СтрокаБуфера = "2A864886F70D010910021A" Тогда // 1.2.840.113549.1.9.16.2.26 certCRLTimestamp
ЕстьВеткаСписокСерверовОтзыва = Истина;
КонецЕсли;
КонецЕсли;
Если РазмерДанных = 6 Тогда
Буфер = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение, РазмерДанных); // БуферДвоичныхДанных
СтрокаБуфера = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер);
Если СтрокаБуфера = "04008D450204" Тогда // 0.4.0.1733.2.4 archiveTimestampV3 attribute
ЕстьВеткаАрхива = Истина;
КонецЕсли;
КонецЕсли;
ПропуститьРодительскийБлок(АнализДанных); // OBJECT IDENTIFIER
ПропуститьРодительскийБлок(АнализДанных); // SEQUENCE
КонецЦикла;
Если ЕстьВеткаАрхива Тогда
ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.АрхивнаяCAdESAv3");
ИначеЕсли ЕстьВеткаМеткиВремени И ЕстьВеткаОписаниеСертификатов И ЕстьВеткаОписаниеОтзыва
И ЕстьВеткаЗначениеСертификатов И ЕстьВеткаЗначениеОтзыва И ЕстьВеткаСписокСерверовОтзыва Тогда
ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.РасширеннаяДолгосрочнаяCAdESXLongType2");
ИначеЕсли ЕстьВеткаМеткиВремени И ЕстьВеткаОписаниеСертификатов И ЕстьВеткаОписаниеОтзыва Тогда
ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СПолнымНаборомПроверочныхДанныхCAdESC");
ИначеЕсли ЕстьВеткаМеткиВремени Тогда
ТипПодписи = ПредопределенноеЗначение("Перечисление.ТипыПодписиКриптографии.СМеткойДоверенногоВремениCAdEST");
КонецЕсли;
СвойстваПодписи.ТипПодписи = ТипПодписи;
Возврат СвойстваПодписи;
КонецФункции
Функция ПрочитатьДатуПодписанияИзБуфера(Буфер, Смещение)
ТипДаты = ПолучитьHexСтрокуИзБуфераДвоичныхДанных(Буфер.Прочитать(Смещение, 2));
Если ТипДаты = "170D" Тогда // UTCTime
БуферДаты = Буфер.Прочитать(Смещение + 2, 12);
ПредставлениеДаты = "20" + ПолучитьСтрокуИзБуфераДвоичныхДанных(БуферДаты);
Иначе // GeneralizedTime
БуферДаты = Буфер.Прочитать(Смещение + 2, 14);
ПредставлениеДаты = ПолучитьСтрокуИзБуфераДвоичныхДанных(БуферДаты);
КонецЕсли;
ОписаниеТипа = Новый ОписаниеТипов("Дата");
ДатаПодписания = ОписаниеТипа.ПривестиЗначение(ПредставлениеДаты);
Возврат ДатаПодписания;
КонецФункции
// Для функции СвойстваПодписиИзДвоичныхДанных.
Функция ПрочитатьДатуИзШтампаВремени(Буфер)
АнализДанных = Новый Структура;
АнализДанных.Вставить("ЕстьОшибка", Ложь);
АнализДанных.Вставить("ЭтоОшибкаКодированияASN1", Ложь); // Возможно данные повреждены.
АнализДанных.Вставить("ЭтоОшибкаСтруктурыДанных", Ложь); // Не найден ожидаемый элемент данных.
АнализДанных.Вставить("Смещение", 0);
АнализДанных.Вставить("Родители", Новый Массив);
АнализДанных.Вставить("Буфер", Буфер);
// SET
ПропуститьНачалоБлока(АнализДанных, 0, 17);
// SEQUENCE
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// OBJECT IDENTIFIER signedData
ПропуститьБлок(АнализДанных, 0, 6);
// [0]
ПропуститьНачалоБлока(АнализДанных, 2, 0);
// SEQUENCE
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER (version Version).
ПропуститьБлок(АнализДанных, 0, 2);
// SET
ПропуститьБлок(АнализДанных, 0, 17);
// SEQUENCE
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// OBJECT IDENTIFIER
ПропуститьБлок(АнализДанных, 0, 6);
// [0]
ПропуститьНачалоБлока(АнализДанных, 2, 0);
// OCTET STRING
ПропуститьНачалоБлока(АнализДанных, 0, 4);
// SEQUENCE
ПропуститьНачалоБлока(АнализДанных, 0, 16);
// INTEGER
ПропуститьБлок(АнализДанных, 0, 2);
// OBJECT IDENTIFIER
ПропуститьБлок(АнализДанных, 0, 6);
// SEQUENCE
ПропуститьБлок(АнализДанных, 0, 16);
// INTEGER
ПропуститьБлок(АнализДанных, 0, 2);
Если АнализДанных.ЕстьОшибка Тогда
ДатаШтампа = Неопределено;
Иначе
// GeneralizedTime
БуферДаты = АнализДанных.Буфер.Прочитать(АнализДанных.Смещение + 2, 14);
ПредставлениеДаты = ПолучитьСтрокуИзБуфераДвоичныхДанных(БуферДаты);
ОписаниеТипа = Новый ОписаниеТипов("Дата");
ДатаШтампа = ОписаниеТипа.ПривестиЗначение(ПредставлениеДаты);
КонецЕсли;
Возврат ДатаШтампа;
КонецФункции
// Находит в XML содержимое находящееся в теге.
//
// Параметры:
@@ -2111,59 +2517,6 @@
КонецФункции
// Для процедуры ДатаПодписанияУниверсальная.
Функция ЭтоЦифры(Строка)
Для НомерСимвола = 1 По СтрДлина(Строка) Цикл
ТекущийСимвол = Сред(Строка, НомерСимвола, 1);
Если ТекущийСимвол < "0" Или ТекущийСимвол > "9" Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
// Для процедуры ДатаПодписанияУниверсальная.
Функция ЭтоЗаголовокДаты(БуферДвоичныхДанных, Позиция)
Если БуферДвоичныхДанных.Размер - Позиция < 3 Тогда
Возврат Ложь;
КонецЕсли;
БуферЗаголовка = БуферДвоичныхДанных.Прочитать(Позиция, 3);
Если БуферЗаголовка.Размер = 3
И БуферЗаголовка[1] = 23
И БуферЗаголовка[2] = 13 Тогда
Возврат Истина;
КонецЕсли;
Возврат Ложь;
КонецФункции
// Для процедуры ДатаПодписанияУниверсальная.
Функция ДатаСтрокой(БуферДвоичныхДанных, Позиция)
ПредставлениеДаты = "";
Если БуферДвоичныхДанных.Размер - (Позиция + 3) < 12 Тогда
Возврат ПредставлениеДаты;
КонецЕсли;
БуферДаты = БуферДвоичныхДанных.Прочитать(Позиция + 3, 12);
Для Каждого Байт Из БуферДаты Цикл
ПредставлениеДаты = ПредставлениеДаты + Символ(Байт);
КонецЦикла;
Возврат ПредставлениеДаты;
КонецФункции
// Возвращает информацию об используемом компьютере.
//
// Возвращаемое значение:
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйЛокализация/Module.bsl
+165 -101
View File
@@ -22,113 +22,16 @@
// См. РаботаСКлассификаторамиПереопределяемый.ПриЗагрузкеКлассификатора.
Процедура ЗагрузитьДанныеАккредитованныхУЦ(Версия, Адрес, Обработан, ДополнительныеПараметры) Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
Если ОбщегоНазначения.РазделениеВключено() И ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
Возврат;
КонецЕсли;
ИмяАрхива = ПолучитьИмяВременногоФайла("zip");
ДвоичныеДанныеАрхива = ПолучитьИзВременногоХранилища(Адрес); // ДвоичныеДанные
ДвоичныеДанныеАрхива.Записать(ИмяАрхива);
КаталогОбновлений = ФайловаяСистема.СоздатьВременныйКаталог(
Строка(Новый УникальныйИдентификатор));
ЧтениеZipФайла = Новый ЧтениеZipФайла(ИмяАрхива);
ИмяФайлаПериодыДействия = Неопределено;
ИмяФайлаДатыОкончания = Неопределено;
Для Каждого ЭлементАрхива Из ЧтениеZipФайла.Элементы Цикл
Если СтрНачинаетсяС(ЭлементАрхива.Имя, "AccreditedCA") Тогда
ИмяФайлаПериодыДействия = ЭлементАрхива.Имя;
ЧтениеZipФайла.Извлечь(ЭлементАрхива, КаталогОбновлений);
Продолжить;
КонецЕсли;
Если СтрНачинаетсяС(ЭлементАрхива.Имя, "CAExpirationDateList") Тогда
ИмяФайлаДатыОкончания = ЭлементАрхива.Имя;
ЧтениеZipФайла.Извлечь(ЭлементАрхива, КаталогОбновлений);
Продолжить;
КонецЕсли;
КонецЦикла;
ЧтениеZipФайла.Закрыть();
ДанныеУЦ = Константы.АккредитованныеУдостоверяющиеЦентры.Получить().Получить();
Если ДанныеУЦ = Неопределено Тогда
ДанныеУЦ = Новый Структура;
ДанныеУЦ.Вставить("ПериодыДействия", Новый Структура("Данные, Версия, ДатаОбновления", Новый Соответствие, 0, Дата(1,1,1)));
ДанныеУЦ.Вставить("ДатыОкончанияДействия", Новый Структура("Данные, Версия, ДатаОбновления", Новый Соответствие, 0, Дата(1,1,1)));
ДанныеУЦ.Вставить("ГосударственныеУЦ", Новый Соответствие);
КонецЕсли;
Если ИмяФайлаДатыОкончания <> Неопределено Тогда
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.ОткрытьФайл(КаталогОбновлений + ИмяФайлаДатыОкончания);
ДатыОкончания = ПрочитатьJSON(ЧтениеJSON); // Структура
ЧтениеJSON.Закрыть();
// Подготовка соответствия для быстрого поиска.
Соответствие = Новый Соответствие;
Для Каждого УЦ Из ДатыОкончания Цикл
Соответствие.Вставить(УЦ.ОГРН, ПрочитатьДатуJSON(УЦ.ДатаОкончанияДействия, ФорматДатыJSON.ISO));
КонецЦикла;
ДанныеУЦ.ДатыОкончанияДействия.Данные = Соответствие;
ДанныеУЦ.ДатыОкончанияДействия.Версия = Версия;
ДанныеУЦ.ДатыОкончанияДействия.ДатаОбновления = ТекущаяДатаСеанса();
Иначе
ДанныеУЦ.ДатыОкончанияДействия.Данные = Новый Соответствие;
ДанныеУЦ.ДатыОкончанияДействия.Версия = Версия;
ДанныеУЦ.ДатыОкончанияДействия.ДатаОбновления = ТекущаяДатаСеанса();
КонецЕсли;
Если ИмяФайлаПериодыДействия <> Неопределено Тогда
СписокУЦ = ПрочитатьФайлПериодовДействияУЦ(КаталогОбновлений + ИмяФайлаПериодыДействия);
// Подготовка соответствия для быстрого поиска.
Соответствие = Новый Соответствие;
ГосударственныеУЦ = Новый Соответствие;
Для Каждого УЦ Из СписокУЦ Цикл
Наименование = УЦ.Наименование; // Строка
Наименование = ЭлектроннаяПодписьКлиентСерверЛокализация.ПодготовитьПолеПоиска(Наименование);
КраткоеНаименование = ЭлектроннаяПодписьКлиентСерверЛокализация.ПодготовитьПолеПоиска(УЦ.КраткоеНаименование);
ПериодыДействияМассив = Новый Массив;
Для Каждого ТекущийПериод Из УЦ.ПериодыДействия Цикл
ПериодДействияСтруктура = Новый Структура("ДатаС, ДатаПо");
ПериодДействияСтруктура.ДатаС = ПрочитатьДатуJSON(ТекущийПериод.ДатаС, ФорматДатыJSON.ISO);
Если ЗначениеЗаполнено(ТекущийПериод.ДатаПо) Тогда
ПериодДействияСтруктура.ДатаПо = ПрочитатьДатуJSON(ТекущийПериод.ДатаПо, ФорматДатыJSON.ISO);
КонецЕсли;
ПериодыДействияМассив.Добавить(ПериодДействияСтруктура);
КонецЦикла;
Соответствие.Вставить(УЦ.ОГРН, ПериодыДействияМассив);
Соответствие.Вставить(Наименование, ПериодыДействияМассив);
Соответствие.Вставить(КраткоеНаименование, ПериодыДействияМассив);
Если УЦ.Государственный Тогда
ГосударственныеУЦ.Вставить(УЦ.ОГРН, Истина);
ГосударственныеУЦ.Вставить(Наименование, Истина);
ГосударственныеУЦ.Вставить(КраткоеНаименование, Истина);
КонецЕсли;
КонецЦикла;
ДанныеУЦ.ПериодыДействия.Данные = Соответствие;
ДанныеУЦ.ГосударственныеУЦ = ГосударственныеУЦ;
ДанныеУЦ.ПериодыДействия.Версия = Версия;
ДанныеУЦ.ПериодыДействия.ДатаОбновления = ТекущаяДатаСеанса();
КонецЕсли;
ДанныеУЦ = ПрочитатьАрхивКлассификатора(Адрес, Версия);
ХранилищеЗначения = Новый ХранилищеЗначения(ДанныеУЦ, Новый СжатиеДанных(6));
УстановитьПривилегированныйРежим(Истина);
Константы.АккредитованныеУдостоверяющиеЦентры.Установить(ХранилищеЗначения);
ФайловаяСистема.УдалитьВременныйКаталог(КаталогОбновлений);
ФайловаяСистема.УдалитьВременныйФайл(ИмяАрхива);
Обработан = Истина;
КонецПроцедуры
@@ -214,13 +117,18 @@
ДанныеУдостоверяющихЦентров = Константы.АккредитованныеУдостоверяющиеЦентры.Получить().Получить();
Если ДанныеУдостоверяющихЦентров = Неопределено Тогда
ДанныеУдостоверяющихЦентров = ДанныеУдостоверяющихЦентровИзМакета();
Если ДанныеУдостоверяющихЦентров = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("ПериодыДействия", ДанныеУдостоверяющихЦентров.ПериодыДействия.Данные);
Результат.Вставить("ДатаПроверкиОбновления", ДанныеУдостоверяющихЦентров.ПериодыДействия.ДатаОбновления);
Результат.Вставить("ДатаОбновления", ДанныеУдостоверяющихЦентров.ПериодыДействия.ДатаОбновления);
Результат.Вставить("ДатыОкончанияДействия", ДанныеУдостоверяющихЦентров.ДатыОкончанияДействия.Данные);
Результат.Вставить("ГосударственныеУЦ", ДанныеУдостоверяющихЦентров.ГосударственныеУЦ);
@@ -232,6 +140,162 @@
#Область СлужебныеПроцедурыИФункции
Функция ПрочитатьАрхивКлассификатора(Знач Архив, Версия = 0)
ИмяАрхива = ПолучитьИмяВременногоФайла("zip");
Если ТипЗнч(Архив) = Тип("Строка") Тогда
Архив = ПолучитьИзВременногоХранилища(Архив); // ДвоичныеДанные
КонецЕсли;
Архив.Записать(ИмяАрхива);
КаталогОбновлений = ФайловаяСистема.СоздатьВременныйКаталог(
Строка(Новый УникальныйИдентификатор));
ЧтениеZipФайла = Новый ЧтениеZipФайла(ИмяАрхива);
ИмяФайлаПериодыДействия = Неопределено;
ИмяФайлаДатыОкончания = Неопределено;
Для Каждого ЭлементАрхива Из ЧтениеZipФайла.Элементы Цикл
Если СтрНачинаетсяС(ЭлементАрхива.Имя, "AccreditedCA") Тогда
ИмяФайлаПериодыДействия = ЭлементАрхива.Имя;
ЧтениеZipФайла.Извлечь(ЭлементАрхива, КаталогОбновлений);
Продолжить;
КонецЕсли;
Если СтрНачинаетсяС(ЭлементАрхива.Имя, "CAExpirationDateList") Тогда
ИмяФайлаДатыОкончания = ЭлементАрхива.Имя;
ЧтениеZipФайла.Извлечь(ЭлементАрхива, КаталогОбновлений);
Продолжить;
КонецЕсли;
КонецЦикла;
ЧтениеZipФайла.Закрыть();
ДанныеУЦ = Новый Структура;
ДанныеУЦ.Вставить("ПериодыДействия", Новый Структура("Данные, Версия, ДатаОбновления", Новый Соответствие, 0, Дата(1,1,1)));
ДанныеУЦ.Вставить("ДатыОкончанияДействия", Новый Структура("Данные, Версия, ДатаОбновления", Новый Соответствие, 0, Дата(1,1,1)));
ДанныеУЦ.Вставить("ГосударственныеУЦ", Новый Соответствие);
Если ИмяФайлаДатыОкончания <> Неопределено Тогда
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.ОткрытьФайл(КаталогОбновлений + ИмяФайлаДатыОкончания);
ДатыОкончания = ПрочитатьJSON(ЧтениеJSON); // Структура
ЧтениеJSON.Закрыть();
// Подготовка соответствия для быстрого поиска.
Соответствие = Новый Соответствие;
Для Каждого УЦ Из ДатыОкончания Цикл
Соответствие.Вставить(УЦ.ОГРН, ПрочитатьДатуJSON(УЦ.ДатаОкончанияДействия, ФорматДатыJSON.ISO));
КонецЦикла;
ДанныеУЦ.ДатыОкончанияДействия.Данные = Соответствие;
Иначе
ДанныеУЦ.ДатыОкончанияДействия.Данные = Новый Соответствие;
КонецЕсли;
ДанныеУЦ.ДатыОкончанияДействия.Версия = Версия;
ДанныеУЦ.ДатыОкончанияДействия.ДатаОбновления = ТекущаяДатаСеанса();
Если ИмяФайлаПериодыДействия <> Неопределено Тогда
СписокУЦ = ПрочитатьФайлПериодовДействияУЦ(КаталогОбновлений + ИмяФайлаПериодыДействия);
// Подготовка соответствия для быстрого поиска.
Соответствие = Новый Соответствие;
ГосударственныеУЦ = Новый Соответствие;
Для Каждого УЦ Из СписокУЦ Цикл
Наименование = ЭлектроннаяПодписьКлиентСерверЛокализация.ПодготовитьЗначениеПоиска(УЦ.Наименование);
КраткоеНаименование = ЭлектроннаяПодписьКлиентСерверЛокализация.ПодготовитьЗначениеПоиска(УЦ.КраткоеНаименование);
ПериодыДействияМассив = Новый Массив;
Для Каждого ТекущийПериод Из УЦ.ПериодыДействия Цикл
ПериодДействияСтруктура = Новый Структура("ДатаС, ДатаПо");
ПериодДействияСтруктура.ДатаС = ПрочитатьДатуJSON(ТекущийПериод.ДатаС, ФорматДатыJSON.ISO);
Если ЗначениеЗаполнено(ТекущийПериод.ДатаПо) Тогда
ПериодДействияСтруктура.ДатаПо = ПрочитатьДатуJSON(ТекущийПериод.ДатаПо, ФорматДатыJSON.ISO);
КонецЕсли;
ПериодыДействияМассив.Добавить(ПериодДействияСтруктура);
КонецЦикла;
Соответствие.Вставить(УЦ.ОГРН, ПериодыДействияМассив);
Соответствие.Вставить(Наименование, ПериодыДействияМассив);
Соответствие.Вставить(КраткоеНаименование, ПериодыДействияМассив);
Если УЦ.Государственный Тогда
ГосударственныеУЦ.Вставить(УЦ.ОГРН, Истина);
ГосударственныеУЦ.Вставить(Наименование, Истина);
ГосударственныеУЦ.Вставить(КраткоеНаименование, Истина);
КонецЕсли;
КонецЦикла;
ДанныеУЦ.ПериодыДействия.Данные = Соответствие;
ДанныеУЦ.ГосударственныеУЦ = ГосударственныеУЦ;
ДанныеУЦ.ПериодыДействия.Версия = Версия;
ДанныеУЦ.ПериодыДействия.ДатаОбновления = ТекущаяДатаСеанса();
КонецЕсли;
ФайловаяСистема.УдалитьВременныйКаталог(КаталогОбновлений);
ФайловаяСистема.УдалитьВременныйФайл(ИмяАрхива);
Возврат ДанныеУЦ;
КонецФункции
Функция ДанныеУдостоверяющихЦентровИзМакета()
ОбработкаПрограммыЭлектроннойПодписиИШифрования = Метаданные.Обработки.Найти(
"ПрограммыЭлектроннойПодписиИШифрования");
Если ОбработкаПрограммыЭлектроннойПодписиИШифрования = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
ТаблицаВерсий = Новый ТаблицаЗначений;
ТаблицаВерсий.Колонки.Добавить("ИмяМакета");
ТаблицаВерсий.Колонки.Добавить("РасширеннаяВерсия", ОбщегоНазначения.ОписаниеТипаСтрока(23));
Для Каждого Макет Из ОбработкаПрограммыЭлектроннойПодписиИШифрования.Макеты Цикл
Если Макет.ТипМакета <> Метаданные.СвойстваОбъектов.ТипМакета.ДвоичныеДанные Тогда
Продолжить;
КонецЕсли;
ИмяМакета = Макет.Имя;
НачалоИмениМакета = "КлассификаторАУЦ";
Если СтрНачинаетсяС(ВРег(ИмяМакета), ВРег(НачалоИмениМакета)) Тогда
Если Сред(ИмяМакета, СтрДлина(НачалоИмениМакета) + 1, 1) <> "_" Тогда
Продолжить;
КонецЕсли;
Версия = Сред(ИмяМакета, СтрДлина(НачалоИмениМакета) + 1);
ЧастиВерсии = СтрРазделить(Версия, "_", Ложь);
Если ЧастиВерсии.Количество() <> 4 Тогда
Продолжить;
КонецЕсли;
РасширенныеЧастиВерсии = Новый Массив;
Для Каждого ЧастьВерсии Из ЧастиВерсии Цикл
РасширенныеЧастиВерсии.Добавить(ВРег(Прав("0000" + ЧастьВерсии, 5)));
КонецЦикла;
СтрокаТаблицыВерсий = ТаблицаВерсий.Добавить();
СтрокаТаблицыВерсий.ИмяМакета = ИмяМакета;
СтрокаТаблицыВерсий.РасширеннаяВерсия = СтрСоединить(РасширенныеЧастиВерсии, "_");
КонецЕсли;
КонецЦикла;
Если ТаблицаВерсий.Количество() = 0 Тогда
Возврат Неопределено;
КонецЕсли;
ТаблицаВерсий.Сортировать("РасширеннаяВерсия Убыв");
ДвоичныеДанныеКлассификатора = Обработки["ПрограммыЭлектроннойПодписиИШифрования"].ПолучитьМакет(
ТаблицаВерсий[0].ИмяМакета);
ДанныеУЦ = ПрочитатьАрхивКлассификатора(ДвоичныеДанныеКлассификатора);
Возврат ДанныеУЦ;
КонецФункции
// Прочитать файл периодов действия УЦ.
//
// Параметры:
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйПовтИсп/Module.bsl
+10 -4
View File
@@ -117,8 +117,14 @@
ОбщиеНастройки.Вставить("ВерсияНастроек", Строка(Новый УникальныйИдентификатор));
ОбщиеНастройки.Вставить("ДоступнаУсовершенствованнаяПодпись", ДоступнаУсовершенствованнаяПодпись());
ОбщиеНастройки.Вставить("АдресаСерверовМетокВремени",
СтрРазделить(Константы.АдресаСерверовМетокВремени.Получить(), ", ;" + Символы.ПС));
АдресаСерверовМетокВремени = Константы.АдресаСерверовМетокВремени.Получить();
Если Не ПустаяСтрока(АдресаСерверовМетокВремени) Тогда
ОбщиеНастройки.Вставить("АдресаСерверовМетокВремени", СтрРазделить(АдресаСерверовМетокВремени, ", ;" + Символы.ПС));
Иначе
ОбщиеНастройки.Вставить("АдресаСерверовМетокВремени", Новый Массив);
КонецЕсли;
ОбщиеНастройки.Вставить("УсовершенствоватьПодписиАвтоматически", Константы.УсовершенствоватьПодписиАвтоматически.Получить());
ОбщиеНастройки.Вставить("ДобавлятьМеткиВремениАвтоматически", Константы.ДобавлятьМеткиВремениАвтоматически.Получить());
ОбщиеНастройки.Вставить("УсовершенствоватьПодписиСДаты", Константы.УсовершенствоватьПодписиСДаты.Получить());
@@ -357,7 +363,7 @@
КонецФункции
Функция ДанныеУдостоверяющегоЦентра(ПоляПоиска) Экспорт
Функция ДанныеУдостоверяющегоЦентра(ЗначенияПоиска) Экспорт
Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьСлужебныйЛокализация") = Неопределено Тогда
Возврат Неопределено;
@@ -368,7 +374,7 @@
Возврат Неопределено;
КонецЕсли;
Возврат ЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеУдостоверяющегоЦентра(ПоляПоиска, АккредитованныеУдостоверяющиеЦентры);
Возврат ЭлектроннаяПодписьКлиентСерверЛокализация.ДанныеУдостоверяющегоЦентра(ЗначенияПоиска, АккредитованныеУдостоверяющиеЦентры);
КонецФункции
SSL/src/CommonModules/ЯндексПереводчик/Module.bsl
+1 -1
View File
@@ -124,7 +124,7 @@
Результат = Новый Структура;
Результат.Вставить("IAMТокен", IAMТокен);
Результат.Вставить("СрокДействия", СрокДействия);
Результат.Вставить("СрокДействия", УниверсальноеВремя(СрокДействия));
Возврат Результат;
SSL/src/Configuration/Configuration.mdo
+10 -10
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="04e6dcc4-e931-4993-9fa2-63c16d53dadf">
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="f8a543bf-dde2-4d89-9a16-0480ccd4f52e">
<name>БиблиотекаСтандартныхПодсистем</name>
<synonym>
<key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.1</value>
</synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="e0684ff5-8b8b-4c4c-b732-cc223a36898f"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="c1d357b3-b1d8-4e35-9bef-d04649204724"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="34f44a6f-e3b4-410b-a8aa-1cfdeb4e14b5"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="db747947-d3c4-4a68-8a82-6fe98b2afbdd"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="88661bbd-ac65-40eb-8fb0-e7c9677b744d"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="5d385f81-74af-428b-a642-3bc9e2152e92"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="a64857dd-da1d-40cd-ad96-cba4eda6d5c2"/>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="b77d7cc3-a79c-4521-b3f4-352aae11d9c0"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="dc23da14-5c97-4b80-a436-cde5e2e29849"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="e5520594-f145-4ce7-8cec-db3b253f9f46"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="74c72375-b1b6-4d4f-9b54-242f97245e95"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="109ad15a-c9c9-44f0-9358-a05cf289097e"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="580be518-ea9d-4b5f-af75-693d46cc14d6"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="eb7938d2-e277-45cf-a0f5-332adf911ef8"/>
<defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor>
<version>3.1.7.34</version>
<version>3.1.7.61</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities>
@@ -1296,7 +1296,7 @@
<xDTOPackages>XDTOPackage.DataArtefacts_Files_1_0_0_1</xDTOPackages>
<xDTOPackages>XDTOPackage.DataArtefacts_ServiceUsers_1_0_0_1</xDTOPackages>
<xDTOPackages>XDTOPackage.DataDump_1_0_2_1</xDTOPackages>
<xDTOPackages>XDTOPackage.EnterpriseData_1_10_3</xDTOPackages>
<xDTOPackages>XDTOPackage.EnterpriseData_1_10_8</xDTOPackages>
<xDTOPackages>XDTOPackage.EnterpriseData_1_2_3</xDTOPackages>
<xDTOPackages>XDTOPackage.EnterpriseData_1_3_20</xDTOPackages>
<xDTOPackages>XDTOPackage.EnterpriseData_1_4_20</xDTOPackages>
SSL/src/Configuration/ParentConfigurations.bin
+1 -1
View File
@@ -1 +1 @@
{6,1,1,00283a82-1e70-4ed0-9c2a-2c767ee98ccb,1,f2871eb4-339c-4e0c-be29-b62666e84f74,"3.1.7.34","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6752,1,0,04e6dcc4-e931-4993-9fa2-63c16d53dadf,04e6dcc4-e931-4993-9fa2-63c16d53dadf,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,153e11ac-f898-46a5-98c6-734adb933ca2,153e11ac-f898-46a5-98c6-734adb933ca2,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,f24de2ea-fcda-4052-b90f-e9d84314c4f2,f24de2ea-fcda-4052-b90f-e9d84314c4f2,1,0,ff8ae395-c740-4a30-a048-0d57eef6267f,ff8ae395-c740-4a30-a048-0d57eef6267f,1,0,51d06532-f61a-4ed5-afaa-cc4563633e0c,51d06532-f61a-4ed5-afaa-cc4563633e0c,1,0,0e49d980-581b-459f-a4b0-024e8c97e4c0,0e49d980-581b-459f-a4b0-024e8c97e4c0,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-Line truncated
{6,1,1,46f419e3-e501-4cf4-8600-91959348a5b6,1,efdf524d-54ac-4cb1-b611-bf318a3b7b71,"3.1.7.61","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6753,1,0,f8a543bf-dde2-4d89-9a16-0480ccd4f52e,f8a543bf-dde2-4d89-9a16-0480ccd4f52e,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,153e11ac-f898-46a5-98c6-734adb933ca2,153e11ac-f898-46a5-98c6-734adb933ca2,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,f24de2ea-fcda-4052-b90f-e9d84314c4f2,f24de2ea-fcda-4052-b90f-e9d84314c4f2,1,0,ff8ae395-c740-4a30-a048-0d57eef6267f,ff8ae395-c740-4a30-a048-0d57eef6267f,1,0,51d06532-f61a-4ed5-afaa-cc4563633e0c,51d06532-f61a-4ed5-afaa-cc4563633e0c,1,0,0e49d980-581b-459f-a4b0-024e8c97e4c0,0e49d980-581b-459f-a4b0-024e8c97e4c0,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-Line truncated
SSL/src/Constants/УсовершенствоватьПодписиАвтоматически/ValueManagerModule.bsl
+8
View File
@@ -16,6 +16,14 @@
Возврат;
КонецЕсли;
Если Значение < 0 Или Значение > 2 Тогда
ТекстОшибки = НСтр("ru = 'Недопустимое значение константы: %1. Допустимые значения:
|0 - не усовершенствовать подписи автоматически и не показывать команды для ручной обработки в интерфейсе;
|1 - усовершенствовать регламентным заданием;
|2 - усовершенствовать вручную (показывать команды в интерфейсе администратора и в текущих делах)'");
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстОшибки, Значение);
КонецЕсли;
ЭлектроннаяПодписьСлужебный.ИзменитьРегламентноеЗаданиеПродлениеДостоверностиПодписей(Значение);
КонецПроцедуры
SSL/src/Constants/ЭтоАвтономноеРабочееМесто/ValueManagerModule.bsl
+57
View File
@@ -0,0 +1,57 @@
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2022, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ДополнительныеСвойства.Вставить("ТекущееЗначение", Константы.ЭтоАвтономноеРабочееМесто.Получить());
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
СтандартнаяОбработка = Истина;
ПредыдущееЗначение = ДополнительныеСвойства.ТекущееЗначение;
НовоеТекущее = Значение;
ОбменДаннымиПереопределяемый.ПриИзмененииОпцииАвтономногоРежимаРаботы(ПредыдущееЗначение, НовоеТекущее, СтандартнаяОбработка);
Если СтандартнаяОбработка = Ложь Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.ТекущееЗначение <> Значение Тогда
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Иначе
ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'");
#КонецЕсли
SSL/src/DataProcessors/ЗаполнениеКалендарныхГрафиков/ManagerModule.bsl
+2 -2
View File
@@ -45,7 +45,7 @@
Функция ВерсияКалендарей() Экспорт
Возврат 36;
Возврат 39;
КонецФункции
@@ -57,7 +57,7 @@
Функция ВерсияОбновленияДанныхПроизводственныхКалендарей() Экспорт
Возврат "3.1.7.12";
Возврат "3.1.7.57";
КонецФункции
SSL/src/DataProcessors/ЗаполнениеКалендарныхГрафиков/Templates/ДанныеПроизводственныхКалендарей/Template.txt
+10 -10
View File
@@ -28,7 +28,9 @@
<Item Calendar="01" Year="2021" DayType="Предпраздничный" Date="20211004" SwapDate=""/>
<Item Calendar="01" Year="2021" DayType="Праздник" Date="20211005" SwapDate=""/>
<Item Calendar="01" Year="2022" DayType="Праздник" Date="20220502" SwapDate="20220504"/>
<Item Calendar="01" Year="2022" DayType="Праздник" Date="20220503" SwapDate="20220505"/>
<Item Calendar="01" Year="2022" DayType="Воскресенье" Date="20220504" SwapDate="20220501"/>
<Item Calendar="01" Year="2022" DayType="Суббота" Date="20220505" SwapDate="20220101"/>
<Item Calendar="01" Year="2022" DayType="Предпраздничный" Date="20220708" SwapDate=""/>
<Item Calendar="01" Year="2022" DayType="Праздник" Date="20220709" SwapDate="20220711"/>
<Item Calendar="01" Year="2022" DayType="Суббота" Date="20220711" SwapDate="20220709"/>
@@ -169,8 +171,7 @@
<Item Calendar="05" Year="2021" DayType="Праздник" Date="20210726" SwapDate=""/>
<Item Calendar="05" Year="2021" DayType="Предпраздничный" Date="20210914" SwapDate=""/>
<Item Calendar="05" Year="2021" DayType="Праздник" Date="20210915" SwapDate=""/>
<Item Calendar="05" Year="2022" DayType="Праздник" Date="20220502" SwapDate="20220504"/>
<Item Calendar="05" Year="2022" DayType="Воскресенье" Date="20220504" SwapDate="20220501"/>
<Item Calendar="05" Year="2022" DayType="Праздник" Date="20220504" SwapDate=""/>
<Item Calendar="05" Year="2022" DayType="Предпраздничный" Date="20220708" SwapDate=""/>
<Item Calendar="05" Year="2022" DayType="Праздник" Date="20220709" SwapDate="20220711"/>
<Item Calendar="05" Year="2022" DayType="Суббота" Date="20220711" SwapDate="20220709"/>
@@ -209,8 +210,7 @@
<Item Calendar="06" Year="2021" DayType="Праздник" Date="20210719" SwapDate=""/>
<Item Calendar="06" Year="2021" DayType="Праздник" Date="20210720" SwapDate=""/>
<Item Calendar="06" Year="2021" DayType="Праздник" Date="20210721" SwapDate=""/>
<Item Calendar="06" Year="2022" DayType="Праздник" Date="20220502" SwapDate="20220504"/>
<Item Calendar="06" Year="2022" DayType="Воскресенье" Date="20220504" SwapDate="20220501"/>
<Item Calendar="06" Year="2022" DayType="Праздник" Date="20220504" SwapDate=""/>
<Item Calendar="06" Year="2022" DayType="Предпраздничный" Date="20220708" SwapDate=""/>
<Item Calendar="06" Year="2022" DayType="Праздник" Date="20220709" SwapDate="20220711"/>
<Item Calendar="06" Year="2022" DayType="Суббота" Date="20220711" SwapDate="20220709"/>
@@ -258,8 +258,6 @@
<Item Calendar="07" Year="2021" DayType="Праздник" Date="20210901" SwapDate=""/>
<Item Calendar="07" Year="2021" DayType="Праздник" Date="20210920" SwapDate=""/>
<Item Calendar="07" Year="2022" DayType="Нерабочий" Date="20220328" SwapDate=""/>
<Item Calendar="07" Year="2022" DayType="Праздник" Date="20220502" SwapDate="20220504"/>
<Item Calendar="07" Year="2022" DayType="Воскресенье" Date="20220504" SwapDate="20220501"/>
<Item Calendar="07" Year="2022" DayType="Нерабочий" Date="20220521" SwapDate=""/>
<Item Calendar="07" Year="2022" DayType="Предпраздничный" Date="20220708" SwapDate=""/>
<Item Calendar="07" Year="2022" DayType="Праздник" Date="20220709" SwapDate="20220711"/>
@@ -322,8 +320,11 @@
<Item Calendar="08" Year="2021" DayType="Праздник" Date="20211229" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Предпраздничный" Date="20220302" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Праздник" Date="20220303" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Праздник" Date="20220614" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Предпраздничный" Date="20220704" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Праздник" Date="20220705" SwapDate=""/>
<Item Calendar="08" Year="2022" DayType="Праздник" Date="20221218" SwapDate="20221219"/>
<Item Calendar="08" Year="2022" DayType="Воскресенье" Date="20221219" SwapDate="20221218"/>
<Item Calendar="08" Year="2022" DayType="Нерабочий" Date="20221228" SwapDate=""/>
<Item Calendar="09" Year="2016" DayType="Праздник" Date="20160503" SwapDate="20160504"/>
<Item Calendar="09" Year="2016" DayType="Суббота" Date="20160504" SwapDate="20160503"/>
@@ -360,9 +361,9 @@
<Item Calendar="09" Year="2021" DayType="Суббота" Date="20210504" SwapDate="20210503"/>
<Item Calendar="09" Year="2021" DayType="Нерабочий" Date="20210513" SwapDate=""/>
<Item Calendar="09" Year="2021" DayType="Нерабочий" Date="20210720" SwapDate=""/>
<Item Calendar="09" Year="2022" DayType="Нерабочий" Date="20220502" SwapDate="20220501"/>
<Item Calendar="09" Year="2022" DayType="Суббота" Date="20220502" SwapDate="20220503"/>
<Item Calendar="09" Year="2022" DayType="Праздник" Date="20220503" SwapDate="20220504"/>
<Item Calendar="09" Year="2022" DayType="Суббота" Date="20220504" SwapDate="20220503"/>
<Item Calendar="09" Year="2022" DayType="Рабочий" Date="20220504" SwapDate="20220501"/>
<Item Calendar="09" Year="2022" DayType="Нерабочий" Date="20220709" SwapDate=""/>
<Item Calendar="11" Year="2016" DayType="Праздник" Date="20160822" SwapDate=""/>
<Item Calendar="11" Year="2017" DayType="Предпраздничный" Date="20170821" SwapDate=""/>
@@ -584,8 +585,7 @@
<Item Calendar="20" Year="2022" DayType="Предпраздничный" Date="20220415" SwapDate=""/>
<Item Calendar="20" Year="2022" DayType="Праздник" Date="20220416" SwapDate="20220418"/>
<Item Calendar="20" Year="2022" DayType="Суббота" Date="20220418" SwapDate="20220416"/>
<Item Calendar="20" Year="2022" DayType="Праздник" Date="20220502" SwapDate="20220504"/>
<Item Calendar="20" Year="2022" DayType="Воскресенье" Date="20220504" SwapDate="20220501"/>
<Item Calendar="20" Year="2022" DayType="Праздник" Date="20220504" SwapDate=""/>
<Item Calendar="20" Year="2022" DayType="Предпраздничный" Date="20220708" SwapDate=""/>
<Item Calendar="20" Year="2022" DayType="Праздник" Date="20220709" SwapDate="20220711"/>
<Item Calendar="20" Year="2022" DayType="Суббота" Date="20220711" SwapDate="20220709"/>
SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/Форма/Module.bsl
+1 -1
View File
@@ -3466,7 +3466,7 @@
КонецПроцедуры
&НаКлиенте
Процедура ОтправитьЗаявлениеПослеПредупреждения(Контекст) Экспорт
Процедура ОтправитьЗаявлениеПослеПредупреждения(Результат, ДополнительныеПараметры) Экспорт
ОтправитьЗаявлениеВБумажномВидеПродолжение("Отправить", Неопределено);
SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/ManagerModule.bsl
+7
View File
@@ -1386,6 +1386,13 @@
КонецФункции
// См. ОчередьЗаданийПереопределяемый.ПриОпределенииПсевдонимовОбработчиков.
Процедура ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам) Экспорт
СоответствиеИменПсевдонимам.Вставить(Метаданные.РегламентныеЗадания.ОбновлениеСостоянияЗаявленияНаВыпускСертификата.ИмяМетода);
КонецПроцедуры
#КонецОбласти
Функция КоличествоЗаявленийВРаботе() Экспорт
SSL/src/DataProcessors/КонвертацияОбъектовИнформационныхБаз/ObjectModule.bsl
+491 -3
View File
@@ -78,6 +78,7 @@
Перем ТипВидСчета; // Тип("ВидСчета")
Перем ТипТип; // Тип("Тип")
Перем ТипСоответствие; // Тип("Соответствие").
Перем ТипОписаниеТипов; // Тип("ОписаниеТипов").
Перем ТипСтрока36;
Перем ТипСтрока255;
@@ -350,8 +351,9 @@
СтекВыгрузкиОбъекта.Добавить(ИсточникСсылка);
// Циклическая ссылка на объект.
ЗапоминатьВыгруженные = ОбъектВыгружаетсяПоСсылкеИзСамогоСебя;
// Циклическая ссылка на объект и
// дополнительно учитываем настройку в правилах.
ЗапоминатьВыгруженные = ОбъектВыгружаетсяПоСсылкеИзСамогоСебя И (ПКО.ЗапоминатьВыгруженные);
ВыгруженныеОбъекты = ПКО.Выгруженные;
ВсеОбъектыВыгружены = ПКО.ВсеОбъектыВыгружены;
@@ -3862,6 +3864,8 @@
Результат = "УникальныйИдентификатор";
ИначеЕсли ТипЗначения = ТипВидДвиженияНакопления Тогда
Результат = "ВидДвиженияНакопления";
ИначеЕсли ТипЗначения = ТипОписаниеТипов Тогда // Для конвертации элементов ПВХ
Результат = "ОписаниеТипов";
Иначе
Менеджер = Менеджеры[ТипЗначения];
Если Менеджер = Неопределено Тогда
@@ -3874,6 +3878,262 @@
КонецФункции
#Область РаботаСОписаниемТипов
Функция ОписаниеТиповВJSON(ЗначениеОписаниеТипов)
МассивТиповОписанияТипов = ЗначениеОписаниеТипов.Типы();
ЭтоСоставнойТип = (МассивТиповОписанияТипов.Количество() > 1);
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.УстановитьСтроку();
ЗаписьJSON.ЗаписатьНачалоОбъекта();
ЗаписьJSON.ЗаписатьИмяСвойства("TypeDescription");
ЗаписьJSON.ЗаписатьНачалоМассива();
ЗаписьJSON.ЗаписатьНачалоОбъекта();
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "multiple", Строка(ЭтоСоставнойТип));
ЗаписьJSON.ЗаписатьКонецОбъекта();
Для каждого ТипЗначенияОписанияТипов Из МассивТиповОписанияТипов Цикл
ТипОписания = ТипЗнч(ТипЗначенияОписанияТипов);
Если ТипОписания <> Тип("Тип") Тогда
Продолжить;
КонецЕсли;
ЗаписьJSON.ЗаписатьНачалоОбъекта();
ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипЗначенияОписанияТипов);
Если ОбъектМетаданных = Неопределено Тогда
СериализоватьОписаниеПримитивногоТипа(ЗаписьJSON, ТипЗначенияОписанияТипов, ЗначениеОписаниеТипов);
Иначе
СериализоватьОписаниеСсылочногоТипа(ЗаписьJSON, ОбъектМетаданных);
КонецЕсли;
ЗаписьJSON.ЗаписатьКонецОбъекта();
КонецЦикла;
ЗаписьJSON.ЗаписатьКонецМассива();
ЗаписьJSON.ЗаписатьКонецОбъекта(); // "TypeDescription"
Возврат ЗаписьJSON.Закрыть();
КонецФункции
Функция ОписаниеТиповИзJSON(ТекстJSON)
ОписаниеТиповТипаЗначения = Новый ОписаниеТипов;
Если ПустаяСтрока(ТекстJSON) Тогда
Возврат ОписаниеТиповТипаЗначения;
КонецЕсли;
МассивИменОписанийТипов = Новый Массив;
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ТекстJSON);
КвалификаторСтрокиДлина = 0;
КвалификаторСтрокиДопустимаяДлина = ДопустимаяДлина.Переменная;
КвалификаторЧислаРазрядность = 0;
КвалификаторЧислаРазрядностьДробнойЧасти = 0;
КвалификаторЧислаДопустимыйЗнак = ДопустимыйЗнак.Любой;
КвалификаторДатыЧастиДаты = ЧастиДаты.ДатаВремя;
Пока ЧтениеJSON.Прочитать() Цикл
Если ЧтениеJSON.ТипТекущегоЗначения = ТипЗначенияJSON.ИмяСвойства Тогда
Если ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("TypeDescription") Тогда
Продолжить;
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("multiple") Тогда
ЧтениеJSON.Прочитать();
// Признак того, что это составной тип не используется
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("typeFeatures") Тогда
ИмяТипаСтрокой = "";
ЧтениеJSON.Прочитать();
ИмяТипаСтрокой = СокрЛП(ЧтениеJSON.ТекущееЗначение);
Если ВРег(ИмяТипаСтрокой) = ВРег("String") Тогда
МассивИменОписанийТипов.Добавить(Тип("Строка"));
ИначеЕсли ВРег(ИмяТипаСтрокой) = ВРег("number") Тогда
МассивИменОписанийТипов.Добавить(Тип("Число"));
ИначеЕсли ВРег(ИмяТипаСтрокой) = ВРег("Date") Тогда
МассивИменОписанийТипов.Добавить(Тип("Дата"));
ИначеЕсли ВРег(ИмяТипаСтрокой) = ВРег("Boolean") Тогда
МассивИменОписанийТипов.Добавить(Тип("Булево"));
Иначе
Попытка
// Обязательно необходимо использовать попытку, т.к. при переименовании объектов,
// например, ДоговорЛизинга (2.4) в ДоговорАренды (2.5) возникает ошибка получения типа.
МассивИменОписанийТипов.Добавить(Тип(ИмяТипаСтрокой));
Исключение
// Необходимо пропустить исключение для типов, которые переименованы или удалены
ТекстКомментария = НСтр("ru ='Метаданные не обнаружены: %1.'", ОбщегоНазначения.КодОсновногоЯзыка());
ТекстКомментария = СтрШаблон(ТекстКомментария, ИмяТипаСтрокой);
ЗаписьЖурналаРегистрацииОбменДанными(ТекстКомментария, УровеньЖурналаРегистрации.Предупреждение);
КонецПопытки;
КонецЕсли;
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("lengthStr") Тогда
ЧтениеJSON.Прочитать();
КвалификаторСтрокиДлина = Число(ЧтениеJSON.ТекущееЗначение);
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("typeStr") Тогда
ЧтениеJSON.Прочитать();
Если НЕ ПустаяСтрока(ЧтениеJSON.ТекущееЗначение) Тогда
КвалификаторСтрокиДопустимаяДлина = ДопустимаяДлина[ЧтениеJSON.ТекущееЗначение];
КонецЕсли;
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("lengthInt") Тогда
ЧтениеJSON.Прочитать();
КвалификаторЧислаРазрядность = Число(ЧтениеJSON.ТекущееЗначение);
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("decimal") Тогда
ЧтениеJSON.Прочитать();
КвалификаторЧислаРазрядностьДробнойЧасти = Число(ЧтениеJSON.ТекущееЗначение);
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("sign") Тогда
ЧтениеJSON.Прочитать();
Если ВРег(ЧтениеJSON.ТекущееЗначение) <> ВРег("any") Тогда
КвалификаторЧислаДопустимыйЗнак = ДопустимыйЗнак.Неотрицательный;
КонецЕсли;
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("typeDate") Тогда
ЧтениеJSON.Прочитать();
Если ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("Data") Тогда
КвалификаторДатыЧастиДаты = ЧастиДаты.Дата;
ИначеЕсли ВРег(ЧтениеJSON.ТекущееЗначение) = ВРег("Time") Тогда
КвалификаторДатыЧастиДаты = ЧастиДаты.Время;
КонецЕсли;
КонецЕсли;
ИначеЕсли ЧтениеJSON.ТипТекущегоЗначения = ТипЗначенияJSON.НачалоОбъекта
ИЛИ ЧтениеJSON.ТипТекущегоЗначения = ТипЗначенияJSON.НачалоМассива
ИЛИ ЧтениеJSON.ТипТекущегоЗначения = ТипЗначенияJSON.КонецОбъекта
ИЛИ ЧтениеJSON.ТипТекущегоЗначения = ТипЗначенияJSON.КонецМассива Тогда
Продолжить;
КонецЕсли;
КонецЦикла;
КвалификаторТипаСтрока = Новый КвалификаторыСтроки(КвалификаторСтрокиДлина, КвалификаторСтрокиДопустимаяДлина);
КвалификаторТипаЧисло = Новый КвалификаторыЧисла(КвалификаторЧислаРазрядность,КвалификаторЧислаРазрядностьДробнойЧасти,КвалификаторЧислаДопустимыйЗнак);
КвалификаторТипаДата = Новый КвалификаторыДаты(КвалификаторДатыЧастиДаты);
Возврат Новый ОписаниеТипов(МассивИменОписанийТипов, , , КвалификаторТипаЧисло, КвалификаторТипаСтрока, КвалификаторТипаДата);
КонецФункции
Процедура ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, ИмяСвойства, ЗначениеСвойства)
ЗаписьJSON.ЗаписатьИмяСвойства(ИмяСвойства);
ЗаписьJSON.ЗаписатьЗначение(ЗначениеСвойства);
КонецПроцедуры
Процедура СериализоватьОписаниеПримитивногоТипа(ЗаписьJSON, ТипЗначенияОписанияТипов, ЗначениеОписаниеТипов)
Если ТипЗначенияОписанияТипов = Тип("Строка") Тогда
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeFeatures", "string");
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "lengthStr", Строка(ЗначениеОписаниеТипов.КвалификаторыСтроки.Длина));
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeStr", Строка(ЗначениеОписаниеТипов.КвалификаторыСтроки.ДопустимаяДлина));
ИначеЕсли ТипЗначенияОписанияТипов = Тип("Число") Тогда
ДопустимыйЗнакЧисла = ЗначениеОписаниеТипов.КвалификаторыЧисла.ДопустимыйЗнак;
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeFeatures", "number");
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "lengthInt", ЗначениеОписаниеТипов.КвалификаторыЧисла.Разрядность);
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "decimal", ЗначениеОписаниеТипов.КвалификаторыЧисла.РазрядностьДробнойЧасти);
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "sign", ?(ДопустимыйЗнакЧисла = ДопустимыйЗнак.Любой, "any", "non-negative"));
ИначеЕсли ТипЗначенияОписанияТипов = Тип("Дата") Тогда
ОписаниеЧастейДаты = "dateTime";
Если ЗначениеОписаниеТипов.КвалификаторыДаты.ЧастиДаты = ЧастиДаты.Дата Тогда
ОписаниеЧастейДаты = "data";
ИначеЕсли ЗначениеОписаниеТипов.КвалификаторыДаты.ЧастиДаты = ЧастиДаты.Время Тогда
ОписаниеЧастейДаты = "time";
КонецЕсли;
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeFeatures", "date");
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeDate", ОписаниеЧастейДаты);
ИначеЕсли ТипЗначенияОписанияТипов = Тип("Булево") Тогда
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeFeatures", "boolean");
КонецЕсли;
КонецПроцедуры
Процедура СериализоватьОписаниеСсылочногоТипа(ЗаписьJSON, ОбъектМетаданных)
ПолноеИмя = ОбъектМетаданных.ПолноеИмя();
ПолноеИмя = СтрЗаменить(ПолноеИмя, ".", "Ссылка.");
ДобавитьСвойствоИЗначениеJSON(ЗаписьJSON, "typeFeatures", ПолноеИмя);
КонецПроцедуры
#КонецОбласти
#КонецОбласти
#КонецОбласти
@@ -4072,7 +4332,6 @@
КонецЦикла;
Если (Тип = ТипСтрока)
ИЛИ (Тип = ТипБулево)
ИЛИ (Тип = ТипЧисло)
@@ -4084,6 +4343,10 @@
Возврат XMLЗначение(Тип, Значение);
ИначеЕсли (Тип = ТипОписаниеТипов) Тогда
Возврат ОписаниеТиповИзJSON(Значение);
Иначе
Возврат одПолучитьЗначениеПоСтроке(Значение, Тип, ИскатьПоСвойству);
@@ -7688,6 +7951,10 @@
// Нужно определять свойство по соответствию.
Возврат Неопределено;
ИначеЕсли СтроковыйТипСвойства = "ОпределениеТипа" Тогда
Возврат Тип("ОписаниеТипов");
КонецЕсли;
Возврат Тип(СтроковыйТипСвойства);
@@ -9893,6 +10160,10 @@
СтруктураСвойств = Менеджеры[ТипОбъекта];
ИмяТипаОбъекта = СтруктураСвойств.ИмяТипа;
// Временный обход: запоминаем в таблицу значений движения документов
// по регистрам Бухгалтерии. После записи документа запишем движения.
//
ТаблицыОтложеннойЗаписиДвижений = Новый Соответствие;
Если ИмяТипаОбъекта = "Документ" Тогда
@@ -10290,14 +10561,36 @@
Если ИмяУзла = "ТабличнаяЧасть" Тогда
Если ЗагрузкаТабличнойЧастиПоддерживается(Объект, Имя) = Истина Тогда
// Загрузка элементов из табличной части.
ЗагрузитьТабличнуюЧасть(Объект, Имя, ИнформацияОТипах, ПараметрыОбъекта, Правило);
КонецЕсли;
ИначеЕсли ИмяУзла = "НаборЗаписей" Тогда
// загрузка движений
ЗагрузитьДвижения(Объект, Имя, Не НеОчищать, ИнформацияОТипах, ПараметрыОбъекта, Правило);
// "Хозрасчетный","Международный"
Если Метаданные.РегистрыБухгалтерии.Найти(Имя) <> Неопределено Тогда
ЗагруженныеДвижения = Объект.Движения[Имя].Выгрузить();
Если ЗагруженныеДвижения.Количество() > 0 Тогда
// Обход ошибки платформы 30178033.
// Порядок субконто в записи регистра бухгалтерии не соответствует порядку,
// который указан в счете учета.
УстранитьОшибкуНазначенияВидаСубконто(ЗагруженныеДвижения);
ТаблицыОтложеннойЗаписиДвижений.Вставить(Имя, ЗагруженныеДвижения);
Объект.Движения[Имя].Очистить();
КонецЕсли;
КонецЕсли;
КонецЕсли;
ИначеЕсли (ИмяУзла = "Объект") И (ФайлОбмена.ТипУзла = ТипУзлаXMLКонецЭлемента) Тогда
@@ -10455,6 +10748,8 @@
ЗаписатьОбъектВИБ(Объект, ТипОбъекта, ЗаписатьОбъект, ОтправкаНазад);
ЗаписатьРегистрыБухгалтерии(Объект.Ссылка, ТаблицыОтложеннойЗаписиДвижений);
Если ЗаписатьОбъект
И Объект <> Неопределено
И Объект.Ссылка <> Неопределено Тогда
@@ -10621,6 +10916,28 @@
КонецФункции
Функция ЗагрузкаТабличнойЧастиПоддерживается(Объект, ИмяТабличнойЧасти)
МетаданныеОбъекта = Объект.Метаданные();
Если НЕ Метаданные.Справочники.Содержит(МетаданныеОбъекта)
И НЕ Метаданные.ПланыВидовХарактеристик.Содержит(МетаданныеОбъекта) Тогда
Возврат Истина;
КонецЕсли;
ДляЭлемента = Метаданные.СвойстваОбъектов.ИспользованиеРеквизита.ДляЭлемента;
Если Объект.ЭтоГруппа
И МетаданныеОбъекта.ТабличныеЧасти[ИмяТабличнойЧасти].Использование = ДляЭлемента Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
Процедура ВыполнитьПереходНаНовыйОбмен()
ИмяПланаОбмена = ИмяПланаОбмена();
@@ -10640,6 +10957,143 @@
ВызватьИсключение НСтр("ru = 'Синхронизация данных по старой настройке отменена.'");
КонецПроцедуры
Процедура ЗаписатьРегистрыБухгалтерии(Регистратор, ТаблицыОтложеннойЗаписиДвижений)
Если НЕ ЗначениеЗаполнено(Регистратор.Ссылка) Тогда
Возврат;
КонецЕсли;
Для каждого ОписаниеТаблицыДвижений Из ТаблицыОтложеннойЗаписиДвижений Цикл
ИмяРегистра = ОписаниеТаблицыДвижений.Ключ;
ТаблицаДвижений = ОписаниеТаблицыДвижений.Значение;
Если ТипЗнч(ТаблицаДвижений) <> Тип("ТаблицаЗначений")
ИЛИ ТаблицаДвижений.Количество() < 1 Тогда
Продолжить;
КонецЕсли;
НаборЗаписейРегистра = РегистрыБухгалтерии[ИмяРегистра].СоздатьНаборЗаписей();
НаборЗаписейРегистра.Отбор.Регистратор.Установить(Регистратор, Истина);
Для каждого СтрокаТаблицы Из ТаблицаДвижений Цикл
ЗаписьНабора = НаборЗаписейРегистра.Добавить();
ЗаполнитьЗначенияСвойств(ЗаписьНабора, СтрокаТаблицы);
НомерСубконтоДт = 0;
Для каждого ОписаниеВидаСубконтоДт Из ЗаписьНабора.СчетДт.ВидыСубконто Цикл
НомерСубконтоДт = НомерСубконтоДт + 1;
ЗаписьНабора.СубконтоДт[ОписаниеВидаСубконтоДт.ВидСубконто] = СтрокаТаблицы["СубконтоДт" + Строка(НомерСубконтоДт)];
КонецЦикла;
НомерСубконтоКт = 0;
Для каждого ОписаниеВидаСубконтоКт Из ЗаписьНабора.СчетКт.ВидыСубконто Цикл
НомерСубконтоКт = НомерСубконтоКт + 1;
ЗаписьНабора.СубконтоКт[ОписаниеВидаСубконтоКт.ВидСубконто] = СтрокаТаблицы["СубконтоКт" + Строка(НомерСубконтоКт)];
КонецЦикла;
КонецЦикла;
ОбновлениеИнформационнойБазы.ЗаписатьНаборЗаписей(НаборЗаписейРегистра, Истина, Ложь, Ложь);
КонецЦикла;
КонецПроцедуры
Процедура ПроверитьКоллекциюСубконто(СтрокаТаблицы, ЗначенияДоИсправления, Направление, ЕстьОшибка)
КоллекцияВидовСубконто = СтрокаТаблицы["Счет" + Направление].ВидыСубконто;
Для каждого ВидСубконтоИзКоллекции Из КоллекцияВидовСубконто Цикл
ТипСубконто = Направление + Строка(ВидСубконтоИзКоллекции.НомерСтроки);
ИмяСубконто = "Субконто" + ТипСубконто;
ИмяВидыСубконто = "ВидСубконто" + ТипСубконто;
ОписаниеСубконто = Новый Структура;
ОписаниеСубконто.Вставить("ЕстьОшибка", Ложь);
ОписаниеСубконто.Вставить("Субконто", СтрокаТаблицы[ИмяСубконто]);
ОписаниеСубконто.Вставить("ВидСубконто", СтрокаТаблицы[ИмяВидыСубконто]);
Если СтрокаТаблицы[ИмяВидыСубконто] <> ВидСубконтоИзКоллекции.ВидСубконто Тогда
ОписаниеСубконто.ЕстьОшибка = Истина;
СтрокаТаблицы[ИмяСубконто] = Неопределено;
СтрокаТаблицы[ИмяВидыСубконто] = ВидСубконтоИзКоллекции.ВидСубконто;
ЕстьОшибка = Истина;
КонецЕсли;
ЗначенияДоИсправления.Вставить(ТипСубконто, ОписаниеСубконто);
КонецЦикла;
КонецПроцедуры
Процедура УстранитьОшибкуНазначенияВидаСубконто(ЗагруженныеДвижения)
Для каждого СтрокаТаблицы Из ЗагруженныеДвижения Цикл
ЕстьОшибка = Ложь;
ЗначенияДоИсправления = Новый Соответствие;
ПроверитьКоллекциюСубконто(СтрокаТаблицы, ЗначенияДоИсправления, "Дт", ЕстьОшибка);
ПроверитьКоллекциюСубконто(СтрокаТаблицы, ЗначенияДоИсправления, "Кт", ЕстьОшибка);
Если ЕстьОшибка Тогда
Для каждого ЭлементСоответствия Из ЗначенияДоИсправления Цикл
ОписаниеСубконто = ЭлементСоответствия.Значение;
Если НЕ ОписаниеСубконто.ЕстьОшибка Тогда
Продолжить;
КонецЕсли;
ИмяВидаСубконтоИсправляемого = "ВидСубконто" + ЭлементСоответствия.Ключ;
Для каждого АльтернативныйЭлемент Из ЗначенияДоИсправления Цикл
АльтернативноеОписание = АльтернативныйЭлемент.Значение;
Если НЕ АльтернативноеОписание.ЕстьОшибка
ИЛИ ЭлементСоответствия.Ключ = АльтернативныйЭлемент.Ключ Тогда
Продолжить;
КонецЕсли;
ТипЗначенияСубконто = СтрокаТаблицы[ИмяВидаСубконтоИсправляемого].ТипЗначения;
Если СтрокаТаблицы[ИмяВидаСубконтоИсправляемого] = АльтернативноеОписание.ВидСубконто
И ТипЗначенияСубконто.СодержитТип(ТипЗнч(АльтернативноеОписание["Субконто"])) Тогда
СтрокаТаблицы["Субконто" + ЭлементСоответствия.Ключ] = АльтернативноеОписание["Субконто"];
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область ПроцедурыВыгрузкиДанных
@@ -11242,6 +11696,13 @@
Значение = ОбъектДляПолученияДанных[ИмяСвойства];
// Для ОписанияТипов дополнительно сериализуем значением в JSON
Если ПКС.ТипИсточника = "ОпределениеТипа" Тогда
Значение = ОписаниеТиповВJSON(Значение);
КонецЕсли
Исключение
Если КодОшибки <> 14 Тогда
@@ -11679,6 +12140,10 @@
Значение = Строка(Значение);
ИначеЕсли ТипЗначения = ТипОписаниеТипов Тогда
Значение = Строка(Значение);
Иначе
СвойствоУстановлено = Ложь;
@@ -14114,6 +14579,7 @@
ТипВидСчета = Тип("ВидСчета");
ТипТип = Тип("Тип");
ТипСоответствие = Тип("Соответствие");
ТипОписаниеТипов = Тип("ОписаниеТипов");
ТипСтрока36 = Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(36));
ТипСтрока255 = Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(255));
@@ -15480,8 +15946,19 @@
ПравилаОбмена.Прочитать();
Иначе
Если ПравилаОбмена.Значение = "ОпределениеТипа" Тогда
СоответствиеТипа.Вставить(ИмяУзла, Тип("ОписаниеТипов")); // Необходимо привести JSON к ОписаниеТипов
Иначе
СоответствиеТипа.Вставить(ИмяУзла, Тип(ПравилаОбмена.Значение));
КонецЕсли;
ПравилаОбмена.Прочитать();
КонецЕсли;
ЗагрузитьСоответствиеТиповДляОдногоТипа(ПравилаОбмена, СоответствиеТипа);
@@ -15512,8 +15989,19 @@
ЗагрузитьОдинТипДанных(ПравилаОбмена, НовоеСоответствие, ПравилаОбмена.ЛокальноеИмя);
Иначе
Если ПравилаОбмена.Значение = "ОпределениеТипа" Тогда
СоответствиеТипа.Вставить(ИмяУзла, Тип("ОписаниеТипов")); // Необходимо привести JSON к ОписаниеТипов
Иначе
СоответствиеТипа.Вставить(ИмяУзла, Тип(ПравилаОбмена.Значение));
КонецЕсли;
ПравилаОбмена.Прочитать();
КонецЕсли;
КонецЦикла;
SSL/src/DataProcessors/ОписаниеОбработчиковОбновления/Forms/ФормаСпискаОбработчиков/Module.bsl
+4
View File
@@ -2160,7 +2160,11 @@
КонецЕсли;
// Проверим максимальный номер сборки из обработчиков модуля
Если ЗначениеЗаполнено(Максимум.Версия) Тогда
НомераМаксимум = СтрРазделить(Максимум.Версия, ".");
Иначе
НомераМаксимум = СтрРазделить(НоваяВерсияКонфигурации, ".");
КонецЕсли;
ПерваяЦифраМаксимум = НомераМаксимум[0];
НомераМаксимум.Удалить(0);
Максимум3Последних = Обработка.ВерсияЧислом(НомераМаксимум);
SSL/src/DataProcessors/ОписаниеОбработчиковОбновления/ObjectModule.bsl
+5 -5
View File
@@ -1960,11 +1960,11 @@
// Возвращает время прошедшее между указанными датами в формате "00:00:00".
// Если задан параметр СтруктураВремени, то в нем возвращаются отдельные значения Часы, Минуты, Секунды.
// если ВремяНач = 0 преобразовывает дату в формат времени возвращает СтруктуруВремени если попросить.
// если ВремяНачала = 0 преобразовывает дату в формат времени возвращает СтруктуруВремени если попросить.
//
// Параметры:
// ВремяКон - Дата - время окончания.
// ВремяНач - Дата - время начала.
// ВремяОкончания - Дата - время окончания.
// ВремяНачала - Дата - время начала.
// СтруктураВремени - Структура - составляющие части в отдельности:
// * Часы - Число
// * Минуты - Число
@@ -1974,8 +1974,8 @@
// Возвращаемое значение:
// Строка
//
Функция РазностьВремени(ВремяКон, ВремяНач = 0, СтруктураВремени = Неопределено)
Разность = ВремяКон - ВремяНач;
Функция РазностьВремени(ВремяОкончания, ВремяНачала = 0, СтруктураВремени = Неопределено)
Разность = ВремяОкончания - ВремяНачала;
РазностьВремениСек = Макс(-Разность,Разность);
Часы = Цел(РазностьВремениСек/3600);
Минуты = Цел(РазностьВремениСек/60) - 60*Часы;
SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ОбщиеНастройки/Help/ru.html
+3 -1
View File
@@ -50,7 +50,9 @@ TD {
</li>
<li><strong>Шифрование</strong> - включите флажок, для того чтобы разрешить шифрование файлов.
</li>
<li><a href="CommonForm.НастройкиЭлектроннойПодписиИШифрования/Help">Настройки электронной подписи и шифрования</a> - переход к настройке параметров подключения средств криптографии: электронной подписи и шифрования. </li>
<li><a href="CommonForm.НастройкиЭлектроннойПодписиИШифрования/Help">Сертификаты и программы электронной подписи и шифрования</a> - переход к настройке параметров подключения средств криптографии: электронной подписи и шифрования. </li>
<li><strong>Проверять подписи и сертификаты на сервере</strong> - В этом случае проверка электронной подписи и сертификата будет происходить на сервере или веб-сервере, что позволяет не устанавливать программу на каждом компьютере, где требуются только такие операции.</li>
<li><b>Подписывать и шифровать на сервере</b> - позволяет не устанавливать программу криптографии на компьютер пользователя для подписания, шифрования и расшифровки. В этом случае необходимо установить программу криптографии и сертификат с закрытым ключом на компьютере, где работает сервер 1С:Предприятия или веб-сервер.</li>
<a name="СтандартныеПодсистемы.ЭлектроннаяПодписьСервисаDSS"></a>
<li><b>Использовать сервис DSS</b> - включите флажок, для того чтобы разрешить использовать электронную подпись сервиса DSS и для операций криптографии сервиса DSS. После этого в списке <b>Настройки электронной подписи и шифрования</b> можно добавить учетные записи DSS, а также становятся доступными команды:</li>
<li><a href="DataProcessor.УправлениеПодключениемDSS.Form.СписокЭкземпляровСервераDSS/Help">Серверы DSS</a> - переход к настройке серверов DSS.</li>
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Form.form
+13
View File
@@ -8034,6 +8034,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ОтменаСопоставления</name>
<id>65</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОбновитьИнформациюСопоставленияПолностью</name>
<title>
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl
+2 -1
View File
@@ -150,7 +150,7 @@
ЗавершитьВыполнениеДлительнойОперации(ИдентификаторЗадания);
КонецЕсли;
Если ПолученоСообщениеДляСопоставленияДанных Тогда
Если ПолученоСообщениеДляСопоставленияДанных И Не ОтменаСопоставления Тогда
Если (ЗакончитьСопоставлениеДанных И Не ПропуститьПолучениеДанных)
Или (РезультатЗагрузкиДанных = "Предупреждение_СообщениеОбменаБылоРанееПринято")
Или УдалитьСообщениеДляСопоставления Тогда
@@ -310,6 +310,7 @@
&НаКлиенте
Процедура КомандаОтмена(Команда)
ОтменаСопоставления = Истина;
Закрыть();
КонецПроцедуры
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/НастройкаПодключения/Module.bsl
+2
View File
@@ -2147,6 +2147,8 @@
Возврат Неопределено;
КонецЕсли;
ИнтернетВебАдрес = СокрЛП(ИнтернетВебАдрес);
Возврат Неопределено;
КонецФункции
SSL/src/DataProcessors/ПрограммыЭлектроннойПодписиИШифрования/Templates/КлассификаторАУЦ_1_0_0_0/Template.bin
BIN
View File
Binary file not shown.
SSL/src/DataProcessors/ПрограммыЭлектроннойПодписиИШифрования/ПрограммыЭлектроннойПодписиИШифрования.mdo
+9
View File
@@ -19,4 +19,13 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<templates uuid="766f2abe-1dfd-4e16-bffd-83f44d25d82a">
<name>КлассификаторАУЦ_1_0_0_0</name>
<synonym>
<key>ru</key>
<value>Классификатор АУЦ</value>
</synonym>
<comment>АПК:497 Не подлежит переводу, находится в локализованной части</comment>
<templateType>BinaryData</templateType>
</templates>
</mdclass:DataProcessor>
SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/ObjectModule.bsl
+9
View File
@@ -2209,6 +2209,15 @@
Результат = Новый Структура("Всего, Успешно", 0, 0);
Если ТипЗнч(СтруктураИменМетаданных) = Тип("Структура")
И Описание.ЭтоКонстанта
И НЕ СтруктураИменМетаданных.Свойство("Константы") Тогда
// Если нужно зарегистрировать все изменения, при этом в составе плана обмена нет констант.
Возврат Результат;
КонецЕсли;
Если СтруктураИменМетаданных <> Неопределено
И Описание.ЭтоКонстанта
И Не Описание.ЭтоКоллекция
SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/РезультатыОбновленияПрограммы/Module.bsl
+3
View File
@@ -839,6 +839,9 @@
Процедура ПоказатьУстановленныеИсправления()
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("Исправления", Исправления);
МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбновлениеКонфигурацииКлиент");
МодульОбновлениеКонфигурацииКлиент.ПоказатьУстановленныеИсправления(Исправления);
КонецЕсли;
SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Form.form
+61 -1
View File
@@ -99,12 +99,40 @@
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>HorizontalIfPossible</group>
<behavior>Auto</behavior>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ФормаПроверитьНаличиеИсправлений</name>
<id>23</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаПроверитьНаличиеИсправленийРасширеннаяПодсказка</name>
<id>24</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Hyperlink</type>
<commandName>Form.Command.ПроверитьНаличиеИсправлений</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаТехническаяИнформацияОРезультатахОбновления</name>
<id>10</id>
@@ -113,7 +141,7 @@
<id>5</id>
<title>
<key>ru</key>
<value>Техническая информация о результатах обновления</value>
<value>Техническая информация</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
@@ -351,6 +379,20 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ОшибкаПриУстановкеПатчей</name>
<id>6</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ЗавершитьРаботу</name>
<title>
@@ -413,6 +455,24 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ПроверитьНаличиеИсправлений</name>
<title>
<key>ru</key>
<value>Проверить наличие исправлений</value>
</title>
<id>4</id>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПроверитьНаличиеИсправлений</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>КраткоеПредставлениеОшибки</name>
<valueType>
SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Module.bsl
+151
View File
@@ -51,6 +51,26 @@
КаталогСкрипта = МодульОбновлениеКонфигурации.КаталогСкрипта();
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей")
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации")
И Не ОбщегоНазначения.РазделениеВключено()
И Не ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда
МодульИнтернетПоддержкаПользователей = ОбщегоНазначения.ОбщийМодуль("ИнтернетПоддержкаПользователей");
МодульИнтернетПоддержкаПользователейКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ИнтернетПоддержкаПользователейКлиентСервер");
ВерсияБИП = МодульИнтернетПоддержкаПользователейКлиентСервер.ВерсияБиблиотеки();
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияБИП, "2.6.3.0") < 0 Тогда
Элементы.ФормаПроверитьНаличиеИсправлений.Видимость = Ложь;
Иначе
ДанныеАутентификации = МодульИнтернетПоддержкаПользователей.ДанныеАутентификацииПользователяИнтернетПоддержки();
Если ДанныеАутентификации = Неопределено Тогда
Элементы.ФормаПроверитьНаличиеИсправлений.Видимость = Ложь;
КонецЕсли;
КонецЕсли;
Иначе
Элементы.ФормаПроверитьНаличиеИсправлений.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
@@ -153,4 +173,135 @@
КонецФункции
&НаКлиенте
Процедура ПроверитьНаличиеИсправлений(Команда)
Результат = ДоступныеИсправленияНаСервере();
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Если Результат.Ошибка Тогда
ПоказатьПредупреждение(, Результат.КраткоеОписаниеОшибки);
Возврат;
КонецЕсли;
ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю();
ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь;
ПараметрыВопроса.Заголовок = НСтр("ru = 'Проверка наличия исправлений'");
ПараметрыВопроса.Картинка = БиблиотекаКартинок.Информация;
Если Результат.КоличествоИсправлений = 0 Тогда
Сообщение = НСтр("ru = 'Доступных исправлений (патчей) не найдено.'");
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(Неопределено, Сообщение, РежимДиалогаВопрос.ОК, ПараметрыВопроса);
Возврат;
КонецЕсли;
Сообщение = НСтр("ru = 'Найдено исправлений: %1. Выполнить установку?'");
Сообщение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Сообщение, Результат.КоличествоИсправлений);
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьДоступныеИсправленияПродолжение", ЭтотОбъект, Результат);
ПараметрыВопроса.Картинка = БиблиотекаКартинок.Вопрос32;
ПараметрыВопроса.КнопкаПоУмолчанию = КодВозвратаДиалога.Да;
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(ОписаниеОповещения, Сообщение, РежимДиалогаВопрос.ДаНет, ПараметрыВопроса);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция ДоступныеИсправленияНаСервере()
Результат = Неопределено;
Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ПолучениеОбновленийПрограммы") Тогда
МодульПолучениеОбновленийПрограммы = ОбщегоНазначения.ОбщийМодуль("ПолучениеОбновленийПрограммы");
Результат = МодульПолучениеОбновленийПрограммы.ИнформацияОДоступныхИсправлениях();
Если Результат <> Неопределено Тогда
Исправления = Результат.Исправления.ВыгрузитьКолонку("Наименование");
Результат.Вставить("КоличествоИсправлений", Результат.Исправления.Количество());
Результат.Вставить("Исправления", Исправления);
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции
&НаКлиенте
Процедура ПроверитьДоступныеИсправленияПродолжение(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Если Результат.Значение = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
ДлительнаяОперация = ЗапускУстановкиИсправлений();
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ОповещениеОЗавершении = Новый ОписаниеОповещения("ОбработатьРезультат", ЭтотОбъект, ДополнительныеПараметры);
ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, ОповещениеОЗавершении, ПараметрыОжидания);
КонецПроцедуры
&НаСервере
Функция ЗапускУстановкиИсправлений()
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияФункции(УникальныйИдентификатор);
ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Установка доступных исправлений после ошибки обновления.'");
Возврат ДлительныеОперации.ВыполнитьФункцию(ПараметрыВыполнения, "ПолучениеОбновленийПрограммы.ЗагрузитьИУстановитьИсправления");
КонецФункции
&НаКлиенте
Процедура ОбработатьРезультат(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю();
ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь;
ПараметрыВопроса.Заголовок = НСтр("ru = 'Установка исправлений'");
Если Результат.Статус = "Ошибка" Тогда
ПоказатьПредупреждение(, Результат.КраткоеПредставлениеОшибки);
Возврат;
КонецЕсли;
РезультатУстановки = ПолучитьИзВременногоХранилища(Результат.АдресРезультата);
Если РезультатУстановки.Ошибка Тогда
ТекстОшибки = РезультатУстановки.КраткоеОписаниеОшибки
+ Символы.ПС + Символы.ПС + НСтр("ru = 'Технические подробности о проблеме см. в журнале регистрации.'");
Кнопки = Новый СписокЗначений;
Кнопки.Добавить("ЖурналРегистрации", НСтр("ru = 'Журнал регистрации'"));
Кнопки.Добавить("Закрыть", НСтр("ru = 'Закрыть'"));
ПараметрыВопроса.Картинка = БиблиотекаКартинок.Предупреждение32;
ПараметрыВопроса.КнопкаПоУмолчанию = "Закрыть";
ОписаниеОповещения = Новый ОписаниеОповещения("ОбработатьОшибкуУстановкиПатчей", ЭтотОбъект);
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(ОписаниеОповещения, ТекстОшибки, Кнопки, ПараметрыВопроса);
Возврат;
КонецЕсли;
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("Исправления", ДополнительныеПараметры.Исправления);
ПараметрыОткрытия.Вставить("ПриОбновлении", Истина);
МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбновлениеКонфигурацииКлиент");
МодульОбновлениеКонфигурацииКлиент.ПоказатьУстановленныеИсправления(ПараметрыОткрытия, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьОшибкуУстановкиПатчей(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Если Результат.Значение = "ЖурналРегистрации" Тогда
ЖурналРегистрацииКлиент.ОткрытьЖурналРегистрации();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl
+2 -2
View File
@@ -838,8 +838,8 @@
КонецФункции
&НаСервере
Процедура УстановитьВидимостьДополнительныхРеквизитов(НачальноеНомер, КонечныйНомер, Видимость)
Для Сч = НачальноеНомер По КонечныйНомер Цикл
Процедура УстановитьВидимостьДополнительныхРеквизитов(НачальныйНомер, КонечныйНомер, Видимость)
Для Сч = НачальныйНомер По КонечныйНомер Цикл
Элементы["ДеревоПомеченныхНаУдалениеРеквизит" + Сч].Видимость = Видимость;
КонецЦикла;
КонецПроцедуры
Loaded 100 of 182 files, more files were not shown because too many files have changed in this diff. Show more