diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl
index 92aa78a95..ac1bb87b6 100644
--- a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl
+++ b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl
@@ -74,8 +74,9 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура СрокНачалаИсполненияПриИзменении(Элемент)
@@ -161,8 +162,9 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура ИнициализацияФормы()
diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Help/ru.html b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Help/ru.html
index f91eeeffd..d821a490f 100644
--- a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Help/ru.html
+++ b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначено для постановки и проверки выполнения произвольных задач.
Можно запустить из документа программы по команде Создать на основании (из бизнес-процесса также, при соответствующих настройках - такое задание станет подчиненным бизнес-процессом). Также можно начать новый бизнес-процессЗадание по команде Создать в списке Задания.
Предназначен для управления бизнес-процессами Задание.
Этот бизнес-процесс состоит из двух шагов - исполнение и проверка, при этом проверяющий может вернуть задачу на доработку.
Формируемые программой по бизнес-процессу Заданиезадачи на исполнение и на проверку адресуются исполнителю не только явно, с использованием персональной адресации, но и с помощью ролевой адресации.
Содержит общую информацию о валютах и предназначен для добавления новых валют (рекомендуется для корректного заполнения данных о валюте).
В Общероссийском классификаторе валют выводится:
diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form
index 160d43c0c..4020de4d1 100644
--- a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form
@@ -709,14 +709,7 @@
Подобрать валюты из Общероссийского классификатора валют
@@ -738,14 +731,7 @@
Загрузить курсы валют с веб-сайта РБК
diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl
index f788ec976..6f263c1d2 100644
--- a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl
@@ -17,6 +17,11 @@
Элементы.Валюты.РежимВыбора = Параметры.РежимВыбора;
+ Если Не Пользователи.РолиДоступны("ДобавлениеИзменениеБазовойНСИ") Тогда
+ Элементы.ФормаПодборИзОКВ.Видимость = Ложь;
+ Элементы.ФормаЗагрузитьКурсыВалют.Видимость = Ложь;
+ КонецЕсли;
+
КонецПроцедуры
&НаКлиенте
diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html
index b761db9ca..214f17443 100644
--- a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Описание свойств используемой валюты.
Валюта широко используется в деятельности любого предприятия: во всех документах, которые имеют дело с денежными суммами (счета, платежные поручения, договоры, накладные) присутствует поле Валюта, явно или по умолчанию. Значение поля Валюта заполняется в зависимости от направления деятельности предприятия: рубль, иностранная валюта или у.е.
Список предназначен для ведения валют, используемых в программе. Необходимые для работы валюты можно подобрать из Общероссийского классификатора валют - ОКВ (рекомендуется) или добавить вручную.
Открыть список валют можно из раздела Справочники.
В списке выводится:
diff --git a/SSL/src/Catalogs/Валюты/ObjectModule.bsl b/SSL/src/Catalogs/Валюты/ObjectModule.bsl
index 98811939c..81f03df05 100644
--- a/SSL/src/Catalogs/Валюты/ObjectModule.bsl
+++ b/SSL/src/Catalogs/Валюты/ObjectModule.bsl
@@ -82,6 +82,7 @@
Если ЭтоНовый() Тогда
ДополнительныеСвойства.Вставить("ОбновитьКурсы");
+ ДополнительныеСвойства.Вставить("ЭтоНовый");
Иначе
ПредыдущиеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка, "Код,СпособУстановкиКурса,ОсновнаяВалюта,Наценка,ФормулаРасчетаКурса");
Если (ПредыдущиеЗначения.СпособУстановкиКурса <> СпособУстановкиКурса)
@@ -144,6 +145,10 @@
КонецЦикла;
НаборЗаписей.ДополнительныеСвойства.Вставить("ОтключитьКонтрольПодчиненныхВалют", Истина);
+ Если ПодчиненнаяВалюта.ДополнительныеСвойства.Свойство("ЭтоНовый") Тогда
+ НаборЗаписей.ДополнительныеСвойства.Вставить("ПропуститьПроверкуЗапретаИзменения");
+ КонецЕсли;
+
НаборЗаписей.Записать();
ИначеЕсли СпособУстановкиКурса = Перечисления.СпособыУстановкиКурсаВалюты.РасчетПоФормуле Тогда
@@ -175,6 +180,11 @@
НаборЗаписей.Прочитать();
НаборЗаписей.ДополнительныеСвойства.Вставить("ОбновитьКурсЗависимойВалюты", ПодчиненнаяВалюта.Ссылка);
НаборЗаписей.ДополнительныеСвойства.Вставить("ОбновленныеПериоды", ОбновленныеПериоды);
+
+ Если ПодчиненнаяВалюта.ДополнительныеСвойства.Свойство("ЭтоНовый") Тогда
+ НаборЗаписей.ДополнительныеСвойства.Вставить("ПропуститьПроверкуЗапретаИзменения");
+ КонецЕсли;
+
НаборЗаписей.Записать();
КонецЦикла
diff --git a/SSL/src/Catalogs/Валюты/Templates/ОбщероссийскийКлассификаторВалют/Template.txt b/SSL/src/Catalogs/Валюты/Templates/ОбщероссийскийКлассификаторВалют/Template.txt
index ded747288..2a346a1fd 100644
--- a/SSL/src/Catalogs/Валюты/Templates/ОбщероссийскийКлассификаторВалют/Template.txt
+++ b/SSL/src/Catalogs/Валюты/Templates/ОбщероссийскийКлассификаторВалют/Template.txt
@@ -65,10 +65,8 @@
-
-
@@ -156,7 +154,7 @@
-
+
diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Help/ru.html b/SSL/src/Catalogs/ВариантыОтветовАнкет/Help/ru.html
index 0e6731ce5..bb402cec8 100644
--- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Help/ru.html
+++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Ведение списка вариантов ответов на вопросы типов Выбор одного или нескольких вариантов ответа из предложенных.
Существуют вопросы анкеты типа Выбор одного варианта ответа из предложенных или Выбор нескольких вариантов ответа из предложенных. В этих случаях ответ респондента сводится к выбору одного или нескольких вариантов ответа из списка с помощью переключателей.
Заполните Наименование варианта отчета, которое выводится в списках программы и в панели отчетов.
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
index b3950f20b..6885988ef 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
+++ b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для управления вариантами отчетов, для настройки размещения в панелях отчетов разделов программы.
Программа позволяет сохранять и использовать несколько вариантов одного и того же отчета. Предусмотрены предопределенные варианты отчетов. Также можно создавать свои собственные варианты отчетов, изменяя настройки существующих: настройки формирования и внешнего вида (состав полей, сортировки, группировки, условное оформление).
В программе предусмотрена возможность создавать общие варианты отчетов. Общие варианты отчетов доступны всем пользователям этого отчета.
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form
index 1934e98e9..3dbc59643 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form
@@ -37,10 +37,6 @@
Список.ИндексКартинкиТекущий
-
- ru
- Пользователь, который добавил версию файла.
- СписокИндексКартинкиТекущийРасширеннаяПодсказка91
@@ -88,7 +84,7 @@
ru
- Пользователь, который добавил версию файла.
+ Пользователь, который добавил версию файла в списокСписокАвторРасширеннаяПодсказка
@@ -199,7 +195,7 @@
ru
- Номер версии файла.
+ Номер версии файлаСписокНомерВерсииРасширеннаяПодсказка
@@ -244,6 +240,10 @@
Список.Комментарий
+
+ ru
+ Комментарий к версии файла
+ СписокКомментарийРасширеннаяПодсказка95
@@ -287,7 +287,7 @@
ru
- Дата добавления версии файла в базу.
+ Дата добавления версии файла в списокСписокДатаСозданияРасширеннаяПодсказка
@@ -334,7 +334,7 @@
ru
- Размер данных версии файла.
+ Размер версии файла в байтахСписокРазмерРасширеннаяПодсказка
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl
index f451bd6ed..1bf30bc85 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl
@@ -282,6 +282,11 @@
ФайлОбъект.Записать();
РазблокироватьДанныеДляРедактирования(ФайлОбъект.Ссылка, УникальныйИдентификаторКарточкиФайла);
+ ВерсияОбъект = Версия.ПолучитьОбъект();
+ ЗаблокироватьДанныеДляРедактирования(Версия, , УникальныйИдентификаторКарточкиФайла);
+ ВерсияОбъект.Записать();
+ РазблокироватьДанныеДляРедактирования(Версия, УникальныйИдентификаторКарточкиФайла);
+
КонецПроцедуры
&НаСервере
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВыборСпособаСравненияВерсий/Help/ru.html b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВыборСпособаСравненияВерсий/Help/ru.html
index 494aeb548..6f48cf8b1 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ВыборСпособаСравненияВерсий/Help/ru.html
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВыборСпособаСравненияВерсий/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Выбор программы для сравнения версий файлов. В программе предусмотрена возможность сравнивать версии файлов формата HTML, TXT, RTF, DOC, DOCX, ODT.
Позволяет задать текстовый редактор, который будет использоваться для сравнения версий файлов между собой. Вызывается при выполнении команды Показать отличия из списка версий файла, если текстовый редактор для сравнения не задан по умолчанию.
По окончании редактирования файла (по команде Завершить редактирование в списке файлов) программа рекомендует сохранить версию файла и ввести информацию о данной версии. По умолчанию эта возможность включена (рекомендуется использовать сохранение версий, так как в случае серьезных ошибок, которые привели к порче файла, можно вернуться к более ранней, неиспорченной версии). Впоследствии можно отредактировать комментарий и при необходимости изменить автора версии.
Предназначен для просмотра и управления версиями файла.
Для просмотра списка всех версий файла откройте его карточку (в списке файлов нажмите F2 или Еще -Открыть карточку) и нажмите Версии файла на панели навигации.
Список версий является иерархическим, для удобства просмотра отображается в виде дерева. В этом случае легко проследить историю редактирования файла. Более поздние версии отображаются подчиненными более ранним. При этом первую версию файла удалить из списка невозможно.
diff --git a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
index 0aef8819e..2a6568b77 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
@@ -116,6 +116,7 @@
КонецЕсли;
Исключение
+ // Обработка исключения не требуется
КонецПопытки;
КонецЕсли;
КонецЕсли;
diff --git a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo
index 1460f89b2..1985a0486 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo
+++ b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo
@@ -57,9 +57,13 @@
UseOwner
+
+ ru
+ Файл
+ ru
- Владелец
+ Владелец версии файлаtrue
@@ -149,7 +153,7 @@
ru
- Пользователь, который добавил версию файла
+ Пользователь, который добавил версию файла в список
@@ -165,7 +169,7 @@
ДатаМодификацииУниверсальнаяru
- Дата модификации универсальная
+ Дата изменения (универсальное время)Date
@@ -173,7 +177,7 @@
ru
- Дата изменения данных версии файла, приведенная к Гринвичу (очищенная от смещения летнего времени и смещения зоны)
+ Дата изменения данных версии файла (универсальное время)
@@ -186,7 +190,7 @@
ДатаМодификацииФайлаru
- Дата модификации файла
+ Дата изменения (местное время)Date
@@ -214,7 +218,7 @@
ru
- Дата добавления версии файла в базу
+ Дата добавления версии файла в список
@@ -229,14 +233,14 @@
Зашифрованru
- Зашифрован
+ ЗашифрованаBooleanru
- Версия зашифрована
+ Признак того, что версия файла зашифрована
@@ -249,7 +253,7 @@
ИндексКартинкиru
- Индекс картинки
+ Индекс значкаNumber
@@ -259,7 +263,7 @@
ru
- Индекс иконки, соответствующей расширению файла, для показа в списке
+ Индекс значка версии файла (служебное поле)
@@ -280,7 +284,7 @@
ru
- Комментарий к версии
+ Комментарий к версии файлаtrue
@@ -293,7 +297,7 @@
НомерВерсииru
- Номер версии
+ НомерNumber
@@ -315,14 +319,14 @@
ПодписанЭПru
- Подписан ЭП
+ Подписана электронноBooleanru
- Файл версии подписан ЭП
+ Признак того, что версия файла подписана электронно
@@ -344,7 +348,7 @@
ru
- Полное наименование (длиной до 256 символов)
+ Имя версии файла (без расширения) длиной до 256 символов
@@ -367,7 +371,7 @@
ru
- Дополнительный путь к файлу на диске (когда файл хранится в томе)
+ Путь к версии файла в томе (служебное поле)
@@ -388,7 +392,7 @@
ru
- Размер данных версии файла
+ Размер версии файла в байтах
@@ -433,7 +437,7 @@
ru
- Родительская версия для данной версии - возможна древесная структура версий
+ Родительская версия (возможна иерархическая структура версий)
@@ -455,7 +459,7 @@
ru
- Статус извлечения текста - для фонового задания извлечения текста
+ Статус извлечения текста из файла (служебное поле)
@@ -477,7 +481,7 @@
ru
- Текст, извлеченный из файла - для полнотекстового поиска
+ Текст, извлеченный из файла (служебное поле)
@@ -489,14 +493,14 @@
ТипХраненияФайлаru
- Тип хранения файла
+ Тип хранения версии файлаEnumRef.ТипыХраненияФайловru
- Где хранятся файлы - в базе как хранилище значения или в каталоге на диске
+ Тип хранения версии файла (в томе или в информационной базе)
@@ -515,7 +519,7 @@
ru
- Том хранения файлов (если файл хранится в томе)
+ Том хранения файлов (когда версия файла хранится в томе)
@@ -528,14 +532,14 @@
ФайлХранилищеru
- Файл
+ Временное хранилище версии файлаValueStorageru
- Временное хранилище файла (служебное поле)
+ Временное хранилище версии файла (служебное поле)
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Help/ru.html b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Help/ru.html
index 285244f84..489b34d32 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Help/ru.html
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Список предназначен для выбора вида контактной информации.
Виды контактной информации представляют собой предопределенные группы, каждая из которых соответствует спискам или документам, которые являются носителями контактной информации, а элементы внутри этих групп определяют состав контактной информации этих объектов программы. При этом состав групп не может быть изменен. Список групп имеет иерархическую структуру в виде дерева.
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl
index d2c4e70ed..13da2eccd 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl
@@ -1,22 +1,3 @@
-
-#Область ОбработчикиКомандФормы
-
-&НаКлиенте
-Процедура ПереместитьЭлементВверх()
-
- НастройкаПорядкаЭлементовКлиент.ПереместитьЭлементВверхВыполнить(Список, Элементы.Список);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПереместитьЭлементВниз()
-
- НастройкаПорядкаЭлементовКлиент.ПереместитьЭлементВнизВыполнить(Список, Элементы.Список);
-
-КонецПроцедуры
-
-#КонецОбласти
-
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
@@ -32,3 +13,45 @@
КонецПроцедуры
#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура ПереместитьЭлементВверх()
+
+ Если Не ВозможноПеремещениеЭлемента(Элементы.Список.ТекущиеДанные.Ссылка, "Вверх") Тогда
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Нстр("ru = 'Перемещение данного вида контактной информации не предусмотрено'"));
+ Возврат;
+ КонецЕсли;
+
+ НастройкаПорядкаЭлементовКлиент.ПереместитьЭлементВверхВыполнить(Список, Элементы.Список);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПереместитьЭлементВниз()
+
+ Если Не ВозможноПеремещениеЭлемента(Элементы.Список.ТекущиеДанные.Ссылка, "Вниз") Тогда
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Нстр("ru = 'Перемещение данного вида контактной информации не предусмотрено'"));
+ Возврат;
+ КонецЕсли;
+
+ НастройкаПорядкаЭлементовКлиент.ПереместитьЭлементВнизВыполнить(Список, Элементы.Список);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервере
+Функция ВозможноПеремещениеЭлемента(ТекущийЭлемент, Направление)
+
+ СоседнийЭлемент = НастройкаПорядкаЭлементовСлужебный.СоседнийЭлемент(ТекущийЭлемент, Список, Направление);
+
+ Возврат СоседнийЭлемент = Неопределено Или Не (ТекущийЭлемент.ЗапретитьРедактированиеПользователем Или СоседнийЭлемент.ЗапретитьРедактированиеПользователем);
+
+КонецФункции
+
+#КонецОбласти
+
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form
index ffbc7af5f..72b8addf8 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form
@@ -572,7 +572,7 @@
123
<key>ru</key>
- <value>При проверки адреса по классификатору ФИАС выполняются дополнительные проверки:
+ <value>При проверке адреса по классификатору ФИАС выполняются дополнительные проверки:
- "Округ" (между уровнями "Регион" и "Район").
- "Внутригородской район" (между уровнями "Город" и "Населенный пункт")
- Уровни дополнительных территорий (между "Улица", и номером дома или владения)
@@ -1074,6 +1074,7 @@
<edit>
<common>true</common>
</edit>
+ <savedData>true</savedData>
</attributes>
<commandInterface>
<navigationPanel/>
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
index 0f25d2700..f119a22ee 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств поля контактной информации.</p>
<p>Поставка программы осуществляется c предопределенными полями контактной информации для некоторых документов и списков. У предопределенных полей контактной информации можно только поменять настройки, остальные реквизиты заполнены по умолчанию и защищены от редактирования.</p>
<h3>Типы контактной информации</h3>
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl
index fde91e3cb..322220bdc 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl
@@ -8,6 +8,10 @@
Возврат;
КонецЕсли;
+ Если Объект.ЗапретитьРедактированиеПользователем Тогда
+ ТолькоПросмотр = Истина;
+ КонецЕсли;
+
Если Объект.Предопределенный Тогда
Элементы.Наименование.ТолькоПросмотр = Истина;
Элементы.Родитель.ТолькоПросмотр = Истина;
@@ -106,7 +110,10 @@
&НаКлиенте
Процедура ЗапрещатьВводНекорректногоПриИзменении(Элемент)
+
+ ПроверятьПоКлассификаторуПриИзменении(Элемент);
ОтобразитьДоступностьВариантовПроверкиПоКлассификатору();
+
КонецПроцедуры
&НаКлиенте
@@ -118,16 +125,12 @@
&НаКлиенте
Процедура ПроверятьПоКлассификаторуПриИзменении(Элемент)
- Если ПроверятьПоКлассификатору = 0 Тогда
- Объект.ПроверятьПоФИАС = Истина;
- Объект.ПроверятьКорректность = Истина;
- Иначе
- Объект.ПроверятьПоФИАС = Ложь;
- Объект.ПроверятьКорректность = Истина;
- КонецЕсли;
+
+ Объект.ПроверятьПоФИАС = (ПроверятьПоКлассификатору = 0);
+ Объект.ПроверятьКорректность = Объект.ЗапрещатьВводНекорректного;
+
КонецПроцедуры
-
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -171,8 +174,6 @@
Элементы.РедактированиеТолькоВДиалоге.Доступность = Ложь;
КонецЕсли;
-
-
КонецПроцедуры
&НаКлиенте
@@ -207,7 +208,7 @@
&НаКлиенте
Процедура ИзменитьОтображениеПриИзмененииТолькоРоссии()
- Элементы.ПроверятьПоКлассификатору.Доступность = Объект.АдресТолькоРоссийский;
+ Элементы.ПроверятьПоКлассификатору.Доступность = Объект.ЗапрещатьВводНекорректного;
Элементы.ЗапрещатьВводНекорректного.Доступность = Объект.АдресТолькоРоссийский;
Элементы.СкрыватьНеактуальныеАдреса.Доступность = Объект.АдресТолькоРоссийский;
@@ -232,6 +233,4 @@
КонецПроцедуры
-
-
#КонецОбласти
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Help/ru.html b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Help/ru.html
index f6ff5dea0..3bc46b83a 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Help/ru.html
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для настройки видов контактной информации в документах и списках программы. </p>
<p>Программа позволяет хранить и обрабатывать контактную информацию, использующуюся на предприятии.</p>
<p>Работа с контактной информацией в разных списках программы реализована одинаково. Все списки предоставляют одинаковую возможность по работе с адресами или телефонами. В программе также предусмотрена возможность хранения контактной информации в табличных частях документов и загрузка контактной информации. В табличных частях документов можно редактировать контактную информацию. Такая возможность может потребоваться при работе в документах представляемой электронной отчетности. Связано это с необходимостью сохранения в данных документа точной копии представленных в фискальные органы сведений, в том числе адресов и телефонов физических лиц.</p>
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo
index cf077817b..1713cc961 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo
@@ -469,6 +469,25 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
+ <attributes uuid="5ea29362-0ab7-4ca3-865e-bf93db5ca24b">
+ <name>ЗапретитьРедактированиеПользователем</name>
+ <synonym>
+ <key>ru</key>
+ <value>Запретить редактирование пользователем</value>
+ </synonym>
+ <type>
+ <types>Boolean</types>
+ </type>
+ <toolTip>
+ <key>ru</key>
+ <value>Запретить редактирование пользователем вида пользователем</value>
+ </toolTip>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
<forms uuid="f5ef3f75-7d12-4284-844f-54d19d1f7e2f">
<name>ФормаСписка</name>
<synonym>
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
index b6beef754..9b56e4949 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
@@ -66,6 +66,11 @@
Элементы.СоздатьВнешнегоПользователя.Видимость = Ложь;
КонецЕсли;
+ Если Не Пользователи.РолиДоступны("ДобавлениеИзменениеВнешнихПользователей") Тогда
+ Элементы.ВнешниеПользователиСписокКонтекстноеМенюНазначитьГруппы.Видимость = Ложь;
+ Элементы.НазначитьГруппы.Видимость = Ложь;
+ КонецЕсли;
+
Если НЕ Пользователи.ЭтоПолноправныйПользователь(, ОбщегоНазначенияПовтИсп.РежимРаботыПрограммы().Локальный) Тогда
Если Элементы.Найти("ПользователиИБ") <> Неопределено Тогда
Элементы.ПользователиИБ.Видимость = Ложь;
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html
index d5ba65641..f0e418f72 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств внешнего пользователя.</p>
<p>Для <a href="#1">ввода или редактирования</a> сведений о внешнем пользователе необходимы права администрирования или права ответственного за список <a href="Catalog.ВнешниеПользователи/Help">внешних пользователей</a>. </p>
<p><a href="#2">Вход в программу</a> разрешает только администратор. </p>
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
index 065437ec5..bee4b35d3 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
@@ -112,8 +112,10 @@
ОбщаяНастройкаФормы(Истина);
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ИмяЭлементаДляРазмещения", "СтраницаДополнительныеРеквизиты");
МодульУправлениеСвойствами = ОбщегоНазначения.ОбщийМодуль("УправлениеСвойствами");
- МодульУправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, , "СтраницаДополнительныеРеквизиты");
+ МодульУправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html b/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html
index 12770462e..b49fd4cb5 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для ведения пользователей, которые работают с программой "извне". Их доступ, как правило, сильно ограничен. Внешние пользователи не принимают активного участия в процессах учета, работают обособленно, не взаимодействуют между собой. Например, это сотрудники в кадровой базе, покупатели в интернет-магазине, респонденты в базе для анкетирования.</p>
<p>Открыть список внешних пользователей можно из раздела <strong>Администрирование - Настройки пользователей и прав</strong>. Также можно его открыть из раздела <strong>Анкетирование</strong> (<strong>Управление доступом</strong>).</p>
<p>Внешние пользователи программы разного типа, поэтому информация о них хранится в различных списках программы.</p>
diff --git a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ВопросыШаблонаАнкеты.mdo b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ВопросыШаблонаАнкеты.mdo
index e8a1f5382..2bd7cb0fd 100644
--- a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ВопросыШаблонаАнкеты.mdo
+++ b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ВопросыШаблонаАнкеты.mdo
@@ -59,6 +59,10 @@
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Owner</name>
+ <synonym>
+ <key>ru</key>
+ <value>Шаблон анкеты</value>
+ </synonym>
<toolTip>
<key>ru</key>
<value>Шаблон анкеты, которому принадлежит данный вопрос</value>
@@ -75,6 +79,10 @@
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Parent</name>
+ <synonym>
+ <key>ru</key>
+ <value>Раздел</value>
+ </synonym>
<toolTip>
<key>ru</key>
<value>Раздел, в который входит вопрос шаблона анкеты</value>
diff --git a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo
index dcd23abd3..a238f73f8 100644
--- a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo
+++ b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo
@@ -120,7 +120,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, добавивший файл</value>
+ <value>Пользователь, который добавил файл в список</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -138,14 +138,14 @@
<name>ВладелецФайла</name>
<synonym>
<key>ru</key>
- <value>Владелец файла</value>
+ <value>Размещение</value>
</synonym>
<type>
<types>DocumentRef.Встреча</types>
</type>
<toolTip>
<key>ru</key>
- <value>Объект-владелец файла</value>
+ <value>Место размещения файла (объект)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -157,7 +157,7 @@
<name>ДатаМодификацииУниверсальная</name>
<synonym>
<key>ru</key>
- <value>Дата модификации универсальная</value>
+ <value>Дата изменения (универсальное время)</value>
</synonym>
<type>
<types>Date</types>
@@ -165,7 +165,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Универсальная дата модификации файла</value>
+ <value>Дата изменения данных файла (универсальное время)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -185,7 +185,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Дата создания файла</value>
+ <value>Дата добавления файла в список</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -219,14 +219,14 @@
<name>Изменил</name>
<synonym>
<key>ru</key>
- <value>Изменил</value>
+ <value>Отредактировал</value>
</synonym>
<type>
<types>CatalogRef.Пользователи</types>
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, отредактировавший файл последним</value>
+ <value>Последний пользователь, который отредактировал файл</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -242,7 +242,7 @@
<name>ИндексКартинки</name>
<synonym>
<key>ru</key>
- <value>Индекс картинки</value>
+ <value>Индекс значка</value>
</synonym>
<type>
<types>Number</types>
@@ -252,7 +252,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Индекс картинки файла (служебное поле)</value>
+ <value>Индекс значка файла (служебное поле)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -286,14 +286,14 @@
<name>ПодписанЭП</name>
<synonym>
<key>ru</key>
- <value>Подписан ЭП</value>
+ <value>Подписан электронно</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<toolTip>
<key>ru</key>
- <value>Признак того, что файл подписан с помощью электронной подписи.</value>
+ <value>Признак того, что файл подписан электронно</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -325,7 +325,7 @@
<name>Размер</name>
<synonym>
<key>ru</key>
- <value>Размер</value>
+ <value>Размер (байт)</value>
</synonym>
<type>
<types>Number</types>
@@ -377,7 +377,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, редактирующий файл в данный момент</value>
+ <value>Пользователь, который занял файл для редактирования</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -441,7 +441,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Тип хранения файла (в томе или непосредственно в системе)</value>
+ <value>Тип хранения файла (в томе или в информационной базе)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -460,7 +460,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Том для хранения файла</value>
+ <value>Том хранения файлов (когда файл хранится в томе)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -472,7 +472,7 @@
<name>ФайлХранилище</name>
<synonym>
<key>ru</key>
- <value>Файл хранилище</value>
+ <value>Временное хранилище файла</value>
</synonym>
<type>
<types>ValueStorage</types>
diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Help/ru.html
index 24676c12c..294743144 100644
--- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<h1>Группа внешних пользователей</h1>
<p>Просмотр и редактирование свойств группы <a href="Catalog.ВнешниеПользователи/Help">внешних пользователей</a>.</p>
<p class="Usual">Внешних пользователей можно объединять в <a href="Catalog.ГруппыВнешнихПользователей/Help">группы</a> по разным признакам. Группа внешних пользователей может включать однородных пользователей, например, контрагентов или физические лица. Также можно создать группу внешних пользователей, которая включает различных внешних пользователей со сходными свойствами, например, респондентов или участников опроса. Так удобнее настраивать права доступа.</p>
diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl
index 6f11dd45b..893d01de8 100644
--- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl
@@ -21,7 +21,7 @@
Если Не ЗначениеЗаполнено(Объект.Ссылка) Тогда
Если Объект.Родитель = Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи
- Или ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Родитель, "ВсеОбъектыАвторизации") Тогда
+ Или ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Родитель, "ВсеОбъектыАвторизации") = Истина Тогда
Объект.Родитель = Справочники.ГруппыВнешнихПользователей.ПустаяСсылка();
КонецЕсли;
@@ -428,6 +428,7 @@
Функция ПеремещениеПользователяВГруппу(МассивПользователей, НоваяГруппаВладелец)
МассивПеремещенныхПользователей = Новый Массив;
+ МассивНеПеремещенныхПользователей = Новый Массив;
Для Каждого ПользовательСсылка Из МассивПользователей Цикл
ПараметрыОтбора = Новый Структура("ВнешнийПользователь", ПользовательСсылка);
@@ -440,7 +441,7 @@
КонецЦикла;
Возврат ПользователиСлужебный.ФормированиеСообщенияПользователю(
- МассивПеремещенныхПользователей, НоваяГруппаВладелец, Ложь);
+ МассивПеремещенныхПользователей, НоваяГруппаВладелец, Ложь, МассивНеПеремещенныхПользователей);
КонецФункции
@@ -498,7 +499,7 @@
ДействияВФорме.СоставГруппы = "Редактирование";
ДействияВФорме.СвойстваЭлемента = "Редактирование";
- ИначеЕсли РольДоступна("ДобавлениеИзменениеВнешнихПользователей") Тогда
+ ИначеЕсли Пользователи.РолиДоступны("ДобавлениеИзменениеВнешнихПользователей") Тогда
// Менеджер внешних пользователей.
ДействияВФорме.Роли = "";
ДействияВФорме.СоставГруппы = "Редактирование";
diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Help/ru.html b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Help/ru.html
index c46de5427..69edb6e91 100644
--- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для ведения групп <a href="Catalog.ВнешниеПользователи/Help">внешних пользователей</a>.</p>
<p>Удобно использовать группы, когда в программе много внешних пользователей: </p>
<ul><li>
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Help/ru.html b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
index ec30d8058..713921871 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Список предназначен для выбора папок <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a>.</p>
<p>Т.к. групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p>
<p><a href="Catalog.ГруппыДоступа/Help">Группы доступа</a> можно сгруппировать по различным признакам.</p>
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Help/ru.html b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Help/ru.html
index e9a26b76c..8919c52c0 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств папки <a href="Catalog.ГруппыДоступа/Help">групп доступа</a>.</p>
<p>Т.к. <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a> может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать <a href="Catalog.ГруппыДоступа.Form.ФормаВыбораГруппы/Help">папки</a> для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p>
<p>Группы доступа можно сгруппировать в папки по различным признакам.</p>
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Help/ru.html b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Help/ru.html
index 0f2747565..85e00ff3b 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Список групп доступа предназначен для ведения <a href="Catalog.ГруппыДоступа/Help">групп доступа</a> и позволяет просмотреть имеющиеся настройки прав с ограничениями.</p>
<p>Список групп доступа открывается по команде <strong>Группы доступа</strong> из раздела <strong>Администрирование - Настройки пользователей и прав</strong>. Для быстрого перехода к списку групп доступа, созданных на базе профиля групп доступа, можно воспользоваться командой <strong>Группы доступа</strong> на панели навигации профиля групп доступа.</p>
<p>Группа доступа определяет совокупность действий с данными программы, которые могут выполнять участники этой группы. Как правило, группы доступа соответствуют различным должностным обязанностям (или видам деятельности) <a href="Catalog.Пользователи/Help">пользователей</a> программы. Пользователь может входить одновременно в одну или несколько групп доступа, которые в совокупности образуют его <a href="CommonForm.ПраваДоступа/Help">персональные настройки прав доступа</a>.</p>
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Help/ru.html
index 8d881ef22..48e715c35 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств группы доступа.</p>
<p>Группа доступа определяет совокупность действий с данными программы, которые могут выполнять участники этой группы. Как правило, <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">группы доступа</a> соответствуют различным должностным обязанностям (или видам деятельности) пользователей программы. Пользователь может входить одновременно в одну или несколько групп доступа, которые в совокупности образуют его персональные настройки прав доступа.</p>
<p>С помощью группы доступа можно задавать и администрировать общие настройки прав доступа для некоторой группы пользователей, выполняющих однотипные функции в программе, например, <strong>Бухгалтеры</strong>.</p>
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Help/ru.html b/SSL/src/Catalogs/ГруппыДоступа/Help/ru.html
index 77ceba986..e962223a1 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыДоступа/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p><a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">Группы доступа</a> предназначены для настройки прав и ограничений прав доступа конкретным пользователям и группам пользователей программы.</p>
<p>Программа позволяет настроить доступ пользователей к различным функциям, спискам и документам. Предусмотрены предопределенные наборы ролей. Кроме этого, имеется возможность самостоятельной настройки доступа. Управление доступом осуществляет администратор. При этом пользователь, назначенный ответственным в <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группе доступа</a>, может изменять состав своей группы доступа.</p>
<p>Набор прав и возможности по их ограничению определяются заданным <a href="Catalog.ПрофилиГруппДоступа/Help">профилем групп доступа</a>. </p>
diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Help/ru.html
index 02ffc2921..5035e46d1 100644
--- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<h1>Группа пользователей</h1>
<p>Просмотр и редактирование свойств группы <a href="Catalog.Пользователи/Help">пользователей</a>.</p>
<p>Пользователей можно объединять в <a href="Catalog.ГруппыПользователей/Help">группы</a> по разным признакам, например, по должностям или в соответствии со структурой предприятия. Это ускоряет настройку прав доступа - можно настроить их одновременно нескольким пользователям, которые выполняют сходные функции.</p>
diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl
index 969c00994..ad6b87eb5 100644
--- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl
@@ -175,6 +175,7 @@
Функция ПеремещениеПользователяВГруппу(МассивПользователей, НоваяГруппаВладелец)
МассивПеремещенныхПользователей = Новый Массив;
+ МассивНеПеремещенныхПользователей = Новый Массив;
Для Каждого ПользовательСсылка Из МассивПользователей Цикл
ПараметрыОтбора = Новый Структура("Пользователь", ПользовательСсылка);
@@ -187,7 +188,7 @@
КонецЦикла;
Возврат ПользователиСлужебный.ФормированиеСообщенияПользователю(
- МассивПеремещенныхПользователей, НоваяГруппаВладелец, Ложь);
+ МассивПеремещенныхПользователей, НоваяГруппаВладелец, Ложь, МассивНеПеремещенныхПользователей);
КонецФункции
diff --git a/SSL/src/Catalogs/ГруппыПользователей/Help/ru.html b/SSL/src/Catalogs/ГруппыПользователей/Help/ru.html
index 2331c5ecb..4c072e5a4 100644
--- a/SSL/src/Catalogs/ГруппыПользователей/Help/ru.html
+++ b/SSL/src/Catalogs/ГруппыПользователей/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для ведения групп пользователей.</p>
<p>Удобно использовать группы, когда в программе много <a href="Catalog.Пользователи/Help">пользователей</a>:</p>
<ul><li>
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl
index f4013377b..9325e7eb5 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl
@@ -134,7 +134,7 @@
&НаСервере
Процедура ЗаполнитьТаблицы()
СписокВыбранных = Параметры.ПользователиСБыстрымДоступом;
- Запрос = Новый Запрос("ВЫБРАТЬ Ссылка ИЗ Справочник.Пользователи ГДЕ НЕ ПометкаУдаления И НЕ Недействителен");
+ Запрос = Новый Запрос("ВЫБРАТЬ Ссылка ИЗ Справочник.Пользователи ГДЕ НЕ ПометкаУдаления И НЕ Недействителен И НЕ Служебный");
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если СписокВыбранных.НайтиПоЗначению(Выборка.Ссылка) = Неопределено Тогда
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form
index 1ed9fd4b8..21e8d850a 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form
@@ -281,17 +281,104 @@
</extendedTooltip>
<extInfo xsi:type="form:ButtonGroupExtInfo"/>
</items>
- <items xsi:type="form:Button">
- <name>УстановкаСнятиеПометкиУдаления</name>
- <id>89</id>
+ <items xsi:type="form:FormGroup">
+ <name>ГруппаИзменить</name>
+ <id>103</id>
+ <items xsi:type="form:Button">
+ <name>ИзменитьПометкуУдаленияБезПрофилей</name>
+ <id>105</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <extendedTooltip>
+ <name>ИзменитьПометкуУдаленияБезПрофилейРасширеннаяПодсказка</name>
+ <id>106</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <commandName>0</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>95</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <extendedTooltip>
+ <name>ИзменитьПометкуУдаленияСПрофилямиРасширеннаяПодсказка</name>
+ <id>96</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <commandName>Form.Command.ИзменитьПометкуУдаленияСПрофилями</commandName>
+ <buttonImportance>Normal</buttonImportance>
+ <representation>Auto</representation>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <placementArea>UserCmds</placementArea>
+ <representationInContextMenu>Auto</representationInContextMenu>
+ <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
+ </items>
+ <items xsi:type="form:Button">
+ <name>ИзменитьВыделенные</name>
+ <id>62</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <extendedTooltip>
+ <name>ИзменитьВыделенныеРасширеннаяПодсказка</name>
+ <id>63</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <commandName>Form.Command.ИзменитьВыделенные</commandName>
+ <buttonImportance>Normal</buttonImportance>
+ <representation>Auto</representation>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <placementArea>UserCmds</placementArea>
+ <representationInContextMenu>Auto</representationInContextMenu>
+ </items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
+ <title>
+ <key>ru</key>
+ <value>Группа изменить</value>
+
+
+ ru
+ Группа изменить
+
- УстановкаСнятиеПометкиУдаленияРасширеннаяПодсказка
- 90
+ ГруппаИзменитьРасширеннаяПодсказка
+ 104Labeltruetrue
@@ -299,14 +386,7 @@
Left
- Form.Command.УстановкаСнятиеПометкиУдаления
- Normal
- Auto
- true
- true
- UserCmds
- Auto
- InAdditionalSubmenu
+ КомандыФормы
@@ -447,17 +527,77 @@
Normal
-
- ЗагрузитьИзФайла
- 56
+
+ ГруппаЗагрузитьВыгрузить
+ 99
+
+ ЗагрузитьИзФайла
+ 56
+ true
+ true
+
+ true
+
+
+ ЗагрузитьИзФайлаРасширеннаяПодсказка
+ 57
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ЗагрузитьИзФайла
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ВыгрузитьВФайл
+ 58
+ true
+ true
+
+ true
+
+
+ ВыгрузитьВФайлРасширеннаяПодсказка
+ 59
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ВыгрузитьВФайл
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ truetruetrue
+
+ <key>ru</key>
+ <value>Группа загрузить выгрузить</value>
+
+
+ ru
+ Группа загрузить выгрузить
+
- ЗагрузитьИзФайлаРасширеннаяПодсказка
- 57
+ ГруппаЗагрузитьВыгрузитьРасширеннаяПодсказка
+ 100Labeltruetrue
@@ -465,65 +605,7 @@
Left
- Form.Command.ЗагрузитьИзФайла
- Normal
- Auto
- true
- true
- UserCmds
- Auto
-
-
- ВыгрузитьВФайл
- 58
- true
- true
-
- true
-
-
- ВыгрузитьВФайлРасширеннаяПодсказка
- 59
- Label
- true
- true
-
- Left
-
-
- Form.Command.ВыгрузитьВФайл
- Normal
- Auto
- true
- true
- UserCmds
- Auto
-
-
- ИзменитьВыделенные
- 62
- true
- true
-
- true
-
-
- ИзменитьВыделенныеРасширеннаяПодсказка
- 63
- Label
- true
- true
-
- Left
-
-
- Form.Command.ИзменитьВыделенные
- Normal
- Auto
- true
- true
- UserCmds
- Auto
+ Справка
@@ -934,17 +1016,101 @@
СписокКонтекстноеМеню2
-
- ЗагрузитьИзФайлаСписок
- 54
+
+ КнопкиДобавленияМеню
+ 111
+
+ СоздатьМеню
+ 113
+ true
+ true
+
+ true
+
+
+ СоздатьМенюРасширеннаяПодсказка
+ 114
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Create
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ СоздатьГруппуМеню
+ 115
+ true
+ true
+
+ true
+
+
+ СоздатьГруппуМенюРасширеннаяПодсказка
+ 116
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.CreateFolder
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ СкопироватьМеню
+ 117
+ true
+ true
+
+
+ СкопироватьМенюРасширеннаяПодсказка
+ 118
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Copy
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ truetruetrue
+
+ <key>ru</key>
+ <value>Кнопки добавления</value>
+
+
+ ru
+ Кнопки добавления
+
- ЗагрузитьИзФайлаСписокРасширеннаяПодсказка
- 55
+ КнопкиДобавленияМенюРасширеннаяПодсказка
+ 112Labeltruetrue
@@ -952,25 +1118,105 @@
Left
- Form.Command.ЗагрузитьИзФайла
- Normal
- Auto
- true
- true
- UserCmds
- Auto
+
-
- ВыгрузитьВФайлСписок
- 52
+
+ ГруппаИзменитьМеню
+ 107
+
+ ИзменитьПометкуУдаленияБезПрофилейМеню
+ 109
+ true
+ true
+
+ true
+
+
+ ИзменитьПометкуУдаленияБезПрофилейМенюРасширеннаяПодсказка
+ 110
+ Label
+ true
+ true
+
+ Left
+
+
+ 0
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ИзменитьПометкуУдаленияСПрофилямиМеню
+ 93
+ true
+ true
+
+ true
+
+
+ ИзменитьПометкуУдаленияСПрофилямиМенюРасширеннаяПодсказка
+ 94
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ИзменитьПометкуУдаленияСПрофилями
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ИзменитьВыделенныеМеню
+ 60
+ true
+ true
+
+ true
+
+
+ ИзменитьВыделенныеМенюРасширеннаяПодсказка
+ 61
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ИзменитьВыделенные
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ truetruetrue
+
+ <key>ru</key>
+ <value>Группа изменить меню</value>
+
+
+ ru
+ Группа изменить меню
+
- ВыгрузитьВФайлСписокРасширеннаяПодсказка
- 53
+ ГруппаИзменитьМенюРасширеннаяПодсказка
+ 108Labeltruetrue
@@ -978,25 +1224,27 @@
Left
- Form.Command.ВыгрузитьВФайл
- Normal
- Auto
- true
- true
- UserCmds
- Auto
+
-
- ИзменитьВыделенныеСписок
- 60
+
+ КомандыФормыМеню
+ 97truetruetrue
+
+ <key>ru</key>
+ <value>Команды формы</value>
+
+
+ ru
+ Команды формы
+
- ИзменитьВыделенныеСписокРасширеннаяПодсказка
- 61
+ КомандыФормыМенюРасширеннаяПодсказка
+ 98Labeltruetrue
@@ -1004,15 +1252,90 @@
Left
- Form.Command.ИзменитьВыделенные
- Normal
- Auto
- true
- true
- UserCmds
- Auto
+
+ Form
+
+
+
+ ГруппаЗагрузитьВыгрузитьМеню
+ 101
+
+ ЗагрузитьИзФайлаМеню
+ 54
+ true
+ true
+
+ true
+
+
+ ЗагрузитьИзФайлаМенюРасширеннаяПодсказка
+ 55
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ЗагрузитьИзФайла
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ВыгрузитьВФайлМеню
+ 52
+ true
+ true
+
+ true
+
+
+ ВыгрузитьВФайлМенюРасширеннаяПодсказка
+ 53
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ВыгрузитьВФайл
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Группа загрузить выгрузить меню</value>
+
+
+ ru
+ Группа загрузить выгрузить меню
+
+
+ ГруппаЗагрузитьВыгрузитьМенюРасширеннаяПодсказка
+ 102
+ Label
+ true
+ true
+
+ Left
+
+
+
- trueTreetrue
@@ -1327,15 +1650,15 @@
Auto
- УстановкаСнятиеПометкиУдаления
+ ИзменитьПометкуУдаленияСПрофилями
<key>ru</key>
- <value>Пометить на удаление / снять пометку</value>
+ <value>Пометить на удаление / Снять пометку</value>
- 7
+ 8ru
- Установка снятие пометки удаления
+ Пометить на удаление / Снять пометку
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl
index 553e2c726..d01d0365e 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl
@@ -66,11 +66,21 @@
Список.Параметры.УстановитьЗначениеПараметра("ВидыДопОтчетов", ВидыДопОтчетов);
Список.Параметры.УстановитьЗначениеПараметра("ВсеПубликацииКромеНеиспользующихся", ВсеПубликацииКромеНеиспользующихся);
- Элементы.КнопкиДобавления.Видимость = ДополнительныеОтчетыИОбработки.ПравоДобавления();
+ ПравоДобавления = ДополнительныеОтчетыИОбработки.ПравоДобавления();
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Создать", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьМеню", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьГруппу", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьГруппуМеню", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Скопировать", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СкопироватьМеню", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ЗагрузитьИзФайла", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ЗагрузитьИзФайлаМеню", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВыгрузитьВФайл", "Видимость", ПравоДобавления);
+ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВыгрузитьВФайлМеню", "Видимость", ПравоДобавления);
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов") Тогда
Элементы.ИзменитьВыделенные.Видимость = Ложь;
- Элементы.ИзменитьВыделенныеСписок.Видимость = Ложь;
+ Элементы.ИзменитьВыделенныеМеню.Видимость = Ложь;
КонецЕсли;
Если Параметры.Свойство("ПроверкаДополнительныхОтчетовИОбработок") Тогда
@@ -161,14 +171,8 @@
КонецПроцедуры
&НаКлиенте
-Процедура УстановкаСнятиеПометкиУдаления(Команда)
-
- Если Элементы.Список.ТекущиеДанные = Неопределено Тогда
- Возврат;
- КонецЕсли;
-
- НачатьИзменениеПометкиУдаления(Элементы.Список.ТекущиеДанные);
-
+Процедура ИзменитьПометкуУдаленияСПрофилями(Команда)
+ СписокИзменитьПометкуУдаления();
КонецПроцедуры
#КонецОбласти
@@ -312,87 +316,68 @@
КонецФункции
&НаКлиенте
-Процедура НачатьИзменениеПометкиУдаления(ТекущиеДанные)
+Процедура СписокИзменитьПометкуУдаления()
+ СтрокаТаблицы = Элементы.Список.ТекущиеДанные;
+ Если СтрокаТаблицы = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
- Если ТекущиеДанные.ПометкаУдаления Тогда
+ Контекст = Новый Структура("Ссылка, ПометкаУдаления");
+ ЗаполнитьЗначенияСвойств(Контекст, СтрокаТаблицы);
+
+ Если Контекст.ПометкаУдаления Тогда
ТекстВопроса = НСтр("ru = 'Снять с ""%1"" пометку на удаление?'");
Иначе
ТекстВопроса = НСтр("ru = 'Пометить ""%1"" на удаление?'");
КонецЕсли;
+ ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстВопроса, СтрокаТаблицы.Наименование);
- СодержимоеВопроса = Новый Массив;
- СодержимоеВопроса.Добавить(БиблиотекаКартинок.Вопрос32);
- СодержимоеВопроса.Добавить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- ТекстВопроса, ТекущиеДанные.Наименование));
-
- ПоказатьВопрос(
- Новый ОписаниеОповещения("ПродолжитьИзменениеПометкиУдаления", ЭтотОбъект, ТекущиеДанные),
- Новый ФорматированнаяСтрока(СодержимоеВопроса),
- РежимДиалогаВопрос.ДаНет);
-
+ Обработчик = Новый ОписаниеОповещения("СписокИзменитьПометкуУдаленияПослеПодтверждения", ЭтотОбъект, Контекст);
+ ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
КонецПроцедуры
&НаКлиенте
-Процедура ПродолжитьИзменениеПометкиУдаления(Ответ, ТекущиеДанные) Экспорт
-
+Процедура СписокИзменитьПометкуУдаленияПослеПодтверждения(Ответ, Контекст) Экспорт
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
- Ссылка = Элементы.Список.ТекущиеДанные.Ссылка;
-
- ДополнительныеПараметры = Новый Структура;
- ДополнительныеПараметры.Вставить("Ссылка", Ссылка);
- ДополнительныеПараметры.Вставить("ПометкаУдаления", Неопределено);
- ДополнительныеПараметры.Вставить("Запросы", Новый Массив());
- ДополнительныеПараметры.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
-
- ПодготовкаКУстановкеСнятиюПометкиУдаления(Ссылка, ДополнительныеПараметры);
-
- РаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(
- ДополнительныеПараметры.Запросы, ЭтотОбъект, Новый ОписаниеОповещения(
- "ПродолжитьУстановкуСнятиеПометкиУдаления", ЭтотОбъект, ДополнительныеПараметры));
+ Контекст.Вставить("Запросы", Неопределено);
+ Контекст.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
+ ЗаблокироватьОбъектыИСформироватьЗапросыРазрешений(Контекст);
+ Обработчик = Новый ОписаниеОповещения("СписокИзменитьПометкуУдаленияПослеПодтвержденияЗапросов", ЭтотОбъект, Контекст);
+ РаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(Контекст.Запросы, ЭтотОбъект, Обработчик);
КонецПроцедуры
&НаСервереБезКонтекста
-Процедура ПодготовкаКУстановкеСнятиюПометкиУдаления(Ссылка, ДополнительныеПараметры)
+Процедура ЗаблокироватьОбъектыИСформироватьЗапросыРазрешений(Контекст)
+ ЗаблокироватьДанныеДляРедактирования(Контекст.Ссылка, , Контекст.ИдентификаторФормы);
- ЗаблокироватьДанныеДляРедактирования(Ссылка, , ДополнительныеПараметры.ИдентификаторФормы);
-
- Объект = Ссылка.ПолучитьОбъект();
- ДополнительныеПараметры.ПометкаУдаления = Объект.ПометкаУдаления;
-
- Запросы = ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный.ЗапросыРазрешенийДополнительнойОбработки(
- Объект, Объект.Разрешения.Выгрузить(), , Не ДополнительныеПараметры.ПометкаУдаления);
-
- ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ДополнительныеПараметры.Запросы, Запросы);
+ Объект = Контекст.Ссылка.ПолучитьОбъект();
+ Контекст.Запросы = ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный.ЗапросыРазрешенийДополнительнойОбработки(
+ Объект,
+ Объект.Разрешения.Выгрузить(),
+ ,
+ Не Контекст.ПометкаУдаления);
КонецПроцедуры
&НаКлиенте
-Процедура ПродолжитьУстановкуСнятиеПометкиУдаления(Результат, ДополнительныеПараметры) Экспорт
-
- Если Результат = КодВозвратаДиалога.ОК Тогда
-
- ЗавершитьУстановкуСнятиеПометкиУдаления(ДополнительныеПараметры);
- Элементы.Список.Обновить();
-
- КонецЕсли;
-
+Процедура СписокИзменитьПометкуУдаленияПослеПодтвержденияЗапросов(Ответ, Контекст) Экспорт
+ МенятьПометку = (Ответ = КодВозвратаДиалога.ОК);
+ РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, МенятьПометку);
+ Элементы.Список.Обновить();
КонецПроцедуры
&НаСервереБезКонтекста
-Процедура ЗавершитьУстановкуСнятиеПометкиУдаления(ДополнительныеПараметры)
-
- Объект = ДополнительныеПараметры.Ссылка.ПолучитьОбъект();
- Объект.УстановитьПометкуУдаления(Не ДополнительныеПараметры.ПометкаУдаления);
- Объект.Записать();
-
- РазблокироватьДанныеДляРедактирования(
- ДополнительныеПараметры.Ссылка, ДополнительныеПараметры.ИдентификаторФормы);
-
+Процедура РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, МенятьПометку)
+ Если МенятьПометку Тогда
+ Объект = Контекст.Ссылка.ПолучитьОбъект();
+ Объект.УстановитьПометкуУдаления(Не Контекст.ПометкаУдаления);
+ Объект.Записать();
+ КонецЕсли;
+ РазблокироватьДанныеДляРедактирования(Контекст.Ссылка, Контекст.ИдентификаторФормы);
КонецПроцедуры
-
#КонецОбласти
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html
index e2ffb2968..378451aa7 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Часть сведений в карточке дополнительного отчета или обработки программа проставляет по умолчанию, они указаны разработчиком в файле внешней обработки или отчета и их невозможно изменить (список команд и дополнительная информация). Каждая дополнительная обработка может предоставлять одну или несколько команд, размещаемых в окнах объектов программы или в разделах программы.
Существуют два типа дополнительных отчетов и обработок:
@@ -32,7 +32,7 @@
Версия;
Имя объекта;
Описание - подробная информация о дополнительном отчете или обработке.
Группа - включите дополнительную обработку или отчет в одну из групп. Выберите нужную группу из списка. Группы помогают упорядочить дополнительные отчеты и обработки.
Загрузка из файла
-
С помощью команды Загрузить из файла можно обновить обработку во внутреннем хранилище программы. Укажите путь к файлу, нажмите Открыть.
Выгрузка в файл
+
С помощью команды Загрузить из файла можно обновить обработку во внутреннем хранилище программы. Вид загружаемой обработки должен соответствовать текущему виду обработки. Укажите путь к файлу, нажмите Открыть.
Выгрузка в файл
С помощью команды Выгрузить в файл можно выгрузить дополнительный отчет или обработку из хранилища в файл на диске компьютера. Укажите папку на компьютере, нажмите Сохранить. Имя файлу присваивается автоматически, имеется возможность его переименовать.
Как правило, большинство обработок должны выполняться в безопасном режиме. Это гарантирует, что они не содержат "ненадежный" программный код, который выполняется на сервере.
Однако некоторые обработки могут требовать выполнения в небезопасном режиме. Такие обработки следует загружать только из надежных источников (поставщиков) или перед загрузкой самостоятельно выполнять их аудит.
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
index 863455068..b9a7fbc65 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
@@ -12,8 +12,14 @@
// Проверка возможности загрузки новых обработок в информационную базу.
ЭтоНовый = Объект.Ссылка.Пустая();
- Если ЭтоНовый И НЕ ДополнительныеОтчетыИОбработки.ПравоДобавления() Тогда
- ВызватьИсключение НСтр("ru = 'Недостаточно прав доступа для добавления дополнительных отчетов или обработок.'");
+ ПравоДобавления = ДополнительныеОтчетыИОбработки.ПравоДобавления();
+ Если Не ПравоДобавления Тогда
+ Если ЭтоНовый Тогда
+ ВызватьИсключение НСтр("ru = 'Недостаточно прав доступа для добавления дополнительных отчетов или обработок.'");
+ Иначе
+ Элементы.ЗагрузитьИзФайла.Видимость = Ложь;
+ Элементы.ВыгрузитьВФайл.Видимость = Ложь;
+ КонецЕсли;
КонецЕсли;
// Ограничение возможности выбора вида публикации в зависимости от настроек информационной базы.
@@ -28,10 +34,12 @@
Элементы.СтраницаДополнительнаяИнформация.Видимость = ОтображениеРасширеннойИнформации;
// Ограничение возможности загрузки обработки из файла / сохранения в файл.
- Элементы.ЗагрузитьИзФайла.Видимость =
- ДополнительныеОтчетыИОбработки.ВозможнаЗагрузкаОбработкиИзФайла(Объект.Ссылка);
- Элементы.ВыгрузитьВФайл.Видимость =
- ДополнительныеОтчетыИОбработки.ВозможнаВыгрузкаОбработкиВФайл(Объект.Ссылка);
+ Если Не ДополнительныеОтчетыИОбработки.ВозможнаЗагрузкаОбработкиИзФайла(Объект.Ссылка) Тогда
+ Элементы.ЗагрузитьИзФайла.Видимость = Ложь;
+ КонецЕсли;
+ Если Не ДополнительныеОтчетыИОбработки.ВозможнаВыгрузкаОбработкиВФайл(Объект.Ссылка) Тогда
+ Элементы.ВыгрузитьВФайл.Видимость = Ложь;
+ КонецЕсли;
ВидДополнительнаяОбработка = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка;
ВидДополнительныйОтчет = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет;
@@ -500,7 +508,7 @@
ПараметрыДиалога.Заголовок = НСтр("ru = 'Выберите файл внешней обработки'");
КонецЕсли;
- ДополнительныеОтчетыИОбработкиКлиент.ПоказатьПомещениеФайла(Обработчик, УникальныйИдентификатор, Объект.ИмяФайла, ПараметрыДиалога);
+ СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(Обработчик, УникальныйИдентификатор, Объект.ИмяФайла, ПараметрыДиалога);
КонецПроцедуры
&НаКлиенте
@@ -914,10 +922,10 @@
Иначе
ЗаголовокОшибки = НСтр("ru = 'Обработка не подключена'");
КонецЕсли;
- СтандартныеПодсистемыКлиентСервер.РезультатВыполненияДобавитьПредупреждение(
+ СтандартныеПодсистемыКлиентСервер.ВывестиПредупреждение(
ПараметрыРегистрации,
ПараметрыРегистрации.ТекстОшибки,
- НСтр("ru = 'Техническая информация:'") + Символы.ПС + ПараметрыРегистрации.КраткоеПредставлениеОшибки,
+ ПараметрыРегистрации.КраткоеПредставлениеОшибки,
ЗаголовокОшибки);
КонецЕсли;
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
index c4c4b42b0..2801888f7 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для хранения в программе дополнительных отчетов и обработок.
Программа позволяет подключать и использовать дополнительные (внешние) отчеты и обработки в режиме 1С:Предприятия. Они позволяют расширять возможности программы, не внося в нее изменений, что может быть востребовано для оперативного решения каких-либо задач без снятия с поддержки поставщика программы.
Дополнительные отчеты и обработки разрабатываются в режиме Конфигуратора, для этого надо обращаться к разработчику. Также можно получить их из интернета.
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
index 91649d605..259fb9a30 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
@@ -155,8 +155,9 @@
ПриЗаписиНазначаемойОбработки(Отказ);
КонецЕсли;
- Если Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет Тогда
- ПриЗаписиГлобальногоОтчета(Отказ);
+ Если Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет
+ Или Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет Тогда
+ ПриЗаписиОтчета(Отказ);
КонецЕсли;
КонецПроцедуры
@@ -391,7 +392,7 @@
////////////////////////////////////////////////////////////////////////////////
// Глобальные отчеты
-Процедура ПриЗаписиГлобальногоОтчета(Отказ)
+Процедура ПриЗаписиОтчета(Отказ)
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда
diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Help/ru.html
index 2655da4fb..a60539b01 100644
--- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Help/ru.html
@@ -1,7 +1,7 @@
-
+
Предназначена для настройки и хранения отборов, по которым в дальнейшем можно осуществлять быстрый доступ к группе документов взаимодействий.
Закладки могут быть только индивидуальными. С помощью закладок можно группировать документы взаимодействий, например, по отделам предприятия, используя различные условия отбора.
Напишите Наименование. Поле является обязательным.
Для того чтобы задать новое условие для отбора, нажмите Добавить новый элемент. Условий может быть несколько.
В колонке Поле выберите поле документа взаимодействий, по которому будет происходить отбор. Для этого в списке укажите нужное поле, затем нажмите Выбрать. Также можно использовать двойной щелчок мыши.
diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html
index 56b34feb0..dc7278660 100644
--- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html
+++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html
@@ -1,4 +1,4 @@
-
+
С помощью закладок можно группировать документы в списке взаимодействий, например, разместить их в группы по отделам предприятия, используя различные условия отбора. Закладки могут быть только индивидуальными.
Для того чтобы использовать эту возможность, выберите группировку списка взаимодействий По закладкам.
Ввод закладок
diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ЗакладкиВзаимодействий.mdo b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ЗакладкиВзаимодействий.mdo
index d2abee39b..1c0fc8ac1 100644
--- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ЗакладкиВзаимодействий.mdo
+++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ЗакладкиВзаимодействий.mdo
@@ -58,6 +58,10 @@
UseOwner
+
+ ru
+ Пользователь
+ ruПользователь, создавший закладку
@@ -74,6 +78,10 @@
UseParent
+
+ ru
+ Группа
+ ruГруппа, в которую входит данная закладка
diff --git a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Help/ru.html b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Help/ru.html
index 4525d43da..f5938c351 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Help/ru.html
+++ b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Список предназначен для работы с заметками. В списке находятся все заметки, созданные Вами в программе.
Открывается по команде Все заметки в разделе Органайзер.
В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа и которая никому больше не должна быть доступна. Заметки доступны только их автору.
Все заметки, введенные по поводу данного объекта программы, отображаются в этом списке.
Открывается из карточки объекта программы по команде Мои заметки панели навигации.
В списках объекты, с которыми связаны заметки, помечены значком .
diff --git a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl
index b69b2dc11..8fefb659f 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl
+++ b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl
@@ -11,10 +11,16 @@
Если Параметры.Свойство("Предмет") Тогда
Предмет = Параметры.Предмет;
Список.Параметры.УстановитьЗначениеПараметра("Предмет", Предмет);
- КонецЕсли;
+ КонецЕсли;
Список.Параметры.УстановитьЗначениеПараметра("Пользователь", Пользователи.ТекущийПользователь());
Список.Параметры.УстановитьЗначениеПараметра("ПоказыватьЗаметкиДругихПользователей", Ложь);
Список.Параметры.УстановитьЗначениеПараметра("ПоказыватьУдаленные", Ложь);
+
+ Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
+ Элементы.Автор.Видимость = Ложь;
+ Элементы.ПоказыватьЗаметкиДругихПользователей.Видимость = Ложь;
+ КонецЕсли;
+
КонецПроцедуры
&НаСервере
diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
index 490a8d3b1..48077500c 100644
--- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
+++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Список размещается на рабочем столе программы, предназначен для работы с заметками.
В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа и которая никому больше не должна быть доступна. Заметки доступны только их автору.
В заметки не следует помещать информацию, для хранения которой в программе предусмотрены соответствующие списки или документы.
Список Все заметки можно группировать. Для этого нужно создать необходимое количество групп и перетащить в них заметки с помощью мыши. Также при вводе заметки можно выбрать группу, в которую она входит.
Ввод группы заметок
diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl
index 2348d7f2b..021d99642 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl
+++ b/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl
@@ -11,6 +11,11 @@
Если Объект.Ссылка.Пустая() Тогда
Объект.Автор = Пользователи.ТекущийПользователь();
КонецЕсли;
+
+ Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
+ Элементы.Автор.Видимость = Ложь;
+ КонецЕсли;
+
КонецПроцедуры
#КонецОбласти
diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Help/ru.html
index ed988acd5..dbad152d9 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
В заметке можно поместить произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа и которая больше никому не должна быть доступна.
Заметки доступны в карточке объектов программы или на рабочем столе, поэтому в заметке можно быстро на короткое время записать какую-либо информацию, а затем перенести в более подходящий справочник. Например, можно использовать заметку как временное место для быстрой записи адреса во время телефонного разговора с клиентом, для того чтобы затем не спеша перенести этот адрес в справочник Контрагенты.
Также можно использовать заметки и для хранения информации, которая актуальна в течение длительного времени (например, как записную книжку, в которой можно сделать запись о дне рождения коллеги или важного для вас клиента, при этом можно ввести напоминание по поводу заметки, чтобы не забыть поздравить).
Список Заметки относится к внутренним данным для администратора. Полезен для контроля всех заметок в программе, введенными всеми пользователями в программе.
Для работы со своими заметками и ввода заметок используйте списки Все заметки или Мои заметки рабочего стола. Группы, введенные в списке Все заметки, отражаются также и в этом списке.
diff --git a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo
index 993d843e7..c5a447512 100644
--- a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo
+++ b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo
@@ -120,7 +120,7 @@
ru
- Пользователь, добавивший файл
+ Пользователь, который добавил файл в список
@@ -138,14 +138,14 @@
ВладелецФайлаru
- Владелец файла
+ РазмещениеDocumentRef.ЗапланированноеВзаимодействиеru
- Объект-владелец файла
+ Место размещения файла (объект)
@@ -157,7 +157,7 @@
ДатаМодификацииУниверсальнаяru
- Дата модификации универсальная
+ Дата изменения (универсальное время)Date
@@ -165,7 +165,7 @@
ru
- Универсальная дата модификации файла
+ Дата изменения данных файла (универсальное время)
@@ -185,7 +185,7 @@
ru
- Дата создания файла
+ Дата добавления файла в список
@@ -219,14 +219,14 @@
Изменилru
- Изменил
+ ОтредактировалCatalogRef.Пользователиru
- Пользователь, отредактировавший файл последним
+ Последний пользователь, который отредактировал файл
@@ -242,7 +242,7 @@
ИндексКартинкиru
- Индекс картинки
+ Индекс значкаNumber
@@ -252,7 +252,7 @@
ru
- Индекс картинки файла (служебное поле)
+ Индекс значка файла (служебное поле)
@@ -286,14 +286,14 @@
ПодписанЭПru
- Подписан ЭП
+ Подписан электронноBooleanru
- Признак того, что файл подписан с помощью электронной подписи.
+ Признак того, что файл подписан электронно
@@ -325,7 +325,7 @@
Размерru
- Размер
+ Размер (байт)Number
@@ -377,7 +377,7 @@
ru
- Пользователь, редактирующий файл в данный момент
+ Пользователь, который занял файл для редактирования
@@ -441,7 +441,7 @@
ru
- Тип хранения файла (в томе или непосредственно в системе)
+ Тип хранения файла (в томе или в информационной базе)
@@ -460,7 +460,7 @@
ru
- Том для хранения файла
+ Том хранения файлов (когда файл хранится в томе)
@@ -472,7 +472,7 @@
ФайлХранилищеru
- Файл хранилище
+ Временное хранилище файлаValueStorage
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Help/ru.html b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Help/ru.html
index 65c09e677..dfacff322 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Help/ru.html
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
В программе предусмотрена возможность использовать дополнительные реквизиты (сведения) нескольких типов. Тип данных выбирается при настройке дополнительных реквизитов (сведений). При выборе типа данных Дополнительное значение программа предлагает ввести значения в этот список. При этом для каждого дополнительного реквизита или сведения данного типа используется свой список значений. С помощью этого типа данных можно описывать различные свойства объектов программы.
Тип данных Дополнительное значение часто используется, при этом ввод информации сводится к выбору значений из списка, что ускоряет процесс ввода и снижает количество ошибок.
В программе предусмотрена возможность использовать дополнительные реквизиты (сведения) нескольких типов. Тип данных выбирается при настройке дополнительных реквизитов (сведений). При выборе типа данных Дополнительное значение (иерархия) программа предлагает ввести значения в этот список. При этом для каждого дополнительного реквизита или сведения данного типа используется свой список значений.
Тип данных Дополнительное значение (иерархия) часто используется, при этом ввод информации сводится к выбору значений из списка, что ускоряет процесс ввода и снижает количество ошибок. С помощью этого типа данных можно описывать различные свойства объектов программы.
Просмотр свойств идентификатора объекта метаданных.
Заполняется автоматически при первом запуске (и каждом обновлении) конфигурации, согласно метаданным конфигурации, а также автоматически актуализируется при каждом обновлении версии конфигурации (учитываются переименованные, добавленные и удаленные объекты метаданных).
Предназначен для хранения и просмотра идентификаторов объектов метаданных. Данные списка не редактируются, предназначены для обеспечения работы программы.
Список заполняется автоматически при первом запуске (и каждом обновлении) конфигурации, согласно метаданным конфигурации, а также автоматически актуализируется при каждом обновлении версии конфигурации (учитываются переименованные, добавленные и удаленные объекты метаданных).
В списке в виде дерева выводятся все объекты программы, сгруппированные по типам. По умолчанию выводится поле Синоним объекта. По команде Еще - Изменить форму можно добавить в список поля Полное имя и Идентификатор.
График работы вводится на основании производственного календаря. Графики работы можно ввести как для предприятия в целом, так и для его подразделений (например, график работы склада).
В зависимости от производственной необходимости или от потребностей тех подразделений, для которых график работы предназначен, графики работы могут настраиваться на весь год или на определенный период. Также настройка графика работы может проводиться время от времени в течение всего года, на некоторое количество дней вперед.
Программа позволяет формировать и хранить графики работы, которые используются на предприятии. Графики работы формируются на основе производственных календарей. Можно использовать графики работы как для предприятия в целом, так и для его подразделений (например, график работы склада). В графике работы подразделения содержится информация о рабочих днях этого подразделения. Например, если склад предприятия работает на прием товара от поставщиков по вторникам и четвергам, то рабочими днями для графика работы "Прием товара на складе" будут являться вторники и четверги.
В зависимости от производственной необходимости или в зависимости от потребностей тех подразделений, для которых график работы предназначен, графики работы могут настраиваться на весь год или на определенный период. Также настройка графика работы может проводиться время от времени в течение всего года, на некоторое количество дней вперед.
Программа позволяет загружать классификатор банков РФ с сайта агентства "РосБизнесКонсалтинг" (www.rbc.ru). При этом программа учитывает недействующие банки (в карточке такого банка включен соответствующий флажок).
Предназначена для выбора сведений о банках, которые используются при заполнении реквизитов банковских счетов, в документах и других объектах программы.
Деятельность банка прекращена - программа учитывает недействующие банки и автоматически включает флажок для таких банков. Также можно его включить вручную, если получены сведения о закрытии банка.
В классификаторе банков РФ хранятся сведения о банках, которые используются при заполнении реквизитов банковских счетов, в документах и других объектах программы.
Классификатор может быть заполнен автоматически с использованием Общероссийского классификатора банков. При использовании автоматической загрузки классификатора банков существенно снижается трудоемкость ввода информации, ввод информации о банке в различных документах сводится к выбору из классификатора, соответственно сводится к минимуму количество ошибок в отчетности, и кроме того, программа позволяет всегда поддерживать классификатор в актуальном состоянии.
Банки, деятельность которых прекращена, в списке становятся неактивными.
В программе имеются предопределенные ключевые операции. При необходимости можно добавить новые. В качестве ключевых операций могут выступать различные операции программы, например, проведение документа, формирование отчета и т.п. Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций (после установки программы параметры ключевых операций не заполнены).
Предназначен для хранения параметров ключевых операций.
Параметры ключевых операций необходимы для оценки производительности работы программы. В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем.
Список открывается по команде Ключевые операции раздела Сервисные подсистемы.
Предназначена для просмотра набора дополнительных реквизитов и сведений.
Выводится Наименование набора, указывается группа справочника, которой соответствует данный набор.
Включает в себя списки дополнительных реквизитов и сведений, входящих в набор. Списки предназначены только для просмотра, изменить в них ничего невозможно. Для изменения воспользуйтесь командами Дополнительные реквизиты или Дополнительные сведения в разделах Администрирование - Общие настройки.
Наименование - название организации, которое будет использоваться в программе при выборе организации.
diff --git a/SSL/src/Catalogs/Организации/Help/ru.html b/SSL/src/Catalogs/Организации/Help/ru.html
index a76e9c59d..8708ef4d8 100644
--- a/SSL/src/Catalogs/Организации/Help/ru.html
+++ b/SSL/src/Catalogs/Организации/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для описания формальной структуры предприятия, которая может состоять из нескольких хозяйствующих субъектов, фактически принадлежащих одному и тому же собственнику (группе собственников), и которые действуют согласованно в целях увеличения прибыли.
Открывается по команде Организации в разделе Справочники.
Входящие - в эту папку попадают по умолчанию все входящие письма.
diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Help/ru.html b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Help/ru.html
index 2570ade8e..603323a29 100644
--- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Help/ru.html
+++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для категоризации входящей и исходящей почтовой корреспонденции. Владельцем папок является Учетная запись электронной почты.
Открывается по команде Папки электронных писем панели навигации учетной записи электронной почты. Также работать с папками электронной почты можно в списке взаимодействий, выбрав группировку По папкам.
Шесть папок для каждой учетной записи являются предопределенными и не могут быть удалены и изменены:
diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ПапкиЭлектронныхПисем.mdo b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ПапкиЭлектронныхПисем.mdo
index 5513ee1a9..d2865ae9a 100644
--- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ПапкиЭлектронныхПисем.mdo
+++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ПапкиЭлектронныхПисем.mdo
@@ -59,6 +59,10 @@
UseOwner
+
+ ru
+ Учетная запись
+ ruУчетная запись, к которой принадлежит данная папка
@@ -75,6 +79,10 @@
UseParent
+
+ ru
+ Родитель
+ ruПапка, в которую входит данная папка
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html
index 34668885d..8c22eb9e9 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html
+++ b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Список предназначен для удобства согласования пользователей ИБ в Конфигураторе со списками Пользователи и Внешние пользователи.
При записи пользователя (или внешнего пользователя) вместе с ним автоматически создается или изменяется соответствующий ему пользователь ИБ. Однако есть ряд ситуаций, когда список пользователей ИБ становится несогласованным со списком пользователей. Тогда с помощью данного списка могут быть решены следующие задачи:
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
index 5e38afe2b..5663aeb12 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
@@ -32,7 +32,7 @@
Элементы.ПользовательИБРежимЗапуска.Видимость = Ложь;
КонецЕсли;
- Если ПользователиСлужебный.ЭтоУчебнаяПлатформа() Тогда
+ Если СтандартныеПодсистемыСервер.ЭтоУчебнаяПлатформа() Тогда
Элементы.СвойстваАутентификацииОС.ТолькоПросмотр = Истина;
КонецЕсли;
@@ -131,8 +131,10 @@
ОбщаяНастройкаФормы(Истина);
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ИмяЭлементаДляРазмещения", "СтраницаДополнительныеРеквизиты");
МодульУправлениеСвойствами = ОбщегоНазначения.ОбщийМодуль("УправлениеСвойствами");
- МодульУправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, , "СтраницаДополнительныеРеквизиты");
+ МодульУправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
КонецЕсли;
КонецПроцедуры
@@ -568,7 +570,7 @@
ЭтотОбъект,
ПарольПользователяСервиса);
Иначе
- Подключаемый_EMailНачалоВыбораЗавершение("", Неопределено);
+ Подключаемый_EMailНачалоВыбораЗавершение(Null, Неопределено);
КонецЕсли;
КонецПроцедуры
@@ -580,7 +582,9 @@
Возврат;
КонецЕсли;
- ПарольПользователяСервиса = НовыйПарольПользователяСервиса;
+ Если НовыйПарольПользователяСервиса <> Null Тогда
+ ПарольПользователяСервиса = НовыйПарольПользователяСервиса;
+ КонецЕсли;
ТаблицаКИ = ЭтотОбъект.КонтактнаяИнформацияОписаниеДополнительныхРеквизитов;
@@ -668,11 +672,10 @@
Процедура РолиПометкаПриИзменении(Элемент)
Если Элементы.Роли.ТекущиеДанные <> Неопределено Тогда
- ОбработатьИнтерфейсРолей("ОбновитьСоставРолей");
-
Если Элементы.Роли.ТекущиеДанные.Имя = "ПолныеПрава" Тогда
УстановитьНеобходимостьСинхронизацииССервисом(ЭтотОбъект);
КонецЕсли;
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей");
КонецЕсли;
КонецПроцедуры
@@ -1102,23 +1105,37 @@
КонецЕсли;
Результат.Вставить("ПодтверждениеПароля", ПодтверждениеПароля);
- Если НЕ ДляПроверкиПервогоАдминистратора
- И ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора(Результат) Тогда
+ Если Не УровеньДоступа.НастройкиДляВхода Тогда
+ Возврат Результат;
+ КонецЕсли;
+
+ Если Не ПользователиСлужебный.ЗапретРедактированияРолей() Тогда
+ ТекущиеРоли = ПользовательИБРоли.Выгрузить(, "Роль").ВыгрузитьКолонку("Роль");
+ Результат.Вставить("Роли", ТекущиеРоли);
+ КонецЕсли;
+
+ Если ДляПроверкиПервогоАдминистратора Тогда
+ Возврат Результат;
+ КонецЕсли;
+
+ // Добавление ролей требуемых при создании первого администратора.
+ Если ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора(Результат) Тогда
- РолиАдминистратора = Новый Массив;
- РолиАдминистратора.Добавить("ПолныеПрава");
+ Если Результат.Свойство("Роли") И Результат.Роли <> Неопределено Тогда
+ РолиАдминистратора = Результат.Роли;
+ Иначе
+ РолиАдминистратора = Новый Массив;
+ КонецЕсли;
+
+ Если РолиАдминистратора.Найти("ПолныеПрава") = Неопределено Тогда
+ РолиАдминистратора.Добавить("ПолныеПрава");
+ КонецЕсли;
ИмяРолиАдминистратораСистемы = Пользователи.РольАдминистратораСистемы().Имя;
Если РолиАдминистратора.Найти(ИмяРолиАдминистратораСистемы) = Неопределено Тогда
РолиАдминистратора.Добавить(ИмяРолиАдминистратораСистемы);
КонецЕсли;
Результат.Вставить("Роли", РолиАдминистратора);
-
- ИначеЕсли УровеньДоступа.НастройкиДляВхода
- И Не ПользователиСлужебный.ЗапретРедактированияРолей() Тогда
-
- ТекущиеРоли = ПользовательИБРоли.Выгрузить(, "Роль").ВыгрузитьКолонку("Роль");
- Результат.Вставить("Роли", ТекущиеРоли);
КонецЕсли;
Возврат Результат;
diff --git a/SSL/src/Catalogs/Пользователи/Help/ru.html b/SSL/src/Catalogs/Пользователи/Help/ru.html
index 6842a9840..e6b4481ac 100644
--- a/SSL/src/Catalogs/Пользователи/Help/ru.html
+++ b/SSL/src/Catalogs/Пользователи/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для ведения пользователей, которые работают с программой.
Открыть список пользователей можно из раздела Администрирование - Настройки пользователей и прав или Управление доступом с помощью команды Пользователи.
Ведение списка пользователей может осуществлять как администратор, так и ответственный за список внешних пользователей.
ru
- Том для хранения файла
+ Том хранения файлов (когда файл хранится в томе)
@@ -222,7 +222,7 @@
ru
- Тип хранения файла (в томе или непосредственно в системе)
+ Тип хранения файла (в томе или в информационной базе)
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Help/ru.html b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Help/ru.html
index e21c0a613..f14ddc683 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Help/ru.html
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Правила применяются автоматически, но иногда их необходимо применить вручную. Например, когда создано новое правило, и необходимо применить его к уже имеющимся письмам.
Открывается по команде Применить правила из окна Правила обработки электронной почты или из списка взаимодействий (группировка по папкам) по команде Применить правила обработки контекстного меню по правой кнопке мыши в панели группировки.
В поле Условие необходимо выбрать наименование созданного правила - текстовое описание условия, по которому будут отбираться письма.
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Help/ru.html b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Help/ru.html
index f64a9d766..e2aceeb11 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Help/ru.html
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для создания и хранения условий автоматического распределения входящей и исходящей корреспонденции по папкам. Правила настраиваются для учетной записи электронной почты.
Для писем учетной записи можно задать правила обработки электронной почты, по которым письма будут автоматически размещаться в той или иной папке. Задавать правила обработки имеет смысл, если на учетную запись приходит много корреспонденции.
Открывается соответствующей командой в панели навигации учетной записи электронной почты.
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ПравилаОбработкиЭлектроннойПочты.mdo b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ПравилаОбработкиЭлектроннойПочты.mdo
index 604a2ba46..f39bcacb0 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ПравилаОбработкиЭлектроннойПочты.mdo
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ПравилаОбработкиЭлектроннойПочты.mdo
@@ -59,6 +59,10 @@
UseOwner
+
+ ru
+ Учетная запись
+ ruУчетная запись, для которой определяются правила обработки электронной почты
diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form
index 9dc41d63c..36a664a35 100644
--- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form
+++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form
@@ -145,11 +145,6 @@
true
-
- ru
- Решение типичных проблем, установка программ.
-
- ButtonИнструкцияРасширеннаяПодсказка19
@@ -299,7 +294,7 @@
OnCreateAtServerПриСозданииНаСервере
- LockWholeInterface
+ LockOwnertruetrueVertical
diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl
index bbd0213d6..9b2cb616e 100644
--- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl
+++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl
@@ -35,7 +35,13 @@
Элементы.ОписаниеОшибки.Заголовок = ОписаниеОшибки;
Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Такси Тогда
- КоэффициентСжатия = 0.7;
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+ ВерсияПриложения = СистемнаяИнформация.ВерсияПриложения;
+ Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПриложения, "8.3.6.0") > 0 Тогда
+ КоэффициентСжатия = 0.78;
+ Иначе
+ КоэффициентСжатия = 0.71;
+ КонецЕсли;
Иначе
КоэффициентСжатия = 0.75;
КонецЕсли;
diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
index 3fc73fa85..a09866512 100644
--- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Сведения о программе электронной подписи и шифрования.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl
index 8deab42b9..9a8b0a252 100644
--- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl
@@ -1,5 +1,4 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
-
#Область ПрограммныйИнтерфейс
// Возвращает список реквизитов, которые можно редактировать
@@ -13,7 +12,29 @@
КонецФункции
#КонецОбласти
+#КонецЕсли
+#Область ОбработчикиСобытий
+
+Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
+
+ Если ВидФормы = "ФормаСписка" Тогда
+ СтандартнаяОбработка = Ложь;
+ Параметры.Вставить("ПоказатьСтраницуПрограммы");
+ ВыбраннаяФорма = Метаданные.ОбщиеФормы.НастройкиЭлектроннойПодписиИШифрования;
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка)
+
+ Параметры.Отбор.Вставить("ПометкаУдаления", Ложь);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область СлужебныеПроцедурыИФункции
Функция ПоставляемыеНастройкиПрограмм(ТолькоДляНачальногоЗаполнения = Ложь) Экспорт
@@ -173,25 +194,4 @@
КонецПроцедуры
#КонецОбласти
-
#КонецЕсли
-
-#Область ОбработчикиСобытий
-
-Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
-
- Если ВидФормы = "ФормаСписка" Тогда
- СтандартнаяОбработка = Ложь;
- Параметры.Вставить("ПоказатьСтраницуПрограммы");
- ВыбраннаяФорма = Метаданные.ОбщиеФормы.НастройкиЭлектроннойПодписиИШифрования;
- КонецЕсли;
-
-КонецПроцедуры
-
-Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка)
-
- Параметры.Отбор.Вставить("ПометкаУдаления", Ложь);
-
-КонецПроцедуры
-
-#КонецОбласти
diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Help/ru.html
index 8697ffcf0..945a9dd6b 100644
--- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Просмотр или формирование производственного календаря.
Производственный календарь - это своеобразный классификатор, постоянные сведения, которые не меняются в течение года.
Производственный календарь РФ (который является общегосударственным) входит в поставляемые данные программы и обновляется по мере утверждения календаря и переносов праздников в РФ.
Предназначен для формирования и хранения производственных календарей.
Открывается по соответствующей команде в разделе Справочники.
Производственный календарь - это своеобразный классификатор, постоянные сведения, которые не меняются в течение года. Их может быть несколько, т.к. в разных регионах предусмотрен разный состав праздничных дней и соответственно переносов.
diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
index a3681645e..f84045fdd 100644
--- a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
@@ -98,6 +98,10 @@
И ПраздничныеДни.Найти(ДатаПредпраздничногоДня, "Дата") = Неопределено Тогда
ВидыДней.Вставить(ДатаПредпраздничногоДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный);
КонецЕсли;
+ Если Год(ПраздничныйДень) <> НомерГода Тогда
+ // Праздничные дни другого года далее также пропускаем.
+ Продолжить;
+ КонецЕсли;
Если ВидыДней[ПраздничныйДень] <> Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И СтрокаТаблицы.ПереноситьВыходной Тогда
// Если праздничный день выпадает на выходной,
diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Help/ru.html b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
index 6c11df31f..3deef1275 100644
--- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
+++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Т.к. профилей групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужного профиля групп доступа и понимания ограничений прав доступа в целом.
Профилей групп доступа может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки (группы) для упрощения поиска нужного профиля и понимания принципов их формирования.
Предназначен для управления профилями групп доступа.
Профилей групп доступа может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки для упрощения поиска нужного профиля и понимания принципов их формирования.
Список открывается по команде Профили групп доступа в разделе Администрирование - Настройка пользователей и прав.
В программе существуют предопределенные профили групп доступа. В ряде случаев предустановленных профилей групп доступа оказывается недостаточно для осуществления требуемой настройки прав доступа пользователей. В таких случаях администратор имеет возможность добавить новые профили групп доступа.
Профиль групп доступа объединяет в себе, как правило, несколько ролей, а также содержит описание видов доступа, в разрезе которых администратор может настраивать права с помощью групп доступа. Таким образом, профиль представляет собой определенный шаблон, в соответствии с которым администратор ведет группы доступа.
Как правило, настройка профилей групп доступа обычно выполняется при внедрении и конфигурировании прикладного решения. Они предназначены для создания готовых подборок разрешенных действий (ролей), содержащих права доступа к объектам программы, и "разрезов" ограничения этих прав (видов доступа), которые предполагается использовать в группах доступа.
В ряде случаев предустановленных профилей групп доступа оказывается недостаточно для осуществления требуемой настройки прав доступа пользователей. В таких случаях администратор имеет возможность добавить новые или изменить предустановленные профили групп доступа.
С помощью профилей становится возможным:
diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl
index f13ca6bfa..969c71ecf 100644
--- a/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl
@@ -238,7 +238,7 @@
ПоставляемыеПрофили = УправлениеДоступомСлужебныйПовтИсп.Параметры(
).ПоставляемыеПрофилиГруппДоступа;
- ОписанияПрофилей = ПоставляемыеПрофили.ОписанияПрофилей;
+ ОписанияПрофилей = ПоставляемыеПрофили.ОписанияПрофилейМассив;
ПараметрыОбновления = ПоставляемыеПрофили.ПараметрыОбновления;
ОбновленныеПрофили = Новый Массив;
@@ -253,8 +253,7 @@
| Справочник.ПрофилиГруппДоступа КАК ПрофилиГруппДоступа");
ТекущиеПрофили = Запрос.Выполнить().Выгрузить();
- Для каждого ОписаниеПрофиля Из ОписанияПрофилей Цикл
- СвойстваПрофиля = ОписаниеПрофиля.Значение;
+ Для каждого СвойстваПрофиля Из ОписанияПрофилей Цикл
СтрокаТекущегоПрофиля = ТекущиеПрофили.Найти(
Новый УникальныйИдентификатор(СвойстваПрофиля.Идентификатор),
@@ -649,10 +648,10 @@
СсылкиПоставляемыхПрофилей = Новый Массив;
- Для каждого ОписаниеПрофиля Из ПоставляемыеПрофили.ОписанияПрофилей Цикл
+ Для каждого ОписаниеПрофиля Из ПоставляемыеПрофили.ОписанияПрофилейМассив Цикл
СсылкиПоставляемыхПрофилей.Добавить(
Справочники.ПрофилиГруппДоступа.ПолучитьСсылку(
- Новый УникальныйИдентификатор(ОписаниеПрофиля.Значение.Идентификатор)));
+ Новый УникальныйИдентификатор(ОписаниеПрофиля.Идентификатор)));
КонецЦикла;
Запрос = Новый Запрос;
@@ -849,6 +848,7 @@
// Преобразование описаний в соответствие идентификаторов и
// свойств для хранения и быстрой обработки.
СвойстваПрофилей = Новый Соответствие;
+ ОписанияПрофилейМассив = Новый Массив;
Для каждого ОписаниеПрофиля Из ОписанияПрофилей Цикл
// Проверка наличия ролей в метаданных.
Для каждого Роль Из ОписаниеПрофиля.Роли Цикл
@@ -860,6 +860,14 @@
ОписаниеПрофиля.Идентификатор,
Роль);
КонецЕсли;
+ Если ВРег(Лев(Роль, СтрДлина("Профиль"))) = ВРег("Профиль") Тогда
+ ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'В описании профиля ""%1 (%2)""
+ |указана недопустимая роль ""%3"".'"),
+ ОписаниеПрофиля.Имя,
+ ОписаниеПрофиля.Идентификатор,
+ Роль);
+ КонецЕсли;
КонецЦикла;
Если СвойстваПрофилей.Получить(ОписаниеПрофиля.Идентификатор) <> Неопределено Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -867,6 +875,7 @@
ОписаниеПрофиля.Идентификатор);
КонецЕсли;
СвойстваПрофилей.Вставить(ОписаниеПрофиля.Идентификатор, ОписаниеПрофиля);
+ ОписанияПрофилейМассив.Добавить(ОписаниеПрофиля);
Если ЗначениеЗаполнено(ОписаниеПрофиля.Имя) Тогда
Если СвойстваПрофилей.Получить(ОписаниеПрофиля.Имя) <> Неопределено Тогда
ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -1018,8 +1027,12 @@
ОписаниеПрофиля.ЗначенияДоступа = ЗначенияДоступа;
КонецЦикла;
- Возврат ОбщегоНазначения.ФиксированныеДанные(Новый Структура(
- "ПараметрыОбновления, ОписанияПрофилей", ПараметрыОбновления, СвойстваПрофилей));
+ ПоставляемыеПрофили = Новый Структура;
+ ПоставляемыеПрофили.Вставить("ПараметрыОбновления", ПараметрыОбновления);
+ ПоставляемыеПрофили.Вставить("ОписанияПрофилей", СвойстваПрофилей);
+ ПоставляемыеПрофили.Вставить("ОписанияПрофилейМассив", ОписанияПрофилейМассив);
+
+ Возврат ОбщегоНазначения.ФиксированныеДанные(ПоставляемыеПрофили);
КонецФункции
diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Help/ru.html b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Help/ru.html
index b46f2384a..020eefee3 100644
--- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Help/ru.html
+++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Позволяет указать параметры, необходимые для подключения к FTP-ресурсу при рассылке отчетов. Поле Сервер и каталог является обязательным для заполнения, остальные поля не обязательны.
Предназначена для автоматического формирования отчетов и доставки сформированных отчетов получателям.
Рассылки отчетов позволяют автоматизировать процесс получения отчетов так, что, не открывая программу, можно получить в нужное время готовый отчет на свою электронную почту или в определенный каталог в виде файла.
diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
index ce21dfd8a..673988ada 100644
--- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
@@ -673,7 +673,8 @@
Иначе
ПолныйАдрес = "ftp://"+ Объект.FTPЛогин +":"+ Объект.FTPПароль +"@"+ ПолныйАдрес;
КонецЕсли;
- ЗапуститьПриложение(ПолныйАдрес, , Ложь);
+
+ ОбщегоНазначенияКлиент.ПерейтиПоСсылке(ПолныйАдрес);
КонецПроцедуры
&НаКлиенте
@@ -1815,7 +1816,7 @@
// Проверка изменений
ФорматыСовпадают = Истина;
Для Индекс = 1 По СписокФорматов.Количество() Цикл
- Если СписокФорматов[Индекс-1].Пометка <> Переменные.СписокФорматовКопия[Индекс-1].Пометка Тогда
+ Если СписокФорматов[Индекс - 1].Пометка <> Переменные.СписокФорматовКопия[Индекс - 1].Пометка Тогда
ФорматыСовпадают = Ложь;
Прервать;
КонецЕсли;
diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Help/ru.html b/SSL/src/Catalogs/РассылкиОтчетов/Help/ru.html
index ff914fd8c..43cab430f 100644
--- a/SSL/src/Catalogs/РассылкиОтчетов/Help/ru.html
+++ b/SSL/src/Catalogs/РассылкиОтчетов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для подготовки рассылок с целью автоматического формирования отчетов и доставки сформированных отчетов получателям.
Открывается по команде Рассылки отчетов из раздела Сервисные подсистемы.
Программа содержит большое количество отчетов. Зачастую пользователям нужно периодически получать один и тот же отчет. Например, в начале каждого рабочего дня менеджеру нужно видеть текущее состояние взаиморасчетов со своими клиентами. Или в конце каждой недели директор хочет видеть состояние основных финансовых показателей фирмы.
- Use
- DontUse
+
+ Отбор.ИспользоватьДляОтправки
+
+ true
+
+ Use
diff --git a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Help/ru.html b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Help/ru.html
index 55d849d95..a5b74474d 100644
--- a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Help/ru.html
+++ b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для выбора роли исполнителя.
Открывается по кнопке Выбрать из поля Роль исполнителябизнес-процессов и окон подбора ролей исполнителей.
Роли исполнителей могут использоваться бизнес-процессами для ролевой маршрутизации задач. В этом случае поручение выдается не персонально исполнителю, а некоторой роли (например, Старший по залу), а соответствие пользователей ролям задается в списке Роли и исполнители и используется программой для доставки поручений конкретным пользователям. В определенных случаях роли исполнителя бывает недостаточно, чтобы точно определить исполнителей. Тогда необходимо указывать основной и дополнительный объекты адресации. Например, у роли Руководитель проектов могут присутствовать основной объект адресации Подразделение и дополнительный объект Проект. Таким образом, с помощью объектов адресации происходит уточнение, руководителям какого проекта и в каком подразделении адресуется задача.
Роли исполнителей могут использоваться бизнес-процессами для ролевой маршрутизации задач. В этом случае поручение выдается не персонально исполнителю, а некоторой роли (например, Старший по залу), а соответствие пользователей ролям задается в списке Роли и исполнители задач и используется программой для доставки поручений конкретным пользователям.
В определенных случаях роли исполнителя бывает недостаточно, чтобы точно определить исполнителей. Тогда необходимо указывать основной и дополнительный объекты адресации. Например, у роли Руководитель проектов могут присутствовать основной объект адресации Подразделение и дополнительный объект Проект. Таким образом, с помощью объектов адресации происходит уточнение, руководителям какого проекта и в каком подразделении адресуется задача.
Открывается по команде Роли исполнителей в разделе Бизнес-процессы и задачи.
Роли исполнителей могут использоваться бизнес-процессами для ролевой маршрутизации задач. В этом случае поручение выдается не персонально исполнителю, а некоторой роли (например, Старший по залу), а соответствие пользователей ролям задается в списке Роли и исполнители задач и используется программой для доставки поручений конкретным пользователям. В определенных случаях роли исполнителя бывает недостаточно, чтобы точно определить исполнителей. Тогда необходимо указывать основной и дополнительный объекты адресации. Например, у роли Руководитель проектов могут присутствовать основной объект адресации Подразделение и дополнительный объект Проект. Таким образом, с помощью объектов адресации происходит уточнение, руководителям какого проекта и в каком подразделении адресуется задача.
@@ -12,7 +12,7 @@
Наименование - полное наименование роли;
Краткое представление - сокращенное наименование роли для удобства использования. По умолчанию в это поле автоматически копируется Код;
Предназначена для подписания файлов, электронных документов и других данных.
Электронная подпись - реквизит электронного документа, с помощью которого можно удостовериться в неизменности электронного документа с момента его подписи. Контроль неизменности электронного документа осуществляется в результате проверки соответствия электронной подписи и документа, а также проверки действительности сертификата. Контроль неизменности электронного документа можно выполнить в любой момент времени.
Подписание данных
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl
index 6a26ec122..789ce10e6 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl
@@ -1,5 +1,5 @@
&НаКлиенте
-Перем ВнутренниеДанные, СвойстваПароля, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения;
+Перем ВнутренниеДанные, СвойстваПароля, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения, ТекущийСписокПредставлений;
#Область ОбработчикиСобытийФормы
@@ -40,14 +40,23 @@
Процедура ПредставлениеДанныхНажатие(Элемент, СтандартнаяОбработка)
ЭлектроннаяПодписьСлужебныйКлиент.ПредставлениеДанныхНажатие(ЭтотОбъект,
- Элемент, СтандартнаяОбработка, ОписаниеДанных);
+ Элемент, СтандартнаяОбработка, ТекущийСписокПредставлений);
КонецПроцедуры
&НаКлиенте
Процедура СертификатПриИзменении(Элемент)
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатПриИзмененииЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатПриИзменении.
+&НаКлиенте
+Процедура СертификатПриИзмененииЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, ВнутренниеДанные, СвойстваПароля);
@@ -94,7 +103,16 @@
Сертификат = ВыбранноеЗначение;
КонецЕсли;
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатОбработкаВыбораЗавершение", ЭтотОбъект, ВыбранноеЗначение));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатОбработкаВыбора.
+&НаКлиенте
+Процедура СертификатОбработкаВыбораЗавершение(ОтпечаткиСертификатовНаКлиенте, ВыбранноеЗначение) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
Если ВыбранноеЗначение = Истина
И ВнутренниеДанные["ВыбранныйСертификатПароль"] <> Неопределено Тогда
@@ -111,16 +129,14 @@
&НаКлиенте
Процедура СертификатАвтоПодбор(Элемент, Текст, ДанныеВыбора, Параметры, Ожидание, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура СертификатОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, Параметры, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
@@ -166,11 +182,17 @@
Возврат;
КонецЕсли;
- Если Не ПодписатьДанные() Тогда
- Возврат;
- КонецЕсли;
+ ПодписатьДанные(Новый ОписаниеОповещения("ПодписатьЗавершение", ЭтотОбъект));
- Закрыть(Истина);
+КонецПроцедуры
+
+// Продолжение процедуры Подписать.
+&НаКлиенте
+Процедура ПодписатьЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ Закрыть(Истина);
+ КонецЕсли;
КонецПроцедуры
@@ -179,19 +201,47 @@
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
-Функция ПродолжитьОткрытие(ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
+Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
- Если Не ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(ЭтотОбъект, КлиентскиеПараметры) Тогда
- Возврат Ложь;
+ Если КлиентскиеПараметры = ВнутренниеДанные Тогда
+ КлиентскиеПараметры = Новый Структура("Сертификат, СвойстваПароля", Сертификат, СвойстваПароля);
+ Возврат;
КонецЕсли;
- ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
+ Если КлиентскиеПараметры.Свойство("УказанКонтекстДругойОперации") Тогда
+ СвойстваСертификата = ОбщиеВнутренниеДанные;
+ КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации.ПродолжитьОткрытие(,, СвойстваСертификата);
+ Если СвойстваСертификата.Сертификат = Сертификат Тогда
+ СвойстваПароля = СвойстваСертификата.СвойстваПароля;
+ КонецЕсли;
+ КонецЕсли;
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
ВнутренниеДанные = ОбщиеВнутренниеДанные;
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
+ Контекст = Новый Структура("Оповещение", Оповещение);
+ Оповещение = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
+
+ ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(Новый ОписаниеОповещения(
+ "ПродолжитьОткрытиеПослеНачала", ЭтотОбъект, Контекст), ЭтотОбъект, КлиентскиеПараметры);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеНачала(Результат, Контекст) Экспорт
+
+ Если Результат <> Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ Возврат;
+ КонецЕсли;
ДополнительныеПараметры = Новый Структура;
+ Если СвойстваПароля <> Неопределено Тогда
+ ДополнительныеПараметры.Вставить("ПриУстановкеПароляИзДругойОперации", Истина);
+ КонецЕсли;
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
ВнутренниеДанные, СвойстваПароля, ДополнительныеПараметры);
@@ -200,30 +250,51 @@
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча) Тогда
ОбработкаПослеПредупреждения = Неопределено;
-
- Если ПодписатьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОписаниеОповещенияОЗакрытии, Истина);
- Возврат Истина;
- КонецЕсли;
- Иначе
- Открыть();
+ ПодписатьДанные(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеПодписанияДанных", ЭтотОбъект, Контекст));
+ Возврат;
КонецЕсли;
- Возврат Истина;
+ Открыть();
-КонецФункции
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеПодписанияДанных(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
+ Иначе
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ КонецЕсли;
+
+КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьПодписание(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры);
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
ОбработкаПослеПредупреждения = ОбработкаЗавершения;
ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьПодписание", ЭтотОбъект);
- Если ПодписатьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОбработкаЗавершения, Истина);
+ Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения);
+ ПодписатьДанные(Новый ОписаниеОповещения("ВыполнитьПодписаниеЗавершение", ЭтотОбъект, Контекст));
+
+КонецПроцедуры
+
+// Продолжение процедуры ВыполнитьПодписание.
+&НаКлиенте
+Процедура ВыполнитьПодписаниеЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.ОбработкаЗавершения, Истина);
КонецЕсли;
КонецПроцедуры
@@ -231,7 +302,16 @@
&НаКлиенте
Процедура ПриИзмененииСпискаСертификатов()
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте(), Истина);
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("ПриИзмененииСпискаСертификатовЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры ПриИзмененииСпискаСертификатов.
+&НаКлиенте
+Процедура ПриИзмененииСпискаСертификатовЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте, Истина);
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриИзмененииСвойствСертификата", Истина));
@@ -253,25 +333,29 @@
КонецПроцедуры
&НаКлиенте
-Функция ПодписатьДанные()
+Процедура ПодписатьДанные(Оповещение)
- ОшибкаНаКлиенте = Новый Структура;
- ОшибкаНаСервере = Новый Структура;
+ Контекст = Новый Структура;
+ Контекст.Вставить("Оповещение", Оповещение);
+ Контекст.Вставить("ОшибкаНаКлиенте", Новый Структура);
+ Контекст.Вставить("ОшибкаНаСервере", Новый Структура);
Если СертификатДействителенДо < ОбщегоНазначенияКлиент.ДатаСеанса() Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
+ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
НСтр("ru = 'У выбранного сертификата истек срок действия.
|Выберите другой сертификат.'"));
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
Если Не ЗначениеЗаполнено(СертификатПрограмма) Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
+ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
НСтр("ru = 'У выбранного сертификата не указана программа для закрытого ключа.
|Выберите другой сертификат.'"));
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
ВыбранныйСертификат = Новый Структура;
@@ -283,47 +367,101 @@
Если ОписаниеДанных.Свойство("ПередВыполнением")
И ТипЗнч(ОписаниеДанных.ПередВыполнением) = Тип("ОписаниеОповещения") Тогда
- ВыполнитьОбработкуОповещения(ОписаниеДанных.ПередВыполнением, Неопределено);
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписаниеДанных", ОписаниеДанных);
+ ПараметрыВыполнения.Вставить("Оповещение", Новый ОписаниеОповещения(
+ "ПодписатьДанныеПослеОбработкиПередВыполнением", ЭтотОбъект, Контекст));
+
+ ВыполнитьОбработкуОповещения(ОписаниеДанных.ПередВыполнением, ПараметрыВыполнения);
+ Иначе
+ ПодписатьДанныеПослеОбработкиПередВыполнением(Новый Структура, Контекст);
КонецЕсли;
- ИдентификаторФормы = Неопределено;
+КонецПроцедуры
+
+// Продолжение процедуры ПодписатьДанные.
+&НаКлиенте
+Процедура ПодписатьДанныеПослеОбработкиПередВыполнением(Результат, Контекст) Экспорт
+
+ Если Результат.Свойство("ОписаниеОшибки") Тогда
+ ПоказатьОшибку(Новый Структура("ОписаниеОшибки", Результат.ОписаниеОшибки), Новый Структура);
+ Возврат;
+ КонецЕсли;
+
+ Контекст.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
Если ТипЗнч(ФормаОбъекта) = Тип("УправляемаяФорма") Тогда
- ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
+ Контекст.ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
ИначеЕсли ТипЗнч(ФормаОбъекта) = Тип("УникальныйИдентификатор") Тогда
- ИдентификаторФормы = ФормаОбъекта;
+ Контекст.ИдентификаторФормы = ФормаОбъекта;
КонецЕсли;
- Успех = Ложь;
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписаниеДанных", ОписаниеДанных);
+ ПараметрыВыполнения.Вставить("Форма", ЭтотОбъект);
+ ПараметрыВыполнения.Вставить("ИдентификаторФормы", Контекст.ИдентификаторФормы);
+ ПараметрыВыполнения.Вставить("ЗначениеПароля", СвойстваПароля.Значение);
+ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения);
Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда
Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда
- ОшибкаНаСервере = СертификатНаСервереОписаниеОшибки;
+ Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки);
СертификатНаСервереОписаниеОшибки = Новый Структура;
+ ПодписатьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст);
Иначе
// Попытка подписания на сервере.
- Успех = ПодписатьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере);
- КонецЕсли;
-
- Если Не Успех Тогда
- // Попытка подписания на клиенте.
- Успех = ПодписатьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте);
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "ПодписатьДанныеПослеВыполненияНаСторонеСервера", ЭтотОбъект, Контекст),
+ "Подписание", "НаСторонеСервера", Контекст.ПараметрыВыполнения);
КонецЕсли;
Иначе
- // Попытка подписания на клиенте.
- Успех = ПодписатьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, Истина);
+ ПодписатьДанныеПослеВыполненияНаСторонеСервера(Неопределено, Контекст);
КонецЕсли;
- Если Не Успех Тогда
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+КонецПроцедуры
+
+// Продолжение процедуры ПодписатьДанные.
+&НаКлиенте
+Процедура ПодписатьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст) Экспорт
+
+ Если Результат <> Неопределено Тогда
+ ПодписатьДанныеПослеВыполнения(Результат);
+ КонецЕсли;
+
+ Если Результат <> Неопределено И Не Результат.Свойство("Ошибка") Тогда
+ ПодписатьДанныеПослеВыполненияНаСторонеКлиента(Новый Структура, Контекст);
+ Иначе
+ Если Результат <> Неопределено Тогда
+ Контекст.ОшибкаНаСервере = Результат.Ошибка;
+ КонецЕсли;
+
+ // Попытка подписания на клиенте.
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "ПодписатьДанныеПослеВыполненияНаСторонеКлиента", ЭтотОбъект, Контекст),
+ "Подписание", "НаСторонеКлиента", Контекст.ПараметрыВыполнения);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПодписатьДанные.
+&НаКлиенте
+Процедура ПодписатьДанныеПослеВыполненияНаСторонеКлиента(Результат, Контекст) Экспорт
+
+ ПодписатьДанныеПослеВыполнения(Результат);
+
+ Если Результат.Свойство("Ошибка") Тогда
+ Контекст.ОшибкаНаКлиенте = Результат.Ошибка;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(ПредставлениеДанных)
И (Не ОписаниеДанных.Свойство("СообщитьОЗавершении")
Или ОписаниеДанных.СообщитьОЗавершении <> Ложь) Тогда
- ЭлектроннаяПодписьКлиент.ИнформироватьОПодписанииОбъекта(ПредставлениеДанных,
- ОписаниеДанных.ТекущийСписокПредставлений.Количество() > 1);
+ ЭлектроннаяПодписьКлиент.ИнформироватьОПодписанииОбъекта(
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолноеПредставлениеДанных(ЭтотОбъект),
+ ТекущийСписокПредставлений.Количество() > 1);
КонецЕсли;
Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда
@@ -336,290 +474,27 @@
ПараметрыФормы);
КонецЕсли;
- Возврат Истина;
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
-КонецФункции
+КонецПроцедуры
+// Продолжение процедуры ПодписатьДанные.
&НаКлиенте
-Функция ПодписатьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, ТолькоНаСторонеКлиента = Ложь)
+Процедура ПодписатьДанныеПослеВыполнения(Результат)
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебныйКлиент.МенеджерКриптографии("Подписание",
- ТолькоНаСторонеКлиента, ОшибкаНаКлиенте, СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
+ Если Результат.Свойство("ОперацияНачалась") Тогда
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, ВнутренниеДанные,
+ СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
КонецЕсли;
- СертификатКриптографии = ЭлектроннаяПодписьКлиент.ПолучитьСертификатПоОтпечатку(СертификатОтпечаток,
- Истина, СертификатПрограмма, Ложь, ОшибкаНаКлиенте);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
+ Если Результат.Свойство("ЕстьОбработанныеЭлементыДанных") Тогда
+ // После начала подписания изменять сертификат более недопустимо,
+ // иначе набор данных будет обработан по-разному.
+ Элементы.Сертификат.ТолькоПросмотр = Истина;
+ Элементы.Комментарий.ТолькоПросмотр = Истина;
КонецЕсли;
- СвойстваСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии);
- СвойстваСертификата.Вставить("ДвоичныеДанные", СертификатКриптографии.Выгрузить());
-
- Успех = Ложь;
- ПарольПринят = Ложь;
- МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = СвойстваПароля.Значение;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = ПодписатьЭлементДанныхНаСторонеКлиента(ОписаниеДанных, МенеджерКриптографии,
- СертификатКриптографии, ИдентификаторФормы, СвойстваСертификата, ПарольПринят, ОшибкаНаКлиенте);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("СвойстваПодписи") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = ПодписатьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии,
- СертификатКриптографии, ИдентификаторФормы, СвойстваСертификата, ПарольПринят, ОшибкаНаКлиенте);
-
- Если Не Успех Тогда
- Если ПарольПринят Тогда
- ЗаблокироватьИзменениеПараметровОперации();
- КонецЕсли;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ПарольПринят Тогда
- ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
- ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция ПодписатьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии, СертификатКриптографии,
- ИдентификаторФормы, СвойстваСертификата, ПарольПринят, ОшибкаНаКлиенте)
-
- Попытка
- ДанныеДляПодписания = ДанныеИзОписанияДанных(ЭлементДанных.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для подписания возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Попытка
- ДвоичныеДанныеПодписи = МенеджерКриптографии.Подписать(ДанныеДляПодписания, СертификатКриптографии);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаКлиенте.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ОписаниеОшибки = "";
- Если ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеДанныеПодписи(ДвоичныеДанныеПодписи, ОписаниеОшибки) Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", ОписаниеОшибки);
- Возврат Ложь;
- КонецЕсли;
-
- ПарольПринят = Истина;
-
- СвойстваПодписи = СвойстваПодписи(ДвоичныеДанныеПодписи, СвойстваСертификата, Комментарий);
- ЭлементДанных.Вставить("СвойстваПодписи", СвойстваПодписи);
-
- Если ЭлементДанных.Свойство("Объект") Тогда
- Если ТипЗнч(ЭлементДанных.Объект) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.Объект, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("СвойстваПодписи");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи подписи возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- Иначе
- ВерсияОбъекта = Неопределено;
- ЭлементДанных.Свойство("ВерсияОбъекта", ВерсияОбъекта);
- Попытка
- ДобавитьПодпись(ЭлементДанных.Объект, СвойстваПодписи, ИдентификаторФормы, ВерсияОбъекта);
- Исключение
- ЭлементДанных.Удалить("СвойстваПодписи");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи подписи возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- ОповеститьОбИзменении(ЭлементДанных.Объект);
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаКлиенте
-Функция ПодписатьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере)
-
- Успех = Ложь;
- ПарольПринят = Ложь;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = ПодписатьЭлементДанныхНаСторонеСервера(ОписаниеДанных, ИдентификаторФормы,
- ПарольПринят, ОшибкаНаСервере);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("СвойстваПодписи") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = ПодписатьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы,
- ПарольПринят, ОшибкаНаСервере);
-
- Если Не Успех Тогда
- Если ПарольПринят Тогда
- ЗаблокироватьИзменениеПараметровОперации();
- КонецЕсли;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ПарольПринят Тогда
- ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
- ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция ПодписатьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы, ПарольПринят, ОшибкаНаСервере)
-
- ПараметрыДляСервера = Новый Структура;
- ПараметрыДляСервера.Вставить("Комментарий", Комментарий);
- ПараметрыДляСервера.Вставить("ИдентификаторФормы", ИдентификаторФормы);
- ПараметрыДляСервера.Вставить("СертификатПрограмма", СертификатПрограмма);
- ПараметрыДляСервера.Вставить("СертификатОтпечаток", СертификатОтпечаток);
-
- АдресПодписи = Неопределено;
- ЭлементДанныхДляСервера = Новый Структура;
- ЭлементДанныхДляСервера.Вставить("Данные", ДанныеИзОписанияДанных(ЭлементДанных.Данные, Ложь));
-
- Если ЭлементДанных.Свойство("Объект")
- И Не ТипЗнч(ЭлементДанных.Объект) = Тип("ОписаниеОповещения") Тогда
-
- ЭлементДанныхДляСервера.Вставить("Объект", ЭлементДанных.Объект);
-
- Если ЭлементДанных.Свойство("ВерсияОбъекта") Тогда
- ЭлементДанныхДляСервера.Свойство("ВерсияОбъекта", ЭлементДанных.ВерсияОбъекта);
- КонецЕсли;
- КонецЕсли;
-
- Если Не ПодписатьЭлементДанныхНаСервере(ЭлементДанныхДляСервера, ПараметрыДляСервера,
- СвойстваПароля.Значение, АдресПодписи, ПарольПринят, ОшибкаНаСервере) Тогда
- Возврат Ложь;
- КонецЕсли;
-
- ЭлементДанных.Вставить("СвойстваПодписи", АдресПодписи);
-
- Если ЭлементДанных.Свойство("Объект") Тогда
- Если ТипЗнч(ЭлементДанных.Объект) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.Объект, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("СвойстваПодписи");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи подписи возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- Иначе
- ОповеститьОбИзменении(ЭлементДанных.Объект);
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаСервереБезКонтекста
-Функция ПодписатьЭлементДанныхНаСервере(Знач ЭлементДанныхДляСервера, Знач Параметры,
- Знач ЗначениеПароля, АдресПодписи, ПарольПринят, ОшибкаНаСервере)
-
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("Подписание",
- Ложь, ОшибкаНаСервере, Параметры.СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- СертификатКриптографии = ЭлектроннаяПодпись.ПолучитьСертификатПоОтпечатку(
- Параметры.СертификатОтпечаток, Истина, Параметры.СертификатПрограмма, Ложь, ОшибкаНаСервере);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = ЗначениеПароля;
- Попытка
- ДанныеДляПодписания = ПолучитьИзВременногоХранилища(ЭлементДанныхДляСервера.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для подписания возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Попытка
- ДвоичныеДанныеПодписи = МенеджерКриптографии.Подписать(ДанныеДляПодписания, СертификатКриптографии);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаСервере.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ОписаниеОшибки = "";
- Если ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеДанныеПодписи(ДвоичныеДанныеПодписи, ОписаниеОшибки) Тогда
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", ОписаниеОшибки);
- Возврат Ложь;
- КонецЕсли;
-
- ПарольПринят = Истина;
-
- СвойстваСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии);
- СвойстваСертификата.Вставить("ДвоичныеДанные", СертификатКриптографии.Выгрузить());
-
- СвойстваПодписи = СвойстваПодписи(ДвоичныеДанныеПодписи, СвойстваСертификата, Параметры.Комментарий);
- АдресПодписи = ПоместитьВоВременноеХранилище(СвойстваПодписи, Параметры.ИдентификаторФормы);
-
- Если ЭлементДанныхДляСервера.Свойство("Объект") Тогда
- ВерсияОбъекта = Неопределено;
- ЭлементДанныхДляСервера.Свойство("ВерсияОбъекта", ВерсияОбъекта);
- Попытка
- ДобавитьПодпись(ЭлементДанныхДляСервера.Объект, СвойстваПодписи,
- Параметры.ИдентификаторФормы, ВерсияОбъекта);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи подписи возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
+КонецПроцедуры
&НаКлиенте
Процедура ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере)
@@ -634,81 +509,4 @@
КонецПроцедуры
-&НаКлиентеНаСервереБезКонтекста
-Функция СвойстваПодписи(ДвоичныеДанныеПодписи, СвойстваСертификата, Комментарий)
-
- СвойстваПодписи = Новый Структура;
- СвойстваПодписи.Вставить("Подпись", ДвоичныеДанныеПодписи);
- СвойстваПодписи.Вставить("УстановившийПодпись", ПользователиКлиентСервер.АвторизованныйПользователь());
- СвойстваПодписи.Вставить("Комментарий", Комментарий);
- СвойстваПодписи.Вставить("ИмяФайлаПодписи", "");
- СвойстваПодписи.Вставить("ДатаПодписи", Дата('00010101')); // Устанавливается перед записью.
- // Производные свойства:
- СвойстваПодписи.Вставить("Сертификат", СвойстваСертификата.ДвоичныеДанные);
- СвойстваПодписи.Вставить("Отпечаток", СвойстваСертификата.Отпечаток);
- СвойстваПодписи.Вставить("КомуВыданСертификат", СвойстваСертификата.КомуВыдан);
-
- Возврат СвойстваПодписи;
-
-КонецФункции
-
-&НаКлиенте
-Функция ДанныеИзОписанияДанных(Знач Данные, ДляСтороныКлиента = Истина)
-
- Если ТипЗнч(Данные) = Тип("ОписаниеОповещения") Тогда
- ОбработкаПолученияДанных = Данные;
- Данные = Неопределено;
- ВыполнитьОбработкуОповещения(ОбработкаПолученияДанных, Данные);
- КонецЕсли;
-
- Если ДляСтороныКлиента Тогда
- // Для стороны клиента требуются двоичные данные или путь к файлу.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат Данные;
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат ПолучитьИзВременногоХранилища(Данные);
- КонецЕсли;
- Иначе // Путь к файлу
- Возврат Данные;
- КонецЕсли;
- Иначе
- // Для стороны сервера требуется адрес двоичных данных во временном хранилище.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат Данные;
- КонецЕсли;
- Иначе // Путь к файлу
- Данные = Новый ДвоичныеДанные(Данные);
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
- КонецЕсли;
-
-КонецФункции
-
-&НаСервереБезКонтекста
-Процедура ДобавитьПодпись(СсылкаНаОбъект, СвойстваПодписи, ИдентификаторФормы, ВерсияОбъекта)
-
- ЭлектроннаяПодпись.ДобавитьПодпись(СсылкаНаОбъект, СвойстваПодписи, ИдентификаторФормы, ВерсияОбъекта);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ЗаблокироватьИзменениеПараметровОперации()
-
- // После начала подписания изменять сертификат более недопустимо,
- // иначе набор данных будет обработан по-разному.
- Элементы.Сертификат.ТолькоПросмотр = Истина;
- Элементы.Комментарий.ТолькоПросмотр = Истина;
-
-КонецПроцедуры
-
#КонецОбласти
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Form.form
index d00cf5eab..01fa6f476 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Form.form
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Form.form
@@ -200,9 +200,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -247,9 +244,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -364,9 +358,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -411,9 +402,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -530,9 +518,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -577,9 +562,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -701,9 +683,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -748,9 +727,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -899,9 +875,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -946,9 +919,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1065,9 +1035,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1112,9 +1079,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1231,9 +1195,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1278,9 +1239,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1397,9 +1355,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -1444,9 +1399,6 @@
ClickКартинкаНажатие
-
- CommonPicture.ПустоеСостояние
- trueAutoSize
@@ -2133,6 +2085,10 @@
NotificationProcessingОбработкаОповещения
+
+ OnOpen
+ ПриОткрытии
+ OnCreateAtServerПриСозданииНаСервере
@@ -2183,13 +2139,16 @@
- ДанныеСертификата
+ АдресСертификата
<key>ru</key>
- <value>Данные сертификата</value>
+ <value>Адрес сертификата</value>
3
-
+
+ String
+
+ true
@@ -2350,13 +2309,30 @@
true
+
+ ПарольПринят
+
+ <key>ru</key>
+ <value>Пароль принят</value>
+
+ 13
+
+ Boolean
+
+
+ true
+
+
+ true
+
+ ИмяПервойПроверки
<key>ru</key>
<value>Имя первой проверки</value>
- 13
+ 14String
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl
index 29fee0650..fb667cfb7 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl
@@ -40,7 +40,7 @@
Картинка = Элементы.Добавить(Проверка.Имя + "НаКлиентеКартинка", Тип("ДекорацияФормы"), Группа);
Картинка.Вид = ВидДекорацииФормы.Картинка;
- Картинка.Картинка = БиблиотекаКартинок.ПустоеСостояние;
+ Картинка.Картинка = Новый Картинка;
Картинка.РазмерКартинки = РазмерКартинки.АвтоРазмер;
Картинка.Ширина = 3;
Картинка.Высота = 1;
@@ -49,7 +49,7 @@
Картинка = Элементы.Добавить(Проверка.Имя + "НаСервереКартинка", Тип("ДекорацияФормы"), Группа);
Картинка.Вид = ВидДекорацииФормы.Картинка;
- Картинка.Картинка = БиблиотекаКартинок.ПустоеСостояние;
+ Картинка.Картинка = Новый Картинка;
Картинка.РазмерКартинки = РазмерКартинки.АвтоРазмер;
Картинка.Ширина = 3;
Картинка.Высота = 1;
@@ -69,7 +69,7 @@
"ДанныеСертификата, Программа, УсиленнаяЗащитаЗакрытогоКлюча");
Программа = СвойстваСертификата.Программа;
- ДанныеСертификата = СвойстваСертификата.ДанныеСертификата.Получить();
+ АдресСертификата = ПоместитьВоВременноеХранилище(СвойстваСертификата.ДанныеСертификата.Получить(), УникальныйИдентификатор);
СертификатУсиленнаяЗащитаЗакрытогоКлюча = СвойстваСертификата.УсиленнаяЗащитаЗакрытогоКлюча;
ОбновитьВидимостьНаСервере();
@@ -82,6 +82,15 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ Если ВнутренниеДанные = Неопределено Тогда
+ Отказ = Истина;
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
@@ -150,7 +159,13 @@
&НаКлиенте
Процедура Проверить(Команда)
- ПроверитьСертификат();
+ ПроверитьСертификат(Новый ОписаниеОповещения("ПроверитьЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры Проверить.
+&НаКлиенте
+Процедура ПроверитьЗавершение(Неопределен, Контекст) Экспорт
Если Не ПроверкаПриВыборе Тогда
Возврат;
@@ -169,12 +184,11 @@
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
-Функция ПродолжитьОткрытие(ОбщиеВнутренниеДанные, ВходящиеКлиентскиеПараметры) Экспорт
+Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, ВходящиеКлиентскиеПараметры) Экспорт
ВнутренниеДанные = ОбщиеВнутренниеДанные;
КлиентскиеПараметры = ВходящиеКлиентскиеПараметры;
КлиентскиеПараметры.Вставить("Результат");
-
ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
ДополнительныеПараметры = Новый Структура;
@@ -185,35 +199,48 @@
ТекущийЭлемент = Элементы.ФормаПроверить;
КонецЕсли;
- ПоказатьПредупреждение = Ложь;
-
Если КлиентскиеПараметры.Свойство("БезПодтверждения")
И КлиентскиеПараметры.БезПодтверждения
И ( ДополнительныеПараметры.ПарольУказан
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча) Тогда
- ПроверитьСертификат();
- Если КлиентскиеПараметры.Результат.ПроверкиПройдены Тогда
- Возврат Ложь;
+ Если Не КлиентскиеПараметры.Свойство("ОбработкаРезультата")
+ Или ТипЗнч(КлиентскиеПараметры.ОбработкаРезультата) <> Тип("ОписаниеОповещения") Тогда
+ Открыть();
КонецЕсли;
- Если ПроверкаПриВыборе Тогда
- ПоказатьПредупреждение = Истина;
- КонецЕсли;
+ Контекст = Новый Структура("Оповещение", Оповещение);
+ ПроверитьСертификат(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеПроверкиСертификата", ЭтотОбъект, Контекст));
+ Возврат;
+ КонецЕсли;
+
+ Открыть();
+
+ ВыполнитьОбработкуОповещения(Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеПроверкиСертификата(Результат, Контекст) Экспорт
+
+ Если КлиентскиеПараметры.Результат.ПроверкиПройдены Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
+ Возврат;
КонецЕсли;
Если Не Открыта() Тогда
Открыть();
КонецЕсли;
- Если ПоказатьПредупреждение Тогда
- ПоказатьПредупреждениеОНевозможностиПродолжения()
+ Если ПроверкаПриВыборе Тогда
+ ПоказатьПредупреждениеОНевозможностиПродолжения();
КонецЕсли;
- Возврат Истина;
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
-КонецФункции
+КонецПроцедуры
&НаКлиенте
Процедура ПриИзмененияИспользованияПодписанияИлиШифрования()
@@ -255,16 +282,40 @@
КонецПроцедуры
&НаКлиенте
-Процедура ПроверитьСертификат()
+Процедура ПроверитьСертификат(Оповещение)
ПарольПринят = Ложь;
-
ПроверкиНаКлиенте = Новый Структура;
- ПроверитьНаСторонеКлиента(ПарольПринят);
+ ПроверкиНаСервере = Новый Структура;
+
+ // Очистка предыдущих результатов проверки.
+ ОсновныеПроверки = Новый Структура(
+ "ЗаконныйСертификат, НаличиеСертификата, ДанныеСертификата, НаличиеПрограммы,
+ |Подписание, ПроверкаПодписи, Шифрование, Расшифровка");
+
+ Для каждого КлючИЗначение Из ОсновныеПроверки Цикл
+ УстановитьЭлемент(ЭтотОбъект, КлючИЗначение.Ключ, Ложь);
+ УстановитьЭлемент(ЭтотОбъект, КлючИЗначение.Ключ, Истина);
+ КонецЦикла;
+
+ Для каждого ЭлементСписка Из ДополнительныеПроверки Цикл
+ УстановитьЭлемент(ЭтотОбъект, ЭлементСписка.Значение, Ложь);
+ УстановитьЭлемент(ЭтотОбъект, ЭлементСписка.Значение, Истина);
+ КонецЦикла;
+
+ Контекст = Новый Структура("Оповещение", Оповещение);
+
+ ПроверитьНаСторонеКлиента(Новый ОписаниеОповещения(
+ "ПроверитьСертификатПослеПроверкиНаКлиенте", ЭтотОбъект, Контекст));
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьСертификат.
+&НаКлиенте
+Процедура ПроверитьСертификатПослеПроверкиНаКлиенте(Результат, Контекст) Экспорт
Если ОперацииНаСервере Тогда
- ПроверкиНаСервере = Новый Структура;
- ПроверитьНаСторонеСервера(СвойстваПароля.Значение, ПарольПринят);
+ ПроверитьНаСторонеСервера(СвойстваПароля.Значение);
Иначе
ПроверкиНаСервере = Неопределено;
КонецЕсли;
@@ -287,89 +338,361 @@
ВыполнитьОбработкуОповещения(КлиентскиеПараметры.ОбработкаРезультата, Результат.ПроверкиПройдены);
КонецЕсли;
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
КонецПроцедуры
+
&НаКлиенте
-Процедура ПроверитьНаСторонеКлиента(ПарольПринят)
+Процедура ПроверитьНаСторонеКлиента(Оповещение)
- НаСервере = Ложь;
+ Контекст = Новый Структура("Оповещение", Оповещение);
- Попытка
- СертификатКриптографии = Новый СертификатКриптографии(ДанныеСертификата);
- ОписаниеОшибки = "";
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
- КонецПопытки;
+ НачатьПодключениеРасширенияРаботыСКриптографией(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПодключенияРасширенияРаботыСКриптографией", ЭтотОбъект, Контекст));
- Если ЗначениеЗаполнено(ОписаниеОшибки) Тогда
- УстановитьЭлемент(ЭтотОбъект, ИмяПервойПроверки, НаСервере, ОписаниеОшибки, Истина);
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПодключенияРасширенияРаботыСКриптографией(Подключено, Контекст) Экспорт
+
+ Если Не Подключено Тогда
+ ЭлектроннаяПодписьКлиент.СоздатьМенеджерКриптографии(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПопыткиСозданияМенеджераКриптографии", ЭтотОбъект, Контекст),
+ "ПроверкаСертификата", Ложь);
Возврат;
КонецЕсли;
+ // Проверка данных сертификата.
+ Контекст.Вставить("ДанныеСертификата", ПолучитьИзВременногоХранилища(АдресСертификата));
+
+ СертификатКриптографии = Новый СертификатКриптографии;
+ СертификатКриптографии.НачатьИнициализацию(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеИнициализацииСертификата", ЭтотОбъект, Контекст,
+ "ПроверитьНаСторонеКлиентаПослеОшибкиИнициализацииСертификата", ЭтотОбъект),
+ Контекст.ДанныеСертификата);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПопыткиСозданияМенеджераКриптографии(Результат, Контекст) Экспорт
+
+ УстановитьЭлемент(ЭтотОбъект, ИмяПервойПроверки, Ложь, Результат, Ложь);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеОшибкиИнициализацииСертификата(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+
+ ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
+ УстановитьЭлемент(ЭтотОбъект, ИмяПервойПроверки, Ложь, ОписаниеОшибки, Истина);
+
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеИнициализацииСертификата(СертификатКриптографии, Контекст) Экспорт
+
+ Контекст.Вставить("СертификатКриптографии", СертификатКриптографии);
+
// Законный сертификат
- Если СертификатКриптографии.Субъект.Свойство("SN") Тогда
+ Если Контекст.СертификатКриптографии.Субъект.Свойство("SN") Тогда
ОписаниеОшибки = "";
Иначе
ОписаниеОшибки = НСтр("ru = 'В описании субъекта сертификата не найдено поле ""SN"".'");
КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "ЗаконныйСертификат", НаСервере, ОписаниеОшибки);
+ УстановитьЭлемент(ЭтотОбъект, "ЗаконныйСертификат", Ложь, ОписаниеОшибки);
// Наличие сертификата в личном списке.
- ОписаниеОшибки = "";
- ЭлектроннаяПодписьКлиент.ПолучитьСертификатПоОтпечатку(Base64Строка(СертификатКриптографии.Отпечаток),
- Истина, , Ложь, ОписаниеОшибки);
- УстановитьЭлемент(ЭтотОбъект, "НаличиеСертификата", НаСервере, ОписаниеОшибки);
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьСертификатПоОтпечатку(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПоискаСертификата", ЭтотОбъект, Контекст),
+ Base64Строка(Контекст.СертификатКриптографии.Отпечаток), Истина, Неопределено);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПоискаСертификата(Результат, Контекст) Экспорт
+
+ Если ТипЗнч(Результат) <> Тип("СертификатКриптографии") Тогда
+ ОписаниеОшибки = Результат.ОписаниеОшибки + Символы.ПС + Символы.ПС
+ + НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
+ Иначе
+ ОписаниеОшибки = "";
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "НаличиеСертификата", Ложь, ОписаниеОшибки);
// Проверка данных сертификата.
- ОписаниеОшибки = "";
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебныйКлиент.МенеджерКриптографии("ПроверкаСертификата",
- Ложь, ОписаниеОшибки);
+ ЭлектроннаяПодписьКлиент.СоздатьМенеджерКриптографии(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеСозданияЛюбогоМенеджераКриптографии", ЭтотОбъект, Контекст),
+ "ПроверкаСертификата", Ложь);
- Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
- ЭлектроннаяПодписьКлиент.ПроверитьСертификат(МенеджерКриптографии, СертификатКриптографии, ОписаниеОшибки);
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеСозданияЛюбогоМенеджераКриптографии(Результат, Контекст) Экспорт
+
+ Если ТипЗнч(Результат) = Тип("МенеджерКриптографии") Тогда
+ ЭлектроннаяПодписьКлиент.ПроверитьСертификат(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПроверкиСертификата", ЭтотОбъект, Контекст),
+ Контекст.СертификатКриптографии, Результат);
+ Иначе
+ ПроверитьНаСторонеКлиентаПослеПроверкиСертификата(Результат, Контекст)
КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "ДанныеСертификата", НаСервере, ОписаниеОшибки, Истина);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПроверкиСертификата(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ОписаниеОшибки = "";
+ Иначе
+ ОписаниеОшибки = Результат;
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "ДанныеСертификата", Ложь, ОписаниеОшибки, Истина);
// Наличие программы
Если ЗначениеЗаполнено(Программа) Тогда
- ОписаниеОшибки = "";
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебныйКлиент.МенеджерКриптографии("",
- Ложь, ОписаниеОшибки, Программа);
+ ЭлектроннаяПодписьКлиент.СоздатьМенеджерКриптографии(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеСозданияМенеджераКриптографии", ЭтотОбъект, Контекст),
+ "ПроверкаСертификата", Ложь, Программа);
Иначе
- МенеджерКриптографии = Неопределено;
ОписаниеОшибки = НСтр("ru = 'Программа для использования закрытого ключа не указана в сертификате.'");
+ ПроверитьНаСторонеКлиентаПослеСозданияМенеджераКриптографии(ОписаниеОшибки, Контекст);
КонецЕсли;
- Если ЗначениеЗаполнено(ОписаниеОшибки) Тогда
- ОписаниеОшибки = ОписаниеОшибки + Символы.ПС + Символы.ПС
- + НСтр("ru = 'Проверка подписания, проверка созданной подписи, проверка шифрования
- |и проверка расшифровки не могут быть выполнены.'");
- КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "НаличиеПрограммы", НаСервере, ОписаниеОшибки, Истина);
-
- УстановитьЭлемент(ЭтотОбъект, "Подписание", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "ПроверкаПодписи", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "Шифрование", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "Расшифровка", НаСервере);
- Для каждого ЭлементСписка Из ДополнительныеПроверки Цикл
- УстановитьЭлемент(ЭтотОбъект, ЭлементСписка.Значение, НаСервере);
- КонецЦикла;
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат;
- КонецЕсли;
-
- МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = СвойстваПароля.Значение;
-
- ПроверитьОперации(ЭтотОбъект, МенеджерКриптографии, СертификатКриптографии,
- ДанныеСертификата, НаСервере, ПарольПринят, ЭлектроннаяПодписьПереопределяемыйКлиент);
КонецПроцедуры
-&НаСервере
-Процедура ПроверитьНаСторонеСервера(Знач ЗначениеПароля, ПарольПринят)
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеСозданияМенеджераКриптографии(Результат, Контекст) Экспорт
- НаСервере = Истина;
+ Контекст.Вставить("МенеджерКриптографии", Неопределено);
+
+ Если ТипЗнч(Результат) = Тип("МенеджерКриптографии") Тогда
+ Контекст.МенеджерКриптографии = Результат;
+ ОписаниеОшибки = "";
+ Иначе
+ ОписаниеОшибки = Результат + Символы.ПС + Символы.ПС
+ + НСтр("ru = 'Проверка подписания, созданной подписи, шифрования и
+ |расшифровки не могут быть выполнены.'");
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "НаличиеПрограммы", Ложь, ОписаниеОшибки, Истина);
+
+ Если Контекст.МенеджерКриптографии = Неопределено Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ Возврат;
+ КонецЕсли;
+
+ Контекст.МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = СвойстваПароля.Значение;
+
+ // Подписание.
+ Если ПроверкиНаКлиенте.НаличиеСертификата Тогда
+ Контекст.МенеджерКриптографии.НачатьПодписывание(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПодписания", ЭтотОбъект, Контекст,
+ "ПроверитьНаСторонеКлиентаПослеОшибкиПодписания", ЭтотОбъект),
+ Контекст.ДанныеСертификата, Контекст.СертификатКриптографии);
+ Иначе
+ ПроверитьНаСторонеКлиентаПослеПодписания(Null, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеОшибкиПодписания(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+ ПроверитьНаСторонеКлиентаПослеПодписания(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПодписания(ДанныеПодписи, Контекст) Экспорт
+
+ Если ДанныеПодписи <> Null Тогда
+ Если ТипЗнч(ДанныеПодписи) = Тип("Строка") Тогда
+ ОписаниеОшибки = ДанныеПодписи;
+ Иначе
+ ОписаниеОшибки = "";
+ ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеДанныеПодписи(ДанныеПодписи, ОписаниеОшибки);
+ КонецЕсли;
+ Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ ПарольПринят = Истина;
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "Подписание", Ложь, ОписаниеОшибки, Истина);
+ КонецЕсли;
+
+ // Проверка подписи.
+ Если ПроверкиНаКлиенте.НаличиеСертификата И Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ Контекст.МенеджерКриптографии.НачатьПроверкуПодписи(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеПроверкиПодписи", ЭтотОбъект, Контекст,
+ "ПроверитьНаСторонеКлиентаПослеОшибкиПроверкиПодписи", ЭтотОбъект),
+ Контекст.ДанныеСертификата, ДанныеПодписи);
+ Иначе
+ ПроверитьНаСторонеКлиентаПослеПроверкиПодписи(Null, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеОшибкиПроверкиПодписи(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+ ПроверитьНаСторонеКлиентаПослеПроверкиПодписи(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеПроверкиПодписи(Сертификат, Контекст) Экспорт
+
+ Если Сертификат <> Null Тогда
+ Если ТипЗнч(Сертификат) = Тип("Строка") Тогда
+ ОписаниеОшибки = Сертификат;
+ Иначе
+ ОписаниеОшибки = "";
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "ПроверкаПодписи", Ложь, ОписаниеОшибки, Истина);
+ КонецЕсли;
+
+ // Шифрование.
+ Контекст.МенеджерКриптографии.НачатьШифрование(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеШифрования", ЭтотОбъект, Контекст,
+ "ПроверитьНаСторонеКлиентаПослеОшибкиШифрования", ЭтотОбъект),
+ Контекст.ДанныеСертификата, Контекст.СертификатКриптографии);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеОшибкиШифрования(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+ ПроверитьНаСторонеКлиентаПослеШифрования(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеШифрования(ЗашифрованныеДанные, Контекст) Экспорт
+
+ Если ТипЗнч(ЗашифрованныеДанные) = Тип("Строка") Тогда
+ ОписаниеОшибки = ЗашифрованныеДанные;
+ Иначе
+ ОписаниеОшибки = "";
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "Шифрование", Ложь, ОписаниеОшибки, Истина);
+
+ // Расшифровка.
+ Если ПроверкиНаКлиенте.НаличиеСертификата И Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ Контекст.МенеджерКриптографии.НачатьРасшифровку(Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеРасшифровки", ЭтотОбъект, Контекст,
+ "ПроверитьНаСторонеКлиентаПослеОшибкиРасшифровки", ЭтотОбъект),
+ ЗашифрованныеДанные);
+ Иначе
+ ПроверитьНаСторонеКлиентаПослеРасшифровки(Null, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеОшибкиРасшифровки(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+ ПроверитьНаСторонеКлиентаПослеРасшифровки(КраткоеПредставлениеОшибки(ИнформацияОбОшибке), Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеРасшифровки(РасшифрованныеДанные, Контекст) Экспорт
+
+ Если РасшифрованныеДанные <> Null Тогда
+ Если ТипЗнч(РасшифрованныеДанные) = Тип("Строка") Тогда
+ ОписаниеОшибки = РасшифрованныеДанные;
+ Иначе
+ ОписаниеОшибки = "";
+ КонецЕсли;
+ ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеРасшифрованныеДанные(РасшифрованныеДанные, ОписаниеОшибки);
+ УстановитьЭлемент(ЭтотОбъект, "Расшифровка", Ложь, ОписаниеОшибки, Истина);
+ КонецЕсли;
+
+ // Дополнительные проверки.
+ Контекст.Вставить("Индекс", -1);
+
+ ПроверитьНаСторонеКлиентаЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаЦиклНачало(Контекст)
+
+ Если ДополнительныеПроверки.Количество() <= Контекст.Индекс + 1 Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ Возврат;
+ КонецЕсли;
+ Контекст.Индекс = Контекст.Индекс + 1;
+ Контекст.Вставить("ЭлементСписка", ДополнительныеПроверки[Контекст.Индекс]);
+
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("Сертификат", Сертификат);
+ ПараметрыВыполнения.Вставить("Проверка", Контекст.ЭлементСписка.Значение);
+ ПараметрыВыполнения.Вставить("МенеджерКриптографии", Контекст.МенеджерКриптографии);
+ ПараметрыВыполнения.Вставить("ОписаниеОшибки", "");
+ ПараметрыВыполнения.Вставить("ЭтоПредупреждение", Ложь);
+ ПараметрыВыполнения.Вставить("ОжидатьПродолжения", Ложь);
+ ПараметрыВыполнения.Вставить("Оповещение", Новый ОписаниеОповещения(
+ "ПроверитьНаСторонеКлиентаПослеДополнительнойПроверки", ЭтотОбъект, Контекст));
+
+ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения);
+
+ Попытка
+ ЭлектроннаяПодписьПереопределяемыйКлиент.ПриДополнительнойПроверкеСертификата(ПараметрыВыполнения);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ ПараметрыВыполнения.ОжидатьПродолжения = Ложь;
+ ПараметрыВыполнения.ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
+ КонецПопытки;
+
+ Если ПараметрыВыполнения.ОжидатьПродолжения <> Истина Тогда
+ ПроверитьНаСторонеКлиентаПослеДополнительнойПроверки(, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПроверитьНаСторонеКлиента.
+&НаКлиенте
+Процедура ПроверитьНаСторонеКлиентаПослеДополнительнойПроверки(Неопределен, Контекст) Экспорт
+
+ УстановитьЭлемент(ЭтотОбъект, Контекст.ЭлементСписка.Значение, Ложь,
+ Контекст.ПараметрыВыполнения.ОписаниеОшибки,
+ Контекст.ПараметрыВыполнения.ЭтоПредупреждение <> Истина);
+
+ ПроверитьНаСторонеКлиентаЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+
+&НаСервере
+Процедура ПроверитьНаСторонеСервера(Знач ЗначениеПароля)
+
+ ДанныеСертификата = ПолучитьИзВременногоХранилища(АдресСертификата);
Попытка
СертификатКриптографии = Новый СертификатКриптографии(ДанныеСертификата);
@@ -380,7 +703,7 @@
КонецПопытки;
Если ЗначениеЗаполнено(ОписаниеОшибки) Тогда
- УстановитьЭлемент(ЭтотОбъект, ИмяПервойПроверки, НаСервере, ОписаниеОшибки, Истина);
+ УстановитьЭлемент(ЭтотОбъект, ИмяПервойПроверки, Истина, ОписаниеОшибки, Истина);
Возврат;
КонецЕсли;
@@ -390,13 +713,19 @@
Иначе
ОписаниеОшибки = НСтр("ru = 'В описании субъекта сертификата не найдено поле ""SN"".'");
КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "ЗаконныйСертификат", НаСервере, ОписаниеОшибки);
+ УстановитьЭлемент(ЭтотОбъект, "ЗаконныйСертификат", Истина, ОписаниеОшибки);
// Наличие сертификата в личном списке.
- ОписаниеОшибки = "";
- ЭлектроннаяПодпись.ПолучитьСертификатПоОтпечатку(Base64Строка(СертификатКриптографии.Отпечаток),
- Истина, , Ложь, ОписаниеОшибки);
- УстановитьЭлемент(ЭтотОбъект, "НаличиеСертификата", НаСервере, ОписаниеОшибки);
+ Результат = Новый Структура;
+ ЭлектроннаяПодписьСлужебный.ПолучитьСертификатПоОтпечатку(Base64Строка(СертификатКриптографии.Отпечаток),
+ Истина, Ложь, , Результат);
+ Если ЗначениеЗаполнено(Результат) Тогда
+ ОписаниеОшибки = Результат.ОписаниеОшибки + Символы.ПС + Символы.ПС
+ + НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
+ Иначе
+ ОписаниеОшибки = "";
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "НаличиеСертификата", Истина, ОписаниеОшибки);
// Проверка данных сертификата.
ОписаниеОшибки = "";
@@ -406,7 +735,7 @@
Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
ЭлектроннаяПодпись.ПроверитьСертификат(МенеджерКриптографии, СертификатКриптографии, ОписаниеОшибки);
КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "ДанныеСертификата", НаСервере, ОписаниеОшибки, Истина);
+ УстановитьЭлемент(ЭтотОбъект, "ДанныеСертификата", Истина, ОписаниеОшибки, Истина);
// Наличие программы
Если ЗначениеЗаполнено(Программа) Тогда
@@ -417,15 +746,12 @@
МенеджерКриптографии = Неопределено;
ОписаниеОшибки = НСтр("ru = 'Программа для использования закрытого ключа не указана в сертификате.'");
КонецЕсли;
- УстановитьЭлемент(ЭтотОбъект, "НаличиеПрограммы", НаСервере, ОписаниеОшибки, Истина);
-
- УстановитьЭлемент(ЭтотОбъект, "Подписание", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "ПроверкаПодписи", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "Шифрование", НаСервере);
- УстановитьЭлемент(ЭтотОбъект, "Расшифровка", НаСервере);
- Для каждого ЭлементСписка Из ДополнительныеПроверки Цикл
- УстановитьЭлемент(ЭтотОбъект, ЭлементСписка.Значение, НаСервере);
- КонецЦикла;
+ Если ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ ОписаниеОшибки = ОписаниеОшибки + Символы.ПС + Символы.ПС
+ + НСтр("ru = 'Проверка подписания, созданной подписи, шифрования и
+ |расшифровки не могут быть выполнены.'");
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "НаличиеПрограммы", Истина, ОписаниеОшибки, Истина);
Если МенеджерКриптографии = Неопределено Тогда
Возврат;
@@ -433,52 +759,46 @@
МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = ЗначениеПароля;
- ПроверитьОперации(ЭтотОбъект, МенеджерКриптографии, СертификатКриптографии,
- ДанныеСертификата, НаСервере, ПарольПринят, ЭлектроннаяПодписьПереопределяемый);
-
-КонецПроцедуры
-
-&НаКлиентеНаСервереБезКонтекста
-Процедура ПроверитьОперации(Форма, МенеджерКриптографии, СертификатКриптографии, Данные, НаСервере, ПарольПринят, Модуль)
-
// Подписание.
- ОписаниеОшибки = "";
- Попытка
- ДанныеПодписи = МенеджерКриптографии.Подписать(Данные, СертификатКриптографии);
- ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеДанныеПодписи(ДанныеПодписи, ОписаниеОшибки);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
- КонецПопытки;
- Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
- ПарольПринят = Истина;
- КонецЕсли;
- УстановитьЭлемент(Форма, "Подписание", НаСервере, ОписаниеОшибки, Истина);
-
- // Проверка подписи.
- Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ Если ПроверкиНаСервере.НаличиеСертификата Тогда
ОписаниеОшибки = "";
Попытка
- МенеджерКриптографии.ПроверитьПодпись(Данные, ДанныеПодписи);
+ ДанныеПодписи = МенеджерКриптографии.Подписать(ДанныеСертификата, СертификатКриптографии);
+ ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеДанныеПодписи(ДанныеПодписи, ОписаниеОшибки);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
КонецПопытки;
- УстановитьЭлемент(Форма, "ПроверкаПодписи", НаСервере, ОписаниеОшибки, Истина);
+ Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ ПарольПринят = Истина;
+ КонецЕсли;
+ УстановитьЭлемент(ЭтотОбъект, "Подписание", Истина, ОписаниеОшибки, Истина);
+ КонецЕсли;
+
+ // Проверка подписи.
+ Если ПроверкиНаСервере.НаличиеСертификата И Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ ОписаниеОшибки = "";
+ Попытка
+ МенеджерКриптографии.ПроверитьПодпись(ДанныеСертификата, ДанныеПодписи);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
+ КонецПопытки;
+ УстановитьЭлемент(ЭтотОбъект, "ПроверкаПодписи", Истина, ОписаниеОшибки, Истина);
КонецЕсли;
// Шифрование.
ОписаниеОшибки = "";
Попытка
- ЗашифрованныеДанные = МенеджерКриптографии.Зашифровать(Данные, СертификатКриптографии);
+ ЗашифрованныеДанные = МенеджерКриптографии.Зашифровать(ДанныеСертификата, СертификатКриптографии);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
КонецПопытки;
- УстановитьЭлемент(Форма, "Шифрование", НаСервере, ОписаниеОшибки, Истина);
+ УстановитьЭлемент(ЭтотОбъект, "Шифрование", Истина, ОписаниеОшибки, Истина);
// Расшифровка.
- Если Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
+ Если ПроверкиНаСервере.НаличиеСертификата И Не ЗначениеЗаполнено(ОписаниеОшибки) Тогда
ОписаниеОшибки = "";
Попытка
РасшифрованныеДанные = МенеджерКриптографии.Расшифровать(ЗашифрованныеДанные);
@@ -487,21 +807,21 @@
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
КонецПопытки;
- УстановитьЭлемент(Форма, "Расшифровка", НаСервере, ОписаниеОшибки, Истина);
+ УстановитьЭлемент(ЭтотОбъект, "Расшифровка", Истина, ОписаниеОшибки, Истина);
КонецЕсли;
// Дополнительные проверки.
- Для каждого ЭлементСписка Из Форма.ДополнительныеПроверки Цикл
+ Для каждого ЭлементСписка Из ДополнительныеПроверки Цикл
ОписаниеОшибки = "";
ЭтоПредупреждение = Ложь;
Попытка
- Модуль.ПриДополнительнойПроверкеСертификата(Форма.Сертификат, ЭлементСписка.Значение,
- МенеджерКриптографии, ОписаниеОшибки, ЭтоПредупреждение);
+ ЭлектроннаяПодписьПереопределяемый.ПриДополнительнойПроверкеСертификата(Сертификат,
+ ЭлементСписка.Значение, МенеджерКриптографии, ОписаниеОшибки, ЭтоПредупреждение);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
КонецПопытки;
- УстановитьЭлемент(Форма, ЭлементСписка.Значение, НаСервере, ОписаниеОшибки, ЭтоПредупреждение <> Истина);
+ УстановитьЭлемент(ЭтотОбъект, ЭлементСписка.Значение, Истина, ОписаниеОшибки, ЭтоПредупреждение <> Истина);
КонецЦикла;
КонецПроцедуры
@@ -512,8 +832,15 @@
ЭлементКартинка = Форма.Элементы[НачалоЭлемента + ?(НаСервере, "НаСервере", "НаКлиенте") + "Картинка"];
Проверки = Форма["Проверки" + ?(НаСервере, "НаСервере", "НаКлиенте")];
+ Попытка
+ Значение = ЭлементКартинка.Картинка;
+ Исключение
+ Форма.УстановитьЭлементЧерезСервер(НачалоЭлемента, НаСервере, ОписаниеОшибки, ЭтоОшибка);
+ Возврат;
+ КонецПопытки;
+
Если ОписаниеОшибки = Неопределено Тогда
- ЭлементКартинка.Картинка = БиблиотекаКартинок.ПустоеСостояние;
+ ЭлементКартинка.Картинка = Новый Картинка;
ЭлементКартинка.Подсказка = НСтр("ru = 'Проверка не выполнялась.'");
Проверки.Вставить(НачалоЭлемента, Неопределено);
@@ -529,4 +856,11 @@
КонецПроцедуры
+&НаСервере
+Процедура УстановитьЭлементЧерезСервер(НачалоЭлемента, НаСервере, ОписаниеОшибки, ЭтоОшибка)
+
+ УстановитьЭлемент(ЭтотОбъект, НачалоЭлемента, НаСервере, ОписаниеОшибки, ЭтоОшибка);
+
+КонецПроцедуры
+
#КонецОбласти
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Form.form
index 40e2bc8a1..7fb047187 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Form.form
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Form.form
@@ -61,46 +61,6 @@
Normal
-
- СписокЗначение
- 27
- true
- true
-
-
- Список.Значение
-
-
- СписокЗначениеРасширеннаяПодсказка
- 29
- Label
- true
- true
-
- Left
-
-
-
- СписокЗначениеКонтекстноеМеню
- 28
- true
-
- InputField
- true
- Auto
- true
- Left
- true
-
- true
- true
- true
- true
- true
- true
- Normal
-
- СписокКоманднаяПанель3
@@ -215,6 +175,9 @@
Autotruetrue
+ None
+ None
+ Nonetrue
@@ -306,23 +269,6 @@
true
-
- Значение
-
- <key>ru</key>
- <value>Значение</value>
-
- 1
-
- AnyRef
-
-
- true
-
-
- true
-
- Представление
@@ -362,9 +308,7 @@
</formCommands>
<parameters>
<name>СписокПредставленийДанных</name>
- <valueType>
- <types>ValueList</types>
- </valueType>
+ <valueType/>
</parameters>
<parameters>
<name>ПредставлениеДанных</name>
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl
index cca1b2a80..c700f7b8f 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl
@@ -1,12 +1,19 @@
+&НаКлиенте
+Перем СписокПредставленийДанных;
+
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+ Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
+ Возврат;
+ КонецЕсли;
+
Заголовок = Параметры.ПредставлениеДанных;
- Для каждого ЭлементСписка Из Параметры.СписокПредставленийДанных Цикл
- ЗаполнитьЗначенияСвойств(Список.Добавить(), ЭлементСписка);
+ Для каждого Представление Из Параметры.СписокПредставленийДанных Цикл
+ Список.Добавить().Представление = Представление;
КонецЦикла;
КонецПроцедуры
@@ -25,9 +32,11 @@
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
-Процедура СписокОткрыть(Команда)
+Процедура УстановитьСписокПредставлений(СписокПредставлений, Контекст) Экспорт
- ОткрытьДанные();
+ СписокПредставленийДанных = СписокПредставлений;
+
+ Контекст = Новый ОписаниеОповещения("УстановитьСписокПредставлений", ЭтотОбъект, Контекст);
КонецПроцедуры
@@ -35,14 +44,33 @@
#Область ОбработчикиКомандФормы
+&НаКлиенте
+Процедура СписокОткрыть()
+
+ ОткрытьДанные();
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОткрытьДанные()
- Если Элементы.Список.ТекущиеДанные = Неопределено Тогда
+ Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
- ПоказатьЗначение(, Элементы.Список.ТекущиеДанные.Значение);
+ Строка = Список.НайтиПоИдентификатору(Элементы.Список.ТекущаяСтрока);
+ Если Строка = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+ Индекс = Список.Индекс(Строка);
+
+ Значение = СписокПредставленийДанных[Индекс].Значение;
+
+ Если ТипЗнч(Значение) = Тип("ОписаниеОповещения") Тогда
+ ВыполнитьОбработкуОповещения(Значение);
+ Иначе
+ ПоказатьЗначение(, Значение);
+ КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Form.form
index 2375d209e..f1a4e3257 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Form.form
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Form.form
@@ -1149,7 +1149,6 @@
<name>ПредставлениеДанных</name>
<valueType>
<types>String</types>
- <types>AnyRef</types>
<stringQualifiers/>
</valueType>
</parameters>
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Help/ru.html
index 6feb4de68..3d8aa5d20 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Help/ru.html
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для расшифровки данных. </p>
<p>Выводятся сведения:</p>
<ul><li>В ссылке в верхней части окна указываются сведения о данных, которые будут расшифрованы.
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
index 4aedec038..4df18b091 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
@@ -1,5 +1,5 @@
&НаКлиенте
-Перем ВнутренниеДанные, СвойстваПароля, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения;
+Перем ВнутренниеДанные, СвойстваПароля, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения, ТекущийСписокПредставлений;
#Область ОбработчикиСобытийФормы
@@ -48,14 +48,23 @@
Процедура ПредставлениеДанныхНажатие(Элемент, СтандартнаяОбработка)
ЭлектроннаяПодписьСлужебныйКлиент.ПредставлениеДанныхНажатие(ЭтотОбъект,
- Элемент, СтандартнаяОбработка, ОписаниеДанных);
+ Элемент, СтандартнаяОбработка, ТекущийСписокПредставлений);
КонецПроцедуры
&НаКлиенте
Процедура СертификатПриИзменении(Элемент)
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатПриИзмененииЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатПриИзменении.
+&НаКлиенте
+Процедура СертификатПриИзмененииЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, ВнутренниеДанные, СвойстваПароля);
@@ -114,7 +123,16 @@
Сертификат = ВыбранноеЗначение;
КонецЕсли;
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатОбработкаВыбораЗавершение", ЭтотОбъект, ВыбранноеЗначение));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатОбработкаВыбора.
+&НаКлиенте
+Процедура СертификатОбработкаВыбораЗавершение(ОтпечаткиСертификатовНаКлиенте, ВыбранноеЗначение) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
Если ВыбранноеЗначение = Истина
И ВнутренниеДанные["ВыбранныйСертификатПароль"] <> Неопределено Тогда
@@ -132,16 +150,14 @@
&НаКлиенте
Процедура СертификатАвтоПодбор(Элемент, Текст, ДанныеВыбора, Параметры, Ожидание, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура СертификатОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, Параметры, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
@@ -201,11 +217,17 @@
Возврат;
КонецЕсли;
- Если Не РасшифроватьДанные() Тогда
- Возврат;
- КонецЕсли;
+ РасшифроватьДанные(Новый ОписаниеОповещения("РасшифроватьЗавершение", ЭтотОбъект));
- Закрыть(Истина);
+КонецПроцедуры
+
+// Продолжение процедуры Расшифровать.
+&НаКлиенте
+Процедура РасшифроватьЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ Закрыть(Истина);
+ КонецЕсли;
КонецПроцедуры
@@ -214,19 +236,47 @@
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
-Функция ПродолжитьОткрытие(ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
+Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
- Если Не ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(ЭтотОбъект, КлиентскиеПараметры,, Истина) Тогда
- Возврат Ложь;
+ Если КлиентскиеПараметры = ВнутренниеДанные Тогда
+ КлиентскиеПараметры = Новый Структура("Сертификат, СвойстваПароля", Сертификат, СвойстваПароля);
+ Возврат;
КонецЕсли;
- ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
+ Если КлиентскиеПараметры.Свойство("УказанКонтекстДругойОперации") Тогда
+ СвойстваСертификата = ОбщиеВнутренниеДанные;
+ КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации.ПродолжитьОткрытие(,, СвойстваСертификата);
+ Если СвойстваСертификата.Сертификат = Сертификат Тогда
+ СвойстваПароля = СвойстваСертификата.СвойстваПароля;
+ КонецЕсли;
+ КонецЕсли;
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
ВнутренниеДанные = ОбщиеВнутренниеДанные;
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
+ Контекст = Новый Структура("Оповещение", Оповещение);
+ Оповещение = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
+
+ ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(Новый ОписаниеОповещения(
+ "ПродолжитьОткрытиеПослеНачала", ЭтотОбъект, Контекст), ЭтотОбъект, КлиентскиеПараметры,, Истина);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеНачала(Результат, Контекст) Экспорт
+
+ Если Результат <> Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ Возврат;
+ КонецЕсли;
ДополнительныеПараметры = Новый Структура;
+ Если СвойстваПароля <> Неопределено Тогда
+ ДополнительныеПараметры.Вставить("ПриУстановкеПароляИзДругойОперации", Истина);
+ КонецЕсли;
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
ВнутренниеДанные, СвойстваПароля, ДополнительныеПараметры);
@@ -242,30 +292,51 @@
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча) Тогда
ОбработкаПослеПредупреждения = Неопределено;
-
- Если РасшифроватьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОписаниеОповещенияОЗакрытии, Истина);
- Возврат Истина;
- КонецЕсли;
- Иначе
- Открыть();
+ РасшифроватьДанные(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеРасшифровкиДанных", ЭтотОбъект, Контекст));
+ Возврат;
КонецЕсли;
- Возврат Истина;
+ Открыть();
-КонецФункции
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеРасшифровкиДанных(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
+ Иначе
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ КонецЕсли;
+
+КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьРасшифровку(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры);
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
ОбработкаПослеПредупреждения = ОбработкаЗавершения;
ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьРасшифровку", ЭтотОбъект);
- Если РасшифроватьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОбработкаЗавершения, Истина);
+ Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения);
+ РасшифроватьДанные(Новый ОписаниеОповещения("ВыполнитьРасшифровкуЗавершение", ЭтотОбъект, Контекст));
+
+КонецПроцедуры
+
+// Продолжение процедуры ВыполнитьРасшифровку.
+&НаКлиенте
+Процедура ВыполнитьРасшифровкуЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.ОбработкаЗавершения, Истина);
КонецЕсли;
КонецПроцедуры
@@ -273,7 +344,16 @@
&НаКлиенте
Процедура ПриИзмененииСпискаСертификатов()
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте(), Истина);
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("ПриИзмененииСпискаСертификатовЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры ПриИзмененииСпискаСертификатов.
+&НаКлиенте
+Процедура ПриИзмененииСпискаСертификатовЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте, Истина);
ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриИзмененииСвойствСертификата", Истина));
@@ -295,18 +375,21 @@
КонецПроцедуры
&НаКлиенте
-Функция РасшифроватьДанные()
+Процедура РасшифроватьДанные(Оповещение)
- ОшибкаНаКлиенте = Новый Структура;
- ОшибкаНаСервере = Новый Структура;
+ Контекст = Новый Структура;
+ Контекст.Вставить("Оповещение", Оповещение);
+ Контекст.Вставить("ОшибкаНаКлиенте", Новый Структура);
+ Контекст.Вставить("ОшибкаНаСервере", Новый Структура);
Если Не ЗначениеЗаполнено(СертификатПрограмма) Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
+ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
НСтр("ru = 'У выбранного сертификата не указана программа для закрытого ключа.
|Выберите сертификат повторно из полного списка или
|откройте сертификат и укажите программу вручную.'"));
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
ВыбранныйСертификат = Новый Структура;
@@ -318,44 +401,99 @@
Если ОписаниеДанных.Свойство("ПередВыполнением")
И ТипЗнч(ОписаниеДанных.ПередВыполнением) = Тип("ОписаниеОповещения") Тогда
- ВыполнитьОбработкуОповещения(ОписаниеДанных.ПередВыполнением, Неопределено);
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписаниеДанных", ОписаниеДанных);
+ ПараметрыВыполнения.Вставить("Оповещение", Новый ОписаниеОповещения(
+ "РасшифроватьДанныеПослеОбработкиПередВыполнением", ЭтотОбъект, Контекст));
+
+ ВыполнитьОбработкуОповещения(ОписаниеДанных.ПередВыполнением, ПараметрыВыполнения);
+ Иначе
+ РасшифроватьДанныеПослеОбработкиПередВыполнением(Новый Структура, Контекст);
КонецЕсли;
- ИдентификаторФормы = Неопределено;
+КонецПроцедуры
+
+// Продолжение процедуры РасшифроватьДанные.
+&НаКлиенте
+Процедура РасшифроватьДанныеПослеОбработкиПередВыполнением(Результат, Контекст) Экспорт
+
+ Если Результат.Свойство("ОписаниеОшибки") Тогда
+ ПоказатьОшибку(Новый Структура("ОписаниеОшибки", Результат.ОписаниеОшибки), Новый Структура);
+ Возврат;
+ КонецЕсли;
+
+ Контекст.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
Если ТипЗнч(ФормаОбъекта) = Тип("УправляемаяФорма") Тогда
- ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
+ Контекст.ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
ИначеЕсли ТипЗнч(ФормаОбъекта) = Тип("УникальныйИдентификатор") Тогда
- ИдентификаторФормы = ФормаОбъекта;
+ Контекст.ИдентификаторФормы = ФормаОбъекта;
КонецЕсли;
- Успех = Ложь;
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписаниеДанных", ОписаниеДанных);
+ ПараметрыВыполнения.Вставить("Форма", ЭтотОбъект);
+ ПараметрыВыполнения.Вставить("ИдентификаторФормы", Контекст.ИдентификаторФормы);
+ ПараметрыВыполнения.Вставить("ЗначениеПароля", СвойстваПароля.Значение);
+ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения);
Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда
Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда
- ОшибкаНаСервере = СертификатНаСервереОписаниеОшибки;
+ Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки);
СертификатНаСервереОписаниеОшибки = Новый Структура;
+ РасшифроватьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст);
Иначе
- // Попытка подписания на сервере.
- Успех = РасшифроватьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере);
- КонецЕсли;
-
- Если Не Успех Тогда
- // Попытка подписания на клиенте.
- Успех = РасшифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте);
+ // Попытка шифрования на сервере.
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "РасшифроватьДанныеПослеВыполненияНаСторонеСервера", ЭтотОбъект, Контекст),
+ "Расшифровка", "НаСторонеСервера", Контекст.ПараметрыВыполнения);
КонецЕсли;
Иначе
+ РасшифроватьДанныеПослеВыполненияНаСторонеСервера(Неопределено, Контекст);
+ КонецЕсли;
+
+
+КонецПроцедуры
+
+// Продолжение процедуры РасшифроватьДанные.
+&НаКлиенте
+Процедура РасшифроватьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст) Экспорт
+
+ Если Результат <> Неопределено Тогда
+ РасшифроватьДанныеПослеВыполнения(Результат);
+ КонецЕсли;
+
+ Если Результат <> Неопределено И Не Результат.Свойство("Ошибка") Тогда
+ РасшифроватьДанныеПослеВыполненияНаСторонеКлиента(Новый Структура, Контекст);
+ Иначе
+ Если Результат <> Неопределено Тогда
+ Контекст.ОшибкаНаСервере = Результат.Ошибка;
+ КонецЕсли;
+
// Попытка подписания на клиенте.
- Успех = РасшифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, Истина);
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "РасшифроватьДанныеПослеВыполненияНаСторонеКлиента", ЭтотОбъект, Контекст),
+ "Расшифровка", "НаСторонеКлиента", Контекст.ПараметрыВыполнения);
КонецЕсли;
- Если Не Успех Тогда
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+КонецПроцедуры
+
+// Продолжение процедуры РасшифроватьДанные.
+&НаКлиенте
+Процедура РасшифроватьДанныеПослеВыполненияНаСторонеКлиента(Результат, Контекст) Экспорт
+
+ РасшифроватьДанныеПослеВыполнения(Результат);
+
+ Если Результат.Свойство("Ошибка") Тогда
+ Контекст.ОшибкаНаКлиенте = Результат.Ошибка;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
- Если Не ЗаписатьСертификатыШифрования(ИдентификаторФормы, ОшибкаНаКлиенте) Тогда
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+ Если Не ЗаписатьСертификатыШифрования(Контекст.ИдентификаторФормы, Контекст.ОшибкаНаКлиенте) Тогда
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
Если Не ЭтоАутентификация
@@ -363,276 +501,29 @@
И (Не ОписаниеДанных.Свойство("СообщитьОЗавершении")
Или ОписаниеДанных.СообщитьОЗавершении <> Ложь) Тогда
- ЭлектроннаяПодписьКлиент.ИнформироватьОРасшифровкеОбъекта(ПредставлениеДанных,
- ОписаниеДанных.ТекущийСписокПредставлений.Количество() > 1);
+ ЭлектроннаяПодписьКлиент.ИнформироватьОРасшифровкеОбъекта(
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолноеПредставлениеДанных(ЭтотОбъект),
+ ТекущийСписокПредставлений.Количество() > 1);
КонецЕсли;
Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда
ОписаниеДанных.КонтекстОперации = ЭтотОбъект;
КонецЕсли;
- Возврат Истина;
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
-КонецФункции
+КонецПроцедуры
+// Продолжение процедуры РасшифроватьДанные.
&НаКлиенте
-Функция РасшифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, ТолькоНаСторонеКлиента = Ложь)
+Процедура РасшифроватьДанныеПослеВыполнения(Результат)
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебныйКлиент.МенеджерКриптографии("Расшифровка",
- ТолькоНаСторонеКлиента, ОшибкаНаКлиенте, СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
+ Если Результат.Свойство("ОперацияНачалась") Тогда
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, ВнутренниеДанные,
+ СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
КонецЕсли;
- СертификатКриптографии = ЭлектроннаяПодписьКлиент.ПолучитьСертификатПоОтпечатку(СертификатОтпечаток,
- Истина, СертификатПрограмма, Ложь, ОшибкаНаКлиенте);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- Успех = Ложь;
- ПарольПринят = Ложь;
- МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = СвойстваПароля.Значение;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = РасшифроватьЭлементДанныхНаСторонеКлиента(ОписаниеДанных, МенеджерКриптографии,
- СертификатКриптографии, ИдентификаторФормы, ПарольПринят, ОшибкаНаКлиенте);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("РасшифрованныеДанные") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = РасшифроватьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии,
- СертификатКриптографии, ИдентификаторФормы, ПарольПринят, ОшибкаНаКлиенте);
-
- Если Не Успех Тогда
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ПарольПринят Тогда
- ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
- ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция РасшифроватьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии, СертификатКриптографии,
- ИдентификаторФормы, ПарольПринят, ОшибкаНаКлиенте)
-
- Попытка
- ДанныеДляРасшифровки = ДанныеИзОписанияДанных(ЭлементДанных.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для расшифровки возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Попытка
- ДвоичныеРасшифрованныеДанные = МенеджерКриптографии.Расшифровать(ДанныеДляРасшифровки);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаКлиенте.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ПарольПринят = Истина;
-
- ЭлементДанных.Вставить("РасшифрованныеДанные", ДвоичныеРасшифрованныеДанные);
-
- Если ЭлементДанных.Свойство("РазмещениеРезультата") Тогда
- Если ТипЗнч(ЭлементДанных.РазмещениеРезультата) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.РазмещениеРезультата, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("РасшифрованныеДанные");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи расшифрованных данных возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаКлиенте
-Функция РасшифроватьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере)
-
- Успех = Ложь;
- ПарольПринят = Ложь;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = РасшифроватьЭлементДанныхНаСторонеСервера(ОписаниеДанных, ИдентификаторФормы,
- ПарольПринят, ОшибкаНаСервере);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("РасшифрованныеДанные") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = РасшифроватьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы,
- ПарольПринят, ОшибкаНаСервере);
-
- Если Не Успех Тогда
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ПарольПринят Тогда
- ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект,
- ВнутренниеДанные, СвойстваПароля, Новый Структура("ПриУспешномВыполненииОперации", Истина));
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция РасшифроватьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы, ПарольПринят, ОшибкаНаСервере)
-
- ПараметрыДляСервера = Новый Структура;
- ПараметрыДляСервера.Вставить("ИдентификаторФормы", ИдентификаторФормы);
- ПараметрыДляСервера.Вставить("СертификатПрограмма", СертификатПрограмма);
- ПараметрыДляСервера.Вставить("СертификатОтпечаток", СертификатОтпечаток);
-
- АдресРасшифрованныхДанных = Неопределено;
- ЭлементДанныхДляСервера = Новый Структура;
- ЭлементДанныхДляСервера.Вставить("Данные", ДанныеИзОписанияДанных(ЭлементДанных.Данные, Ложь));
-
- Если Не РасшифроватьЭлементДанныхНаСервере(ЭлементДанныхДляСервера, ПараметрыДляСервера,
- СвойстваПароля.Значение, АдресРасшифрованныхДанных, ПарольПринят, ОшибкаНаСервере) Тогда
- Возврат Ложь;
- КонецЕсли;
-
- ЭлементДанных.Вставить("РасшифрованныеДанные", АдресРасшифрованныхДанных);
-
- Если ЭлементДанных.Свойство("РазмещениеРезультата") Тогда
- Если ТипЗнч(ЭлементДанных.РазмещениеРезультата) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.РазмещениеРезультата, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("РасшифрованныеДанные");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи расшифрованных данных возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаСервереБезКонтекста
-Функция РасшифроватьЭлементДанныхНаСервере(Знач ЭлементДанныхДляСервера, Знач Параметры,
- Знач ЗначениеПароля, АдресРасшифрованныхДанных, ПарольПринят, ОшибкаНаСервере)
-
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("Расшифровка",
- Ложь, ОшибкаНаСервере, Параметры.СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- СертификатКриптографии = ЭлектроннаяПодпись.ПолучитьСертификатПоОтпечатку(
- Параметры.СертификатОтпечаток, Истина, Параметры.СертификатПрограмма, Ложь, ОшибкаНаСервере);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- МенеджерКриптографии.ПарольДоступаКЗакрытомуКлючу = ЗначениеПароля;
- Попытка
- ДанныеДляРасшифровки = ПолучитьИзВременногоХранилища(ЭлементДанныхДляСервера.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для расшифровки возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Попытка
- ДвоичныеРасшифрованныеДанные = МенеджерКриптографии.Расшифровать(ДанныеДляРасшифровки);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаСервере.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ПарольПринят = Истина;
-
- АдресРасшифрованныхДанных = ПоместитьВоВременноеХранилище(ДвоичныеРасшифрованныеДанные, Параметры.ИдентификаторФормы);
-
- Возврат Истина;
-
-КонецФункции
-
-
-&НаКлиенте
-Функция ДанныеИзОписанияДанных(Знач Данные, ДляСтороныКлиента = Истина)
-
- Если ТипЗнч(Данные) = Тип("ОписаниеОповещения") Тогда
- ОбработкаПолученияДанных = Данные;
- Данные = Неопределено;
- ВыполнитьОбработкуОповещения(ОбработкаПолученияДанных, Данные);
- КонецЕсли;
-
- Если ДляСтороныКлиента Тогда
- // Для стороны клиента требуются двоичные данные или путь к файлу.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат Данные;
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат ПолучитьИзВременногоХранилища(Данные);
- КонецЕсли;
- Иначе // Путь к файлу
- Возврат Данные;
- КонецЕсли;
- Иначе
- // Для стороны сервера требуется адрес двоичных данных во временном хранилище.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат Данные;
- КонецЕсли;
- Иначе // Путь к файлу
- Данные = Новый ДвоичныеДанные(Данные);
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
- КонецЕсли;
-
-КонецФункции
-
+КонецПроцедуры
&НаКлиенте
Функция ЗаписатьСертификатыШифрования(ИдентификаторФормы, Ошибка)
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Help/ru.html
index ac3866df1..b1b667c75 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Help/ru.html
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для выбора сертификата электронной подписи.</p>
<p>В списке выводится:</p>
<ul><li><strong>Представление</strong> - полное наименование сертификата;
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Form.form
index d04c1eee1..ca90438da 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Form.form
@@ -1754,6 +1754,10 @@
<value>Показать данные сертификата</value>
7
+
+ ru
+ Показать данные сертификата, которые сохраняются в файле
+
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
index edf3dcdc5..5ca33af56 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Сведения о сертификате электронной подписи.
В верхней части программа автоматически выводит данные о сертификате:
Кому выдан;
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
index 3ea5b4162..6ac2d9f78 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl
@@ -140,7 +140,7 @@
&НаКлиенте
Процедура СохранитьДанныеСертификатаВФайл(Команда)
- ЭлектроннаяПодписьКлиент.СохранитьСертификат(АдресСертификата);
+ ЭлектроннаяПодписьСлужебныйКлиент.СохранитьСертификат(, АдресСертификата);
КонецПроцедуры
@@ -220,7 +220,7 @@
Если ЗначениеЗаполнено(ОрганизацияПоУмолчанию)
И Объект.Организация = ОрганизацияПоУмолчанию
- И Не МодульОрганизацииСлужебный.ИспользуетсяНесколькоОрганизация() Тогда
+ И Не МодульОрганизацииСлужебный.ИспользуетсяНесколькоОрганизаций() Тогда
Элементы.ОрганизацияЗаголовок.Видимость = Ложь;
Элементы.Организация.Видимость = Ложь;
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Form.form
index 0e6ba6027..ac73d945e 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Form.form
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Form.form
@@ -83,150 +83,106 @@
- ГруппаЛичныйСертификат
- 450
-
- Сертификат
- 452
-
- <key>ru</key>
- <value>Личный сертификат</value>
-
- true
- true
-
- true
-
-
- Сертификат
-
-
- ru
- Личный сертификат позволяет пользователю расшифровать данные, которые он шифрует.
-
- Button
-
- OnChange
- СертификатПриИзменении
-
-
- СертификатРасширеннаяПодсказка
- 454
- Label
- true
- true
-
- Left
-
-
-
- СертификатКонтекстноеМеню
- 453
- true
-
- InputField
- Enter
- true
- Left
- true
-
-
- AutoComplete
- СертификатАвтоПодбор
-
-
- StartChoice
- СертификатНачалоВыбора
-
-
- Opening
- СертификатОткрытие
-
-
- TextEditEnd
- СертификатОкончаниеВводаТекста
-
-
- ChoiceProcessing
- СертификатОбработкаВыбора
-
- true
- true
- true
- true
- ShowInDropList
- true
- false
- false
- true
- true
- true
- Normal
- DontUse
-
-
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Группа личный сертификат</value>
-
-
- ГруппаЛичныйСертификатРасширеннаяПодсказка
- 451
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
-
-
-
- ГруппаСертификатыШифрования
- 489
-
- СертификатыШифрования
- 457
- true
- true
-
- true
-
-
- СертификатыШифрования
-
- true
- None
- Change
- Copy
- CopyToClipboard
-
- СертификатыШифрованияСертификат
- 491
+ ВариантыШифрования
+ 494
+
+ ПодборИзСправочника
+ 496
+
+ ГруппаЛичныйСертификат
+ 450
+
+ Сертификат
+ 452
+
+ <key>ru</key>
+ <value>Личный сертификат</value>
+
+ true
+ true
+
+ true
+
+
+ Сертификат
+
+
+ ru
+ Личный сертификат позволяет пользователю расшифровать данные, которые он шифрует.
+
+ Button
+
+ OnChange
+ СертификатПриИзменении
+
+
+ СертификатРасширеннаяПодсказка
+ 454
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СертификатКонтекстноеМеню
+ 453
+ true
+
+ InputField
+ Enter
+ true
+ Left
+ true
+
+
+ AutoComplete
+ СертификатАвтоПодбор
+
+
+ StartChoice
+ СертификатНачалоВыбора
+
+
+ Opening
+ СертификатОткрытие
+
+
+ TextEditEnd
+ СертификатОкончаниеВводаТекста
+
+
+ ChoiceProcessing
+ СертификатОбработкаВыбора
+
+ true
+ true
+ true
+ true
+ ShowInDropList
+ true
+ false
+ false
+ true
+ true
+ true
+ Normal
+ DontUse
+
+ truetruetrue
-
- СертификатыШифрования.Сертификат
-
+
+ <key>ru</key>
+ <value>Группа личный сертификат</value>
+
- СертификатыШифрованияСертификатРасширеннаяПодсказка
- 493
+ ГруппаЛичныйСертификатРасширеннаяПодсказка
+ 451Labeltruetrue
@@ -234,41 +190,266 @@
Left
-
- СертификатыШифрованияСертификатКонтекстноеМеню
- 492
- true
-
- InputField
- Auto
- true
- Left
- true
-
- true
- true
- true
- true
- true
- true
- Normal
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
- Top
-
- СертификатыШифрованияКоманднаяПанель
- 459
-
- СертификатыШифрованияПодобрать
- 481
+
+ ГруппаСертификатыШифрования
+ 489
+
+ СертификатыШифрования
+ 457truetruetrue
+
+ СертификатыШифрования
+
+ true
+ None
+ Change
+ Copy
+ CopyToClipboard
+
+ СертификатыШифрованияСертификат
+ 491
+ true
+ true
+
+ true
+
+
+ СертификатыШифрования.Сертификат
+
+
+ СертификатыШифрованияСертификатРасширеннаяПодсказка
+ 493
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СертификатыШифрованияСертификатКонтекстноеМеню
+ 492
+ true
+
+ InputField
+ Auto
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+ Top
+
+ СертификатыШифрованияКоманднаяПанель
+ 459
+
+ СертификатыШифрованияПодобрать
+ 481
+ true
+ true
+
+ true
+
+
+ СертификатыШифрованияПодобратьРасширеннаяПодсказка
+ 482
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.Подобрать
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ СертификатыШифрованияДобавить
+ 483
+ true
+ true
+
+ true
+
+
+ СертификатыШифрованияДобавитьРасширеннаяПодсказка
+ 484
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Item.СертификатыШифрования.StandardCommand.Add
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ InAdditionalSubmenu
+
+
+ СертификатыШифрованияУдалить
+ 485
+ true
+ true
+
+ true
+
+
+ СертификатыШифрованияУдалитьРасширеннаяПодсказка
+ 486
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Item.СертификатыШифрования.StandardCommand.Delete
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ InCommandBarAndInAdditionalSubmenu
+
+
+ СертификатыКоманднаяПанель
+ 487
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Сертификаты командная панель</value>
+
+
+ СертификатыКоманднаяПанельРасширеннаяПодсказка
+ 488
+ Label
+ true
+ true
+
+ Left
+
+
+
+ Item.СертификатыШифрования
+
+
+ Left
+
+
+ ChoiceProcessing
+ СертификатыШифрованияОбработкаВыбора
+
+
+ СертификатыШифрованияСтрокаПоиска
+ 461
+
+ СертификатыШифрованияСтрокаПоискаРасширеннаяПодсказка
+ 465
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СертификатыШифрованияСтрокаПоискаКонтекстноеМеню
+ 464
+ true
+
+ СертификатыШифрования
+
+ true
+
+
+
+ СертификатыШифрованияСостояниеПросмотра
+ 466
+
+ СертификатыШифрованияСостояниеПросмотраРасширеннаяПодсказка
+ 470
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СертификатыШифрованияСостояниеПросмотраКонтекстноеМеню
+ 469
+ true
+
+ ViewStatusAddition
+ СертификатыШифрования
+
+ true
+
+
+
+ СертификатыШифрованияУправлениеПоиском
+ 471
+
+ СертификатыШифрованияУправлениеПоискомРасширеннаяПодсказка
+ 475
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СертификатыШифрованияУправлениеПоискомКонтекстноеМеню
+ 474
+ true
+
+ SearchControlAddition
+ СертификатыШифрования
+
+ true
+
+
- СертификатыШифрованияПодобратьРасширеннаяПодсказка
- 482
+ СертификатыШифрованияРасширеннаяПодсказка
+ 460Labeltruetrue
@@ -276,106 +457,84 @@
Left
- Form.Command.Подобрать
- Normal
- Auto
+
+ СертификатыШифрованияКонтекстноеМеню
+ 458
+
+ СертификатыШифрованияКонтекстноеМенюОткрытьСертификат
+ 479
+ true
+ true
+
+ true
+
+
+ СертификатыШифрованияКонтекстноеМенюОткрытьСертификатРасширеннаяПодсказка
+ 480
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ОткрытьСертификат
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+ true
+
+ true
+ truetruetrue
- UserCmds
- Auto
+ 4
+ true
+ MultiRow
+ Row
+ 1
+ 1
+ AutoUse
+ AutoUse
+ true
+ true
+ false
+ true
+ Auto
+ Auto
+ true
+ true
+ true
+ true
+ None
+ None
+ None
+ true
+
-
- СертификатыШифрованияДобавить
- 483
- true
- true
-
- true
-
-
- СертификатыШифрованияДобавитьРасширеннаяПодсказка
- 484
- Label
- true
- true
-
- Left
-
-
- Form.Item.СертификатыШифрования.StandardCommand.Add
- Normal
- Auto
- true
- true
- UserCmds
- Auto
- InAdditionalSubmenu
-
-
- СертификатыШифрованияУдалить
- 485
- true
- true
-
- true
-
-
- СертификатыШифрованияУдалитьРасширеннаяПодсказка
- 486
- Label
- true
- true
-
- Left
-
-
- Form.Item.СертификатыШифрования.StandardCommand.Delete
- Normal
- Auto
- true
- true
- UserCmds
- Auto
- InCommandBarAndInAdditionalSubmenu
-
-
- СертификатыКоманднаяПанель
- 487
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Сертификаты командная панель</value>
-
-
- СертификатыКоманднаяПанельРасширеннаяПодсказка
- 488
- Label
- true
- true
-
- Left
-
-
-
- Item.СертификатыШифрования
-
-
- Left
-
-
- ChoiceProcessing
- СертификатыШифрованияОбработкаВыбора
-
-
- СертификатыШифрованияСтрокаПоиска
- 461
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Сертификаты тех, кому разрешено расшифровывать данные, кроме Вас</value>
+
+
+ Style.NormalTextFont
+ true
+ false
+ false
+ false
+
- СертификатыШифрованияСтрокаПоискаРасширеннаяПодсказка
- 465
+ ГруппаСертификатыШифрованияРасширеннаяПодсказка
+ 490Labeltruetrue
@@ -383,67 +542,29 @@
Left
-
- СертификатыШифрованияСтрокаПоискаКонтекстноеМеню
- 464
- true
-
- СертификатыШифрования
-
- true
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ auto
+ Auto
+ Auto
-
-
- СертификатыШифрованияСостояниеПросмотра
- 466
-
- СертификатыШифрованияСостояниеПросмотраРасширеннаяПодсказка
- 470
- Label
- true
- true
-
- Left
-
-
-
- СертификатыШифрованияСостояниеПросмотраКонтекстноеМеню
- 469
- true
-
- ViewStatusAddition
- СертификатыШифрования
-
- true
-
-
-
- СертификатыШифрованияУправлениеПоиском
- 471
-
- СертификатыШифрованияУправлениеПоискомРасширеннаяПодсказка
- 475
- Label
- true
- true
-
- Left
-
-
-
- СертификатыШифрованияУправлениеПоискомКонтекстноеМеню
- 474
- true
-
- SearchControlAddition
- СертификатыШифрования
-
- true
-
-
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Подбор из справочника</value>
+
- СертификатыШифрованияРасширеннаяПодсказка
- 460
+ ПодборИзСправочникаРасширеннаяПодсказка
+ 497Labeltruetrue
@@ -451,20 +572,161 @@
Left
-
- СертификатыШифрованияКонтекстноеМеню
- 458
-
- СертификатыШифрованияКонтекстноеМенюОткрытьСертификат
- 479
+ Page
+
+ Vertical
+ auto
+
+
+
+ УказанныйНаборСертификатов
+ 498
+
+ ГруппаУказанныйНаборСертификатов
+ 522
+
+ НаборСертификатов
+ 500truetruetrue
+
+ НаборСертификатов
+
+ None
+ Add
+ Change
+ Copy
+ Delete
+ EndEdit
+ MoveDown
+ MoveUp
+ SortListAsc
+ SortListDesc
+
+ НаборСертификатовПредставление
+ 519
+ true
+ true
+
+ true
+
+
+ НаборСертификатов.Представление
+
+
+ НаборСертификатовПредставлениеРасширеннаяПодсказка
+ 521
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НаборСертификатовПредставлениеКонтекстноеМеню
+ 520
+ true
+
+ InputField
+ Auto
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+ None
+
+ НаборСертификатовКоманднаяПанель
+ 502
+ Left
+ true
+
+
+ НаборСертификатовСтрокаПоиска
+ 504
+
+ НаборСертификатовСтрокаПоискаРасширеннаяПодсказка
+ 508
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НаборСертификатовСтрокаПоискаКонтекстноеМеню
+ 507
+ true
+
+ НаборСертификатов
+
+ true
+
+
+
+ НаборСертификатовСостояниеПросмотра
+ 509
+
+ НаборСертификатовСостояниеПросмотраРасширеннаяПодсказка
+ 513
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НаборСертификатовСостояниеПросмотраКонтекстноеМеню
+ 512
+ true
+
+ ViewStatusAddition
+ НаборСертификатов
+
+ true
+
+
+
+ НаборСертификатовУправлениеПоиском
+ 514
+
+ НаборСертификатовУправлениеПоискомРасширеннаяПодсказка
+ 518
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НаборСертификатовУправлениеПоискомКонтекстноеМеню
+ 517
+ true
+
+ SearchControlAddition
+ НаборСертификатов
+
+ true
+
+
- СертификатыШифрованияКонтекстноеМенюОткрытьСертификатРасширеннаяПодсказка
- 480
+ НаборСертификатовРасширеннаяПодсказка
+ 503Labeltruetrue
@@ -472,43 +734,126 @@
Left
- Form.Command.ОткрытьСертификат
- Normal
- Auto
+
+ НаборСертификатовКонтекстноеМеню
+ 501
+
+ НаборСертификатовКонтекстноеМенюОткрытьСертификат
+ 524
+ true
+ true
+
+ true
+
+
+ НаборСертификатовКонтекстноеМенюОткрытьСертификатРасширеннаяПодсказка
+ 525
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ОткрытьСертификат
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+ true
+
+ truetruetrue
- UserCmds
- Auto
+ 4
+ true
+ MultiRow
+ Row
+ 1
+ 1
+ AutoUse
+ AutoUse
+ true
+ true
+ false
+ true
+ Auto
+ Auto
+ true
+ true
+ true
+ true
+ None
+ None
+ None
+ true
+
- true
-
- true
- true
- true
- true
- 4
- true
- MultiRow
- Row
- 1
- 1
- AutoUse
- AutoUse
- true
- true
- false
- true
- Auto
- Auto
- true
- true
- true
- true
- None
- None
- None
- true
-
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Сертификаты тех, кому разрешено расшифровывать данные</value>
+
+
+ Style.NormalTextFont
+ true
+ false
+ false
+ false
+
+
+ ГруппаУказанныйНаборСертификатовРасширеннаяПодсказка
+ 523
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ WeakSeparation
+ true
+ true
+ auto
+ Auto
+ Auto
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Указанный набор сертификатов</value>
+
+
+ УказанныйНаборСертификатовРасширеннаяПодсказка
+ 499
+ Label
+ true
+ true
+
+ Left
+
+
+ Page
+
+ Vertical
+ auto
+ truetrue
@@ -517,18 +862,11 @@
<key>ru</key>
- <value>Сертификаты тех, кому разрешено расшифровывать данные, кроме Вас</value>
+ <value>Варианты шифрования</value>
-
- Style.NormalTextFont
- true
- false
- false
- false
-
- ГруппаСертификатыШифрованияРасширеннаяПодсказка
- 490
+ ВариантыШифрованияРасширеннаяПодсказка
+ 495Labeltruetrue
@@ -536,14 +874,8 @@
Left
- UsualGroup
-
- Vertical
- Auto
- true
- true
- auto
- Auto
+ Pages
+ Auto
@@ -945,6 +1277,147 @@
true
+
+ НаборСертификатов
+
+ <key>ru</key>
+ <value>Набор сертификатов</value>
+
+ 14
+
+ ValueTable
+
+
+ true
+
+
+ true
+
+
+ Представление
+
+ <key>ru</key>
+ <value>Представление</value>
+
+ 1
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ Отпечаток
+
+ <key>ru</key>
+ <value>Отпечаток</value>
+
+ 2
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ Ссылка
+
+ <key>ru</key>
+ <value>Ссылка</value>
+
+ 4
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ АдресДанных
+
+ <key>ru</key>
+ <value>Адрес данных</value>
+
+ 3
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+
+ АдресСвойствСертификатов
+
+ <key>ru</key>
+ <value>Адрес свойств сертификатов</value>
+
+ 18
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ УказанНаборСертификатов
+
+ <key>ru</key>
+ <value>Указан набор сертификатов</value>
+
+ 20
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
+
+ ПерваяПрограммаНаСервере
+
+ <key>ru</key>
+ <value>Первая программа на сервере</value>
+
+ 19
+
+ CatalogRef.ПрограммыЭлектроннойПодписиИШифрования
+
+
+ true
+
+
+ true
+
+ Зашифровать
@@ -1021,7 +1494,6 @@
<name>ПредставлениеДанных</name>
<valueType>
<types>String</types>
- <types>AnyRef</types>
<stringQualifiers/>
</valueType>
</parameters>
@@ -1045,6 +1517,12 @@
<name>ВыполнятьНаСервере</name>
<valueType/>
</parameters>
+ <parameters>
+ <name>ИзменятьНабор</name>
+ <valueType>
+ <types>Boolean</types>
+ </valueType>
+ </parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Help/ru.html
index cadddf827..c88692bd4 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Help/ru.html
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для выбора <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования/Help">сертификатов</a> при шифровании данных.</p>
<h3>Шифрование данных</h3>
<ul><li>С помощью ссылки в верхней части окна можно просмотреть объект, который будет подписан. Ссылка принимает значение наименования объекта.
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
index 230ecb31f..43f921ee1 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
@@ -1,5 +1,5 @@
&НаКлиенте
-Перем ВнутренниеДанные, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения;
+Перем ВнутренниеДанные, ОписаниеДанных, ФормаОбъекта, ОбработкаПослеПредупреждения, ТекущийСписокПредставлений;
#Область ОбработчикиСобытийФормы
@@ -10,13 +10,41 @@
Возврат;
КонецЕсли;
+ Если ЗначениеЗаполнено(Параметры.НаборСертификатов) Тогда
+ УказанНаборСертификатов = Истина;
+ ЗаполнитьСертификатыШифрованияИзНабора(Параметры.НаборСертификатов);
+ Если НаборСертификатов.Количество() = 0 И Параметры.ИзменятьНабор Тогда
+ // Если все сертификаты набора ссылочные и изменение набора разрешено,
+ // то взаимодействие с пользователем обычное, как будто он сам их добавил.
+ УказанНаборСертификатов = Ложь;
+ КонецЕсли;
+ КонецЕсли;
+
ЭлектроннаяПодписьСлужебный.НастроитьФормуПодписанияШифрованияРасшифровки(ЭтотОбъект, Истина);
+ Если УказанНаборСертификатов Тогда
+ Элементы.Сертификат.Видимость = Ложь;
+ Элементы.ГруппаСертификатыШифрования.Заголовок = Элементы.ГруппаУказанныйНаборСертификатов.Заголовок;
+ Элементы.СертификатыШифрования.ТолькоПросмотр = Истина;
+ Элементы.СертификатыШифрованияПодобрать.Доступность = Ложь;
+ ЗаполнитьПрограммуШифрованияНаСервере();
+ КонецЕсли;
+
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+ Если ВРег(ИмяСобытия) = ВРег("Запись_ПрограммыЭлектроннойПодписиИШифрования")
+ Или ВРег(ИмяСобытия) = ВРег("Запись_ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux")
+ Или ВРег(ИмяСобытия) = ВРег("Запись_СертификатыКлючейЭлектроннойПодписиИШифрования") Тогда
+
+ Если УказанНаборСертификатов Тогда
+ ПодключитьОбработчикОжидания("ПерезаполнитьПрограммуШифрования", 0.1, Истина);
+ Возврат;
+ КонецЕсли;
+ КонецЕсли;
+
Если ВРег(ИмяСобытия) = ВРег("Запись_СертификатыКлючейЭлектроннойПодписиИШифрования") Тогда
ПодключитьОбработчикОжидания("ПриИзмененииСпискаСертификатов", 0.1, Истина);
КонецЕсли;
@@ -31,14 +59,23 @@
Процедура ПредставлениеДанныхНажатие(Элемент, СтандартнаяОбработка)
ЭлектроннаяПодписьСлужебныйКлиент.ПредставлениеДанныхНажатие(ЭтотОбъект,
- Элемент, СтандартнаяОбработка, ОписаниеДанных);
+ Элемент, СтандартнаяОбработка, ТекущийСписокПредставлений);
КонецПроцедуры
&НаКлиенте
Процедура СертификатПриИзменении(Элемент)
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатПриИзмененииЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатПриИзменении.
+&НаКлиенте
+Процедура СертификатПриИзмененииЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
КонецПроцедуры
@@ -67,23 +104,30 @@
Сертификат = ВыбранноеЗначение;
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте());
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("СертификатОбработкаВыбораЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры СертификатОбработкаВыбора.
+&НаКлиенте
+Процедура СертификатОбработкаВыбораЗавершение(ОтпечаткиСертификатовНаКлиенте, Неопределен) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте);
КонецПроцедуры
&НаКлиенте
Процедура СертификатАвтоПодбор(Элемент, Текст, ДанныеВыбора, Параметры, Ожидание, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
Процедура СертификатОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, Параметры, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
- ДанныеВыбора = СертификатСписокВыбора;
+ ЭлектроннаяПодписьСлужебныйКлиент.СертификатПодборИзСпискаВыбора(ЭтотОбъект, Текст, ДанныеВыбора, СтандартнаяОбработка);
КонецПроцедуры
@@ -124,28 +168,44 @@
&НаКлиенте
Процедура ОткрытьСертификат(Команда)
- ТекущиеДанные = Элементы.СертификатыШифрования.ТекущиеДанные;
+ Если Элементы.ВариантыШифрования.ТекущаяСтраница = Элементы.ПодборИзСправочника Тогда
+ ТекущиеДанные = Элементы.СертификатыШифрования.ТекущиеДанные;
+ Иначе
+ ТекущиеДанные = Элементы.НаборСертификатов.ТекущиеДанные;
+ КонецЕсли;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
- ЭлектроннаяПодписьКлиент.ОткрытьСертификат(ТекущиеДанные.Отпечаток);
+ Если Элементы.ВариантыШифрования.ТекущаяСтраница = Элементы.ПодборИзСправочника Тогда
+ ЭлектроннаяПодписьКлиент.ОткрытьСертификат(ТекущиеДанные.Сертификат);
+ Иначе
+ ЭлектроннаяПодписьКлиент.ОткрытьСертификат(ТекущиеДанные.АдресДанных);
+ КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Зашифровать(Команда)
- Если Не ПроверитьЗаполнение() Тогда
+ Если Не УказанНаборСертификатов
+ И Не ПроверитьЗаполнение() Тогда
+
Возврат;
КонецЕсли;
- Если Не ЗашифроватьДанные() Тогда
- Возврат;
- КонецЕсли;
+ ЗашифроватьДанные(Новый ОписаниеОповещения("ЗашифроватьЗавершение", ЭтотОбъект));
- Закрыть(Истина);
+КонецПроцедуры
+
+// Продолжение процедуры Зашифровать.
+&НаКлиенте
+Процедура ЗашифроватьЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ Закрыть(Истина);
+ КонецЕсли;
КонецПроцедуры
@@ -153,45 +213,443 @@
#Область СлужебныеПроцедурыИФункции
-&НаКлиенте
-Функция ПродолжитьОткрытие(ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
+&НаСервере
+Процедура ЗаполнитьСертификатыШифрованияИзНабора(ОписаниеНабораСертификатов)
- Если Не ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(ЭтотОбъект, КлиентскиеПараметры, Истина) Тогда
- Возврат Ложь;
- КонецЕсли;
-
- ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
-
- ВнутренниеДанные = ОбщиеВнутренниеДанные;
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
-
- Если БезПодтверждения Тогда
- ОбработкаПослеПредупреждения = Неопределено;
-
- Если ЗашифроватьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОписаниеОповещенияОЗакрытии, Истина);
- Возврат Истина;
- КонецЕсли;
+ Если ОбщегоНазначения.ЭтоСсылка(ТипЗнч(ОписаниеНабораСертификатов)) Тогда
+ Запрос = Новый Запрос;
+ Запрос.УстановитьПараметр("Ссылка", ОписаниеНабораСертификатов);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ТабличнаяЧастьСертификатыШифрования.Сертификат КАК Сертификат
+ |ИЗ
+ | &Таблица КАК ТабличнаяЧастьСертификатыШифрования
+ |ГДЕ
+ | ТабличнаяЧастьСертификатыШифрования.Ссылка = &Ссылка";
+ Запрос.Текст = СтрЗаменить(Запрос.Текст, "&Таблица",
+ Метаданные.НайтиПоТипу(ТипЗнч(ОписаниеНабораСертификатов)).ПолноеИмя() + ".СертификатыШифрования");
+ МассивСертификатов = Новый Массив;
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+ МассивСертификатов.Добавить(Выборка.Сертификат.Получить());
+ КонецЦикла;
Иначе
- Открыть();
+ Если ТипЗнч(ОписаниеНабораСертификатов) = ТипЗнч("Строка") Тогда
+ МассивСертификатов = ПолучитьИзВременногоХранилища(ОписаниеНабораСертификатов);
+ Иначе
+ МассивСертификатов = ОписаниеНабораСертификатов;
+ КонецЕсли;
+ ДобавленныеСертификаты = Новый Соответствие;
+ Для каждого ТекущийСертификат Из МассивСертификатов Цикл
+ Если ТипЗнч(Сертификат) = ТипЗнч("СправочникСсылка.СертификатыКлючейЭлектроннойПодписиИШифрования") Тогда
+ Если ДобавленныеСертификаты.Получить(ТекущийСертификат) = Неопределено Тогда
+ ДобавленныеСертификаты.Вставить(ТекущийСертификат, Истина);
+ СертификатыШифрования.Добавить().Сертификат = ТекущийСертификат;
+ КонецЕсли;
+ Иначе
+ СертификатыШифрования.Очистить();
+ Прервать;
+ КонецЕсли;
+ КонецЦикла;
+ Если СертификатыШифрования.Количество() > 0
+ Или МассивСертификатов.Количество() = 0 Тогда
+ Возврат;
+ КонецЕсли;
КонецЕсли;
- Возврат Истина;
+ ТаблицаСертификатов = Новый ТаблицаЗначений;
+ ТаблицаСертификатов.Колонки.Добавить("Ссылка");
+ ТаблицаСертификатов.Колонки.Добавить("Отпечаток");
+ ТаблицаСертификатов.Колонки.Добавить("Представление");
+ ТаблицаСертификатов.Колонки.Добавить("КомуВыдан");
+ ТаблицаСертификатов.Колонки.Добавить("Данные");
+
+ Ссылки = Новый Массив;
+ Отпечатки = Новый Массив;
+ Для каждого ОписаниеСертификата Из МассивСертификатов Цикл
+ НоваяСтрока = ТаблицаСертификатов.Добавить();
+ Если ТипЗнч(ОписаниеСертификата) = Тип("ДвоичныеДанные") Тогда
+ СертификатКриптографии = Новый СертификатКриптографии(ОписаниеСертификата);
+ СтруктураСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии);
+ НоваяСтрока.Представление = СтруктураСертификата.Представление;
+ НоваяСтрока.КомуВыдан = СтруктураСертификата.КомуВыдан;
+ НоваяСтрока.Отпечаток = СтруктураСертификата.Отпечаток;
+ НоваяСтрока.Данные = ОписаниеСертификата;
+ Отпечатки.Добавить(СтруктураСертификата.Отпечаток);
+ Иначе
+ НоваяСтрока.Ссылка = ОписаниеСертификата;
+ Ссылки.Добавить(ОписаниеСертификата);
+ КонецЕсли;
+ КонецЦикла;
+
+ Запрос = Новый Запрос;
+ Запрос.УстановитьПараметр("Ссылки", Ссылки);
+ Запрос.УстановитьПараметр("Отпечатки", Отпечатки);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | Сертификаты.Ссылка КАК Ссылка,
+ | Сертификаты.Отпечаток,
+ | Сертификаты.Наименование КАК Представление,
+ | Сертификаты.ДанныеСертификата
+ |ИЗ
+ | Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования КАК Сертификаты
+ |ГДЕ
+ | НЕ(НЕ Сертификаты.Ссылка В (&Ссылки)
+ | И НЕ Сертификаты.Отпечаток В (&Отпечатки))";
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+ Строки = ТаблицаСертификатов.НайтиСтроки(Новый Структура("Ссылка", Выборка.Ссылка));
+ Для каждого Строка Из Строки Цикл
+ ДанныеСертификата = Выборка.ДанныеСертификата.Получить();
+ Если ТипЗнч(ДанныеСертификата) <> Тип("ДвоичныеДанные") Тогда
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Данные сертификата ""%1"" не найдены в справочнике'"), Выборка.Представление);
+ КонецЕсли;
+ Попытка
+ СертификатКриптографии = Новый СертификатКриптографии(ДанныеСертификата);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Данные сертификата ""%1"" в справочнике не корректны по причине:
+ |%2'"),
+ Выборка.Представление,
+ КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
+ КонецПопытки;
+ СтруктураСертификата= ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии);
+ Строка.Отпечаток = Выборка.Отпечаток;
+ Строка.Представление = Выборка.Представление;
+ Строка.КомуВыдан = СтруктураСертификата.КомуВыдан;
+ Строка.Данные = ДанныеСертификата;
+ КонецЦикла;
+ Строки = ТаблицаСертификатов.НайтиСтроки(Новый Структура("Отпечаток", Выборка.Отпечаток));
+ Для каждого Строка Из Строки Цикл
+ Строка.Ссылка = Выборка.Ссылка;
+ Строка.Представление = Выборка.Представление;
+ КонецЦикла;
+ КонецЦикла;
+
+ // Удаление дублей.
+ ВсеОтпечатки = Новый Соответствие;
+ Индекс = ТаблицаСертификатов.Количество() - 1;
+ Пока Индекс >= 0 Цикл
+ Строка = ТаблицаСертификатов[Индекс];
+ Если ВсеОтпечатки.Получить(Строка.Отпечаток) = Неопределено Тогда
+ ВсеОтпечатки.Вставить(Строка.Отпечаток, Истина);
+ Иначе
+ ТаблицаСертификатов.Удалить(Индекс);
+ КонецЕсли;
+ Индекс = Индекс - 1;
+ КонецЦикла;
+
+ Отбор = Новый Структура("Ссылка", Неопределено);
+ ВсеСертификатыВСправочнике = ТаблицаСертификатов.НайтиСтроки(Отбор).Количество() = 0;
+
+ Если ВсеСертификатыВСправочнике Тогда
+ Для Каждого Строка Из ТаблицаСертификатов Цикл
+ СертификатыШифрования.Добавить().Сертификат = Строка.Ссылка;
+ КонецЦикла;
+ Иначе
+ СвойстваСертификатов = Новый Массив;
+ Для Каждого Строка Из ТаблицаСертификатов Цикл
+ НоваяСтрока = НаборСертификатов.Добавить();
+ ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
+ НоваяСтрока.АдресДанных = ПоместитьВоВременноеХранилище(Строка.Данные, УникальныйИдентификатор);
+ Свойства = Новый Структура;
+ Свойства.Вставить("Отпечаток", Строка.Отпечаток);
+ Свойства.Вставить("Представление", Строка.КомуВыдан);
+ Свойства.Вставить("Сертификат", Строка.Данные);
+ СвойстваСертификатов.Добавить(Свойства);
+ КонецЦикла;
+
+ АдресСвойствСертификатов = ПоместитьВоВременноеХранилище(СвойстваСертификатов, УникальныйИдентификатор);
+ Элементы.ВариантыШифрования.ТекущаяСтраница = Элементы.УказанныйНаборСертификатов;
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПерезаполнитьПрограммуШифрования()
+
+ ЗаполнитьПрограммуШифрованияНаСервере();
+ ЗаполнитьПрограммуШифрования();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаполнитьПрограммуШифрованияНаСервере()
+
+ СертификатПрограмма = Неопределено;
+ ПерваяПрограммаНаСервере = Неопределено;
+
+ Если НаборСертификатов.Количество() > 0 Тогда
+ СертификатАдрес = НаборСертификатов[0].АдресДанных;
+ Иначе
+ Попытка
+ ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
+ СертификатыШифрования[0].Сертификат, "Программа, ДанныеСертификата");
+
+ Если ЗначениеЗаполнено(ЗначенияРеквизитов.Программа) Тогда
+ СертификатПрограмма = ЗначенияРеквизитов.Программа;
+ Возврат;
+ КонецЕсли;
+
+ ДвоичныеДанныеСертификата = ЗначенияРеквизитов.ДанныеСертификата.Получить();
+ СертификатКриптографии = Новый СертификатКриптографии(ДвоичныеДанныеСертификата);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'При получении данных сертификата ""%1""
+ |из информационной базы возникла ошибка:
+ |%2'"),
+ СертификатыШифрования[0].Сертификат,
+ КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
+ КонецПопытки;
+ СертификатАдрес = ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, УникальныйИдентификатор);
+ КонецЕсли;
+
+ ОбщиеНастройки = ЭлектроннаяПодпись.ОбщиеНастройки();
+ Если Не ОбщиеНастройки.СоздаватьЭлектронныеПодписиНаСервере Тогда
+ Возврат;
+ КонецЕсли;
+
+ СертификатКриптографии = Новый СертификатКриптографии(ПолучитьИзВременногоХранилища(СертификатАдрес));
+ ТестовыеДанные = ТестовыеДвоичныеДанные();
+
+ Для Каждого ОписаниеПрограммы Из ОбщиеНастройки.ОписанияПрограмм Цикл
+ МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("",
+ Ложь, "", ОписаниеПрограммы.Ссылка);
+
+ Если МенеджерКриптографии = Неопределено Тогда
+ Продолжить;
+ КонецЕсли;
+ Если Не ЗначениеЗаполнено(ПерваяПрограммаНаСервере) Тогда
+ ПерваяПрограммаНаСервере = ОписаниеПрограммы.Ссылка;
+ КонецЕсли;
+ Попытка
+ ЗашифрованныеТестовыеДанные = МенеджерКриптографии.Зашифровать(ТестовыеДанные, СертификатКриптографии);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке = Неопределено И ЗначениеЗаполнено(ЗашифрованныеТестовыеДанные) Тогда
+ СертификатПрограмма = ОписаниеПрограммы.Ссылка;
+ Прервать;
+ КонецЕсли;
+ КонецЦикла;
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ТестовыеДвоичныеДанные()
+
+ Возврат БиблиотекаКартинок.СертификатКлюча.ПолучитьДвоичныеДанные();
КонецФункции
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрования(Оповещение = Неопределено)
+
+ Контекст = Новый Структура;
+ Контекст.Вставить("Оповещение", Оповещение);
+ Контекст.Вставить("ПерваяПрограммаНаКлиенте", Неопределено);
+
+ Если ЗначениеЗаполнено(СертификатПрограмма) Тогда
+ ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст);
+ Возврат;
+ КонецЕсли;
+
+ ОписанияПрограмм = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ОписанияПрограмм;
+
+ Если ОписанияПрограмм = Неопределено Или ОписанияПрограмм.Количество() = 0 Тогда
+ ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст);
+ Возврат;
+ КонецЕсли;
+
+ Контекст.Вставить("ОписанияПрограмм", ОписанияПрограмм);
+
+ СертификатКриптографии = Новый СертификатКриптографии;
+ СертификатКриптографии.НачатьИнициализацию(Новый ОписаниеОповещения(
+ "ЗаполнитьПрограммуШифрованияПослеИнициализацииСертификата", ЭтотОбъект, Контекст),
+ ПолучитьИзВременногоХранилища(СертификатАдрес));
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗаполнитьПрограммуШифрования.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияПослеИнициализацииСертификата(СертификатКриптографии, Контекст) Экспорт
+
+ Контекст.Вставить("СертификатШифрования", СертификатКриптографии);
+ Контекст.Вставить("ТестовыеДанные", ТестовыеДвоичныеДанные());
+
+ Контекст.Вставить("Индекс", -1);
+ ЗаполнитьПрограммуШифрованияЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗаполнитьПрограммуШифрования.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияЦиклНачало(Контекст)
+
+ Если Контекст.ОписанияПрограмм.Количество() <= Контекст.Индекс + 1 Тогда
+ ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст);
+ Возврат;
+ КонецЕсли;
+ Контекст.Индекс = Контекст.Индекс + 1;
+ Контекст.Вставить("ОписаниеПрограммы", Контекст.ОписанияПрограмм[Контекст.Индекс]);
+
+ ЭлектроннаяПодписьСлужебныйКлиент.СоздатьМенеджерКриптографии(Новый ОписаниеОповещения(
+ "ЗаполнитьПрограммуШифрованияПослеСозданияМенеджераКриптографии", ЭтотОбъект, Контекст),
+ "Шифрование", Ложь, Контекст.ОписаниеПрограммы.Ссылка);
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗаполнитьПрограммуШифрования.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияПослеСозданияМенеджераКриптографии(МенеджерКриптографии, Контекст) Экспорт
+
+ Если ТипЗнч(МенеджерКриптографии) <> Тип("МенеджерКриптографии") Тогда
+ ЗаполнитьПрограммуШифрованияЦиклНачало(Контекст);
+ Возврат;
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(Контекст.ПерваяПрограммаНаКлиенте) Тогда
+ Контекст.ПерваяПрограммаНаКлиенте = Контекст.ОписаниеПрограммы.Ссылка;
+ КонецЕсли;
+
+ МенеджерКриптографии.НачатьШифрование(Новый ОписаниеОповещения(
+ "ЗаполнитьПрограммуШифрованияПослеШифрования", ЭтотОбъект, Контекст,
+ "ЗаполнитьПрограммуШифрованияПослеОшибкиШифрования", ЭтотОбъект),
+ Контекст.ТестовыеДанные, Контекст.СертификатШифрования);
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗаполнитьПрограммуШифрования.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияПослеОшибкиШифрования(ИнформацияОбОшибке, СтандартнаяОбработка, Контекст) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+ ЗаполнитьПрограммуШифрованияЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗаполнитьПрограммуШифрования.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияПослеШифрования(ЗашифрованныеДанные, Контекст) Экспорт
+
+ Если Не ЗначениеЗаполнено(ЗашифрованныеДанные) Тогда
+ ЗаполнитьПрограммуШифрованияЦиклНачало(Контекст);
+ Возврат;
+ КонецЕсли;
+
+ СертификатПрограмма = Контекст.ОписаниеПрограммы.Ссылка;
+ ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры СоздатьМенеджерКриптографии.
+&НаКлиенте
+Процедура ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст)
+
+ Если Не ЗначениеЗаполнено(СертификатПрограмма) Тогда
+
+ Если ЗначениеЗаполнено(Контекст.ПерваяПрограммаНаКлиенте) Тогда
+ СертификатПрограмма = Контекст.ПерваяПрограммаНаКлиенте;
+
+ ИначеЕсли ЗначениеЗаполнено(ПерваяПрограммаНаСервере) Тогда
+ СертификатПрограмма = ПерваяПрограммаНаСервере;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если Контекст.Оповещение <> Неопределено Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, КлиентскиеПараметры) Экспорт
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
+
+ ВнутренниеДанные = ОбщиеВнутренниеДанные;
+ Контекст = Новый Структура("Оповещение", Оповещение);
+ Оповещение = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект);
+
+ ЭлектроннаяПодписьСлужебныйКлиент.ПродолжитьОткрытиеНачало(Новый ОписаниеОповещения(
+ "ПродолжитьОткрытиеПослеНачала", ЭтотОбъект, Контекст), ЭтотОбъект, КлиентскиеПараметры, Истина);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеНачала(Результат, Контекст) Экспорт
+
+ Если Результат <> Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ Возврат;
+ КонецЕсли;
+
+ Если УказанНаборСертификатов Тогда
+ ЗаполнитьПрограммуШифрования(Новый ОписаниеОповещения(
+ "ПродолжитьОткрытиеПослеЗаполненияПрограммы", ЭтотОбъект, Контекст));
+ Иначе
+ ПродолжитьОткрытиеПослеЗаполненияПрограммы(, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеЗаполненияПрограммы(Результат, Контекст) Экспорт
+
+ Если БезПодтверждения Тогда
+ ОбработкаПослеПредупреждения = Неопределено;
+ ЗашифроватьДанные(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеШифрованияДанных", ЭтотОбъект, Контекст));
+ Возврат;
+ КонецЕсли;
+
+ Открыть();
+
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры ПродолжитьОткрытие.
+&НаКлиенте
+Процедура ПродолжитьОткрытиеПослеШифрованияДанных(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
+ Иначе
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение);
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ВыполнитьШифрование(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт
- ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
- ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры);
+
+ ОписаниеДанных = КлиентскиеПараметры.ОписаниеДанных;
+ ФормаОбъекта = КлиентскиеПараметры.Форма;
+ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений;
ОбработкаПослеПредупреждения = ОбработкаЗавершения;
ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьШифрование", ЭтотОбъект);
- Если ЗашифроватьДанные() Тогда
- ВыполнитьОбработкуОповещения(ОбработкаЗавершения, Истина);
+ Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения);
+ ЗашифроватьДанные(Новый ОписаниеОповещения("ВыполнитьШифрованиеЗавершение", ЭтотОбъект, Контекст));
+
+КонецПроцедуры
+
+// Продолжение процедуры ВыполнитьШифрование.
+&НаКлиенте
+Процедура ВыполнитьШифрованиеЗавершение(Результат, Контекст) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьОбработкуОповещения(Контекст.ОбработкаЗавершения, Истина);
КонецЕсли;
КонецПроцедуры
@@ -199,7 +657,16 @@
&НаКлиенте
Процедура ПриИзмененииСпискаСертификатов()
- СертификатПриИзмененииНаСервере(ЭлектроннаяПодписьСлужебныйКлиент.ОтпечаткиСертификатовНаКлиенте(), Истина);
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолучитьОтпечаткиСертификатовНаКлиенте(
+ Новый ОписаниеОповещения("ПриИзмененииСпискаСертификатовЗавершение", ЭтотОбъект));
+
+КонецПроцедуры
+
+// Продолжение процедуры ПриИзмененииСпискаСертификатов.
+&НаКлиенте
+Процедура ПриИзмененииСпискаСертификатовЗавершение(ОтпечаткиСертификатовНаКлиенте, Контекст) Экспорт
+
+ СертификатПриИзмененииНаСервере(ОтпечаткиСертификатовНаКлиенте, Истина);
КонецПроцедуры
@@ -218,80 +685,130 @@
КонецПроцедуры
&НаКлиенте
-Функция ЗашифроватьДанные()
+Процедура ЗашифроватьДанные(Оповещение)
- ОшибкаНаКлиенте = Новый Структура;
- ОшибкаНаСервере = Новый Структура;
+ Контекст = Новый Структура;
+ Контекст.Вставить("Оповещение", Оповещение);
+ Контекст.Вставить("ОшибкаНаКлиенте", Новый Структура);
+ Контекст.Вставить("ОшибкаНаСервере", Новый Структура);
- Если СертификатДействителенДо < ОбщегоНазначенияКлиент.ДатаСеанса() Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
- НСтр("ru = 'У выбранного личного сертификата истек срок действия.
- |Выберите другой сертификат.'"));
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
- КонецЕсли;
-
- Если Не ЗначениеЗаполнено(СертификатПрограмма) Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
- НСтр("ru = 'У выбранного личного сертификата не указана программа для закрытого ключа.
- |Выберите другой сертификат.'"));
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
- КонецЕсли;
-
- ИдентификаторФормы = УникальныйИдентификатор;
- Если ТипЗнч(ФормаОбъекта) = Тип("УправляемаяФорма") Тогда
- ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
- ИначеЕсли ТипЗнч(ФормаОбъекта) = Тип("УникальныйИдентификатор") Тогда
- ИдентификаторФормы = ФормаОбъекта;
- КонецЕсли;
-
- Ссылки = Новый Массив;
- Ссылки.Добавить(Сертификат);
- Для каждого Строка Из СертификатыШифрования Цикл
- Если ЗначениеЗаполнено(Строка.Сертификат) И Строка.Сертификат <> Сертификат Тогда
- Ссылки.Добавить(Строка.Сертификат);
+ Если ЗначениеЗаполнено(Сертификат) Тогда
+ Если СертификатДействителенДо < ОбщегоНазначенияКлиент.ДатаСеанса() Тогда
+ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
+ НСтр("ru = 'У выбранного личного сертификата истек срок действия.
+ |Выберите другой сертификат.'"));
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
- КонецЦикла;
+
+ Если Не ЗначениеЗаполнено(СертификатПрограмма) Тогда
+ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
+ НСтр("ru = 'У выбранного личного сертификата не указана программа для закрытого ключа.
+ |Выберите другой сертификат.'"));
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
+ КонецЕсли;
+ КонецЕсли;
- ОписаниеДанных.Вставить("СертификатыШифрования", СвойстваСертификатов(Ссылки, ИдентификаторФормы));
+ Контекст.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
+ Если ТипЗнч(ФормаОбъекта) = Тип("УправляемаяФорма") Тогда
+ Контекст.ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор;
+ ИначеЕсли ТипЗнч(ФормаОбъекта) = Тип("УникальныйИдентификатор") Тогда
+ Контекст.ИдентификаторФормы = ФормаОбъекта;
+ КонецЕсли;
- Успех = Ложь;
+ Если НаборСертификатов.Количество() = 0 Тогда
+ Ссылки = Новый Массив;
+ ИсключитьЛичныйСертификат = Ложь;
+ Если Элементы.Сертификат.Видимость И ЗначениеЗаполнено(Сертификат) Тогда
+ Ссылки.Добавить(Сертификат);
+ ИсключитьЛичныйСертификат = Истина;
+ КонецЕсли;
+ Для каждого Строка Из СертификатыШифрования Цикл
+ Если Не ИсключитьЛичныйСертификат Или Строка.Сертификат <> Сертификат Тогда
+ Ссылки.Добавить(Строка.Сертификат);
+ КонецЕсли;
+ КонецЦикла;
+ ОписаниеДанных.Вставить("СертификатыШифрования",
+ СвойстваСертификатов(Ссылки, Контекст.ИдентификаторФормы));
+ Иначе
+ ОписаниеДанных.Вставить("СертификатыШифрования", АдресСвойствСертификатов);
+ КонецЕсли;
+
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписаниеДанных", ОписаниеДанных);
+ ПараметрыВыполнения.Вставить("Форма", ЭтотОбъект);
+ ПараметрыВыполнения.Вставить("ИдентификаторФормы", Контекст.ИдентификаторФормы);
+ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения);
Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда
Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда
- ОшибкаНаСервере = СертификатНаСервереОписаниеОшибки;
+ Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки);
СертификатНаСервереОписаниеОшибки = Новый Структура;
+ ЗашифроватьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст);
Иначе
- // Попытка подписания на сервере.
- Успех = ЗашифроватьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере);
- КонецЕсли;
-
- Если Не Успех Тогда
- // Попытка подписания на клиенте.
- Успех = ЗашифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте);
+ // Попытка шифрования на сервере.
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "ЗашифроватьДанныеПослеВыполненияНаСторонеСервера", ЭтотОбъект, Контекст),
+ "Шифрование", "НаСторонеСервера", Контекст.ПараметрыВыполнения);
КонецЕсли;
Иначе
+ ЗашифроватьДанныеПослеВыполненияНаСторонеСервера(Неопределено, Контекст);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ЗашифроватьДанные.
+&НаКлиенте
+Процедура ЗашифроватьДанныеПослеВыполненияНаСторонеСервера(Результат, Контекст) Экспорт
+
+ Если Результат <> Неопределено Тогда
+ ЗашифроватьДанныеПослеВыполнения(Результат);
+ КонецЕсли;
+
+ Если Результат <> Неопределено И Не Результат.Свойство("Ошибка") Тогда
+ ЗашифроватьДанныеПослеВыполненияНаСторонеКлиента(Новый Структура, Контекст);
+ Иначе
+ Если Результат <> Неопределено Тогда
+ Контекст.ОшибкаНаСервере = Результат.Ошибка;
+ КонецЕсли;
+
// Попытка подписания на клиенте.
- Успех = ЗашифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, Истина);
+ ЭлектроннаяПодписьСлужебныйКлиент.ВыполнитьНаСтороне(Новый ОписаниеОповещения(
+ "ЗашифроватьДанныеПослеВыполненияНаСторонеКлиента", ЭтотОбъект, Контекст),
+ "Шифрование", "НаСторонеКлиента", Контекст.ПараметрыВыполнения);
КонецЕсли;
- Если Не Успех Тогда
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+КонецПроцедуры
+
+// Продолжение процедуры ЗашифроватьДанные.
+&НаКлиенте
+Процедура ЗашифроватьДанныеПослеВыполненияНаСторонеКлиента(Результат, Контекст) Экспорт
+
+ ЗашифроватьДанныеПослеВыполнения(Результат);
+
+ Если Результат.Свойство("Ошибка") Тогда
+ Контекст.ОшибкаНаКлиенте = Результат.Ошибка;
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
- Если Не ЗаписатьСертификатыШифрования(ИдентификаторФормы, ОшибкаНаКлиенте) Тогда
- ПоказатьОшибку(ОшибкаНаКлиенте, ОшибкаНаСервере);
- Возврат Ложь;
+ Если Не ЗаписатьСертификатыШифрования(Контекст.ИдентификаторФормы, Контекст.ОшибкаНаКлиенте) Тогда
+ ПоказатьОшибку(Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Ложь);
+ Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(ПредставлениеДанных)
И (Не ОписаниеДанных.Свойство("СообщитьОЗавершении")
Или ОписаниеДанных.СообщитьОЗавершении <> Ложь) Тогда
- ЭлектроннаяПодписьКлиент.ИнформироватьОШифрованииОбъекта(ПредставлениеДанных,
- ОписаниеДанных.ТекущийСписокПредставлений.Количество() > 1);
+ ЭлектроннаяПодписьКлиент.ИнформироватьОШифрованииОбъекта(
+ ЭлектроннаяПодписьСлужебныйКлиент.ПолноеПредставлениеДанных(ЭтотОбъект),
+ ТекущийСписокПредставлений.Количество() > 1);
КонецЕсли;
Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда
@@ -304,279 +821,22 @@
ПараметрыФормы);
КонецЕсли;
- Возврат Истина;
+ ВыполнитьОбработкуОповещения(Контекст.Оповещение, Истина);
-КонецФункции
+КонецПроцедуры
+// Продолжение процедуры ЗашифроватьДанные.
&НаКлиенте
-Функция ЗашифроватьНаСторонеКлиента(ИдентификаторФормы, ОшибкаНаКлиенте, ТолькоНаСторонеКлиента = Ложь)
+Процедура ЗашифроватьДанныеПослеВыполнения(Результат)
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебныйКлиент.МенеджерКриптографии("Шифрование",
- ТолькоНаСторонеКлиента, ОшибкаНаКлиенте, СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
+ Если Результат.Свойство("ЕстьОбработанныеЭлементыДанных") Тогда
+ // После начала шифрования изменять сертификаты более недопустимо,
+ // иначе набор данных будет обработан по-разному.
+ Элементы.Сертификат.ТолькоПросмотр = Истина;
+ Элементы.СертификатыШифрования.ТолькоПросмотр = Истина;
КонецЕсли;
- СертификатКриптографии = ЭлектроннаяПодписьКлиент.ПолучитьСертификатПоОтпечатку(СертификатОтпечаток,
- Истина, СертификатПрограмма, Ложь, ОшибкаНаКлиенте);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- Успех = Ложь;
- ОперацияНачалась = Ложь;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = ЗашифроватьЭлементДанныхНаСторонеКлиента(ОписаниеДанных, МенеджерКриптографии,
- ИдентификаторФормы, ОперацияНачалась, ОшибкаНаКлиенте);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("СвойстваПодписи") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = ЗашифроватьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии,
- ИдентификаторФормы, ОперацияНачалась, ОшибкаНаКлиенте);
-
- Если Не Успех Тогда
- Если ОперацияНачалась Тогда
- ЗаблокироватьИзменениеПараметровОперации();
- КонецЕсли;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция ЗашифроватьЭлементДанныхНаСторонеКлиента(ЭлементДанных, МенеджерКриптографии,
- ИдентификаторФормы, ОперацияНачалась, ОшибкаНаКлиенте)
-
- Попытка
- ДанныеДляШифрования = ДанныеИзОписанияДанных(ЭлементДанных.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для шифрования возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Сертификаты = СертификатыКриптографии(ОписаниеДанных.СертификатыШифрования);
-
- Попытка
- ДвоичныеЗашифрованныеДанные = МенеджерКриптографии.Зашифровать(ДанныеДляШифрования, Сертификаты);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаКлиенте.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ОписаниеОшибки = "";
- Если ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеЗашифрованныеДанные(ДвоичныеЗашифрованныеДанные, ОписаниеОшибки) Тогда
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", ОписаниеОшибки);
- Возврат Ложь;
- КонецЕсли;
-
- ОперацияНачалась = Истина;
-
- ЭлементДанных.Вставить("ЗашифрованныеДанные", ДвоичныеЗашифрованныеДанные);
-
- Если ЭлементДанных.Свойство("РазмещениеРезультата") Тогда
- Если ТипЗнч(ЭлементДанных.РазмещениеРезультата) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.РазмещениеРезультата, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("ЗашифрованныеДанные");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи зашифрованных данных возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаКлиенте
-Функция ЗашифроватьНаСторонеСервера(ИдентификаторФормы, ОшибкаНаСервере)
-
- Успех = Ложь;
- ОперацияНачалась = Ложь;
-
- Если ОписаниеДанных.Свойство("Данные") Тогда
- Успех = ЗашифроватьЭлементДанныхНаСторонеСервера(ОписаниеДанных, ИдентификаторФормы,
- ОперацияНачалась, ОшибкаНаСервере);
- Иначе
- Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл
- ОписаниеДанных.Вставить("ТекущийЭлементНабораДанных", ЭлементДанных);
-
- Если ЭлементДанных.Свойство("ЗашифрованныеДанные") Тогда
- Успех = Истина;
- Продолжить;
- КонецЕсли;
-
- Успех = ЗашифроватьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы,
- ОперацияНачалась, ОшибкаНаСервере);
-
- Если Не Успех Тогда
- Если ОперацияНачалась Тогда
- ЗаблокироватьИзменениеПараметровОперации();
- КонецЕсли;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Возврат Успех;
-
-КонецФункции
-
-&НаКлиенте
-Функция ЗашифроватьЭлементДанныхНаСторонеСервера(ЭлементДанных, ИдентификаторФормы, ОперацияНачалась, ОшибкаНаСервере)
-
- ПараметрыДляСервера = Новый Структура;
- ПараметрыДляСервера.Вставить("ИдентификаторФормы", ИдентификаторФормы);
- ПараметрыДляСервера.Вставить("СертификатПрограмма", СертификатПрограмма);
- ПараметрыДляСервера.Вставить("СертификатОтпечаток", СертификатОтпечаток);
-
- АдресЗашифрованныхДанных = Неопределено;
- ЭлементДанныхДляСервера = Новый Структура;
- ЭлементДанныхДляСервера.Вставить("Данные", ДанныеИзОписанияДанных(ЭлементДанных.Данные, Ложь));
-
- АдресСертификатов = ОписаниеДанных.СертификатыШифрования;
-
- Если Не ЗашифроватьЭлементДанныхНаСервере(ЭлементДанныхДляСервера, ПараметрыДляСервера,
- АдресСертификатов, АдресЗашифрованныхДанных, ОперацияНачалась, ОшибкаНаСервере) Тогда
- Возврат Ложь;
- КонецЕсли;
-
- ЭлементДанных.Вставить("ЗашифрованныеДанные", АдресЗашифрованныхДанных);
-
- Если ЭлементДанных.Свойство("РазмещениеРезультата") Тогда
- Если ТипЗнч(ЭлементДанных.РазмещениеРезультата) = Тип("ОписаниеОповещения") Тогда
- Попытка
- ВыполнитьОбработкуОповещения(ЭлементДанных.РазмещениеРезультата, ОписаниеДанных);
- Исключение
- ЭлементДанных.Удалить("ЗашифрованныеДанные");
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи зашифрованных данных возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
-
- Возврат Истина;
-
-КонецФункции
-
-&НаСервереБезКонтекста
-Функция ЗашифроватьЭлементДанныхНаСервере(Знач ЭлементДанныхДляСервера, Знач Параметры,
- АдресСертификатов, АдресЗашифрованныхДанных, ОперацияНачалась, ОшибкаНаСервере)
-
- МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("Шифрование",
- Ложь, ОшибкаНаСервере, Параметры.СертификатПрограмма);
-
- Если МенеджерКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- СертификатКриптографии = ЭлектроннаяПодпись.ПолучитьСертификатПоОтпечатку(
- Параметры.СертификатОтпечаток, Истина, Параметры.СертификатПрограмма, Ложь, ОшибкаНаСервере);
-
- Если СертификатКриптографии = Неопределено Тогда
- Возврат Ложь;
- КонецЕсли;
-
- Попытка
- ДанныеДляШифрования = ПолучитьИзВременногоХранилища(ЭлементДанныхДляСервера.Данные);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки",
- НСтр("ru = 'При получении данных для шифрования возникла ошибка:'")
- + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- Возврат Ложь;
- КонецПопытки;
-
- Сертификаты = СертификатыКриптографии(АдресСертификатов);
-
- Попытка
- ДвоичныеЗашифрованныеДанные = МенеджерКриптографии.Зашифровать(ДанныеДляШифрования, Сертификаты);
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
- ОшибкаНаСервере.Вставить("Инструкция", Истина);
- Возврат Ложь;
- КонецПопытки;
-
- ОписаниеОшибки = "";
- Если ЭлектроннаяПодписьСлужебныйКлиентСервер.ПустыеЗашифрованныеДанные(ДвоичныеЗашифрованныеДанные, ОписаниеОшибки) Тогда
- ОшибкаНаСервере.Вставить("ОписаниеОшибки", ОписаниеОшибки);
- Возврат Ложь;
- КонецЕсли;
-
- ОперацияНачалась = Истина;
-
- АдресЗашифрованныхДанных = ПоместитьВоВременноеХранилище(ДвоичныеЗашифрованныеДанные, Параметры.ИдентификаторФормы);
-
- Возврат Истина;
-
-КонецФункции
-
-&НаКлиенте
-Функция ДанныеИзОписанияДанных(Знач Данные, ДляСтороныКлиента = Истина)
-
- Если ТипЗнч(Данные) = Тип("ОписаниеОповещения") Тогда
- ОбработкаПолученияДанных = Данные;
- Данные = Неопределено;
- ВыполнитьОбработкуОповещения(ОбработкаПолученияДанных, Данные);
- КонецЕсли;
-
- Если ДляСтороныКлиента Тогда
- // Для стороны клиента требуются двоичные данные или путь к файлу.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат Данные;
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат ПолучитьИзВременногоХранилища(Данные);
- КонецЕсли;
- Иначе // Путь к файлу
- Возврат Данные;
- КонецЕсли;
- Иначе
- // Для стороны сервера требуется адрес двоичных данных во временном хранилище.
-
- Если ТипЗнч(Данные) = Тип("ДвоичныеДанные") Тогда
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
-
- Если ТипЗнч(Данные) = Тип("Строка") Тогда
- Если ЭтоАдресВременногоХранилища(Данные) Тогда
- Возврат Данные;
- КонецЕсли;
- Иначе // Путь к файлу
- Данные = Новый ДвоичныеДанные(Данные);
- Возврат ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
- КонецЕсли;
- КонецЕсли;
-
-КонецФункции
-
+КонецПроцедуры
&НаСервереБезКонтекста
Функция СвойстваСертификатов(Знач Ссылки, Знач ИдентификаторФормы)
@@ -629,22 +889,6 @@
КонецФункции
-&НаКлиентеНаСервереБезКонтекста
-Функция СертификатыКриптографии(Знач СвойстваСертификатов)
-
- Если ТипЗнч(СвойстваСертификатов) = Тип("Строка") Тогда
- СвойстваСертификатов = ПолучитьИзВременногоХранилища(СвойстваСертификатов);
- КонецЕсли;
-
- Сертификаты = Новый Массив;
- Для каждого Свойства Из СвойстваСертификатов Цикл
- Сертификаты.Добавить(Новый СертификатКриптографии(Свойства.Сертификат));
- КонецЦикла;
-
- Возврат Сертификаты;
-
-КонецФункции
-
&НаКлиенте
Функция ЗаписатьСертификатыШифрования(ИдентификаторФормы, Ошибка)
@@ -720,14 +964,4 @@
КонецПроцедуры
-&НаКлиенте
-Процедура ЗаблокироватьИзменениеПараметровОперации()
-
- // После начала шифрования изменять сертификаты более недопустимо,
- // иначе набор данных будет обработан по-разному.
- Элементы.Сертификат.ТолькоПросмотр = Истина;
- Элементы.СертификатыШифрования.ТолькоПросмотр = Истина;
-
-КонецПроцедуры
-
#КонецОбласти
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Help/ru.html
index 42f3c2a58..76e3246e5 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Help/ru.html
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для управления <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ФормаВыбора/Help">сертификатами</a> ключей электронной подписи и шифрования.</p>
<p>Электронная подпись - реквизит любого электронного документа, с помощью которого можно удостовериться в неизменности электронного документа с момента его подписи. Для подписи необходимо иметь <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ФормаЭлемента/Help">сертификат</a> ключа электронной подписи. Сертификат ключа электронной подписи можно получить с помощью криптографических сервисов (провайдеров) или операционной системы.</p>
<p>Контроль неизменности электронного документа осуществляется в результате проверки соответствия электронной подписи документа и сертификата ключа электронной подписи. Если электронная подпись соответствует сертификату, то это является гарантией того, что документ не был изменен кем-либо с момента его подписания. Контроль неизменности электронного документа можно выполнить в любой момент времени.</p>
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/ИменаРегионовРФПоРекомендациямДляСКПЭП/Template.txt b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/ИменаРегионовРФПоРекомендациямДляСКПЭП/Template.txt
index 0fb635c38..5aa7a2b48 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/ИменаРегионовРФПоРекомендациямДляСКПЭП/Template.txt
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/ИменаРегионовРФПоРекомендациямДляСКПЭП/Template.txt
@@ -26,7 +26,7 @@
26 Ставропольский край
27 Хабаровский край
28 Амурская область
-29 Архангельская область и Ненецкий автономный округ
+29 Архангельская область
30 Астраханская область
31 Белгородская область
32 Брянская область
@@ -74,13 +74,13 @@
74 Челябинская область
75 Забайкальский край
76 Ярославская область
-77 г. Москва
-78 г. Санкт-Петербург
+77 г.Москва
+78 г.Санкт-Петербург
79 Еврейская автономная область
80
81
82
-83
+83 Ненецкий автономный округ
84
85
86 Ханты-Мансийский автономный округ – Югра
@@ -88,12 +88,12 @@
88
89 Ямало-Ненецкий автономный округ
90
-91
-92
+91 Республика Крым
+92 г.Севастополь
93
94
95
96
97
98
-99 Иные территории, включая, г. Байконур
+99 Иные территории,включая город и космодром Байконур
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаОбмена/Template.bin b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаОбмена/Template.bin
index 293c067c4..dac3138c7 100644
Binary files a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаОбмена/Template.bin and b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Templates/КомпонентаОбмена/Template.bin differ
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
index a97592017..f610b4b45 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
@@ -747,6 +747,7 @@
<key>ru</key>
<value>Имена регионов РФ по рекомендациям для СКПЭП</value>
</synonym>
+ <comment>Дата актуальности - 24.03.2014 (http://www.gnivc.ru/inf_provision/classifiers_reference/ssrf/)</comment>
<templateType>TextDocument</templateType>
</templates>
<templates uuid="00b7d44c-3f8a-4120-91f3-a63f073d8b37">
diff --git a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo
index 67ee603b9..f2ece0f9f 100644
--- a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo
+++ b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo
@@ -120,7 +120,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, добавивший файл</value>
+ <value>Пользователь, который добавил файл в список</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -138,14 +138,14 @@
<name>ВладелецФайла</name>
<synonym>
<key>ru</key>
- <value>Владелец файла</value>
+ <value>Размещение</value>
</synonym>
<type>
<types>DocumentRef.СообщениеSMS</types>
</type>
<toolTip>
<key>ru</key>
- <value>Объект-владелец файла</value>
+ <value>Место размещения файла (объект)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -157,7 +157,7 @@
<name>ДатаМодификацииУниверсальная</name>
<synonym>
<key>ru</key>
- <value>Дата модификации универсальная</value>
+ <value>Дата изменения (универсальное время)</value>
</synonym>
<type>
<types>Date</types>
@@ -165,7 +165,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Универсальная дата модификации файла</value>
+ <value>Дата изменения данных файла (универсальное время)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -185,7 +185,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Дата создания файла</value>
+ <value>Дата добавления файла в список</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -219,14 +219,14 @@
<name>Изменил</name>
<synonym>
<key>ru</key>
- <value>Изменил</value>
+ <value>Отредактировал</value>
</synonym>
<type>
<types>CatalogRef.Пользователи</types>
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, отредактировавший файл последним</value>
+ <value>Последний пользователь, который отредактировал файл</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -242,7 +242,7 @@
<name>ИндексКартинки</name>
<synonym>
<key>ru</key>
- <value>Индекс картинки</value>
+ <value>Индекс значка</value>
</synonym>
<type>
<types>Number</types>
@@ -252,7 +252,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Индекс картинки файла (служебное поле)</value>
+ <value>Индекс значка файла (служебное поле)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -286,14 +286,14 @@
<name>ПодписанЭП</name>
<synonym>
<key>ru</key>
- <value>Подписан ЭП</value>
+ <value>Подписан электронно</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<toolTip>
<key>ru</key>
- <value>Признак того, что файл подписан с помощью электронной подписи.</value>
+ <value>Признак того, что файл подписан электронно</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -324,7 +324,7 @@
<name>Размер</name>
<synonym>
<key>ru</key>
- <value>Размер</value>
+ <value>Размер (байт)</value>
</synonym>
<type>
<types>Number</types>
@@ -376,7 +376,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Пользователь, редактирующий файл в данный момент</value>
+ <value>Пользователь, который занял файл для редактирования</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -440,7 +440,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Тип хранения файла (в томе или непосредственно в системе)</value>
+ <value>Тип хранения файла (в томе или в информационной базе)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -459,7 +459,7 @@
</type>
<toolTip>
<key>ru</key>
- <value>Том для хранения файла</value>
+ <value>Том хранения файлов (когда файл хранится в томе)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -471,7 +471,7 @@
<name>ФайлХранилище</name>
<synonym>
<key>ru</key>
- <value>Файл хранилище</value>
+ <value>Временное хранилище файла</value>
</synonym>
<type>
<types>ValueStorage</types>
diff --git a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Form.form
index 903792d9f..2bddcd2a8 100644
--- a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Form.form
@@ -203,6 +203,47 @@
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
+ <items xsi:type="form:FormField">
+ <name>КоличествоПопытокОбработкиСообщения</name>
+ <id>19</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <dataPath xsi:type="form:DataPath">
+ <segments>Объект.КоличествоПопытокОбработкиСообщения</segments>
+ </dataPath>
+ <extendedTooltip>
+ <name>КоличествоПопытокОбработкиСообщенияРасширеннаяПодсказка</name>
+ <id>21</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <contextMenu>
+ <name>КоличествоПопытокОбработкиСообщенияКонтекстноеМеню</name>
+ <id>20</id>
+ <autoFill>true</autoFill>
+ </contextMenu>
+ <type>InputField</type>
+ <editMode>Enter</editMode>
+ <showInHeader>true</showInHeader>
+ <headerHorizontalAlign>Left</headerHorizontalAlign>
+ <showInFooter>true</showInFooter>
+ <extInfo xsi:type="form:InputFieldExtInfo">
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <wrap>true</wrap>
+ <chooseType>true</chooseType>
+ <typeDomainEnabled>true</typeDomainEnabled>
+ <textEdit>true</textEdit>
+ <textSize>Normal</textSize>
+ </extInfo>
+ </items>
<items xsi:type="form:FormField">
<name>ПодробноеПредставлениеОшибки</name>
<id>7</id>
diff --git a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Form.form
index 3622f65b0..e55d4e448 100644
--- a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Form.form
@@ -203,6 +203,47 @@
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
+ <items xsi:type="form:FormField">
+ <name>КоличествоПопытокОбработкиСообщения</name>
+ <id>19</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <dataPath xsi:type="form:DataPath">
+ <segments>Объект.КоличествоПопытокОбработкиСообщения</segments>
+ </dataPath>
+ <extendedTooltip>
+ <name>КоличествоПопытокОбработкиСообщенияРасширеннаяПодсказка</name>
+ <id>21</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <contextMenu>
+ <name>КоличествоПопытокОбработкиСообщенияКонтекстноеМеню</name>
+ <id>20</id>
+ <autoFill>true</autoFill>
+ </contextMenu>
+ <type>InputField</type>
+ <editMode>Enter</editMode>
+ <showInHeader>true</showInHeader>
+ <headerHorizontalAlign>Left</headerHorizontalAlign>
+ <showInFooter>true</showInFooter>
+ <extInfo xsi:type="form:InputFieldExtInfo">
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <wrap>true</wrap>
+ <chooseType>true</chooseType>
+ <typeDomainEnabled>true</typeDomainEnabled>
+ <textEdit>true</textEdit>
+ <textSize>Normal</textSize>
+ </extInfo>
+ </items>
<items xsi:type="form:FormField">
<name>ПодробноеПредставлениеОшибки</name>
<id>7</id>
diff --git a/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Help/ru.html b/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Help/ru.html
index 88806af61..bdcceca18 100644
--- a/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Help/ru.html
+++ b/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Help/ru.html
@@ -7,7 +7,7 @@ P:first-letter {
SUP {
FONT-SIZE: 0.9em; FONT-VARIANT: normal; FONT-WEIGHT: normal; FONT-STYLE: normal; LINE-HEIGHT: normal
}
-</style><meta name="GENERATOR" content="MSHTML 11.00.9600.17420"></meta></head><body>
+</style><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body>
<h1>Общероссийский классификатор стран мира (ОКСМ)</h1>
<p>Общероссийский классификатор стран мира (ОКСМ) входит в состав Единой системы классификации и кодирования технико-экономической и социальной информации (ЕСКК) в Российской Федерации.</p>
<p>ОКСМ гармонизирован с Международным стандартом ИСО 3166-97 «Коды для представления наименований стран», разработанным Международной организацией по стандартизации (ИСО), и Межгосударственным классификатором стран мира MK (ИСО 3166) 004-97.</p>
diff --git a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Form.form
index 41450bf19..027ff6833 100644
--- a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Form.form
@@ -1,90 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form">
- <items xsi:type="form:FormGroup">
- <name>ГруппаКоманднаяПанель</name>
- <id>24</id>
- <items xsi:type="form:Button">
- <name>ФормаЗаписатьИЗакрыть</name>
- <id>20</id>
- <visible>true</visible>
- <enabled>true</enabled>
- <userVisible>
- <common>true</common>
- </userVisible>
- <defaultItem>true</defaultItem>
- <extendedTooltip>
- <name>ФормаЗаписатьИЗакрытьРасширеннаяПодсказка</name>
- <id>21</id>
- <type>Label</type>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <extInfo xsi:type="form:LabelDecorationExtInfo">
- <horizontalAlign>Left</horizontalAlign>
- </extInfo>
- </extendedTooltip>
- <commandName>Form.StandardCommand.WriteAndClose</commandName>
- <representation>Auto</representation>
- <defaultButton>true</defaultButton>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <placementArea>UserCmds</placementArea>
- <representationInContextMenu>Auto</representationInContextMenu>
- </items>
- <items xsi:type="form:Button">
- <name>ФормаЗаписать</name>
- <id>22</id>
- <visible>true</visible>
- <enabled>true</enabled>
- <userVisible>
- <common>true</common>
- </userVisible>
- <extendedTooltip>
- <name>ФормаЗаписатьРасширеннаяПодсказка</name>
- <id>23</id>
- <type>Label</type>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <extInfo xsi:type="form:LabelDecorationExtInfo">
- <horizontalAlign>Left</horizontalAlign>
- </extInfo>
- </extendedTooltip>
- <commandName>Form.StandardCommand.Write</commandName>
- <buttonImportance>Normal</buttonImportance>
- <representation>Auto</representation>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <placementArea>UserCmds</placementArea>
- <representationInContextMenu>Auto</representationInContextMenu>
- </items>
- <visible>true</visible>
- <enabled>true</enabled>
- <userVisible>
- <common>true</common>
- </userVisible>
- <title>
- <key>ru</key>
- <value>Группа командная панель</value>
-
-
- ru
- Группа командная панель
-
-
- ГруппаКоманднаяПанельРасширеннаяПодсказка
- 25
- Label
- true
- true
-
- Left
-
-
- CommandBar
-
- Left
- Form
-
-
Группа11
@@ -359,24 +274,12 @@
Форма_КоманднаяПанель-1Left
+ trueOnCreateAtServerПриСозданииНаСервере
- Abort
- Cancel
- Close
- Copy
- Delete
- Ignore
- No
- OK
- RestoreValues
- Retry
- SaveValues
- SetDeletionMark
- Yes50LockOwnertrue
diff --git a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl
index e67b633a5..f447607fc 100644
--- a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl
@@ -1,5 +1,6 @@
#Область ОбработчикиСобытийФормы
+//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -10,8 +11,6 @@
Если Объект.Предопределенный Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
-
- ЭтотОбъект.Элементы.ГруппаКоманднаяПанель.Видимость = НЕ ТолькоПросмотр;
КонецПроцедуры
&НаКлиенте
diff --git a/SSL/src/Catalogs/СтраныМира/Help/ru.html b/SSL/src/Catalogs/СтраныМира/Help/ru.html
index e78635174..9070937af 100644
--- a/SSL/src/Catalogs/СтраныМира/Help/ru.html
+++ b/SSL/src/Catalogs/СтраныМира/Help/ru.html
@@ -7,7 +7,7 @@ P:first-letter {
SUP {
FONT-SIZE: 0.9em; FONT-VARIANT: normal; FONT-WEIGHT: normal; FONT-STYLE: normal; LINE-HEIGHT: normal
}
-
+
Предназначен для хранения информации о странах мира, таможенных союзах стран, либо регионах или частях стран. Данные справочника используются, например, при указании страны адреса контактной информации, страны происхождения товара.
Открывается по команде Страны мира раздела Справочники. В списке можно хранить только несколько необходимых для работы стран.
diff --git a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl
index 24e037484..97a22e727 100644
--- a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl
+++ b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl
@@ -296,45 +296,6 @@
#КонецОбласти
-#Область СлужебныеПроцедурыИФункции
-
-#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
-
-// Приводит код страны к единому виду - строка длиной три символа.
-//
-Функция КодСтраныМира(Знач КодСтраны)
-
- Если ТипЗнч(КодСтраны)=Тип("Число") Тогда
- Возврат Формат(КодСтраны, "ЧЦ=3; ЧН=; ЧВН=; ЧГ=");
- КонецЕсли;
-
- Возврат Прав("000" + КодСтраны, 3);
-КонецФункции
-
-// Возвращает строку в кавычках.
-//
-Функция КонтрольКавычекВСтроке(Знач Строка)
- Возврат """" + СтрЗаменить(Строка, """", """""") + """";
-КонецФункции
-
-#КонецЕсли
-
-// Экранирует символы для использования в функции запроса ПОДОБНО.
-//
-Функция ЭкранироватьСимволыПодобия(Знач Текст, Знач СпецСимвол = "\")
- Результат = Текст;
- СимволыПодобия = "%_[]^" + СпецСимвол;
-
- Для Позиция=1 По СтрДлина(СимволыПодобия) Цикл
- ТекущийСимвол = Сред(СимволыПодобия, Позиция, 1);
- Результат = СтрЗаменить(Результат, ТекущийСимвол, СпецСимвол + ТекущийСимвол);
- КонецЦикла;
-
- Возврат Результат;
-КонецФункции
-
-#КонецОбласти
-
#Область ОбработчикиСобытий
Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка)
@@ -534,3 +495,42 @@
#КонецЕсли
#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+// Приводит код страны к единому виду - строка длиной три символа.
+//
+Функция КодСтраныМира(Знач КодСтраны)
+
+ Если ТипЗнч(КодСтраны)=Тип("Число") Тогда
+ Возврат Формат(КодСтраны, "ЧЦ=3; ЧН=; ЧВН=; ЧГ=");
+ КонецЕсли;
+
+ Возврат Прав("000" + КодСтраны, 3);
+КонецФункции
+
+// Возвращает строку в кавычках.
+//
+Функция КонтрольКавычекВСтроке(Знач Строка)
+ Возврат """" + СтрЗаменить(Строка, """", """""") + """";
+КонецФункции
+
+#КонецЕсли
+
+// Экранирует символы для использования в функции запроса ПОДОБНО.
+//
+Функция ЭкранироватьСимволыПодобия(Знач Текст, Знач СпецСимвол = "\")
+ Результат = Текст;
+ СимволыПодобия = "%_[]^" + СпецСимвол;
+
+ Для Позиция=1 По СтрДлина(СимволыПодобия) Цикл
+ ТекущийСимвол = Сред(СимволыПодобия, Позиция, 1);
+ Результат = СтрЗаменить(Результат, ТекущийСимвол, СпецСимвол + ТекущийСимвол);
+ КонецЦикла;
+
+ Возврат Результат;
+КонецФункции
+
+#КонецОбласти
diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Help/ru.html
index 0212ae81d..610634e0d 100644
--- a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Основное назначение сценария - это выполнение синхронизации данных автоматически по заданному расписанию. Сценарий необходим для задания расписания и порядка отправки и получения данных.
Не рекомендуется выполнять только отправку данных или только получение данных, хотя сценарий позволяет это сделать. Рекомендуется выполнять полноценную синхронизацию данных в одном сценарии.
Предназначен для настройки и хранения сценариев синхронизации данных.
Открыть список можно из раздела Синхронизация данных по соответствующей команде. Также можно открыть список сценариев из списка Синхронизация данных по соответствующей команде меню Еще.
В списке выводится:
diff --git a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo
index e21d74f7d..2dbd346c4 100644
--- a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo
+++ b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo
@@ -78,7 +78,7 @@
Descriptionru
- Имя файла
+ Имя файла (без расширения)ShowError
@@ -120,7 +120,7 @@
ru
- Пользователь, добавивший файл
+ Пользователь, который добавил файл в список
@@ -138,14 +138,14 @@
ВладелецФайлаru
- Владелец файла
+ РазмещениеDocumentRef.ТелефонныйЗвонокru
- Объект-владелец файла
+ Место размещения файла (объект)
@@ -157,7 +157,7 @@
ДатаМодификацииУниверсальнаяru
- Дата модификации универсальная
+ Дата изменения (универсальное время)Date
@@ -165,7 +165,7 @@
ru
- Универсальная дата модификации файла
+ Дата изменения данных файла (универсальное время)
@@ -185,7 +185,7 @@
ru
- Дата создания файла
+ Дата добавления файла в список
@@ -219,14 +219,14 @@
Изменилru
- Изменил
+ ОтредактировалCatalogRef.Пользователиru
- Пользователь, отредактировавший файл последним
+ Последний пользователь, который отредактировал файл
@@ -242,7 +242,7 @@
ИндексКартинкиru
- Индекс картинки
+ Индекс значкаNumber
@@ -252,7 +252,7 @@
ru
- Индекс картинки файла (служебное поле)
+ Индекс значка файла (служебное поле)
@@ -286,14 +286,14 @@
ПодписанЭПru
- Подписан ЭП
+ Подписан электронноBooleanru
- Признак того, что файл подписан с помощью электронной подписи.
+ Признак того, что файл подписан электронно
@@ -325,9 +325,8 @@
Размерru
- Размер
+ Размер (байт)
- Размер файлаNumber
@@ -378,7 +377,7 @@
ru
- Пользователь, редактирующий файл в данный момент
+ Пользователь, который занял файл для редактирования
@@ -442,7 +441,7 @@
ru
- Тип хранения файла (в томе или непосредственно в системе)
+ Тип хранения файла (в томе или в информационной базе)
@@ -461,7 +460,7 @@
ru
- Том для хранения файла
+ Том хранения файлов (когда файл хранится в томе)
@@ -473,7 +472,7 @@
ФайлХранилищеru
- Файл хранилище
+ Временное хранилище файлаValueStorage
diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Help/ru.html
index 05e3c05a4..4114ec267 100644
--- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Описание свойств тома хранения файлов.
При создании нового тома автоматически проверяется доступ к указанному в поле Полный путь каталогу, в случае ошибки выводится соответствующее сообщение. Уже созданному тому нельзя поменять пути.
Предназначен для управления томами хранения файлов.
Используется в том случае, если установлен режим хранения файлов В томах на диске. Для этого в разделе Администрирование - Настройки работы с файлами включите флажок Хранить файлы в томах на диске, после этого в разделах Администрирование - Настройки работы с файлами становится доступной команда Тома хранения файлов, по которой открывается список.
В списке выводится:
diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/ТомаХраненияФайлов.mdo b/SSL/src/Catalogs/ТомаХраненияФайлов/ТомаХраненияФайлов.mdo
index 0b52e8350..51bf6017e 100644
--- a/SSL/src/Catalogs/ТомаХраненияФайлов/ТомаХраненияФайлов.mdo
+++ b/SSL/src/Catalogs/ТомаХраненияФайлов/ТомаХраненияФайлов.mdo
@@ -176,7 +176,6 @@
ruПолный путь linux
- Полный путь в LinuxString
@@ -197,7 +196,6 @@
ruПолный путь windows
- Полный путь в UNC форматеString
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl
index 6e94d6237..b205d2bd7 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl
@@ -34,7 +34,26 @@
КлючСохраненияПоложенияОкна = ?(КонтекстныйРежим, "КонтекстныйРежим", "НеконтекстныйРежим");
- СсылкаНовойУчетнойЗаписи = Справочники.УчетныеЗаписиЭлектроннойПочты.ПолучитьСсылку();
+ Если Параметры.Свойство("Ключ") Тогда
+ УчетнаяЗаписьСсылка = Параметры.Ключ;
+ ТекстЗапроса =
+ "ВЫБРАТЬ
+ | УчетныеЗаписиЭлектроннойПочты.АдресЭлектроннойПочты КАК АдресЭлектроннойПочты,
+ | УчетныеЗаписиЭлектроннойПочты.ИмяПользователя КАК ИмяОтправителяПисем,
+ | УчетныеЗаписиЭлектроннойПочты.Наименование КАК НазваниеУчетнойЗаписи
+ |ИЗ
+ | Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
+ |ГДЕ
+ | УчетныеЗаписиЭлектроннойПочты.Ссылка = &Ссылка";
+ Запрос = Новый Запрос(ТекстЗапроса);
+ Запрос.УстановитьПараметр("Ссылка", Параметры.Ключ);
+ Выборка = Запрос.Выполнить().Выбрать();
+ Если Выборка.Следующий() Тогда
+ ЗаполнитьЗначенияСвойств(ЭтотОбъект, Выборка);
+ КонецЕсли;
+ Иначе
+ СсылкаНовойУчетнойЗаписи = Справочники.УчетныеЗаписиЭлектроннойПочты.ПолучитьСсылку();
+ КонецЕсли;
КонецПроцедуры
@@ -85,10 +104,6 @@
#КонецОбласти
-#Область ОбработчикиСобытийЭлементовТаблицыФормыИмяТаблицыФормы
-
-#КонецОбласти
-
#Область ОбработчикиКомандФормы
&НаКлиенте
@@ -146,7 +161,7 @@
ПоказатьВопрос(ОписаниеОповещения, НСтр("ru = 'Введенные данные не записаны. Закрыть форму?'"), Кнопки,,
КодВозвратаДиалога.Отмена, НСтр("ru = 'Настройка учетной записи'"));
КонецПроцедуры
-
+
&НаКлиенте
Процедура ЗакрытиеФормыПодтверждено(РезультатВопроса, ДополнительныеПараметры = Неопределено) Экспорт
@@ -384,6 +399,10 @@
&НаКлиенте
Процедура ЗаполнитьНастройкиУчетнойЗаписи()
ЗаполнитьЗначенияСвойств(ЭтотОбъект, НастройкиПоУмолчанию(АдресЭлектроннойПочты, ПарольДляПолученияПисем));
+ Если ПустаяСтрока(НазваниеУчетнойЗаписи) Тогда
+ НазваниеУчетнойЗаписи = АдресЭлектроннойПочты;
+ КонецЕсли;
+
НастройкиЗаполнены = Истина;
КонецПроцедуры
@@ -395,8 +414,6 @@
Настройки = Новый Структура;
- Настройки.Вставить("НазваниеУчетнойЗаписи", АдресЭлектроннойПочты);
-
Настройки.Вставить("ИмяПользователяДляПолученияПисем", АдресЭлектроннойПочты);
Настройки.Вставить("ИмяПользователяДляОтправкиПисем", АдресЭлектроннойПочты);
@@ -526,8 +543,12 @@
Если КонтекстныйРежим И ПустаяСтрока(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты, "АдресЭлектроннойПочты")) Тогда
УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты.ПолучитьОбъект();
Иначе
- УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СоздатьЭлемент();
- УчетнаяЗапись.УстановитьСсылкуНового(СсылкаНовойУчетнойЗаписи);
+ Если УчетнаяЗаписьСсылка.Пустая() Тогда
+ УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СоздатьЭлемент();
+ УчетнаяЗапись.УстановитьСсылкуНового(СсылкаНовойУчетнойЗаписи);
+ Иначе
+ УчетнаяЗапись = УчетнаяЗаписьСсылка.ПолучитьОбъект();
+ КонецЕсли;
КонецЕсли;
ЗаполнитьЗначенияСвойств(УчетнаяЗапись, ЭтотОбъект);
УчетнаяЗапись.ИмяПользователя = ИмяОтправителяПисем;
@@ -744,23 +765,23 @@
ВариантНастройки.ПортСервераИсходящейПочты = 465;
ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Истина;
- // Имя сервера с префиксом "smtp.", защищенное соединение, порт 587.
+ // Имя сервера с префиксом "smtp.", защищенное (STARTTLS) соединение, порт 587.
ВариантНастройки = Результат.Добавить();
ВариантНастройки.СерверИсходящейПочты = "smtp." + ИмяСервераВУчетнойЗаписи;
ВариантНастройки.ПортСервераИсходящейПочты = 587;
- ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Истина;
+ ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Ложь;
- // Имя сервера с префиксом "mail.", защищенное соединение, порт 587.
+ // Имя сервера с префиксом "mail.", защищенное (STARTTLS) соединение, порт 587.
ВариантНастройки = Результат.Добавить();
ВариантНастройки.СерверИсходящейПочты = "mail." + ИмяСервераВУчетнойЗаписи;
ВариантНастройки.ПортСервераИсходящейПочты = 587;
- ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Истина;
+ ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Ложь;
- // Имя сервера без префиксов, защищенное соединение, порт 587.
+ // Имя сервера без префиксов, защищенное (STARTTLS) соединение, порт 587.
ВариантНастройки = Результат.Добавить();
ВариантНастройки.СерверИсходящейПочты = ИмяСервераВУчетнойЗаписи;
ВариантНастройки.ПортСервераИсходящейПочты = 587;
- ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Истина;
+ ВариантНастройки.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты = Ложь;
// Имя сервера с префиксом "smtp.", незащищенное соединение.
ВариантНастройки = Результат.Добавить();
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form
index 7fdf11280..2f5a6e199 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form
@@ -279,10 +279,10 @@
true
- СписокSearchString
+ СписокСтрокаПоиска31
- СписокSearchStringExtendedTooltip
+ СписокСтрокаПоискаРасширеннаяПодсказка33Labeltrue
@@ -292,7 +292,7 @@
- СписокSearchStringContextMenu
+ СписокСтрокаПоискаКонтекстноеМеню32true
@@ -302,10 +302,10 @@
- СписокViewStatus
+ СписокСостояниеПросмотра34
- СписокViewStatusExtendedTooltip
+ СписокСостояниеПросмотраРасширеннаяПодсказка36Labeltrue
@@ -315,7 +315,7 @@
- СписокViewStatusContextMenu
+ СписокСостояниеПросмотраКонтекстноеМеню35true
@@ -326,10 +326,10 @@
- СписокSearchControl
+ СписокУправлениеПоиском37
- СписокSearchControlExtendedTooltip
+ СписокУправлениеПоискомРасширеннаяПодсказка39Labeltrue
@@ -339,7 +339,7 @@
- СписокSearchControlContextMenu
+ СписокУправлениеПоискомКонтекстноеМеню38true
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form
index 1df1ee4d5..9312f7fae 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form
@@ -1804,7 +1804,6 @@
truetrueUseIfNecessary
- Normalautotrue
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Help/ru.html
index f5115efe5..96f388958 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Описание свойств учетной записи электронной почты.
При вводе учетной записи большинство параметров проставляется программой по умолчанию в зависимости от настроек почтовых серверов учетной записи электронной почты.
Для системных учетных записей рекомендуется запомнить пароль, для того чтобы программа могла рассылать сообщения от такой учетной записи без участия пользователя. Тем не менее, решение о хранении паролей в информационной базе принимается в каждом случае индивидуально.
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl
index 947ca003c..fa0c59c2f 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl
@@ -41,6 +41,11 @@
Объект.ПериодХраненияСообщенийНаСервере = 0;
КонецЕсли;
+ Если Объект.ПротоколВходящейПочты = "IMAP" Тогда
+ Объект.ОставлятьКопииСообщенийНаСервере = Истина;
+ Объект.ПериодХраненияСообщенийНаСервере = 0;
+ КонецЕсли;
+
Если РазрешенияПолучены <> Истина Тогда
Если Не ПроверитьЗаполнение() Тогда
Отказ = Истина;
@@ -77,6 +82,7 @@
&НаКлиенте
Процедура ПротоколПриИзменении(Элемент)
+
Если Объект.ПротоколВходящейПочты = "IMAP" Тогда
Если Лев(Объект.СерверВходящейПочты, 4) = "pop." Тогда
Объект.СерверВходящейПочты = "imap." + Сред(Объект.СерверВходящейПочты, 5);
@@ -91,6 +97,7 @@
КонецЕсли;
УстановитьПортВходящейПочты();
+ УстановитьДоступностьЭлементов();
КонецПроцедуры
&НаКлиенте
@@ -176,6 +183,10 @@
&НаКлиенте
Процедура УстановитьДоступностьЭлементов()
+ ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP";
+ Элементы.POPПередSMTP.Видимость = ИспользуетсяПротоколPOP;
+ Элементы.ОставлятьПисьмаНаСервере.Видимость = ИспользуетсяПротоколPOP;
+
Элементы.НастройкаПериодаХраненияПисем.Доступность = Объект.ОставлятьКопииСообщенийНаСервере;
Элементы.ПериодХраненияСообщенийНаСервере.Доступность = УдалятьПисьмаССервера;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
index d18d8fe82..9d864d21a 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для ведения учетных записей электронной почты, которые используются для получения и отправки электронных сообщений.
Список можно открыть соответствующей командой в разделе Администрирование - Органайзер.
В списке выводится:
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl
index 0ea4655c3..fe02b6a77 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl
@@ -19,6 +19,24 @@
#КонецОбласти
+#КонецЕсли
+
+#Область ОбработчикиСобытий
+
+Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
+
+ Если ВидФормы = "ФормаОбъекта" И Не Параметры.Свойство("ЗначениеКопирования")
+ И (Не Параметры.Свойство("Ключ") Или Не РаботаСПочтовымиСообщениямиВызовСервера.УчетнаяЗаписьНастроена(Параметры.Ключ)) Тогда
+ ВыбраннаяФорма = "ПомощникНастройкиУчетнойЗаписи";
+ СтандартнаяОбработка = Ложь;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
#Область СлужебныеПроцедурыИФункции
// Только для внутреннего использования.
@@ -133,19 +151,12 @@
КонецФункции
-#КонецОбласти
-
-#КонецЕсли
-
-#Область ОбработчикиСобытий
-
-Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
-
- Если ВидФормы = "ФормаОбъекта" И Не Параметры.Свойство("Ключ") И Не Параметры.Свойство("ЗначениеКопирования") Тогда
- ВыбраннаяФорма = "ПомощникНастройкиУчетнойЗаписи";
- СтандартнаяОбработка = Ложь;
- КонецЕсли;
-
-КонецПроцедуры
+Функция УчетнаяЗаписьНастроена(УчетнаяЗапись) Экспорт
+ Параметры = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(УчетнаяЗапись, "АдресЭлектроннойПочты,СерверВходящейПочты,СерверИсходящейПочты");
+ Возврат Не ПустаяСтрока(Параметры.АдресЭлектроннойПочты)
+ И (Не ПустаяСтрока(Параметры.СерверВходящейПочты) Или Не ПустаяСтрока(Параметры.СерверИсходящейПочты));
+КонецФункции
#КонецОбласти
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl
index acf220941..ddcf3a733 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl
@@ -18,6 +18,8 @@
КонецПроцедуры
+#КонецОбласти
+
#Область ОбработчикиСобытий
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
@@ -57,6 +59,4 @@
#КонецОбласти
-#КонецОбласти
-
#КонецЕсли
diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo
index e3abbe508..2d87a12a8 100644
--- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo
+++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo
@@ -589,7 +589,7 @@
УдалитьВПредставлениеВключатьИмяПользователяru
- Удалить в представление включать имя пользователя
+ (не используется) В представление включать имя пользователяBoolean
diff --git a/SSL/src/Catalogs/Файлы/Forms/ВопросПриИмпортеФайлов/Help/ru.html b/SSL/src/Catalogs/Файлы/Forms/ВопросПриИмпортеФайлов/Help/ru.html
index 1dc640b8c..46dd7ca45 100644
--- a/SSL/src/Catalogs/Файлы/Forms/ВопросПриИмпортеФайлов/Help/ru.html
+++ b/SSL/src/Catalogs/Файлы/Forms/ВопросПриИмпортеФайлов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Если один или несколько выбранных файлов превышают предельно допустимый размер, то программа выводит предупреждение со списком файлов, которые невозможно загрузить.
Предназначена для настройки кнопки запуска приложения 1С-Бухфон на начальной странице. Настройки хранятся для каждого пользователя с привязкой к рабочему месту.
Открывается по команде Настройка 1С:Бухфон в разделе Администрирование - Общие настройки.
Запуск одной и той же базы под веб-клиентом и тонким клиентом потребует две процедуры настройки.
Предназначена для настройки параметров основного рабочего каталога.
Основной рабочий каталог - папка на Вашем персональном компьютере, в которой временно хранятся файлы, полученные из программы для просмотра или редактирования.
Открывается по ссылке Настройка основного рабочего каталога в персональных настройках программы (вкладка Работа с файлами).
diff --git a/SSL/src/CommonForms/НастройкаОсновногоРабочегоКаталога/Module.bsl b/SSL/src/CommonForms/НастройкаОсновногоРабочегоКаталога/Module.bsl
index a3527e1af..13ce09b4e 100644
--- a/SSL/src/CommonForms/НастройкаОсновногоРабочегоКаталога/Module.bsl
+++ b/SSL/src/CommonForms/НастройкаОсновногоРабочегоКаталога/Module.bsl
@@ -20,7 +20,7 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
- Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
+ Если НЕ ФайловыеФункцииСлужебныйКлиент.РасширениеРаботыСФайламиПодключено() Тогда
ПодключитьОбработчикОжидания("ПоказатьПредупреждениеОНеобходимостиРасширенияРаботыСФайлами", 0.1, Истина);
Отказ = Истина;
Возврат;
@@ -41,7 +41,7 @@
СтандартнаяОбработка = Ложь;
- Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
+ Если НЕ ФайловыеФункцииСлужебныйКлиент.РасширениеРаботыСФайламиПодключено() Тогда
Возврат;
КонецЕсли;
diff --git a/SSL/src/CommonForms/НастройкаОтправкиSMS/Help/ru.html b/SSL/src/CommonForms/НастройкаОтправкиSMS/Help/ru.html
index ad0b29dab..037e38524 100644
--- a/SSL/src/CommonForms/НастройкаОтправкиSMS/Help/ru.html
+++ b/SSL/src/CommonForms/НастройкаОтправкиSMS/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для настройки параметров отправки SMS.
Открывается по команде Настройка отправки SMS раздела Администрирование - Органайзер.
Предназначена для настройки регистрации событий доступа к персональным данным.
Открывается по команде Регистрация событий доступа к персональным данным из раздела Поддержка и обслуживание - Администрирование.
Регистрация почти всех событий (кроме событий доступа к персональным данным в программе выполняются по умолчанию).
diff --git a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Form.form b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Form.form
index 56230a2e7..73f2e35b9 100644
--- a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Form.form
+++ b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Form.form
@@ -853,7 +853,7 @@
165
<key>ru</key>
- <value>В обозреватель интернет не установлено расширение для работы с электронной подписью и шифрованием. Невозможно проверить какие из программ установлены.</value>
+ <value>В обозреватель интернет не установлено расширение для работы с электронной подписью и шифрованием. Невозможно проверить какие из программ установлены на компьютере.</value>
truetrue
@@ -1978,11 +1978,6 @@
true
-
- ru
- Установка программ, решение типичных проблем.
-
- ButtonИнструкцияРасширеннаяПодсказка272
diff --git a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html
index 389fe2a77..08e66b269 100644
--- a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html
+++ b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Настройка параметров для использования средств электронной подписи и шифрования (криптографии).
Открывается по команде Настройки электронной подписи и шифрования раздела Администрирование - Общие настройки.
Для электронной подписи и шифрования требуется установить специальную стороннюю программу (криптопровайдер).
diff --git a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl
index 8880c5b31..3469f5a1e 100644
--- a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl
+++ b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl
@@ -104,18 +104,14 @@
Возврат;
КонецЕсли;
- Если Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаПрограммы Тогда
- ОпределитьУстановленныеПрограммы();
- КонецЕсли;
+ ОпределитьУстановленныеПрограммы();
КонецПроцедуры
&НаКлиенте
Процедура ПриПовторномОткрытии()
- Если Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаПрограммы Тогда
- ОпределитьУстановленныеПрограммы();
- КонецЕсли;
+ ОпределитьУстановленныеПрограммы();
КонецПроцедуры
@@ -127,13 +123,21 @@
Элементы.Сертификаты.Обновить();
Элементы.Сертификаты.ТекущаяСтрока = Источник;
+ Возврат;
КонецЕсли;
// При изменении состава или настроек программ.
Если ВРег(ИмяСобытия) = ВРег("Запись_ПрограммыЭлектроннойПодписиИШифрования")
- Или ВРег(ИмяСобытия) = ВРег("Запись_ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux") Тогда
+ Или ВРег(ИмяСобытия) = ВРег("Запись_ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux")
+ Или ВРег(ИмяСобытия) = ВРег("Запись_ЛичныеНастройкиЭлектроннойПодписиИШифрования") Тогда
- ПодключитьОбработчикОжидания("ПриИзмененияСоставаИлиНастроекПрограмм", 0.1, Истина);
+ ПодключитьОбработчикОжидания("ПриИзмененииСоставаИлиНастроекПрограмм", 0.1, Истина);
+ Возврат;
+ КонецЕсли;
+
+ Если ВРег(ИмяСобытия) = ВРег("Установка_РасширениеРаботыСКриптографией") Тогда
+ ОпределитьУстановленныеПрограммы();
+ Возврат;
КонецЕсли;
// При изменении настроек использования.
@@ -156,8 +160,7 @@
&НаКлиенте
Процедура СтраницыПриСменеСтраницы(Элемент, ТекущаяСтраница)
- Если ТекущаяСтраница = Элементы.СтраницаПрограммы И ПроверкаПрограммВыполнялась <> Истина Тогда
- ПроверкаПрограммВыполнялась = Истина;
+ Если ПроверкаПрограммВыполнялась <> Истина Тогда
ОпределитьУстановленныеПрограммы();
КонецЕсли;
@@ -339,8 +342,7 @@
&НаКлиенте
Процедура УстановитьРасширение(Команда)
- ЭлектроннаяПодписьКлиент.УстановитьРасширение(Истина,
- Новый ОписаниеОповещения("ПослеУстановкиРасширения", ЭтотОбъект));
+ ЭлектроннаяПодписьКлиент.УстановитьРасширение(Истина);
КонецПроцедуры
@@ -558,78 +560,130 @@
КонецПроцедуры
-// Продолжение процедуры УстановитьРасширениеНажатие.
-&НаКлиенте
-Процедура ПослеУстановкиРасширения(РасширениеУстановлено, ДополнительныеПараметры) Экспорт
-
- ОпределитьУстановленныеПрограммы();
-
-КонецПроцедуры
-
&НаКлиенте
Процедура ОпределитьУстановленныеПрограммы()
- Если ПодключитьРасширениеРаботыСКриптографией() Тогда
+ Если Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаПрограммы Тогда
+ ПроверкаПрограммВыполнялась = Истина;
+ НачатьПодключениеРасширенияРаботыСКриптографией(Новый ОписаниеОповещения(
+ "ОпределитьУстановленныеПрограммыПослеПодключенияРасширения", ЭтотОбъект));
+ Иначе
+ ПроверкаПрограммВыполнялась = Неопределено;
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры ОпределитьУстановленныеПрограммы.
+&НаКлиенте
+Процедура ОпределитьУстановленныеПрограммыПослеПодключенияРасширения(Подключено, Неопределен) Экспорт
+
+ Если Подключено Тогда
Элементы.СтраницыПрограммыИОбновление.ТекущаяСтраница = Элементы.СтраницаПрограммыОбновление;
КонецЕсли;
#Если ВебКлиент Тогда
- ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределенияУстановленныхПрограмм", 0.3, Истина);
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.3, Истина);
#Иначе
- ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределенияУстановленныхПрограмм", 0.1, Истина);
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.1, Истина);
#КонецЕсли
КонецПроцедуры
&НаКлиенте
-Процедура ОбработчикОжиданияОпределенияУстановленныхПрограмм()
+Процедура ОбработчикОжиданияДляПродолжения()
- Если Не ПодключитьРасширениеРаботыСКриптографией() Тогда
- Если Не Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость Тогда
- УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Истина);
- КонецЕсли;
- ПодключитьОбработчикОжидания("ОпределитьУстановленныеПрограммы", 3, Истина);
- Возврат;
- КонецЕсли;
-
- Если Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость Тогда
- УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Ложь);
- КонецЕсли;
-
- Для каждого Строка Из Программы Цикл
- ПроверитьУстановкуПрограммыНаКлиенте(Строка);
- КонецЦикла;
-
- Элементы.СтраницыПрограммыИОбновление.ТекущаяСтраница = Элементы.СтраницаПрограммыСписок;
- ТекущийЭлемент = Элементы.Программы;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Знач ВидимостьЭлемента)
-
- Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость = ВидимостьЭлемента;
+ Возврат;
КонецПроцедуры
&НаКлиенте
-Процедура ПроверитьУстановкуПрограммыНаКлиенте(ОписаниеПрограммы)
+Процедура ОбработчикОжиданияОпределитьУстановленныеПрограммы()
+
+ НачатьПодключениеРасширенияРаботыСКриптографией(Новый ОписаниеОповещения(
+ "ОбработчикОжиданияОпределитьУстановленныеПрограммыПослеПодключенияРасширения", ЭтотОбъект));
+
+ #Если ВебКлиент Тогда
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияДляПродолжения", 0.3, Истина);
+ #Иначе
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияДляПродолжения", 0.1, Истина);
+ #КонецЕсли
+
+КонецПроцедуры
+
+// Продолжение процедуры ОбработчикОжиданияОпределитьУстановленныеПрограммы.
+&НаКлиенте
+Процедура ОбработчикОжиданияОпределитьУстановленныеПрограммыПослеПодключенияРасширения(Подключено, Неопределен) Экспорт
+
+ Если Не Подключено Тогда
+ Если Не Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость Тогда
+ УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Истина);
+ КонецЕсли;
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 3, Истина);
+ Возврат;
+ КонецЕсли;
+
+ Если Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость Тогда
+ УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Ложь);
+ КонецЕсли;
+
+ Контекст = Новый Структура;
+ Контекст.Вставить("Индекс", -1);
+
+ ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+// Продолжение процедуры ОбработчикОжиданияОпределитьУстановленныеПрограммы.
+&НаКлиенте
+Процедура ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклНачало(Контекст)
+
+ Если Программы.Количество() <= Контекст.Индекс + 1 Тогда
+ // После цикла.
+ Элементы.СтраницыПрограммыИОбновление.ТекущаяСтраница = Элементы.СтраницаПрограммыСписок;
+ ТекущийЭлемент = Элементы.Программы;
+ Возврат;
+ КонецЕсли;
+ Контекст.Индекс = Контекст.Индекс + 1;
+ ОписаниеПрограммы = Программы.Получить(Контекст.Индекс);
+
+ Контекст.Вставить("ОписаниеПрограммы", ОписаниеПрограммы);
Если ОписаниеПрограммы.ПометкаУдаления Тогда
ОбновитьЗначение(ОписаниеПрограммы.РезультатПроверки, "");
ОбновитьЗначение(ОписаниеПрограммы.Установлена, "");
+ ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклНачало(Контекст);
Возврат;
КонецЕсли;
- ОписаниеОшибки = "";
- Ошибки = Новый Массив;
+ ОписанияПрограмм = Новый Массив;
+ ОписанияПрограмм.Добавить(Контекст.ОписаниеПрограммы);
- Менеджер = ЭлектроннаяПодписьСлужебныйКлиентСервер.МенеджерКриптографии(ОписаниеПрограммы.Ссылка,
- ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент(), Ошибки, Ложь);
+ ПараметрыВыполнения = Новый Структура;
+ ПараметрыВыполнения.Вставить("ОписанияПрограмм", ОписанияПрограмм);
+ ПараметрыВыполнения.Вставить("Индекс", -1);
+ ПараметрыВыполнения.Вставить("ПоказатьОшибку", Неопределено);
+ ПараметрыВыполнения.Вставить("СвойстваОшибки", Новый Структура("Ошибки", Новый Массив));
+ ПараметрыВыполнения.Вставить("ЭтоLinux", ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент());
+ ПараметрыВыполнения.Вставить("Менеджер", Неопределено);
+ ПараметрыВыполнения.Вставить("Оповещение", Новый ОписаниеОповещения(
+ "ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклПродолжение", ЭтотОбъект, Контекст));
+
+ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения);
+ ЭлектроннаяПодписьСлужебныйКлиент.СоздатьМенеджерКриптографииЦиклНачало(ПараметрыВыполнения);
+
+КонецПроцедуры
+
+// Продолжение процедуры ОбработчикОжиданияОпределитьУстановленныеПрограммы.
+&НаКлиенте
+Процедура ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклПродолжение(Менеджер, Контекст) Экспорт
+
+ ОписаниеПрограммы = Контекст.ОписаниеПрограммы;
+ Ошибки = Контекст.ПараметрыВыполнения.СвойстваОшибки.Ошибки;
Если Менеджер <> Неопределено Тогда
ОбновитьЗначение(ОписаниеПрограммы.РезультатПроверки, НСтр("ru = 'Установлена на компьютере.'"));
ОбновитьЗначение(ОписаниеПрограммы.Установлена, Истина);
+ ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклНачало(Контекст);
Возврат;
КонецЕсли;
@@ -649,10 +703,19 @@
ОбновитьЗначение(ОписаниеПрограммы.Установлена, Ложь);
КонецЕсли;
+ ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклНачало(Контекст);
+
+КонецПроцедуры
+
+&НаСервере
+Процедура УстановитьВидимостьГруппаВебКлиентРасширениеНеУстановлено(Знач ВидимостьЭлемента)
+
+ Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость = ВидимостьЭлемента;
+
КонецПроцедуры
&НаКлиенте
-Процедура ПриИзмененияСоставаИлиНастроекПрограмм()
+Процедура ПриИзмененииСоставаИлиНастроекПрограмм()
ЗаполнитьПрограммыИНастройки();
diff --git a/SSL/src/CommonForms/ОбменыДанными/Form.form b/SSL/src/CommonForms/ОбменыДанными/Form.form
index a3fa6ca32..3fa07a0b0 100644
--- a/SSL/src/CommonForms/ОбменыДанными/Form.form
+++ b/SSL/src/CommonForms/ОбменыДанными/Form.form
@@ -2543,10 +2543,6 @@
truetrue
-
- true
- Role.НастройкаСинхронизацииДанных
- false
@@ -5114,10 +5110,7 @@
Состав отправляемых данныхStdPicture.InputFieldOpen
@@ -5142,14 +5135,7 @@
Удалить текущую настройку синхронизации данныхStdPicture.Delete
diff --git a/SSL/src/CommonForms/ОбменыДанными/Help/ru.html b/SSL/src/CommonForms/ОбменыДанными/Help/ru.html
index cf1c2fe04..ce8c41671 100644
--- a/SSL/src/CommonForms/ОбменыДанными/Help/ru.html
+++ b/SSL/src/CommonForms/ОбменыДанными/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначено для настройки синхронизации данных и хранения существующих настроек синхронизации данных.
Окно Синхронизация данных можно найти на Рабочем столе программы или открыть в разделе Администрирование - Настройки синхронизации данных по соответствующей команде. Если настроек синхронизации еще нет или существует только одна настройка, то окно приобретает вид панели. В этом случае меню Еще скрыто и все необходимые команды и поля выведены на панель. Окно принимает вид списка, если настроек синхронизации две и более.
В окне выводится:
diff --git a/SSL/src/CommonForms/ОбменыДанными/Module.bsl b/SSL/src/CommonForms/ОбменыДанными/Module.bsl
index c30ae1a86..1bf96afc4 100644
--- a/SSL/src/CommonForms/ОбменыДанными/Module.bsl
+++ b/SSL/src/CommonForms/ОбменыДанными/Module.bsl
@@ -12,6 +12,18 @@
Возврат;
КонецЕсли;
+ Если Не Пользователи.РолиДоступны("НастройкаСинхронизацииДанных") Тогда
+ Элементы.СписокСостоянияУзловИзменитьУзелИнформационнойБазы.Видимость = Ложь;
+ КонецЕсли;
+
+ Если Не Пользователи.РолиДоступны("АдминистраторСистемы") Тогда
+ Элементы.СоставОтправляемыхДанных.Видимость = Ложь;
+ Элементы.СписокСостоянияУзловСоставОтправляемыхДанных.Видимость = Ложь;
+ Элементы.СписокСостоянияУзловКонтекстноеМенюСоставОтправляемыхДанных.Видимость = Ложь;
+ Элементы.УдалитьНастройкуСинхронизации.Видимость = Ложь;
+ Элементы.СписокСостоянияУзловУдалитьНастройкуСинхронизации.Видимость = Ложь;
+ КонецЕсли;
+
СписокПлановОбмена = ОбменДаннымиПовтИсп.СписокПлановОбменаБСП();
Если СписокПлановОбмена.Количество() = 0 Тогда
ТекстСообщения = НСтр("ru = 'Возможность настройки синхронизации данных не предусмотрена.'");
@@ -694,12 +706,7 @@
ИмяПланаОбмена = Элемент.Значение;
МенеджерПланаОбмена = ПланыОбмена[ИмяПланаОбмена];
- Если ОбщегоНазначения.ПодсистемаСуществует("ОбменДаннымиXDTO") Тогда
- МодульОбменДаннымиXDTOПовтИсп = ОбщегоНазначения.ОбщийМодуль("ОбменДаннымиXDTOПовтИсп");
- ЭтоПланОбменаXDTO = МодульОбменДаннымиXDTOПовтИсп.ЭтоПланОбменаXDTO(ИмяПланаОбмена);
- Иначе
- ЭтоПланОбменаXDTO = Ложь;
- КонецЕсли;
+ ЭтоПланОбменаXDTO = ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(ИмяПланаОбмена);
Если Метаданные.ПланыОбмена[ИмяПланаОбмена].РаспределеннаяИнформационнаяБаза Тогда
РодительскаяГруппа = Элементы.ПодменюРИБ;
diff --git a/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Form.form b/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Form.form
index 7f9381656..e81a87ff8 100644
--- a/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Form.form
+++ b/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Form.form
@@ -622,10 +622,6 @@
truetrue
-
- true
- Role.ПолныеПрава
- Button
diff --git a/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Help/ru.html b/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Help/ru.html
index 13820ac56..5fa4f5869 100644
--- a/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Help/ru.html
+++ b/SSL/src/CommonForms/ОписаниеИзмененийСистемы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Описание обновлений включает в себя список изменений в последней версии программы, а также историю изменений в предыдущих версиях.
Выводится однократно после завершения обновления на новую версию. Описание обновлений можно просмотреть позднее по команде Описание изменений программы в панели Информация в разделе Главное.
Предназначена для отправки электронного сообщения.
Предусмотрены кнопки Написать письмо или Отправить для отправки электронных сообщений из различных объектов программы, например, из окна пользователя программы и т.п.
Написание электронного сообщения
diff --git a/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl b/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl
index 4cdfb7e3d..4f159409f 100644
--- a/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl
+++ b/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl
@@ -226,7 +226,7 @@
Процедура ВложенияПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
- ДобавлениеФайлаКВложениям();
+ ДобавитьФайлВоВложения();
КонецПроцедуры
@@ -349,7 +349,7 @@
&НаКлиенте
Процедура ПриложитьФайлВыполнить()
- ДобавлениеФайлаКВложениям();
+ ДобавитьФайлВоВложения();
КонецПроцедуры
@@ -457,22 +457,21 @@
КонецФункции
&НаКлиенте
-Процедура ДобавлениеФайлаКВложениям()
-
- Перем ПомещенныеФайлы;
-
- Если ПодключитьРасширениеРаботыСФайлами() Тогда
- ПомещенныеФайлы = Новый Массив;
- Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
- Диалог.МножественныйВыбор = Истина;
- Если ПоместитьФайлы(, ПомещенныеФайлы, Диалог, Истина, ) Тогда
- ДобавитьФайлыВСписок(ПомещенныеФайлы);
- ОбновитьПредставлениеВложений();
- КонецЕсли;
- Иначе
- ПоказатьПредупреждение(,НСтр("ru = 'В Веб-клиенте без установленного расширения работы с файлами добавление файлов не поддерживается.'"));
+Процедура ДобавитьФайлВоВложения()
+ ПараметрыДиалога = Новый Структура;
+ ПараметрыДиалога.Вставить("Режим", РежимДиалогаВыбораФайла.Открытие);
+ ПараметрыДиалога.Вставить("МножественныйВыбор", Истина);
+ ОписаниеОповещения = Новый ОписаниеОповещения("ДобавитьФайлВоВложенияПриПомещенииФайлов", ЭтотОбъект);
+ СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(ОписаниеОповещения, УникальныйИдентификатор, "", ПараметрыДиалога);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДобавитьФайлВоВложенияПриПомещенииФайлов(ПомещенныеФайлы, ДополнительныеПараметры) Экспорт
+ Если ПомещенныеФайлы = Неопределено Или ПомещенныеФайлы.Количество() = 0 Тогда
+ Возврат;
КонецЕсли;
-
+ ДобавитьФайлыВСписок(ПомещенныеФайлы);
+ ОбновитьПредставлениеВложений();
КонецПроцедуры
&НаСервере
@@ -652,23 +651,12 @@
Возврат;
КонецЕсли;
- Попытка
- ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
- Исключение
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
- Возврат;
- КонецПопытки;
-
+ ОтправитьПочтовоеСообщение(УчетнаяЗапись, ПараметрыПисьма);
СохранитьАдресОтвета(АдресОтвета);
+ Состояние(НСтр("ru = 'Сообщение успешно отправлено'"));
- ОписаниеОповещения = Новый ОписаниеОповещения("ПродолжитьОтправкуПисьмаСПаролемЗавершение", ЭтотОбъект);
- ПоказатьПредупреждение(ОписаниеОповещения, НСтр("ru = 'Сообщение успешно отправлено'"));
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПродолжитьОтправкуПисьмаСПаролемЗавершение(ДополнительныеПараметры) Экспорт
Закрыть();
+
КонецПроцедуры
&НаКлиенте
diff --git a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html
index 6442854d2..8718d890d 100644
--- a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html
+++ b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Выводит варианты отчетов, размещенные в разделе или группах раздела программы.
Открыть панель отчетов можно по соответствующей команде из раздела программы.
Панель отчетов позволяет работать с отчетами из одного места и группирует варианты отчетов по группам командного интерфейса. Работа с панелью отчетов ведется в двух режимах:
diff --git a/SSL/src/CommonForms/ПанельОтчетов/Module.bsl b/SSL/src/CommonForms/ПанельОтчетов/Module.bsl
index 5f0cb2554..183bf6c59 100644
--- a/SSL/src/CommonForms/ПанельОтчетов/Module.bsl
+++ b/SSL/src/CommonForms/ПанельОтчетов/Module.bsl
@@ -118,10 +118,13 @@
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("КлючВарианта", Вариант.КлючВарианта);
ПараметрыОткрытия.Вставить("Раздел", ТекущийРазделСсылка);
- ПараметрыОткрытия.Вставить("Подсистема", Вариант.Подсистема);
- Найденные = ПодсистемыПрограммы.НайтиСтроки(Новый Структура("Ссылка", Вариант.Подсистема));
- ПараметрыОткрытия.Вставить("ПодсистемаПредставление", Найденные[0].Представление);
+ Соседи = ДобавленныеВарианты.НайтиСтроки(Новый Структура("Подсистема", Вариант.Подсистема));
+ Если Соседи.Количество() > 1 Тогда
+ Найденные = ПодсистемыПрограммы.НайтиСтроки(Новый Структура("Ссылка", Вариант.Подсистема));
+ ПараметрыОткрытия.Вставить("Подсистема", Вариант.Подсистема);
+ ПараметрыОткрытия.Вставить("ПодсистемаПредставление", Найденные[0].Представление);
+ КонецЕсли;
// Открытие
Если Вариант.Дополнительный Тогда
@@ -1182,7 +1185,7 @@
ПараметрыГруппы.Количество = ПараметрыГруппы.Варианты.Количество();
КонецЕсли;
- Если ПараметрыГруппы.Количество = 0 Тогда
+ Если ПараметрыГруппы.Количество = 0 И Не (РежимНастройки И ИмяГруппы = "СГруппой") Тогда
Продолжить;
КонецЕсли;
@@ -1333,7 +1336,7 @@
ПараметрыГруппы = ПараметрыЗаполнения[ПараметрыЗаполнения.ИмяГруппы];
Варианты = ПараметрыГруппы.Варианты;
КоличествоВариантов = ПараметрыГруппы.Количество;
- Если КоличествоВариантов = 0 Тогда
+ Если КоличествоВариантов = 0 И Не (РежимНастройки И ПараметрыЗаполнения.ИмяГруппы = "СГруппой") Тогда
Возврат;
КонецЕсли;
@@ -1706,7 +1709,9 @@
Функция ДобавитьГруппуПодсистемы(ПараметрыЗаполнения, СтрокаПорядкаВывода, ВГруппу)
Подсистема = СтрокаПорядкаВывода.Подсистема;
СтрокаДерева = СтрокаПорядкаВывода.СтрокаДерева;
- Если СтрокаДерева.КоличествоВариантов = 0 И СтрокаДерева.ВсегоВложенныхВариантов = 0 Тогда
+ Если СтрокаДерева.КоличествоВариантов = 0
+ И СтрокаДерева.ВсегоВложенныхВариантов = 0
+ И Не (РежимНастройки И ПараметрыЗаполнения.ИмяГруппы = "СГруппой") Тогда
Возврат ВГруппу;
КонецЕсли;
ПодсистемаПредставление = Подсистема.Представление;
diff --git a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Help/ru.html b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Help/ru.html
index 6b6ae1cd8..a936bfd27 100644
--- a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Help/ru.html
+++ b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для указания параметров доступа к кластеру серверов.
Открывается из окна Блокировка работы пользователей по ссылке Включить возможность управления блокировкой регламентных заданий.
Параметры необходимы для выполнения различных административных действий с клиент-серверной информационной базой:
diff --git a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl
index b12a24823..004cd7c25 100644
--- a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl
+++ b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl
@@ -20,9 +20,7 @@
ПараметрыАдминистрирования = Параметры.ПараметрыАдминистрирования;
КонецЕсли;
- Если Не ТребуетсяВводПараметровАдминистрирования() Тогда
- Возврат;
- КонецЕсли;
+ ПроверитьНеобходимостьВводаПараметровАдминистрирования();
Если ДоступноИспользованиеРазделенныхДанных Тогда
@@ -68,6 +66,11 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если Не ТребуетсяВводПараметровАдминистрирования Тогда
+ Попытка
+ ПроверитьПараметрыАдминистрирования(ПараметрыАдминистрирования);
+ Исключение
+ Возврат; // Обработка не требуется. Форма будет открыта в штатном режиме.
+ КонецПопытки;
Закрыть(ПараметрыАдминистрирования);
КонецЕсли;
КонецПроцедуры
@@ -223,7 +226,7 @@
КонецПроцедуры
&НаСервере
-Функция ТребуетсяВводПараметровАдминистрирования()
+Процедура ПроверитьНеобходимостьВводаПараметровАдминистрирования()
ТребуетсяВводПараметровАдминистрирования = Истина;
@@ -264,9 +267,7 @@
КонецЕсли;
- Возврат ТребуетсяВводПараметровАдминистрирования;
-
-КонецФункции
+КонецПроцедуры
&НаКлиенте
Процедура ПроверитьПараметрыАдминистрированияФайловойБазы()
@@ -274,7 +275,10 @@
Если Параметры.ЗапрашиватьПараметрыАдминистрированияИБ Тогда
// В базовых версиях проверку подключения не осуществляем.
- Если СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента().ЭтоБазоваяВерсияКонфигурации Тогда
+ ПараметрыРаботыКлиента = СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента();
+
+ Если ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации
+ Или ПараметрыРаботыКлиента.ЭтоУчебнаяПлатформа Тогда
Возврат;
КонецЕсли;
diff --git a/SSL/src/CommonForms/ПараметрыПроксиСервера/Help/ru.html b/SSL/src/CommonForms/ПараметрыПроксиСервера/Help/ru.html
index 1d7853e7f..d48376508 100644
--- a/SSL/src/CommonForms/ПараметрыПроксиСервера/Help/ru.html
+++ b/SSL/src/CommonForms/ПараметрыПроксиСервера/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для настройки параметров прокси-сервера.
Программа предоставляет возможности для получения файлов из сети Интернет по протоколам HTTP, HTTPS, FTP и сохранения полученных файлов на клиенте, сервере или во временном хранилище.
При работе с программой для выполнения определенных операций (таких, как загрузка курсов валют, загрузка адресного классификатора, обмен данными через FTP-ресурс, обновление конфигурации с веб-сайта поставщика и т.п.) может потребоваться доступ к сети Интернет.
diff --git a/SSL/src/CommonForms/ПечатьДокументов/Form.form b/SSL/src/CommonForms/ПечатьДокументов/Form.form
index 7f01d5bb3..a46db0127 100644
--- a/SSL/src/CommonForms/ПечатьДокументов/Form.form
+++ b/SSL/src/CommonForms/ПечатьДокументов/Form.form
@@ -2112,6 +2112,7 @@
+ Ctrl+Shift+PStdPicture.PrintImmediately
@@ -2163,14 +2164,7 @@
Перейти к управлению макетами
diff --git a/SSL/src/CommonForms/ПечатьДокументов/Help/ru.html b/SSL/src/CommonForms/ПечатьДокументов/Help/ru.html
index 861e552d8..b3de6f1d3 100644
--- a/SSL/src/CommonForms/ПечатьДокументов/Help/ru.html
+++ b/SSL/src/CommonForms/ПечатьДокументов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для просмотра, редактирования и печати сформированных печатных форм, а также для отправки печатной формы по электронной почте и сохранения в файл.
Вызывается из документов и списков документов программы по команде Печать.
Предусмотрены следующие возможности:
diff --git a/SSL/src/CommonForms/ПечатьДокументов/Module.bsl b/SSL/src/CommonForms/ПечатьДокументов/Module.bsl
index f4a972501..b88ddcc55 100644
--- a/SSL/src/CommonForms/ПечатьДокументов/Module.bsl
+++ b/SSL/src/CommonForms/ПечатьДокументов/Module.bsl
@@ -11,6 +11,10 @@
Возврат;
КонецЕсли;
+ Если Не Пользователи.РолиДоступны("ИзменениеМакетовПечатныхФорм") Тогда
+ Элементы.КнопкаПерейтиКУправлениюМакетами.Видимость = Ложь;
+ КонецЕсли;
+
// Проверка входных параметров.
Если Не ЗначениеЗаполнено(Параметры.ИсточникДанных) Тогда
ОбщегоНазначенияКлиентСервер.Проверить(ТипЗнч(Параметры.ПараметрКоманды) = Тип("Массив") Или ОбщегоНазначения.ЗначениеСсылочногоТипа(Параметры.ПараметрКоманды),
@@ -938,6 +942,7 @@
&НаКлиентеНаСервереБезКонтекста
Функция УникальноеИмяФайла(ИмяФайла)
+
Файл = Новый Файл(ИмяФайла);
ИмяБезРасширения = Файл.ИмяБезРасширения;
Расширение = Файл.Расширение;
@@ -950,6 +955,7 @@
КонецЦикла;
Возврат Файл.ПолноеИмя;
+
КонецФункции
&НаСервере
@@ -1240,7 +1246,7 @@
Возврат ТабличныеДокументы;
КонецФункции
-// автосумма
+#Область Автосумма
&НаКлиенте
Процедура РассчитатьСуммуЯчеек()
@@ -1267,6 +1273,8 @@
#КонецОбласти
+#КонецОбласти
+
diff --git a/SSL/src/CommonForms/ПодтверждениеПароляУчетнойЗаписи/Help/ru.html b/SSL/src/CommonForms/ПодтверждениеПароляУчетнойЗаписи/Help/ru.html
index b237c1169..4763f7d58 100644
--- a/SSL/src/CommonForms/ПодтверждениеПароляУчетнойЗаписи/Help/ru.html
+++ b/SSL/src/CommonForms/ПодтверждениеПароляУчетнойЗаписи/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для ввода пароля учетной записи электронной почты. Открывается при отправке письма с учетных записей, в которых пароль не задан.
Ввод пароля и отправка письма
Для отправки письма введите Пароль и его Подтверждение;
diff --git a/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Help/ru.html b/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Help/ru.html
index 0501d5f97..fff0205be 100644
--- a/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Help/ru.html
+++ b/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Help/ru.html
@@ -1,3 +1,3 @@
-
+
Предназначена для повторного указания пути к исполняемому файлу 1С-Бухфон. Возникает в случае отсутствия файла по указанному пути.
Возможно, приложение было удалено или перемещено. Вы можете скачать его снова, воспользовавшись ссылкой скачать программу.
\ No newline at end of file
diff --git a/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Module.bsl b/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Module.bsl
index 7334bc435..b163da0fc 100644
--- a/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Module.bsl
+++ b/SSL/src/CommonForms/ПоискИсполняемогоФайла1СБухфон/Module.bsl
@@ -11,7 +11,7 @@
Процедура ПриОткрытии(Отказ)
Если НЕ Интеграция1СБухфонКлиент.ЭтоWindowsКлиент() Тогда
ПоказатьПредупреждение(,НСтр("ru = 'Для работы с приложением 1С-Бухфон необходима операционная система Microsoft Windows.'"));
- Отказ = Истина;
+ Отказ = Истина;
КонецЕсли;
КонецПроцедуры
@@ -21,10 +21,8 @@
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
- НовыйПутьКФайлу = Интеграция1СБухфонКлиент.ВыбратьФайл1СБухфон(ПутьКФайлу);
- Если НовыйПутьКФайлу <> "" Тогда
- ПутьКФайлу = НовыйПутьКФайлу;
- КонецЕсли;
+ Оповещение = Новый ОписаниеОповещения("ПутьКФайлуНачалоВыбораЗавершение", ЭтотОбъект);
+ Интеграция1СБухфонКлиент.ВыбратьФайл1СБухфон(Оповещение, ПутьКФайлу);
КонецПроцедуры
#КонецОбласти
@@ -45,8 +43,15 @@
#Область СлужебныеПроцедурыИФункции
+&НаКлиенте
+Процедура ПутьКФайлуНачалоВыбораЗавершение(НовыйПутьКФайлу, ДополнительныеПараметры) Экспорт
+ Если НовыйПутьКФайлу <> "" Тогда
+ ПутьКФайлу = НовыйПутьКФайлу;
+ КонецЕсли;
+КонецПроцедуры
+
&НаСервереБезКонтекста
-Процедура НовыйПутьКИсполняемомуФайлу(ИдентификаторКлиента, ПутьКФайлу)
+Процедура НовыйПутьКИсполняемомуФайлу(ИдентификаторКлиента, ПутьКФайлу)
Интеграция1СБухфон.СохранитьРасположениеИсполняемогоФайла1СБухфон(ИдентификаторКлиента, ПутьКФайлу);
КонецПроцедуры
diff --git a/SSL/src/CommonForms/ПраваДоступа/Help/ru.html b/SSL/src/CommonForms/ПраваДоступа/Help/ru.html
index 8703a9341..e152b76ec 100644
--- a/SSL/src/CommonForms/ПраваДоступа/Help/ru.html
+++ b/SSL/src/CommonForms/ПраваДоступа/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Открывается по команде Права доступа на панели навигации пользователя (внешнего пользователя).
Каждому пользователю, посредством профилей и групп доступа, может быть назначена одна или несколько ролей, которые в совокупности образуют его персональные настройки прав доступа.
diff --git a/SSL/src/CommonForms/ПраваДоступа/Module.bsl b/SSL/src/CommonForms/ПраваДоступа/Module.bsl
index 0fab88a17..5078846f1 100644
--- a/SSL/src/CommonForms/ПраваДоступа/Module.bsl
+++ b/SSL/src/CommonForms/ПраваДоступа/Module.bsl
@@ -240,7 +240,7 @@
ПарольПользователяСервиса);
Возврат;
Иначе
- ВключитьИсключитьИзГруппыЗавершение("", ДополнительныеПараметры);
+ ВключитьИсключитьИзГруппыЗавершение(Null, ДополнительныеПараметры);
КонецЕсли;
КонецПроцедуры
@@ -252,7 +252,9 @@
Возврат;
КонецЕсли;
- ПарольПользователяСервиса = НовыйПарольПользователяСервиса;
+ Если НовыйПарольПользователяСервиса <> Null Тогда
+ ПарольПользователяСервиса = НовыйПарольПользователяСервиса;
+ КонецЕсли;
ОписаниеОшибки = "";
@@ -305,34 +307,33 @@
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК ГруппаДоступа,
- | ГруппыДоступа.Ссылка.Наименование КАК Наименование,
- | ГруппыДоступа.Ссылка.Профиль.Наименование КАК ПрофильНаименование,
- | ГруппыДоступа.Ссылка.Описание КАК Описание,
- | ГруппыДоступа.Ссылка.Ответственный КАК Ответственный
+ | ГруппыДоступа.Наименование КАК Наименование,
+ | ГруппыДоступа.Профиль.Наименование КАК ПрофильНаименование,
+ | ГруппыДоступа.Описание КАК Описание,
+ | ГруппыДоступа.Ответственный КАК Ответственный
|ИЗ
- | (ВЫБРАТЬ РАЗЛИЧНЫЕ
- | ГруппыДоступа.Ссылка КАК Ссылка
- | ИЗ
- | Справочник.ГруппыДоступа КАК ГруппыДоступа
- | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ПользователиГруппДоступа
- | ПО (ПользователиГруппДоступа.Пользователь В
- | (ВЫБРАТЬ
- | &Пользователь
- |
- | ОБЪЕДИНИТЬ ВСЕ
- |
- | ВЫБРАТЬ
- | СоставыГруппПользователей.ГруппаПользователей
- | ИЗ
- | РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
- | ГДЕ
- | СоставыГруппПользователей.Пользователь = &Пользователь))
- | И ГруппыДоступа.Ссылка = ПользователиГруппДоступа.Ссылка
- | И (НЕ ГруппыДоступа.ПометкаУдаления)
- | И (НЕ ГруппыДоступа.Профиль.ПометкаУдаления)) КАК ГруппыДоступа
+ | Справочник.ГруппыДоступа КАК ГруппыДоступа
+ |ГДЕ
+ | НЕ ГруппыДоступа.ПометкаУдаления
+ | И НЕ ГруппыДоступа.Профиль.ПометкаУдаления
+ | И ИСТИНА В
+ | (ВЫБРАТЬ ПЕРВЫЕ 1
+ | ИСТИНА
+ | ИЗ
+ | Справочник.ГруппыДоступа.Пользователи КАК ПользователиГруппДоступа
+ | ГДЕ
+ | ПользователиГруппДоступа.Ссылка = ГруппыДоступа.Ссылка
+ | И НЕ(ПользователиГруппДоступа.Пользователь <> &Пользователь
+ | И НЕ ПользователиГруппДоступа.Пользователь В
+ | (ВЫБРАТЬ
+ | СоставыГруппПользователей.ГруппаПользователей
+ | ИЗ
+ | РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
+ | ГДЕ
+ | СоставыГруппПользователей.Пользователь = &Пользователь)))
|
|УПОРЯДОЧИТЬ ПО
- | ГруппыДоступа.Ссылка.Наименование";
+ | ГруппыДоступа.Наименование";
ВсеГруппыДоступа = Запрос.Выполнить().Выгрузить();
diff --git a/SSL/src/CommonForms/ПраваДоступаУпрощенно/Help/ru.html b/SSL/src/CommonForms/ПраваДоступаУпрощенно/Help/ru.html
index 34eb9f698..202a9321a 100644
--- a/SSL/src/CommonForms/ПраваДоступаУпрощенно/Help/ru.html
+++ b/SSL/src/CommonForms/ПраваДоступаУпрощенно/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для упрощенного режима настройки прав доступа.
Настройка прав доступа пользователей осуществляется с помощью профилей. Профиль определяет некоторую совокупность действий с данными программы, которые может выполнять пользователь. Как правило, профили соответствуют различным должностным обязанностям (или видам деятельности) пользователей программы. Пользователю могут быть назначены одновременно несколько профилей, которые в совокупности образуют его персональные настройки прав доступа.
Предназначен для просмотра и ввода значений дополнительных сведений. Ввод значений дополнительных сведений, как правило, осуществляется в отдельном окне, в отличие от дополнительных реквизитов.
diff --git a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl
index 83006a408..8b76788fb 100644
--- a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl
+++ b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl
@@ -8,6 +8,12 @@
Возврат;
КонецЕсли;
+ Если Не Пользователи.РолиДоступны("ИзменениеДополнительныхСведений") Тогда
+ Элементы.ФормаЗаписать.Видимость = Ложь;
+ Элементы.ФормаЗаписатьИЗакрыть.Видимость = Ложь;
+ Элементы.ИзменитьСоставДополнительныхСведений.Видимость = Ложь;
+ КонецЕсли;
+
Если Параметры.ПанельНавигацииФормы
И ПравоДоступа("Редактирование", Метаданные.РегистрыСведений.ДополнительныеСведения) Тогда
diff --git a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Help/ru.html b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Help/ru.html
index 08a5a96ef..31e7befc1 100644
--- a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Help/ru.html
+++ b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для редактирования табличного документа.
Для редактирования табличного документа или макета в печатной форме или табличном документе выполните команду Изменить макет меню Еще.
Важно: при редактировании макетов печатных форм необходимо иметь в виду, что изменение имен областей, а также параметров макета может привести к потере работоспособности печатной формы. Восстановление стандартной печатной формы выполняется в списке Макеты печатных форм.
diff --git a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl
index 4e084eab4..34e2fa08f 100644
--- a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl
+++ b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl
@@ -46,30 +46,13 @@
Процедура ПриОткрытии(Отказ)
Если Не ПустаяСтрока(Параметры.ПутьКФайлу) Тогда
- Файл = Новый Файл(Параметры.ПутьКФайлу);
- Если ПустаяСтрока(ИмяДокумента) Тогда
- ИмяДокумента = Файл.ИмяБезРасширения;
- КонецЕсли;
- РедактированиеЗапрещено = Файл.ПолучитьТолькоЧтение();
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииИнициализацииФайла", ЭтотОбъект);
+ Файл = Новый Файл();
+ Файл.НачатьИнициализацию(ОписаниеОповещения, Параметры.ПутьКФайлу);
+ Возврат;
КонецЕсли;
- Если ПустаяСтрока(ИмяДокумента) Тогда
- ИспользованныеИмена = Новый Массив;
- Оповестить("ЗапросИменРедактируемыхТабличныхДокументов", ИспользованныеИмена, ЭтотОбъект);
-
- Индекс = 1;
- Пока ИспользованныеИмена.Найти(ИмяНовогоДокумента() + Индекс) <> Неопределено Цикл
- Индекс = Индекс + 1;
- КонецЦикла;
-
- ИмяДокумента = ИмяНовогоДокумента() + Индекс;
- КонецЕсли;
-
- Элементы.ТабличныйДокумент.Редактирование = Элементы.ТабличныйДокумент.Редактирование Или Не ПустаяСтрока(Параметры.ПутьКФайлу) И Не РедактированиеЗапрещено;
-
- УстановитьЗаголовок();
- НастроитьПредставлениеКоманд();
- НастроитьОтображениеТабличногоДокумента();
+ УстановитьНачальныеНастройкиФормы();
КонецПроцедуры
@@ -98,9 +81,8 @@
&НаКлиенте
Процедура ПодтвердитьИЗакрыть(Результат = Неопределено, ДополнительныеПараметры = Неопределено) Экспорт
- Если ЗаписатьТабличныйДокумент() Тогда
- Закрыть();
- КонецЕсли;
+ ОписаниеОповещения = Новый ОписаниеОповещения("ЗакрытьФормуПослеЗаписиТабличногоДокумента", ЭтотОбъект);
+ ЗаписатьТабличныйДокумент(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
@@ -132,9 +114,8 @@
&НаКлиенте
Процедура ЗаписатьИЗакрыть(Команда)
- Если ЗаписатьТабличныйДокумент() Тогда
- Закрыть();
- КонецЕсли;
+ ОписаниеОповещения = Новый ОписаниеОповещения("ЗакрытьФормуПослеЗаписиТабличногоДокумента", ЭтотОбъект);
+ ЗаписатьТабличныйДокумент(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
@@ -351,23 +332,27 @@
КонецФункции
&НаКлиенте
-Функция ЗаписатьТабличныйДокумент()
+Процедура ЗакрытьФормуПослеЗаписиТабличногоДокумента(Закрывать, ДополнительныеПараметры) Экспорт
+ Если Закрывать Тогда
+ Закрыть();
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗаписатьТабличныйДокумент(ОбработчикЗавершения = Неопределено)
Если ЭтоНовый() Или РедактированиеЗапрещено Тогда
- ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
- ДиалогСохраненияФайла.ПолноеИмяФайла = ИмяДокумента;
- ДиалогСохраненияФайла.Фильтр = НСтр("ru = 'Табличный документ'") + " (*.mxl)|*.mxl";
- Если ДиалогСохраненияФайла.Выбрать() Тогда
- Параметры.ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;
- ИмяДокумента = Сред(ДиалогСохраненияФайла.ПолноеИмяФайла, СтрДлина(ДиалогСохраненияФайла.Каталог) + 1);
- Если Нрег(Прав(ИмяДокумента, 4)) = ".mxl" Тогда
- ИмяДокумента = Лев(ИмяДокумента, СтрДлина(ИмяДокумента) - 4);
- КонецЕсли;
- Иначе
- Возврат Ложь;
- КонецЕсли;
+ НачатьДиалогСохраненияФайла(ОбработчикЗавершения);
+ Возврат;
КонецЕсли;
+ ЗаписатьТабличныйДокументИмяФайлаВыбрано(ОбработчикЗавершения);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗаписатьТабличныйДокументИмяФайлаВыбрано(Знач ОбработчикЗавершения)
+
Если Не ПустаяСтрока(Параметры.ПутьКФайлу) Тогда
ТабличныйДокумент.Записать(Параметры.ПутьКФайлу);
РедактированиеЗапрещено = Ложь;
@@ -377,10 +362,67 @@
Модифицированность = Ложь;
УстановитьЗаголовок();
- Возврат Истина;
+ ВыполнитьОбработкуОповещения(ОбработчикЗавершения, Истина);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НачатьДиалогСохраненияФайла(Знач ОбработчикЗавершения)
+
+ Перем ДиалогСохраненияФайла, ОписаниеОповещения;
+
+ ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
+ ДиалогСохраненияФайла.ПолноеИмяФайла = ИмяДокумента;
+ ДиалогСохраненияФайла.Фильтр = НСтр("ru = 'Табличный документ'") + " (*.mxl)|*.mxl";
+
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииДиалогаВыбораФайла", ЭтотОбъект, ОбработчикЗавершения);
+ ДиалогСохраненияФайла.Показать(ОписаниеОповещения);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриЗавершенииДиалогаВыбораФайла(ВыбранныеФайлы, ОбработчикЗавершения) Экспорт
+
+ Если ВыбранныеФайлы = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ ПолноеИмяФайла = ВыбранныеФайлы[0];
+
+ Параметры.ПутьКФайлу = ПолноеИмяФайла;
+ ИмяДокумента = Сред(ПолноеИмяФайла, СтрДлина(ОписаниеФайла(ПолноеИмяФайла).Путь) + 1);
+ Если Нрег(Прав(ИмяДокумента, 4)) = ".mxl" Тогда
+ ИмяДокумента = Лев(ИмяДокумента, СтрДлина(ИмяДокумента) - 4);
+ КонецЕсли;
+
+ ЗаписатьТабличныйДокументИмяФайлаВыбрано(ОбработчикЗавершения);
+
+КонецПроцедуры
+
+&НаКлиенте
+Функция ОписаниеФайла(ПолноеИмя)
+
+ ПозицияРазделителя = СтроковыеФункцииКлиентСервер.НайтиСимволСКонца(ПолноеИмя, ПолучитьРазделительПути());
+
+ Имя = Сред(ПолноеИмя, ПозицияРазделителя + 1);
+ Путь = Лев(ПолноеИмя, ПозицияРазделителя);
+
+ ПозицияРасширения = СтроковыеФункцииКлиентСервер.НайтиСимволСКонца(Имя, ".");
+
+ ИмяБезРасширения = Лев(Имя, ПозицияРасширения - 1);
+ Расширение = Сред(Имя, ПозицияРасширения + 1);
+
+ Результат = Новый Структура;
+ Результат.Вставить("ПолноеИмя", ПолноеИмя);
+ Результат.Вставить("Имя", Имя);
+ Результат.Вставить("Путь", Путь);
+ Результат.Вставить("ИмяБезРасширения", ИмяБезРасширения);
+ Результат.Вставить("Расширение", Расширение);
+
+ Возврат Результат;
КонецФункции
-
+
&НаКлиенте
Функция ИмяНовогоДокумента()
Возврат НСтр("ru = 'Новый'");
@@ -433,4 +475,56 @@
ТабличныйДокумент = ЗагруженныйТабличныйДокумент;
КонецПроцедуры
+
+&НаКлиенте
+Процедура УстановитьНачальныеНастройкиФормы()
+
+ Если Не ПустаяСтрока(Параметры.ПутьКФайлу) И Не РедактированиеЗапрещено Тогда
+ Элементы.ТабличныйДокумент.Редактирование = Истина;
+ КонецЕсли;
+
+ УстановитьИмяДокумента();
+ УстановитьЗаголовок();
+ НастроитьПредставлениеКоманд();
+ НастроитьОтображениеТабличногоДокумента();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УстановитьИмяДокумента()
+
+ Если ПустаяСтрока(ИмяДокумента) Тогда
+ ИспользованныеИмена = Новый Массив;
+ Оповестить("ЗапросИменРедактируемыхТабличныхДокументов", ИспользованныеИмена, ЭтотОбъект);
+
+ Индекс = 1;
+ Пока ИспользованныеИмена.Найти(ИмяНовогоДокумента() + Индекс) <> Неопределено Цикл
+ Индекс = Индекс + 1;
+ КонецЦикла;
+
+ ИмяДокумента = ИмяНовогоДокумента() + Индекс;
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриЗавершенииИнициализацииФайла(Файл, ДополнительныеПараметры) Экспорт
+
+ Если ПустаяСтрока(ИмяДокумента) Тогда
+ ИмяДокумента = Файл.ИмяБезРасширения;
+ КонецЕсли;
+
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииПолученияТолькоЧтения", ЭтотОбъект);
+ Файл.НачатьПолучениеТолькоЧтения(ОписаниеОповещения);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриЗавершенииПолученияТолькоЧтения(ТолькоЧтение, ДополнительныеПараметры) Экспорт
+
+ РедактированиеЗапрещено = ТолькоЧтение;
+ УстановитьНачальныеНастройкиФормы();
+
+КонецПроцедуры
+
#КонецОбласти
diff --git a/SSL/src/CommonForms/Сертификат/Help/ru.html b/SSL/src/CommonForms/Сертификат/Help/ru.html
index 6d855c6ff..54a62ad6b 100644
--- a/SSL/src/CommonForms/Сертификат/Help/ru.html
+++ b/SSL/src/CommonForms/Сертификат/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для просмотра основных свойств сертификата ключа электронной подписи и шифрования.
Основные сведения о сертификате
Кому выдан - личные данные владельца сертификата;
diff --git a/SSL/src/CommonForms/Сертификат/Module.bsl b/SSL/src/CommonForms/Сертификат/Module.bsl
index cb1a29538..7d53d487d 100644
--- a/SSL/src/CommonForms/Сертификат/Module.bsl
+++ b/SSL/src/CommonForms/Сертификат/Module.bsl
@@ -74,21 +74,15 @@
&НаКлиенте
Процедура СохранитьВФайл(Команда)
- ЭлектроннаяПодписьКлиент.СохранитьСертификат(АдресСертификата);
+ ЭлектроннаяПодписьСлужебныйКлиент.СохранитьСертификат(, АдресСертификата);
КонецПроцедуры
&НаКлиенте
Процедура Проверить(Команда)
- ОписаниеОшибки = Неопределено;
- Если ЭлектроннаяПодписьКлиент.ПроверитьСертификат(, АдресСертификата, ОписаниеОшибки) Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'Сертификат действителен.'"));
-
- ИначеЕсли ОписаниеОшибки <> Неопределено Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'Сертификат недействителен по причине:'")
- + Символы.ПС + ОписаниеОшибки);
- КонецЕсли;
+ ЭлектроннаяПодписьКлиент.ПроверитьСертификат(Новый ОписаниеОповещения(
+ "ПроверитьЗавершение", ЭтотОбъект), АдресСертификата);
КонецПроцедуры
@@ -96,6 +90,20 @@
#Область СлужебныеПроцедурыИФункции
+// Продолжение процедуры Проверить.
+&НаКлиенте
+Процедура ПроверитьЗавершение(Результат, Неопределен) Экспорт
+
+ Если Результат = Истина Тогда
+ ПоказатьПредупреждение(, НСтр("ru = 'Сертификат действителен.'"));
+
+ ИначеЕсли Результат <> Неопределено Тогда
+ ПоказатьПредупреждение(, НСтр("ru = 'Сертификат недействителен по причине:'")
+ + Символы.ПС + Результат);
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаСервере
Процедура ЗаполнитьСвойстваСубъекта(Сертификат)
@@ -270,7 +278,7 @@
Если Выборка.Следующий() Тогда
ДанныеСертификата = Выборка.ДанныеСертификата.Получить();
Иначе
- Сертификат = ЭлектроннаяПодпись.ПолучитьСертификатПоОтпечатку(СсылкаОтпечаток, Ложь,, Ложь);
+ Сертификат = ЭлектроннаяПодписьСлужебный.ПолучитьСертификатПоОтпечатку(СсылкаОтпечаток, Ложь, Ложь);
Если Сертификат <> Неопределено Тогда
ДанныеСертификата = Сертификат.Выгрузить();
КонецЕсли;
diff --git a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Help/ru.html b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Help/ru.html
index b5aed361b..3ca8abe90 100644
--- a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Help/ru.html
+++ b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для указания параметров файловой или клиент-серверной базы при создании начального образа РИБ. При настройке синхронизации РИБ (внешние файлы) необходимо указать, где будет создан начальный образ РИБ. Если файлы хранятся в томах, также потребуется указать путь к файлу, в который будет записан архив (.zip) со всеми файлами в томах.
Открывается по команде Создать начальный образ из Помощника создания синхронизации данных при настройке синхронизации РИБ (внешние файлы). Также можно в списке Синхронизация данных с помощью кнопки открыть настройку синхронизации РИБ (внешние файлы), нажать кнопку Создание начального образа подчиненного узла распределенной информационной базы.
Параметры информационной базы
diff --git a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl
index c576c580c..35e41dca0 100644
--- a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl
+++ b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl
@@ -166,7 +166,23 @@
СтандартнаяОбработка = Ложь;
- Если Не ПодключитьРасширениеРаботыСФайлами() Тогда
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ИмяСвойства", ИмяСвойства);
+ ДополнительныеПараметры.Вставить("ИмяФайла", ИмяФайла);
+ ДополнительныеПараметры.Вставить("Фильтр", Фильтр);
+
+ ОповещениеПодключенияРасширенияРаботыСФайлами = Новый ОписаниеОповещения(
+ "ОбработчикСохраненияФайлаПослеПодключенияРасширенияРаботыСФайлами",
+ ЭтаФорма, ДополнительныеПараметры);
+
+ НачатьПодключениеРасширенияРаботыСФайлами(ОповещениеПодключенияРасширенияРаботыСФайлами);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикСохраненияФайлаПослеПодключенияРасширенияРаботыСФайлами(Подключено, ДополнительныеПараметры) Экспорт
+
+ Если Не Подключено Тогда
ФайловыеФункцииСлужебныйКлиент.ПоказатьПредупреждениеОНеобходимостиРасширенияРаботыСФайлами(Неопределено);
Возврат;
КонецЕсли;
@@ -176,12 +192,26 @@
Диалог.Заголовок = НСтр("ru = 'Выберите файл для сохранения'");
Диалог.МножественныйВыбор = Ложь;
Диалог.ПредварительныйПросмотр = Ложь;
- Диалог.Фильтр = Фильтр;
+ Диалог.Фильтр = ДополнительныеПараметры.Фильтр;
Диалог.ПолноеИмяФайла =
- ?(ЭтотОбъект[ИмяСвойства] = "", ИмяФайла, ЭтотОбъект[ИмяСвойства]);
+ ?(ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства] = "",
+ ДополнительныеПараметры.ИмяФайла,
+ ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства]);
- Если Диалог.Выбрать() Тогда
- ЭтотОбъект[ИмяСвойства] = Диалог.ПолноеИмяФайла;
+ ОписаниеОповещенияДиалогаВыбора = Новый ОписаниеОповещения(
+ "ОбработчикСохраненияФайлаПослеВыбораВДиалоге",
+ ЭтаФорма, ДополнительныеПараметры);
+ Диалог.Показать(ОписаниеОповещенияДиалогаВыбора);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикСохраненияФайлаПослеВыбораВДиалоге(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
+
+ Если ВыбранныеФайлы <> Неопределено
+ И ВыбранныеФайлы.Количество() = 1 Тогда
+
+ ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства] = ВыбранныеФайлы[0];
КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl b/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl
index 3299123c3..5ef2f17c0 100644
--- a/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl
+++ b/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl
@@ -22,10 +22,6 @@
#КонецОбласти
-#Область ОбработчикиСобытийЭлементовШапкиФормы
-
-#КонецОбласти
-
#Область ОбработчикиКомандФормы
&НаКлиенте
diff --git a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form
index a14601920..0fbd1b8d6 100644
--- a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form
+++ b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form
@@ -422,6 +422,10 @@
БольшеНеСпрашивать62
+
+ <key>ru</key>
+ <value>Больше не спрашивать (сохранять все)</value>
+ truetrue
@@ -431,6 +435,12 @@
БольшеНеСпрашиватьRight
+
+ ru
+ Включить режим сохранения всех подписей, который в дальнейшем можно изменить
+в настройках электронной подписи и шифрования на странице Дополнительно.
+
+ ButtonБольшеНеСпрашиватьExtendedTooltip71
@@ -740,7 +750,6 @@
ПредставлениеДанныхString
- AnyRef
Предназначена для сохранения печатной формы. Имеется возможность сохранить печатные формы в нужных форматах на компьютере или присоединить к документу.
С помощью переключателя выберите, как сохранить печатную форму:
Сохранить в папку на компьютер.
diff --git a/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl b/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl
index 3b4d00ac5..cab64a34d 100644
--- a/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl
+++ b/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl
@@ -23,15 +23,22 @@
// Место сохранения по умолчанию.
ВариантСохранения = "СохранитьВПапку";
- // Объект для присоединения по умолчанию.
- Если Элементы.ВыбранныйОбъект.СписокВыбора.Количество() > 0 Тогда
- ВыбранныйОбъект = Элементы.ВыбранныйОбъект.СписокВыбора[0].Значение;
- Иначе
- Элементы.ВариантСохранения.Видимость = Ложь;
+ // настройка видимости
+ ЭтоВебКлиент = ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент();
+ ЕстьВозможностьПрисоединения = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() > 0;
+ Элементы.ВыборМестаСохраненияФайла.Видимость = Не ЭтоВебКлиент Или ЕстьВозможностьПрисоединения;
+ Элементы.ВариантСохранения.Видимость = ЕстьВозможностьПрисоединения;
+ Если Не ЕстьВозможностьПрисоединения Тогда
Элементы.ПапкаДляСохраненияФайлов.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
КонецЕсли;
+ Элементы.ПапкаДляСохраненияФайлов.Видимость = Не ЭтоВебКлиент;
+ // Объект для присоединения по умолчанию.
+ Если ЕстьВозможностьПрисоединения Тогда
+ ВыбранныйОбъект = Элементы.ВыбранныйОбъект.СписокВыбора[0].Значение;
+ КонецЕсли;
Элементы.ВыбранныйОбъект.ТолькоПросмотр = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() = 1;
+
КонецПроцедуры
&НаСервере
@@ -135,7 +142,6 @@
Процедура УстановитьСтраницуМестаСохранения()
#Если ВебКлиент Тогда
- Элементы.ГруппаМестаСохранения.ТекущаяСтраница = Элементы.СтраницаПрисоединениеКОбъекту;
Элементы.ВыбранныйОбъект.Доступность = ВариантСохранения = "Присоединить";
#Иначе
Если ВариантСохранения = "Присоединить" Тогда
diff --git a/SSL/src/CommonForms/СтруктураПодчиненности/Help/ru.html b/SSL/src/CommonForms/СтруктураПодчиненности/Help/ru.html
index c607333c2..211c0b013 100644
--- a/SSL/src/CommonForms/СтруктураПодчиненности/Help/ru.html
+++ b/SSL/src/CommonForms/СтруктураПодчиненности/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для вывода родительских и подчиненных документов.
Формируется командой Структура подчиненности на панели навигации документа.
Отчет предоставляет оперативный и наглядный доступ ко всей цепочке взаимосвязанных с точки зрения бизнес-логики документов. Документы считаются взаимосвязанными, если один документ ссылается на другой. В программе взаимосвязь документов выглядит так: в одном документе (назовем его дочерним) в качестве какого-либо реквизита указан другой документ (назовем его родительским). Отчет позволяет из какого-либо одного документа увидеть всю цепочку взаимосвязанных с ним документов.
Также можно сопоставить и обновить адреса электронной почты, содержащиеся в письме, с контактами и их текущей контактной информацией в программе.
Открывается по ссылке Уточнить контакты во входящем электронном письме. Если контакты были сопоставлены автоматически, ссылка не выводится. В этом случае можно воспользоваться командой Уточнить контакты меню Еще.
Предназначен для просмотра файлов, которые хранятся в томе на диске.
В каждом томе файлы хранятся в подкаталогах. На каждую дату создания версии файла создается свой подкаталог. Все файлы хранятся с оригинальным именем и расширением, между ними добавляется номер версии, например, Приказ2.2.txt.
Список вызывается по команде Файлы в томе панели навигации Тома.
Позволяет заменить один или несколько элементов на выбранный элемент.
Такая возможность востребована при удалении элементов, например, т.к. для окончательного удаления элемента необходимо избавиться от ссылок на него.
Открывается по кнопке Заменить и удалить из списков программы. Также можно воспользоваться командой Заменить во всех местах использования из окна Удаление помеченных объектов.
diff --git a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ЗаменаЭлементов/Module.bsl b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ЗаменаЭлементов/Module.bsl
index ee2b7006f..12c25e866 100644
--- a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ЗаменаЭлементов/Module.bsl
+++ b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ЗаменаЭлементов/Module.bsl
@@ -5,15 +5,10 @@
// Может быть коллекцией элементов, обладающих полем "Ссылка".
//
-// Флаг подтверждения, используется при не модальном закрытии.
-&НаКлиенте
-Перем ПодтверждениеЗакрытияФормы;
-
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
УстановитьУсловноеОформление();
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
@@ -54,6 +49,18 @@
Элементы.Список.ИзменятьПорядокСтрок = Ложь;
Элементы.Список.ИзменятьСоставСтрок = Ложь;
+ СписокЗаменяемых = Новый СписокЗначений;
+ СписокЗаменяемых.ЗагрузитьЗначения(ЗаменяемыеСсылки.Выгрузить().ВыгрузитьКолонку("Ссылка"));
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
+ Список,
+ "Ссылка",
+ СписокЗаменяемых,
+ ВидСравненияКомпоновкиДанных.НеВСписке,
+ НСтр("ru = 'Не показывать заменяемые'"),
+ Истина,
+ РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный,
+ "5bf5cd06-c1fd-4bd3-94b9-4e9803e90fd5");
+
Если ОбщийВладелецЗаменяемыхСсылок <> Неопределено Тогда
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Владелец", ОбщийВладелецЗаменяемыхСсылок );
КонецЕсли;
@@ -71,7 +78,7 @@
Элементы.ПодсказкаВыбораЦелевогоЭлемента.Заголовок = НСтр("ru = 'Элемент для замены не выбран.'");
// Пошаговый мастер
- ИнициализироватьМастер(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
+ НастройкиПошаговогоМастера = ИнициализироватьМастер(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
// Добавляем шаги, зависящие от логики формы.
ИнициализироватьСценарийМастера();
@@ -93,13 +100,23 @@
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
-
- Если ПодтверждениеЗакрытияФормы <> Истина Тогда
- Оповещение = Новый ОписаниеОповещения("ЗакрытиеФормыЗавершение", ЭтотОбъект);
+
+ // Проверка задания.
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено
+ И НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Ложь Тогда
Отказ = Истина;
-
- Текст = НСтр("ru = 'Закрыть замену элементов?'");
- ПоказатьВопрос(Оповещение, Текст, РежимДиалогаВопрос.ДаНет);
+ ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриЗакрытии()
+
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ФоновоеЗаданиеОтменить();
КонецЕсли;
КонецПроцедуры
@@ -215,36 +232,6 @@
КонецПроцедуры
-// Общий обработчик подтверждения закрытия.
-&НаКлиенте
-Процедура ЗакрытиеФормыЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
- Если РезультатВопроса = КодВозвратаДиалога.Да Тогда
- ЗавершитьРаботуФормы();
- Иначе
- ПодтверждениеЗакрытияФормы = Неопределено;
- КонецЕсли;
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ЗавершитьРаботуФормы(ПоказатьОповещение = Ложь)
-
- ОтменитьДлительнуюОперациюМастера();
-
- Если ПоказатьОповещение <> Неопределено Тогда
- ПоказатьОповещениеПользователя( , ПолучитьНавигационнуюСсылку(ЦелевойЭлемент),
- СообщениеОЗавершении(), БиблиотекаКартинок.Информация32);
- СписокОбновленного = Новый Массив;
- Для Каждого Строка Из ЗаменяемыеСсылки Цикл
- СписокОбновленного.Добавить(Строка.Ссылка);
- КонецЦикла;
- ОповеститьОбУспешнойЗамене(СписокОбновленного);
- КонецЕсли;
-
- // Закрываем без дополнительных вопросов.
- ПодтверждениеЗакрытияФормы = Истина;
- Закрыть();
-КонецПроцедуры
-
&НаКлиентеНаСервереБезКонтекста
Процедура СформироватьЦелевойЭлементИПодсказку(Контекст)
@@ -348,45 +335,6 @@
КонецФункции
-&НаСервере
-Процедура ЗапуститьЗаменуСсылок()
-
- ЦелевойЭлементРезультат = ЦелевойЭлемент;
- ПолноеИмяМетода = "ПоискИУдалениеДублей.ЗаменитьСсылки";
-
- ПарыЗамен = Новый Соответствие;
- Для Каждого Строка Из ЗаменяемыеСсылки Цикл
- ПарыЗамен.Вставить(Строка.Ссылка, ЦелевойЭлемент);
- КонецЦикла;
-
- ПараметрыЗамены = Новый Структура;
- ПараметрыЗамены.Вставить("СпособУдаления", ТекущийВариантУдаления);
- ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Истина);
-
- ПараметрыМетода = Новый Структура;
- ПараметрыМетода.Вставить("ПарыЗамен", ПарыЗамен);
- ПараметрыМетода.Вставить("Параметры", ПараметрыЗамены);
-
- ЗапуститьДлительнуюОперациюМастера(ПолноеИмяМетода, ПараметрыМетода);
-
-КонецПроцедуры
-
-&НаСервере
-Функция ПроверитьСостояниеИОбработатьЗаменуСсылок()
-
- ПроверитьСостояниеДлительнойОперации();
-
- Результат = Неопределено;
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено И НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
- Результат = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
- Результат = Не ЗаполнитьНеудачныеЗамены(Результат);
- КонецЕсли;
-
- Возврат Новый Структура("Завершено,ИнформацияОбОшибке,Результат",
- НастройкиПошаговогоМастера.ЗаданиеВыполнено, НастройкиПошаговогоМастера.ИнформацияОбОшибке, Результат);
-
-КонецФункции
-
&НаСервере
Функция ЗаполнитьНеудачныеЗамены(Знач РезультатыЗамены)
// РезультатыЗамены - таблица с колонками Ссылка, ОбъектОшибки, ТипОшибки, ТекстОшибки.
@@ -565,11 +513,21 @@
КонецЕсли;
ИмяТаблицы = ОсновныеМетаданные.ПолноеИмя();
- Запрос = Новый Запрос("
- |ВЫБРАТЬ Ссылка КАК Ссылка" + ДополнительныеПоля + " ПОМЕСТИТЬ ЗаменяемыеСсылки
- |ИЗ " + ИмяТаблицы + " ГДЕ Ссылка В (&НаборСсылок)
- |ИНДЕКСИРОВАТЬ ПО Владелец, ЭтоГруппа
+ Запрос = Новый Запрос(
+ "ВЫБРАТЬ
+ |Ссылка КАК Ссылка
+ |" + ДополнительныеПоля + "
+ |ПОМЕСТИТЬ ЗаменяемыеСсылки
+ |ИЗ
+ | " + ИмяТаблицы + "
+ |ГДЕ
+ | Ссылка В (&НаборСсылок)
+ |ИНДЕКСИРОВАТЬ ПО
+ | Владелец,
+ | ЭтоГруппа
|;
+ |
+ |////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Владелец) КАК КоличествоВладельцев,
| МИНИМУМ(Владелец) КАК ОбщийВладелец,
@@ -578,18 +536,24 @@
|ИЗ
| ЗаменяемыеСсылки
|;
+ |
+ |////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| ЦелеваяТаблица.Ссылка
|ИЗ
| " + ИмяТаблицы + " КАК ЦелеваяТаблица
- |ЛЕВОЕ СОЕДИНЕНИЕ ЗаменяемыеСсылки ПО ЗаменяемыеСсылки.Ссылка = ЦелеваяТаблица.Ссылка
- |ГДЕ ЗаменяемыеСсылки.Ссылка IS NULL");
+ | ЛЕВОЕ СОЕДИНЕНИЕ ЗаменяемыеСсылки КАК ЗаменяемыеСсылки
+ | ПО ЦелеваяТаблица.Ссылка = ЗаменяемыеСсылки.Ссылка
+ | И ЦелеваяТаблица.Владелец = ЗаменяемыеСсылки.Владелец
+ |ГДЕ
+ | ЗаменяемыеСсылки.Ссылка ЕСТЬ NULL
+ | И НЕ ЦелеваяТаблица.ЭтоГруппа");
- Если ЕстьВладельцы Тогда
- Запрос.Текст = Запрос.Текст + " И ЦелеваяТаблица.Владелец = ЗаменяемыеСсылки.Владелец";
+ Если Не ЕстьВладельцы Тогда
+ Запрос.Текст = СтрЗаменить(Запрос.Текст, "И ЦелеваяТаблица.Владелец = ЗаменяемыеСсылки.Владелец", "");
КонецЕсли;
- Если ЕстьГруппы Тогда
- Запрос.Текст = Запрос.Текст + " И НЕ ЦелеваяТаблица.ЭтоГруппа";
+ Если Не ЕстьГруппы Тогда
+ Запрос.Текст = СтрЗаменить(Запрос.Текст, "И НЕ ЦелеваяТаблица.ЭтоГруппа", "");
КонецЕсли;
Запрос.УстановитьПараметр("НаборСсылок", МассивСсылок);
@@ -685,9 +649,6 @@
ДействиеШагаМастера("ПередДействиемНазад", "ШагПовторЗаменыПередДействиемНазад",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагПовторЗаменыПередДействиемОтмена")))),
КнопкиМастера);
-
- // Вариант завершения работы - или демонстрацией страницы или всплывающим сообщением и закрытием.
- УстановитьПараметрПользователяМастера(ЭтотОбъект, "СообщатьОбУспехеВсплывающимОкном", Истина);
КонецПроцедуры
&НаКлиенте
@@ -743,61 +704,27 @@
&НаКлиенте
Процедура ШагВыборЦелевогоЭлементаПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- // Запрос подтверждения на отмену.
- ТекстВопроса = НСтр("ru = 'Отменить замену элементов и закрыть?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
-
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
+ Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура ШагЗаменаПриАктивации(Знач Страница, Знач ДополнительныеПараметры) Экспорт
// Стартуем длительную обработку по замене.
- ЗапуститьЗаменуСсылок();
+ ФоновоеЗаданиеЗапустить();
КонецПроцедуры
&НаКлиенте
Процедура ШагЗаменаПриОбработкеОжидания(Прекратить, Знач ДополнительныеПараметры) Экспорт
- // Ожидаем завершения замены ссылок.
- СостояниеОперации = ПроверитьСостояниеИОбработатьЗаменуСсылок();
- Если Не СостояниеОперации.Завершено Тогда
- Возврат;
- КонецЕсли;
-
- Если СостояниеОперации.ИнформацияОбОшибке = Неопределено Тогда
- // Выполнено успешно
- Если СостояниеОперации.Результат = Истина Тогда
- // Успешно заменили все элементы.
- Если Истина = ПрочитатьПараметрПользователяМастера(ЭтотОбъект, "СообщатьОбУспехеВсплывающимОкном") Тогда
- ЗавершитьРаботуФормы(Истина);
- Иначе
- // Переходим на страницу завершения.
- ШагМастера("Далее");
- КонецЕсли;
-
- Иначе
- // Остались необработанные, переходим на попытку повтора.
- ПерейтиНаШагМастера(Элементы.ШагПовторЗамены, Истина);
- КонецЕсли
- Иначе
- // Фоновое задание завершено с ошибкой.
+ Если ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Ложь) Тогда
Прекратить = Истина;
- ПоказатьПредупреждение(, СостояниеОперации.ИнформацияОбОшибке);
- ПерейтиНаШагМастера(Элементы.ШагВыборЦелевогоЭлемента);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ШагЗаменаПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- // Запрос подтверждения на отмену.
- ТекстВопроса = НСтр("ru = 'Прервать процесс замены и закрыть?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
-
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
КонецПроцедуры
&НаКлиенте
@@ -818,9 +745,7 @@
&НаКлиенте
Процедура ШагУспешногоЗавершенияПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
&НаКлиенте
@@ -847,9 +772,7 @@
&НаКлиенте
Процедура ШагПовторЗаменыПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
// Возвращает список успешно замененных ссылок, тех которых нет в НеудачныеЗамены.
@@ -875,18 +798,6 @@
Возврат Результат;
КонецФункции
-// Общий обработчик немодального продолжения отмены с закрытием.
-&НаКлиенте
-Процедура ЗавершениеОтменыИЗакрытиеФормы(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
- Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
- // Подтверждаем продолжение процесса.
- ЗавершитьШагМастера(ДополнительныеПараметры.ПараметрыШага);
- Возврат;
- КонецЕсли;
-
- ЗавершитьРаботуФормы();
-КонецПроцедуры
-
&НаКлиенте
Процедура ПодтверждениеВыбораЦелевогоЭлемента(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
@@ -916,44 +827,44 @@
КонецПроцедуры
-// Инициализирует структуры мастера.
-//
-// Параметры:
-// ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
-// КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
-// КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
-// КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
-//
&НаСервере
-Процедура ИнициализироватьМастер(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
+Функция ИнициализироватьМастер(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
+ // Инициализирует структуры мастера.
+ //
+ // Параметры:
+ // ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
+ // КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
+ // КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
+ // КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
- НастройкиМастера = Новый Структура;
+ Результат = Новый Структура;
- НастройкиМастера.Вставить("Шаги", Новый Массив);
- НастройкиМастера.Вставить("НомерТекущегоШага", 0);
- НастройкиМастера.Вставить("СтраницаСтарта", Неопределено);
+ Результат.Вставить("Шаги", Новый Массив);
+ Результат.Вставить("НомерТекущегоШага", 0);
+ Результат.Вставить("СтраницаСтарта", Неопределено);
// Идентификаторы частей интерфейса.
- НастройкиМастера.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
- НастройкиМастера.Вставить("КнопкаДалее", КнопкаДалее.Имя);
- НастройкиМастера.Вставить("КнопкаНазад", КнопкаНазад.Имя);
- НастройкиМастера.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
+ Результат.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
+ Результат.Вставить("КнопкаДалее", КнопкаДалее.Имя);
+ Результат.Вставить("КнопкаНазад", КнопкаНазад.Имя);
+ Результат.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
// Таймаут вызова обработчика
- НастройкиМастера.Вставить("ТаймаутОжиданияДлительнойОперации",
+ Результат.Вставить("ТаймаутОжиданияДлительнойОперации",
?( ПолучитьСкоростьКлиентскогоСоединения() = СкоростьКлиентскогоСоединения.Низкая, 4, 2) );
-
+
// Для обработки длительных операций.
- НастройкиМастера.Вставить("ИдентификаторФоновогоЗадания");
- НастройкиМастера.Вставить("АдресРезультатаФоновогоЗадания");
- НастройкиМастера.Вставить("ИнформацияОбОшибке");
- НастройкиМастера.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("ИдентификаторФоновогоЗадания");
+ Результат.Вставить("АдресРезультатаФоновогоЗадания");
+ Результат.Вставить("ИнформацияОбОшибке");
+ Результат.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("ЕстьПодтверждениеОтменыЗадания", Ложь);
// Для хранения пользовательских параметров.
- НастройкиМастера.Вставить("ПользовательскиеПараметры", Новый Соответствие);
+ Результат.Вставить("ПользовательскиеПараметры", Новый Соответствие);
- НастройкиПошаговогоМастера = НастройкиМастера;
-КонецПроцедуры
+ Возврат Результат;
+КонецФункции
// Добавляет шаг мастера. Переходы между страницами будут происходить согласно порядку добавления.
//
@@ -1004,7 +915,7 @@
// Заголовок = "Отмена", Доступность = Истина, Видимость = Истина, КнопкаПоУмолчанию = Ложь;
//
// Для составления параметров рекомендуется использовать вспомогательные методы "ДобавитьШагМастера",
-// "ДействиеШагаМастера", "КнопкаШагаМастера".
+// "ДействиеШагаМастера", "КнопкиМастера".
//
&НаСервере
Процедура ДобавитьШагМастера(Знач Страница, Знач Действия, Знач Кнопки)
@@ -1104,22 +1015,6 @@
Возврат Результат;
КонецФункции
-// Читает пользовательский параметр мастера.
-&НаКлиентеНаСервереБезКонтекста
-Функция ПрочитатьПараметрПользователяМастера(Форма, Знач ИмяПараметраМастера)
-
- Возврат Форма.НастройкиПошаговогоМастера.ПользовательскиеПараметры[ИмяПараметраМастера];
-
-КонецФункции
-
-// Устанавливает пользовательский параметр мастера.
-&НаКлиентеНаСервереБезКонтекста
-Функция УстановитьПараметрПользователяМастера(Форма, Знач ИмяПараметраМастера, Знач ЗначениеПараметраМастера)
-
- Форма.НастройкиПошаговогоМастера.ПользовательскиеПараметры.Вставить(ИмяПараметраМастера, ЗначениеПараметраМастера);
-
-КонецФункции
-
// Устанавливает начальную страницу для первого запуска мастера.
//
// Параметры:
@@ -1137,15 +1032,13 @@
//
&НаКлиенте
Процедура ЗапуститьРаботуМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- Если НастройкиМастера.СтраницаСтарта = Неопределено Тогда
+ Если НастройкиПошаговогоМастера.СтраницаСтарта = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Перед запуском мастера должна быть установлена начальная страница.'");
- ИначеЕсли НастройкиМастера.СтраницаСтарта = -1 Тогда
+ ИначеЕсли НастройкиПошаговогоМастера.СтраницаСтарта = -1 Тогда
// Разогрев. Проверяем наличие обработчиков действий у всех шагов.
ВозможныеДействия = Новый Структура("ПриАктивации, ПередДействиемДалее, ПередДействиемНазад, ПередДействиемОтмена, ПриОбработкеОжидания");
- Для Каждого ОписаниеШага Из НастройкиМастера.Шаги Цикл
+ Для Каждого ОписаниеШага Из НастройкиПошаговогоМастера.Шаги Цикл
Для Каждого КлючЗначение Из ВозможныеДействия Цикл
ИмяДействия = КлючЗначение.Ключ;
ИмяОбработчика = ОписаниеШага[ИмяДействия];
@@ -1166,15 +1059,15 @@
КонецЦикла;
// Фактический запуск
- ПерейтиНаШагМастера(НастройкиМастера.НомерТекущегоШага, Истина);
+ ПерейтиНаШагМастера(НастройкиПошаговогоМастера.НомерТекущегоШага, Истина);
Иначе
// По умолчанию все отключено
- Элементы[НастройкиМастера.КнопкаДалее].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаНазад].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаОтмена].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаДалее].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаНазад].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаОтмена].Видимость = Ложь;
// Отложенный запуск
- НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиМастера.СтраницаСтарта;
+ НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиПошаговогоМастера.СтраницаСтарта;
НастройкиПошаговогоМастера.СтраницаСтарта = -1;
ПодключитьОбработчикОжидания("ЗапуститьРаботуМастера", 0.1, Истина);
КонецЕсли;
@@ -1187,8 +1080,6 @@
//
&НаКлиенте
Процедура ШагМастера(Знач КодКоманды)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
Если КодКоманды = "Далее" Тогда
Направление = 1;
ИначеЕсли КодКоманды = "Назад" Тогда
@@ -1198,8 +1089,8 @@
Иначе
ВызватьИсключение НСтр("ru = 'Некорректная команда шага помощника'");
КонецЕсли;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -1209,13 +1100,10 @@
// Отрабатываем уход с текущей страницы.
Если Направление = 1 Тогда
Действие = ОписаниеШага.ПередДействиемДалее;
-
ИначеЕсли Направление = -1 Тогда
Действие = ОписаниеШага.ПередДействиемНазад;
-
Иначе
Действие = ОписаниеШага.ПередДействиемОтмена;
-
КонецЕсли;
Если ПустаяСтрока(Действие) Тогда
@@ -1234,8 +1122,6 @@
//
&НаКлиенте
Процедура ПерейтиНаШагМастера(Знач ИдентификаторШага, Знач ИнициироватьСобытия = Ложь)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
СледующийШаг = НомерШагаМастераПоИдентификатору(ИдентификаторШага);
Если СледующийШаг = Неопределено Тогда
Ошибка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -1245,7 +1131,7 @@
ВызватьИсключение Ошибка;
КонецЕсли;
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -1263,10 +1149,8 @@
//
&НаКлиенте
Процедура ЗавершитьШагМастера(Знач ПараметрыШага)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- СледующийШаг = НастройкиМастера.НомерТекущегоШага + ПараметрыШага;
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ СледующийШаг = НастройкиПошаговогоМастера.НомерТекущегоШага + ПараметрыШага;
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
Если ПараметрыШага = 0 Тогда
// Подтверждение отмены - ничего не делаем.
@@ -1287,15 +1171,13 @@
&НаКлиенте
Процедура ШагМастераЗавершениеБезусловно(Знач СледующийШаг, Знач ИнициироватьСобытия = Истина)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[СледующийШаг];
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[СледующийШаг];
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
// Переключаем на новую страницу.
- Элементы[НастройкиМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
+ Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
// Обход особенности платформы.
- ГруппаСтраницМастера = Элементы[НастройкиМастера.ГруппаСтраниц];
+ ГруппаСтраницМастера = Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц];
НоваяТекущаяСтраница = Элементы[ОписаниеШага.Страница];
ВидГруппыСтраница = ВидГруппыФормы.Страница;
ТипГруппаФормы = Тип("ГруппаФормы");
@@ -1306,9 +1188,9 @@
КонецЦикла;
// Обновляем кнопки
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
// Успешно перешли
НастройкиПошаговогоМастера.НомерТекущегоШага = СледующийШаг;
@@ -1335,9 +1217,7 @@
&НаКлиенте
Процедура ОбработкаАктивацииСтраницыМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Если Не ПустаяСтрока(ОписаниеШага.ПриАктивации) Тогда
Оповещение = Новый ОписаниеОповещения(ОписаниеШага.ПриАктивации, ЭтотОбъект);
ВыполнитьОбработкуОповещения(Оповещение, Элементы[ОписаниеШага.Страница]);
@@ -1351,34 +1231,27 @@
КонецПроцедуры
// Может быть номер шага или группа-страница, или ее идентификатор.
-//
&НаКлиенте
Функция НомерШагаМастераПоИдентификатору(Знач ИдентификаторШага)
- НастройкиМастера = НастройкиПошаговогоМастера;
- НомерШага = Неопределено;
-
ТипПараметра = ТипЗнч(ИдентификаторШага);
Если ТипПараметра = Тип("Число") Тогда
- НомерШага = ИдентификаторШага;
- Иначе
- ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
- Для НомерШага=0 По НастройкиМастера.Шаги.ВГраница() Цикл
- Если НастройкиМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
- НомерШага = НомерШага;
- Прервать;
- КонецЕсли;
- КонецЦикла;
+ Возврат ИдентификаторШага;
КонецЕсли;
- Возврат НомерШага;
+ ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
+ Для НомерШага=0 По НастройкиПошаговогоМастера.Шаги.ВГраница() Цикл
+ Если НастройкиПошаговогоМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
+ Возврат НомерШага;
+ КонецЕсли;
+ КонецЦикла;
+
+ ВызватьИсключение СтрЗаменить(НСтр("ru = 'Не найден шаг ""%1"".'"), "%1", ИмяПоиска);
КонецФункции
// Возвращает флаг отмены
&НаКлиенте
Функция ОбработкаОжиданияСтраницыМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Действие = ОписаниеШага.ПриОбработкеОжидания;
Если ПустаяСтрока(Действие) Тогда
Возврат Ложь;
@@ -1391,83 +1264,180 @@
Продолжать = Не Прекратить;
Если Продолжать Тогда
- ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиМастера.ТаймаутОжиданияДлительнойОперации, Истина);
+ ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиПошаговогоМастера.ТаймаутОжиданияДлительнойОперации, Истина);
КонецЕсли;
Возврат Продолжать;
КонецФункции
-&НаСервере
-Функция ЗапуститьДлительнуюОперациюМастера(Знач ИмяМетода, Знач ПараметрыМетода)
+&НаКлиенте
+Процедура ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы(Ответ, ПараметрыВыполнения) Экспорт
+ Если Ответ = КодВозвратаДиалога.Прервать Тогда
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
+ Иначе
+ ОбработкаОжиданияСтраницыМастера();
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения()
+ Если Не ФоновоеЗаданиеЗагрузитьНаКлиенте(Истина, Ложь) Тогда
+ НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Истина;
+ Закрыть();
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Функция ФоновоеЗаданиеЗагрузитьНаКлиенте(ПрерватьЕслиНеВыполнено, ПоказатьДиалогПередЗакрытием)
- // Отменяем возможно незавершенное предыдущее.
- ОтменитьДлительнуюОперациюМастера();
+ ОтключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера");
- Попытка
- Задание = ДлительныеОперации.ЗапуститьВыполнениеВФоне(УникальныйИдентификатор, ИмяМетода, ПараметрыМетода);
- Исключение
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
- КонецПопытки;
-
- Если Задание <> Неопределено Тогда
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Задание.АдресХранилища;
- Если Задание.ЗаданиеВыполнено Тогда
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- Иначе
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.ИдентификаторЗадания;
+ ИнформацияОЗадании = ФоновоеЗаданиеЗагрузитьРезультат(ПрерватьЕслиНеВыполнено);
+ Если Не ИнформацияОЗадании.Завершено Тогда
+ Если ПоказатьДиалогПередЗакрытием Тогда
+ Обработчик = Новый ОписаниеОповещения("ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы", ЭтотОбъект);
+ ТекстВопроса = НСтр("ru = 'Прервать замену элементов и закрыть форму?'");
+
+ Кнопки = Новый СписокЗначений;
+ Кнопки.Добавить(КодВозвратаДиалога.Прервать, НСтр("ru = 'Прервать'"));
+ Кнопки.Добавить(КодВозвратаДиалога.Нет, НСтр("ru = 'Не прерывать'"));
+
+ ПоказатьВопрос(Обработчик, ТекстВопроса, Кнопки, , КодВозвратаДиалога.Нет);
КонецЕсли;
+ Возврат Ложь;
КонецЕсли;
+ Если ИнформацияОЗадании.ИнформацияОбОшибке = Неопределено Тогда
+ Если ИнформацияОЗадании.Результат = Истина Тогда
+ // Полностью успешно - закрыть форму и вывести оповещение.
+ ПоказатьОповещениеПользователя(,
+ ПолучитьНавигационнуюСсылку(ЦелевойЭлемент),
+ СообщениеОЗавершении(),
+ БиблиотекаКартинок.Информация32);
+ СписокОбновленного = Новый Массив;
+ Для Каждого Строка Из ЗаменяемыеСсылки Цикл
+ СписокОбновленного.Добавить(Строка.Ссылка);
+ КонецЦикла;
+ ОповеститьОбУспешнойЗамене(СписокОбновленного);
+ // Закрываем форму.
+ Закрыть();
+ Иначе
+ // Частично успешно - вывести расшифровку.
+ ПерейтиНаШагМастера(Элементы.ШагПовторЗамены, Истина);
+ Активизировать();
+ КонецЕсли
+ Иначе
+ // Фоновое задание завершено с ошибкой.
+ ПоказатьПредупреждение(, ИнформацияОЗадании.ИнформацияОбОшибке);
+ ПерейтиНаШагМастера(Элементы.ШагВыборЦелевогоЭлемента);
+ Активизировать();
+ КонецЕсли;
+
+ Возврат Истина;
КонецФункции
&НаСервере
-Процедура ПроверитьСостояниеДлительнойОперации()
+Функция ФоновоеЗаданиеЗапустить()
+ // Отмена предыдущего задания.
+ ФоновоеЗаданиеОтменить();
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- Возврат;
+ // Определение параметров запуска.
+ ЦелевойЭлементРезультат = ЦелевойЭлемент;
+
+ ПарыЗамен = Новый Соответствие;
+ Для Каждого Строка Из ЗаменяемыеСсылки Цикл
+ ПарыЗамен.Вставить(Строка.Ссылка, ЦелевойЭлемент);
+ КонецЦикла;
+
+ ПараметрыЗамены = Новый Структура;
+ ПараметрыЗамены.Вставить("СпособУдаления", ТекущийВариантУдаления);
+ ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Истина);
+
+ ПараметрыМетода = Новый Структура;
+ ПараметрыМетода.Вставить("ПарыЗамен", ПарыЗамен);
+ ПараметрыМетода.Вставить("Параметры", ПараметрыЗамены);
+
+ // Запуск.
+ ИнформацияОбОшибке = Неопределено;
+ Попытка
+ Задание = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
+ УникальныйИдентификатор,
+ "ПоискИУдалениеДублей.ЗаменитьСсылки",
+ ПараметрыМетода,
+ НСтр("ru = 'Поиск и удаление дублей: Замена ссылок'"));
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ Возврат Ложь;
КонецЕсли;
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
- Если Задание <> Неопределено Тогда
- Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
- КонецЕсли;
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
- // Текущие сообщения фонового задания.
- НакопленныеСообщения = Задание.ПолучитьСообщенияПользователю(Истина);
- Если НакопленныеСообщения <> Неопределено Тогда
- Для Каждого Сообщение Из НакопленныеСообщения Цикл
- Сообщение.Сообщить();
- КонецЦикла;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Задание.АдресХранилища;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.ИдентификаторЗадания;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.ЗаданиеВыполнено;
+
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Возврат Истина;
+КонецФункции
+
+&НаСервере
+Функция ФоновоеЗаданиеЗагрузитьРезультат(Знач ПрерватьЕслиНеВыполнено = Ложь)
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Иначе
+ Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ Если Задание <> Неопределено Тогда
+ Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ // Текущие сообщения фонового задания.
+ НакопленныеСообщения = Задание.ПолучитьСообщенияПользователю(Истина);
+ Если НакопленныеСообщения <> Неопределено Тогда
+ Для Каждого Сообщение Из НакопленныеСообщения Цикл
+ Сообщение.Сообщить();
+ КонецЦикла;
+ КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
-КонецПроцедуры
-
-// Отменяет текущую длительную операцию.
-&НаСервере
-Процедура ОтменитьДлительнуюОперациюМастера()
-
- Если НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
- Если Задание <> Неопределено Тогда
- Задание.Отменить();
+ Значение = Неопределено;
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Если НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
+ Значение = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
+ Значение = Не ЗаполнитьНеудачныеЗамены(Значение);
КонецЕсли;
+ ИначеЕсли ПрерватьЕслиНеВыполнено Тогда
+ ФоновоеЗаданиеОтменить();
КонецЕсли;
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь;
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ ИнформацияОЗадании = Новый Структура;
+ ИнформацияОЗадании.Вставить("Завершено", НастройкиПошаговогоМастера.ЗаданиеВыполнено);
+ ИнформацияОЗадании.Вставить("ИнформацияОбОшибке", НастройкиПошаговогоМастера.ИнформацияОбОшибке);
+ ИнформацияОЗадании.Вставить("Результат", Значение);
+ Возврат ИнформацияОЗадании;
+КонецФункции
+
+&НаСервере
+Процедура ФоновоеЗаданиеОтменить()
+ Если НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ДлительныеОперации.ОтменитьВыполнениеЗадания(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
КонецПроцедуры
#КонецОбласти
diff --git a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Form.form b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Form.form
index 907abc2a6..c09c7099d 100644
--- a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Form.form
+++ b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Form.form
@@ -2502,6 +2502,10 @@
OnCreateAtServerПриСозданииНаСервере
+
+ OnClose
+ ПриЗакрытии
+ AbortCancelIgnore
diff --git a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Help/ru.html b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Help/ru.html
index 79b43d371..0c8bf19d8 100644
--- a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Help/ru.html
+++ b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначено для устранения дублирующихся данных.
Открывается из списков программы по команде Еще - Объединить выделенные. Объединить можно несколько элементов, предварительно выделив их.
В списке элементов для объединения выводится:
diff --git a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Module.bsl b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Module.bsl
index 1985900e0..f9a66bded 100644
--- a/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Module.bsl
+++ b/SSL/src/DataProcessors/ЗаменаИОбъединениеЭлементов/Forms/ОбъединениеЭлементов/Module.bsl
@@ -5,15 +5,10 @@
// Может быть коллекцией элементов, обладающих полем "Ссылка".
//
-// Флаг подтверждения, используется при не модальном закрытии.
-&НаКлиенте
-Перем ПодтверждениеЗакрытияФормы;
-
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
УстановитьУсловноеОформление();
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
@@ -33,7 +28,7 @@
СобытиеОповещенияОЗамене = Обработки.ЗаменаИОбъединениеЭлементов.СобытиеОповещенияОЗамене();
ТекущийВариантУдаления = "Пометка";
- ИнициализироватьМастер(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
+ НастройкиПошаговогоМастера = ИнициализироватьМастер(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
// Добавляем шаги, зависящие от логики формы.
ИнициализироватьСценарийМастера();
@@ -55,14 +50,26 @@
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
- // Проверяем клиентскую переменную.
- Если ПодтверждениеЗакрытияФормы<>Истина Тогда
- Оповещение = Новый ОписаниеОповещения("ЗакрытиеФормыЗавершение", ЭтотОбъект);
+
+ // Проверка задания.
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ЗаменитьСсылки" // Важно показывать только результат замены.
+ И НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено
+ И НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Ложь Тогда
Отказ = Истина;
-
- Текст = НСтр("ru = 'Закрыть объединение элементов?'");
- ПоказатьВопрос(Оповещение, Текст, РежимДиалогаВопрос.ДаНет);
+ ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Истина);
КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриЗакрытии()
+
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ФоновоеЗаданиеОтменить();
+ КонецЕсли;
+
КонецПроцедуры
#КонецОбласти
@@ -276,115 +283,61 @@
&НаСервере
Процедура УстановитьУсловноеОформление()
-
- УсловноеОформление.Элементы.Очистить();
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияОсновной.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.Ссылка");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно;
- ОтборЭлемента.ПравоеЗначение = Новый ПолеКомпоновкиДанных("ОсновнойЭлемент");
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь);
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияСсылка.Имя);
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияКод.Имя);
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияМестИспользования.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.Ссылка");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
- ОтборЭлемента.ПравоеЗначение = Новый ПолеКомпоновкиДанных("ОсновнойЭлемент");
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(WindowsШрифты.ШрифтДиалоговИМеню, , , Истина, Ложь, Ложь, Ложь, ));
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияНеИспользуется.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.МестИспользования");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно;
- ОтборЭлемента.ПравоеЗначение = 0;
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Истина);
- Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Истина);
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияНеИспользуется.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.МестИспользования");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше;
- ОтборЭлемента.ПравоеЗначение = 0;
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь);
- Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь);
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияМестИспользования.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.МестИспользования");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно;
- ОтборЭлемента.ПравоеЗначение = 0;
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь);
- Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь);
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.НеудачныеЗаменыКод.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("НеудачныеЗамены.Код");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено;
- Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь);
-
- //
-
- Элемент = УсловноеОформление.Элементы.Добавить();
-
- ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.МестаИспользованияМестИспользования.Имя);
-
- ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("МестаИспользования.МестИспользования");
- ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше;
- ОтборЭлемента.ПравоеЗначение = 0;
-
- Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Истина);
- Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Истина);
-
+
+ Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
+ ШрифтВажнойНадписи = Новый Шрифт(, , Истина);
+ Иначе // Такси.
+ ШрифтВажнойНадписи = Новый Шрифт("Arial", 10, Истина, Ложь, Ложь, Ложь, 100);
+ КонецЕсли;
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Условие = Новый Структура("Вид, Значение", "НеРавно", Новый ПолеКомпоновкиДанных("ОсновнойЭлемент"));
+ Инструкция.Отборы.Вставить("МестаИспользования.Ссылка", Условие);
+ Инструкция.Поля = "МестаИспользованияОсновной";
+ Инструкция.Оформление.Вставить("Отображать", Ложь);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("МестаИспользования.Ссылка", Новый ПолеКомпоновкиДанных("ОсновнойЭлемент"));
+ Инструкция.Поля = "МестаИспользованияСсылка, МестаИспользованияКод, МестаИспользованияМестИспользования";
+ Инструкция.Оформление.Вставить("Шрифт", ШрифтВажнойНадписи);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("МестаИспользования.МестИспользования", Новый Структура("Вид, Значение", "МеньшеИлиРавно", 0));
+ Инструкция.Поля = "МестаИспользованияНеИспользуется";
+ Инструкция.Оформление.Вставить("Видимость", Истина);
+ Инструкция.Оформление.Вставить("Отображать", Истина);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("МестаИспользования.МестИспользования", Новый Структура("Вид, Значение", "Больше", 0));
+ Инструкция.Поля = "МестаИспользованияНеИспользуется";
+ Инструкция.Оформление.Вставить("Видимость", Ложь);
+ Инструкция.Оформление.Вставить("Отображать", Ложь);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("МестаИспользования.МестИспользования", Новый Структура("Вид, Значение", "МеньшеИлиРавно", 0));
+ Инструкция.Поля = "МестаИспользованияМестИспользования";
+ Инструкция.Оформление.Вставить("Видимость", Ложь);
+ Инструкция.Оформление.Вставить("Отображать", Ложь);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("НеудачныеЗамены.Код", Новый Структура("Вид, Значение", "НеЗаполнено"));
+ Инструкция.Поля = "НеудачныеЗаменыКод";
+ Инструкция.Оформление.Вставить("Видимость", Ложь);
+ Инструкция.Оформление.Вставить("Отображать", Ложь);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
+ Инструкция = ПоискИУдалениеДублей.ИнструкцияУсловногоОформления();
+ Инструкция.Отборы.Вставить("МестаИспользования.МестИспользования", Новый Структура("Вид, Значение", "Больше", 0));
+ Инструкция.Поля = "МестаИспользованияМестИспользования";
+ Инструкция.Оформление.Вставить("Видимость", Истина);
+ Инструкция.Оформление.Вставить("Отображать", Истина);
+ ПоискИУдалениеДублей.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция);
+
КонецПроцедуры
&НаСервере
@@ -405,7 +358,7 @@
КонецЦикла;
КонецПроцедуры
-&НаСервереБезКонтекста
+&НаСервереБезКонтекста
Функция ПроверитьОбъединяемыеСсылки(Знач НаборСсылок)
Результат = Новый Структура("Ошибка, ОбщийВладелец");
@@ -471,15 +424,6 @@
Возврат Результат;
КонецФункции
-&НаКлиенте
-Процедура ЗакрытиеФормыЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
- Если РезультатВопроса = КодВозвратаДиалога.Да Тогда
- ЗавершитьРаботуФормы();
- Иначе
- ПодтверждениеЗакрытияФормы = Неопределено;
- КонецЕсли;
-КонецПроцедуры
-
&НаКлиенте
Процедура МестаИспользованияПередУдалениемЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
@@ -510,43 +454,23 @@
СформироватьПодсказкуОбъединения();
КонецПроцедуры
-&НаКлиенте
-Процедура ЗавершитьРаботуФормы(ПоказатьОповещение = Ложь)
-
- ОтменитьДлительнуюОперациюМастера();
-
- Если ПоказатьОповещение <> Неопределено Тогда
- ПоказатьОповещениеПользователя( , ПолучитьНавигационнуюСсылку(ОсновнойЭлемент),
- СообщениеОЗавершении(), БиблиотекаКартинок.Информация32);
- СписокОбновленного = Новый Массив;
- Для Каждого Строка Из МестаИспользования Цикл
- СписокОбновленного.Добавить(Строка.Ссылка);
- КонецЦикла;
- ОповеститьОбУспешнойЗамене(СписокОбновленного);
- КонецЕсли;
-
- // Закрываем без дополнительных вопросов.
- ПодтверждениеЗакрытияФормы = Истина;
- Закрыть();
-КонецПроцедуры
-
&НаСервере
Процедура СформироватьПодсказкуОбъединения()
Если ЕстьПравоБезвозвратногоУдаления Тогда
Если ТекущийВариантУдаления = "Пометка" Тогда
- ТекстПодсказки = НСтр("ru = 'Все элементы списка (%1) будут помечены на удаление и заменены во всех местах
+ ТекстПодсказки = НСтр("ru = 'Элементы (%1) будут помечены на удаление и заменены во всех местах
|использования на ""%2"" (отмечен стрелкой).'");
Иначе
- ТекстПодсказки = НСтр("ru = 'Все элементы списка (%1) будут удалены безвозвратно и заменены во всех местах
+ ТекстПодсказки = НСтр("ru = 'Элементы (%1) будут удалены безвозвратно и заменены во всех местах
|использования на ""%2"" (отмечен стрелкой).'");
КонецЕсли;
Иначе
- ТекстПодсказки = НСтр("ru = 'Все элементы списка (%1) будут помечены на удаление и заменены во всех местах
+ ТекстПодсказки = НСтр("ru = 'Элементы (%1) будут помечены на удаление и заменены во всех местах
|использования на ""%2"" (отмечен стрелкой).'");
КонецЕсли;
- ТекстПодсказки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПодсказки, МестаИспользования.Количество(), ОсновнойЭлемент);
+ ТекстПодсказки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПодсказки, МестаИспользования.Количество()-1, ОсновнойЭлемент);
Элементы.ПодсказкаВыбораОсновногоЭлемента.Заголовок = СтроковыеФункцииКлиентСервер.ФорматированнаяСтрока(ТекстПодсказки);
КонецПроцедуры
@@ -592,27 +516,6 @@
КонецЕсли;
КонецПроцедуры
-&НаСервере
-Процедура ОпределитьМестаИспользования()
-
- ЗапуститьДлительнуюОперациюМастера("ПоискИУдалениеДублей.ОпределитьМестаИспользования",
- МассивСсылокИзНабора(МестаИспользования));
-
-КонецПроцедуры
-
-&НаСервере
-Функция ПроверитьСостояниеИОбработатьЗаполнениеМестИспользования();
-
- ПроверитьСостояниеДлительнойОперации();
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено И НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
- Результат = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
- ЗаполнитьМестаИспользования(Результат);
- КонецЕсли;
-
- Возврат Новый Структура("Завершено,ИнформацияОбОшибке",
- НастройкиПошаговогоМастера.ЗаданиеВыполнено, НастройкиПошаговогоМастера.ИнформацияОбОшибке);
-КонецФункции
-
&НаСервере
Процедура ЗаполнитьМестаИспользования(Знач ТаблицаИспользования)
@@ -668,42 +571,6 @@
);
КонецПроцедуры
-&НаСервере
-Процедура ЗапуститьЗаменуСсылок()
-
- ПолноеИмяМетода = "ПоискИУдалениеДублей.ЗаменитьСсылки";
-
- ПарыЗамен = Новый Соответствие;
- Для Каждого Строка Из МестаИспользования Цикл
- ПарыЗамен.Вставить(Строка.Ссылка, ОсновнойЭлемент);
- КонецЦикла;
-
- ПараметрыЗамены = Новый Структура;
- ПараметрыЗамены.Вставить("СпособУдаления", ТекущийВариантУдаления);
- ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Истина);
-
- ПараметрыМетода = Новый Структура;
- ПараметрыМетода.Вставить("ПарыЗамен", ПарыЗамен);
- ПараметрыМетода.Вставить("Параметры", ПараметрыЗамены);
-
- ЗапуститьДлительнуюОперациюМастера(ПолноеИмяМетода, ПараметрыМетода);
-КонецПроцедуры
-
-&НаСервере
-Функция ПроверитьСостояниеИОбработатьЗаменуСсылок()
-
- ПроверитьСостояниеДлительнойОперации();
-
- Результат = Неопределено;
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено И НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
- Результат = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
- Результат = Не ЗаполнитьНеудачныеЗамены(Результат);
- КонецЕсли;
-
- Возврат Новый Структура("Завершено,ИнформацияОбОшибке,Результат",
- НастройкиПошаговогоМастера.ЗаданиеВыполнено, НастройкиПошаговогоМастера.ИнформацияОбОшибке, Результат);
-КонецФункции
-
&НаСервере
Функция ЗаполнитьНеудачныеЗамены(Знач РезультатыЗамены)
// РезультатыЗамены - таблица с колонками Ссылка, ОбъектОшибки, ТипОшибки, ТекстОшибки.
@@ -908,102 +775,96 @@
КонецФункции
-&НаКлиенте
-Процедура ЗавершениеОтменыИЗакрытиеФормы(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
- Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
- // Подтверждаем продолжение процесса.
- ЗавершитьШагМастера(ДополнительныеПараметры.ПараметрыШага);
- Возврат;
- КонецЕсли;
-
- ЗавершитьРаботуФормы();
-КонецПроцедуры
-
&НаСервере
Процедура ИнициализироватьСценарийМастера()
// 0. Поиск мест использования по параметрам.
+ КнопкиМастера = КнопкиМастера();
+ КнопкиМастера.Назад.Видимость = Ложь;
+ КнопкиМастера.Далее.Видимость = Ложь;
+ КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Прервать'");
+ КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Отказаться от объединения элементов'");
+
ДобавитьШагМастера(Элементы.ШагПоискМестИспользования,
ДействиеШагаМастера("ПриАктивации", "ШагПоискМестИспользованияПриАктивации",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагПоискМестИспользованияПередДействиемОтмена",
ДействиеШагаМастера("ПриОбработкеОжидания", "ШагПоискМестИспользованияПриОбработкеОжидания"))),
- КнопкаШагаМастера("Далее", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Назад", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Отмена", НСтр("ru = 'Прервать'"), НСтр("ru = 'Отказаться от объединения элементов'"), Истина, Ложь, Ложь))));
+ КнопкиМастера);
// 1. Выбор основного элемента.
+ КнопкиМастера = КнопкиМастера();
+ КнопкиМастера.Назад.Видимость = Ложь;
+ КнопкиМастера.Далее.КнопкаПоУмолчанию = Истина;
+ КнопкиМастера.Далее.Заголовок = НСтр("ru = 'Объединить >'");
+ КнопкиМастера.Далее.Подсказка = НСтр("ru = 'Начать объединение элементов'");
+ КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Отмена'");
+ КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Отказаться от объединения элементов'");
+
ДобавитьШагМастера(Элементы.ШагВыборОсновногоЭлемента,
ДействиеШагаМастера("ПриАктивации", "ШагВыборОсновногоЭлементаПриАктивации",
ДействиеШагаМастера("ПередДействиемДалее", "ШагВыборОсновногоЭлементаПередДействиемДалее",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыборОсновногоЭлементаПередДействиемОтмена"))),
- КнопкаШагаМастера("Далее", НСтр("ru = 'Объединить >'"), НСтр("ru = 'Начать объединение элементов'"), Истина, Истина, Истина,
- КнопкаШагаМастера("Назад", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Отмена", НСтр("ru = 'Отмена'"), НСтр("ru = 'Отказаться от объединения элементов'"), Истина, Истина, Ложь))));
+ КнопкиМастера);
// 2. Ожидание процесса
+ КнопкиМастера = КнопкиМастера();
+ КнопкиМастера.Назад.Видимость = Ложь;
+ КнопкиМастера.Далее.Видимость = Ложь;
+ КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Прервать'");
+ КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Прервать объединение элементов'");
+
ДобавитьШагМастера(Элементы.ШагОбъединение,
ДействиеШагаМастера("ПриАктивации", "ШагОбъединениеПриАктивации",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагОбъединениеПередДействиемОтмена",
ДействиеШагаМастера("ПриОбработкеОжидания", "ШагОбъединениеПриОбработкеОжидания"))),
- КнопкаШагаМастера("Далее", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Назад", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Отмена", НСтр("ru = 'Прервать'"), НСтр("ru = 'Прервать объединение элементов'"), Истина, Истина, Ложь))));
+ КнопкиМастера);
// 3. Успешное объединение
+ КнопкиМастера = КнопкиМастера();
+ КнопкиМастера.Назад.Видимость = Ложь;
+ КнопкиМастера.Далее.Видимость = Ложь;
+ КнопкиМастера.Отмена.КнопкаПоУмолчанию = Истина;
+ КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
+ КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Закрыть результаты объединения'");
+
ДобавитьШагМастера(Элементы.ШагУспешногоЗавершения,
ДействиеШагаМастера("ПриАктивации", "ШагУспешногоЗавершенияПриАктивации",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагУспешногоЗавершенияПередДействиемОтмена")),
- КнопкаШагаМастера("Далее", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Назад", "", "", Ложь, Ложь, Ложь,
- КнопкаШагаМастера("Отмена", НСтр("ru = 'Закрыть'"), НСтр("ru = 'Закрыть результаты объединения'"), Истина, Истина, Истина))));
+ КнопкиМастера);
// 4. Ошибки замены ссылок
+ КнопкиМастера = КнопкиМастера();
+ КнопкиМастера.Назад.Заголовок = НСтр("ru = '< В начало'");
+ КнопкиМастера.Назад.Подсказка = НСтр("ru = 'Вернутся к выбору основного элемента'");
+ КнопкиМастера.Далее.КнопкаПоУмолчанию = Истина;
+ КнопкиМастера.Далее.Заголовок = НСтр("ru = 'Повторить'");
+ КнопкиМастера.Далее.Подсказка = НСтр("ru = 'Повторить объединение'");
+ КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Отмена'");
+ КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Закрыть результаты объединения'");
+
ДобавитьШагМастера(Элементы.ШагПовторОбъединения,
ДействиеШагаМастера("ПриАктивации", "ШагПовторОбъединенияПриАктивации",
ДействиеШагаМастера("ПередДействиемДалее", "ШагПовторОбъединенияПередДействиемДалее",
ДействиеШагаМастера("ПередДействиемНазад", "ШагПовторОбъединенияПередДействиемНазад",
ДействиеШагаМастера("ПередДействиемОтмена", "ШагПовторОбъединенияПередДействиемОтмена")))),
- КнопкаШагаМастера("Далее", НСтр("ru = 'Повторить объединение >'"), НСтр("ru = 'Повторить объединение'"), Истина, Истина, Истина,
- КнопкаШагаМастера("Назад", НСтр("ru = '< Назад'"), НСтр("ru = 'Вернутся к выбору основного элемента'"), Истина, Истина, Ложь,
- КнопкаШагаМастера("Отмена", НСтр("ru = 'Закрыть'"), НСтр("ru = 'Закрыть результаты объединения'"), Истина, Истина, Ложь))));
-
- // Вариант завершения работы - или демонстрацией страницы или всплывающим сообщением и закрытием.
- УстановитьПараметрПользователяМастера(ЭтотОбъект, "СообщатьОбУспехеВсплывающимОкном", Истина);
+ КнопкиМастера);
КонецПроцедуры
&НаКлиенте
Процедура ШагПоискМестИспользованияПриАктивации(Знач Страница, Знач ДополнительныеПараметры) Экспорт
-
- ОпределитьМестаИспользования();
-
+ ФоновоеЗаданиеЗапустить("ОпределитьМестаИспользования");
КонецПроцедуры
&НаКлиенте
Процедура ШагПоискМестИспользованияПриОбработкеОжидания(Прекратить, Знач ДополнительныеПараметры) Экспорт
- // Ожидаем завершения поиска ссылок.
- СостояниеОперации = ПроверитьСостояниеИОбработатьЗаполнениеМестИспользования();
-
- Если СостояниеОперации.Завершено Тогда
- Если СостояниеОперации.ИнформацияОбОшибке = Неопределено Тогда
- // Успешно выполнено, идем дальше.
- ШагМастера("Далее");
- Иначе
- Прекратить = Истина;
- ПоказатьПредупреждение(, СостояниеОперации.ИнформацияОбОшибке);
- КонецЕсли;
+ Если ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Ложь) Тогда
+ Прекратить = Истина;
КонецЕсли;
-
КонецПроцедуры
&НаКлиенте
Процедура ШагПоискМестИспользованияПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- // Запрос подтверждения на отмену.
- ТекстВопроса = НСтр("ru = 'Прервать поиск мест использования и закрыть?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
-
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
КонецПроцедуры
&НаКлиенте
@@ -1034,61 +895,24 @@
&НаКлиенте
Процедура ШагВыборОсновногоЭлементаПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- // Запрос подтверждения на отмену.
- ТекстВопроса = НСтр("ru = 'Отменить объединение элементов и закрыть?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
-
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
+ Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура ШагОбъединениеПриАктивации(Знач Страница, Знач ДополнительныеПараметры) Экспорт
- // Стартуем длительную обработку по замене.
- ЗапуститьЗаменуСсылок();
+ ФоновоеЗаданиеЗапустить("ЗаменитьСсылки");
КонецПроцедуры
&НаКлиенте
Процедура ШагОбъединениеПриОбработкеОжидания(Прекратить, Знач ДополнительныеПараметры) Экспорт
- // Ожидаем завершения замены ссылок.
- СостояниеОперации = ПроверитьСостояниеИОбработатьЗаменуСсылок();
-
- Если Не СостояниеОперации.Завершено Тогда
- Возврат;
- КонецЕсли;
-
- Если СостояниеОперации.ИнформацияОбОшибке = Неопределено Тогда
- // Выполнено успешно
- Если СостояниеОперации.Результат = Истина Тогда
- // Успешно заменили все элементы.
- Если Истина = ПрочитатьПараметрПользователяМастера(ЭтотОбъект, "СообщатьОбУспехеВсплывающимОкном") Тогда
- ЗавершитьРаботуФормы(Истина);
- Иначе
- // Переходим на страницу завершения.
- ШагМастера("Далее");
- КонецЕсли;
-
- Иначе
- // Остались необработанные, переходим на попытку повтора.
- ПерейтиНаШагМастера(Элементы.ШагПовторОбъединения, Истина);
- КонецЕсли
- Иначе
- // Фоновое задание завершилось с ошибкой.
+ Если ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Ложь) Тогда
Прекратить = Истина;
- ПоказатьПредупреждение(, СостояниеОперации.ИнформацияОбОшибке);
- ПерейтиНаШагМастера(Элементы.ШагВыборОсновногоЭлемента);
КонецЕсли;
-
КонецПроцедуры
&НаКлиенте
Процедура ШагОбъединениеПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- // Запрос подтверждения на отмену.
- ТекстВопроса = НСтр("ru = 'Прервать объединение элементов и закрыть?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
-
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
КонецПроцедуры
&НаКлиенте
@@ -1106,9 +930,10 @@
&НаКлиенте
Процедура ШагУспешногоЗавершенияПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ ЗавершитьШагМастера(ПараметрыШага);
+ Если Открыта() Тогда
+ Закрыть();
+ КонецЕсли;
КонецПроцедуры
&НаКлиенте
@@ -1135,52 +960,51 @@
&НаКлиенте
Процедура ШагПовторОбъединенияПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- // Это выход. Закрываем форму принудительно.
- ЗавершитьРаботуФормы();
+ Закрыть();
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ПОШАГОВОГО ПОМОЩНИКА
-// Инициализирует структуры мастера.
-//
-// Параметры:
-// ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
-// КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
-// КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
-// КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
-//
&НаСервере
-Процедура ИнициализироватьМастер(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
+Функция ИнициализироватьМастер(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
+ // Инициализирует структуры мастера.
+ //
+ // Параметры:
+ // ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
+ // КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
+ // КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
+ // КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
- НастройкиМастера = Новый Структура;
-
- НастройкиМастера.Вставить("Шаги", Новый Массив);
- НастройкиМастера.Вставить("НомерТекущегоШага", 0);
- НастройкиМастера.Вставить("СтраницаСтарта", Неопределено);
+ Результат = Новый Структура;
+
+ Результат.Вставить("Шаги", Новый Массив);
+ Результат.Вставить("НомерТекущегоШага", 0);
+ Результат.Вставить("СтраницаСтарта", Неопределено);
// Идентификаторы частей интерфейса.
- НастройкиМастера.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
- НастройкиМастера.Вставить("КнопкаДалее", КнопкаДалее.Имя);
- НастройкиМастера.Вставить("КнопкаНазад", КнопкаНазад.Имя);
- НастройкиМастера.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
+ Результат.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
+ Результат.Вставить("КнопкаДалее", КнопкаДалее.Имя);
+ Результат.Вставить("КнопкаНазад", КнопкаНазад.Имя);
+ Результат.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
// Таймаут вызова обработчика
- НастройкиМастера.Вставить("ТаймаутОжиданияДлительнойОперации",
+ Результат.Вставить("ТаймаутОжиданияДлительнойОперации",
?( ПолучитьСкоростьКлиентскогоСоединения() = СкоростьКлиентскогоСоединения.Низкая, 4, 2) );
// Для обработки длительных операций.
- НастройкиМастера.Вставить("ИдентификаторФоновогоЗадания");
- НастройкиМастера.Вставить("АдресРезультатаФоновогоЗадания");
- НастройкиМастера.Вставить("ИнформацияОбОшибке");
- НастройкиМастера.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("ИдентификаторФоновогоЗадания");
+ Результат.Вставить("АдресРезультатаФоновогоЗадания");
+ Результат.Вставить("ИнформацияОбОшибке");
+ Результат.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("ИмяПроцедуры");
+ Результат.Вставить("ЕстьПодтверждениеОтменыЗадания", Ложь);
// Для хранения пользовательских параметров.
- НастройкиМастера.Вставить("ПользовательскиеПараметры", Новый Соответствие);
+ Результат.Вставить("ПользовательскиеПараметры", Новый Соответствие);
- НастройкиПошаговогоМастера = НастройкиМастера;
-
-КонецПроцедуры
+ Возврат Результат;
+КонецФункции
// Добавляет шаг мастера. Переходы между страницами будут происходить согласно порядку добавления.
//
@@ -1231,7 +1055,7 @@
// Заголовок = "Отмена", Доступность = Истина, Видимость = Истина, КнопкаПоУмолчанию = Ложь;
//
// Для составления параметров рекомендуется использовать вспомогательные методы "ДобавитьШагМастера",
-// "ДействиеШагаМастера", "КнопкаШагаМастера".
+// "ДействиеШагаМастера", "КнопкиМастера".
//
&НаСервере
Процедура ДобавитьШагМастера(Знач Страница, Знач Действия, Знач Кнопки)
@@ -1285,55 +1109,51 @@
Возврат СлужебныеДанные;
КонецФункции
-// Вспомогательное формирование структуры, описывающей кнопку.
+// Вспомогательное формирование структуры, описывающей кнопки мастера.
//
-// Параметры:
-// Идентификатор - Строка - Идентификатор кнопки, может быть "Далее", "Назад" или "Отмена",
-// см описание метода "ДобавитьШагМастера".
-// Заголовок - Строка - Заголовок кнопки.
-// Подсказка - Строка - Подсказка для кнопки.
-// Видимость - Булево - параметр отображения кнопки.
-// Доступность - Булево - параметр отображения кнопки.
-// КнопкаПоУмолчанию - Булево - параметр отображения кнопки.
-// СлужебныеДанные - Структура - Накапливает значения.
-//
-// Возвращаемое значение - Структура - СлужебныеДанные с добавленными полями.
+// Возвращаемое значение:
+// Структура - Кнопки мастера.
+// * Назад - Структура - Описание кнопки Назад, сформированное методом КнопкаМастера().
+// * Далее - Структура - Описание кнопки Далее, сформированное методом КнопкаМастера().
+// * Отмена - Структура - Описание кнопки Отмена, сформированное методом КнопкаМастера().
//
&НаСервере
-Функция КнопкаШагаМастера(Знач Идентификатор, Знач Заголовок, Знач Подсказка, Знач Видимость,
- Знач Доступность, Знач КнопкаПоУмолчанию, Знач СлужебныеДанные = Неопределено)
+Функция КнопкиМастера()
- Если СлужебныеДанные = Неопределено Тогда
- СлужебныеДанные = Новый Структура;
- КонецЕсли;
-
- ОписаниеКнопки = Новый Структура;
- ОписаниеКнопки.Вставить("Заголовок", Заголовок);
- ОписаниеКнопки.Вставить("Подсказка", ?(ПустаяСтрока(Подсказка), Заголовок, Подсказка));
-
- ОписаниеКнопки.Вставить("Доступность", Доступность);
- ОписаниеКнопки.Вставить("Видимость", Видимость);
- ОписаниеКнопки.Вставить("КнопкаПоУмолчанию", КнопкаПоУмолчанию);
-
- СлужебныеДанные.Вставить(Идентификатор, ОписаниеКнопки);
- Возврат СлужебныеДанные;
+ Результат = Новый Структура("Далее, Назад, Отмена", КнопкаМастера(), КнопкаМастера(), КнопкаМастера());
+ Результат.Далее.КнопкаПоУмолчанию = Истина;
+ Результат.Далее.Заголовок = НСтр("ru = 'Далее >'");
+ Результат.Назад.Заголовок = НСтр("ru='< Назад'");
+ Результат.Отмена.Заголовок = НСтр("ru = 'Отмена'");
+ Возврат Результат;
КонецФункции
-// Читает пользовательский параметр мастера.
-&НаКлиентеНаСервереБезКонтекста
-Функция ПрочитатьПараметрПользователяМастера(Форма, Знач ИмяПараметраМастера)
+// Описание настроек кнопки мастера.
+//
+// Возвращаемое значение:
+// Структура - Настройки кнопки формы.
+// * Заголовок - Строка - Заголовок кнопки.
+// * Подсказка - Строка - Подсказка для кнопки.
+// * Видимость - Булево - Когда Истина то кнопка видна. Значение по умолчанию: Истина.
+// * Доступность - Булево - Когда Истина то кнопку можно нажимать. Значение по умолчанию: Истина.
+// * КнопкаПоУмолчанию - Булево - Когда Истина то кнопка будет основной кнопкой формы. Значение по умолчанию:
+// Ложь.
+//
+// См. также:
+// "КнопкаФормы" в синтакс-помощнике.
+//
+&НаСервере
+Функция КнопкаМастера()
+ Результат = Новый Структура;
+ Результат.Вставить("Заголовок", "");
+ Результат.Вставить("Подсказка", "");
- Возврат Форма.НастройкиПошаговогоМастера.ПользовательскиеПараметры[ИмяПараметраМастера];
-
-КонецФункции
-
-// Устанавливает пользовательский параметр мастера.
-&НаКлиентеНаСервереБезКонтекста
-Функция УстановитьПараметрПользователяМастера(Форма, Знач ИмяПараметраМастера, Знач ЗначениеПараметраМастера)
-
- Форма.НастройкиПошаговогоМастера.ПользовательскиеПараметры.Вставить(ИмяПараметраМастера, ЗначениеПараметраМастера);
+ Результат.Вставить("Доступность", Истина);
+ Результат.Вставить("Видимость", Истина);
+ Результат.Вставить("КнопкаПоУмолчанию", Ложь);
+ Возврат Результат;
КонецФункции
// Устанавливает начальную страницу для первого запуска мастера.
@@ -1352,15 +1172,13 @@
// "УстановитьНачальнуюСтраницуМастера".
&НаКлиенте
Процедура ЗапуститьРаботуМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- Если НастройкиМастера.СтраницаСтарта = Неопределено Тогда
+ Если НастройкиПошаговогоМастера.СтраницаСтарта = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Перед запуском мастера должна быть установлена начальная страница.'");
- ИначеЕсли НастройкиМастера.СтраницаСтарта = -1 Тогда
+ ИначеЕсли НастройкиПошаговогоМастера.СтраницаСтарта = -1 Тогда
// Разогрев. Проверяем наличие обработчиков действий у всех шагов.
ВозможныеДействия = Новый Структура("ПриАктивации, ПередДействиемДалее, ПередДействиемНазад, ПередДействиемОтмена, ПриОбработкеОжидания");
- Для Каждого ОписаниеШага Из НастройкиМастера.Шаги Цикл
+ Для Каждого ОписаниеШага Из НастройкиПошаговогоМастера.Шаги Цикл
Для Каждого КлючЗначение Из ВозможныеДействия Цикл
ИмяДействия = КлючЗначение.Ключ;
ИмяОбработчика = ОписаниеШага[ИмяДействия];
@@ -1381,15 +1199,15 @@
КонецЦикла;
// Фактический запуск
- ПерейтиНаШагМастера(НастройкиМастера.НомерТекущегоШага, Истина);
+ ПерейтиНаШагМастера(НастройкиПошаговогоМастера.НомерТекущегоШага, Истина);
Иначе
// По умолчанию все отключено
- Элементы[НастройкиМастера.КнопкаДалее].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаНазад].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаОтмена].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаДалее].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаНазад].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаОтмена].Видимость = Ложь;
// Отложенный запуск
- НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиМастера.СтраницаСтарта;
+ НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиПошаговогоМастера.СтраницаСтарта;
НастройкиПошаговогоМастера.СтраницаСтарта = -1;
ПодключитьОбработчикОжидания("ЗапуститьРаботуМастера", 0.1, Истина);
КонецЕсли;
@@ -1402,8 +1220,6 @@
//
&НаКлиенте
Процедура ШагМастера(Знач КодКоманды)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
Если КодКоманды = "Далее" Тогда
Направление = 1;
ИначеЕсли КодКоманды = "Назад" Тогда
@@ -1414,7 +1230,7 @@
ВызватьИсключение НСтр("ru = 'Некорректная команда шага помощника'");
КонецЕсли;
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -1449,8 +1265,6 @@
//
&НаКлиенте
Процедура ПерейтиНаШагМастера(Знач ИдентификаторШага, Знач ИнициироватьСобытия = Ложь)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
СледующийШаг = НомерШагаМастераПоИдентификатору(ИдентификаторШага);
Если СледующийШаг = Неопределено Тогда
Ошибка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -1460,7 +1274,7 @@
ВызватьИсключение Ошибка;
КонецЕсли;
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -1478,10 +1292,8 @@
//
&НаКлиенте
Процедура ЗавершитьШагМастера(Знач ПараметрыШага)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- СледующийШаг = НастройкиМастера.НомерТекущегоШага + ПараметрыШага;
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ СледующийШаг = НастройкиПошаговогоМастера.НомерТекущегоШага + ПараметрыШага;
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
Если ПараметрыШага = 0 Тогда
// Подтверждение отмены - ничего не делаем.
@@ -1502,15 +1314,13 @@
&НаКлиенте
Процедура ШагМастераЗавершениеБезусловно(Знач СледующийШаг, Знач ИнициироватьСобытия = Истина)
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[СледующийШаг];
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[СледующийШаг];
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
// Переключаем на новую страницу.
- Элементы[НастройкиМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
+ Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
// Обход особенности платформы.
- ГруппаСтраницМастера = Элементы[НастройкиМастера.ГруппаСтраниц];
+ ГруппаСтраницМастера = Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц];
НоваяТекущаяСтраница = Элементы[ОписаниеШага.Страница];
ВидГруппыСтраница = ВидГруппыФормы.Страница;
ТипГруппаФормы = Тип("ГруппаФормы");
@@ -1521,9 +1331,9 @@
КонецЦикла;
// Обновляем кнопки
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
// Успешно перешли
НастройкиПошаговогоМастера.НомерТекущегоШага = СледующийШаг;
@@ -1550,9 +1360,7 @@
&НаКлиенте
Процедура ОбработкаАктивацииСтраницыМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Если Не ПустаяСтрока(ОписаниеШага.ПриАктивации) Тогда
Оповещение = Новый ОписаниеОповещения(ОписаниеШага.ПриАктивации, ЭтотОбъект);
ВыполнитьОбработкуОповещения(Оповещение, Элементы[ОписаниеШага.Страница]);
@@ -1568,31 +1376,25 @@
// Может быть номер шага или группа-страница, или ее идентификатор.
&НаКлиенте
Функция НомерШагаМастераПоИдентификатору(Знач ИдентификаторШага)
- НастройкиМастера = НастройкиПошаговогоМастера;
- НомерШага = Неопределено;
-
ТипПараметра = ТипЗнч(ИдентификаторШага);
Если ТипПараметра = Тип("Число") Тогда
- НомерШага = ИдентификаторШага;
- Иначе
- ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
- Для НомерШага=0 По НастройкиМастера.Шаги.ВГраница() Цикл
- Если НастройкиМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
- НомерШага = НомерШага;
- Прервать;
- КонецЕсли;
- КонецЦикла;
+ Возврат ИдентификаторШага;
КонецЕсли;
- Возврат НомерШага;
+ ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
+ Для НомерШага=0 По НастройкиПошаговогоМастера.Шаги.ВГраница() Цикл
+ Если НастройкиПошаговогоМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
+ Возврат НомерШага;
+ КонецЕсли;
+ КонецЦикла;
+
+ ВызватьИсключение СтрЗаменить(НСтр("ru = 'Не найден шаг ""%1"".'"), "%1", ИмяПоиска);
КонецФункции
// Возвращает флаг отмены
&НаКлиенте
Функция ОбработкаОжиданияСтраницыМастера()
- НастройкиМастера = НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Действие = ОписаниеШага.ПриОбработкеОжидания;
Если ПустаяСтрока(Действие) Тогда
Возврат Ложь;
@@ -1605,86 +1407,219 @@
Продолжать = Не Прекратить;
Если Продолжать Тогда
- ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиМастера.ТаймаутОжиданияДлительнойОперации, Истина);
+ ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиПошаговогоМастера.ТаймаутОжиданияДлительнойОперации, Истина);
КонецЕсли;
Возврат Продолжать;
КонецФункции
-&НаСервере
-Функция ЗапуститьДлительнуюОперациюМастера(Знач ИмяМетода, Знач ПараметрыМетода)
+&НаКлиенте
+Процедура ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы(Ответ, ПараметрыВыполнения) Экспорт
+ Если Ответ = КодВозвратаДиалога.Прервать Тогда
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
+ Иначе
+ ОбработкаОжиданияСтраницыМастера();
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения()
+ Если Не ФоновоеЗаданиеЗагрузитьНаКлиенте(Истина, Ложь) Тогда
+ НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Истина;
+ Закрыть();
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Функция ФоновоеЗаданиеЗагрузитьНаКлиенте(ПрерватьЕслиНеВыполнено, ПоказатьДиалогПередЗакрытием)
- // Отменяем возможно незавершенное предыдущее.
- ОтменитьДлительнуюОперациюМастера();
+ ОтключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера");
- Попытка
- Задание = ДлительныеОперации.ЗапуститьВыполнениеВФоне(УникальныйИдентификатор, ИмяМетода, ПараметрыМетода);
- Исключение
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
- КонецПопытки;
+ ИнформацияОЗадании = ФоновоеЗаданиеЗагрузитьРезультат(ПрерватьЕслиНеВыполнено);
+ Если Не ИнформацияОЗадании.Завершено Тогда
+ Если ПоказатьДиалогПередЗакрытием Тогда
+ Обработчик = Новый ОписаниеОповещения("ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы", ЭтотОбъект);
+
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ОпределитьМестаИспользования" Тогда
+ ТекстВопроса = НСтр("ru = 'Прервать поиск мест использования и закрыть форму?'");
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ЗаменитьСсылки" Тогда
+ ТекстВопроса = НСтр("ru = 'Прервать объединение элементов и закрыть форму?'");
+ КонецЕсли;
+
+ Кнопки = Новый СписокЗначений;
+ Кнопки.Добавить(КодВозвратаДиалога.Прервать, НСтр("ru = 'Прервать'"));
+ Кнопки.Добавить(КодВозвратаДиалога.Нет, НСтр("ru = 'Не прерывать'"));
+
+ ПоказатьВопрос(Обработчик, ТекстВопроса, Кнопки, , КодВозвратаДиалога.Нет);
+ КонецЕсли;
+ Возврат Ложь;
+ КонецЕсли;
- Если Задание <> Неопределено Тогда
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Задание.АдресХранилища;
- Если Задание.ЗаданиеВыполнено Тогда
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ОпределитьМестаИспользования" Тогда
+ Если ИнформацияОЗадании.ИнформацияОбОшибке = Неопределено Тогда
+ Активизировать();
+ ШагМастера("Далее");
Иначе
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.ИдентификаторЗадания;
+ Активизировать();
+ ПоказатьПредупреждение(, ИнформацияОЗадании.ИнформацияОбОшибке);
+ КонецЕсли;
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ЗаменитьСсылки" Тогда
+ Если ИнформацияОЗадании.ИнформацияОбОшибке = Неопределено Тогда
+ Если ИнформацияОЗадании.Результат = Истина Тогда
+ // Полностью успешно - закрыть форму и вывести оповещение.
+ ПоказатьОповещениеПользователя(,
+ ПолучитьНавигационнуюСсылку(ОсновнойЭлемент),
+ СообщениеОЗавершении(),
+ БиблиотекаКартинок.Информация32);
+ СписокОбновленного = Новый Массив;
+ Для Каждого Строка Из МестаИспользования Цикл
+ СписокОбновленного.Добавить(Строка.Ссылка);
+ КонецЦикла;
+ ОповеститьОбУспешнойЗамене(СписокОбновленного);
+ // Закрываем форму.
+ Закрыть();
+ Иначе
+ // Частично успешно - вывести расшифровку.
+ Активизировать();
+ ПерейтиНаШагМастера(Элементы.ШагПовторОбъединения, Истина);
+ КонецЕсли
+ Иначе
+ // Фоновое задание завершилось с ошибкой.
+ Активизировать();
+ ПоказатьПредупреждение(, ИнформацияОЗадании.ИнформацияОбОшибке);
+ ПерейтиНаШагМастера(Элементы.ШагВыборОсновногоЭлемента);
КонецЕсли;
КонецЕсли;
+ Возврат Истина;
КонецФункции
&НаСервере
-Процедура ПроверитьСостояниеДлительнойОперации()
+Функция ФоновоеЗаданиеЗапустить(Знач ИмяПроцедуры)
+ // Отмена предыдущего задания.
+ ФоновоеЗаданиеОтменить();
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
- Возврат;
+ // Определение параметров запуска.
+ ПолноеИмяМетода = "ПоискИУдалениеДублей." + ИмяПроцедуры;
+
+ Если ИмяПроцедуры = "ОпределитьМестаИспользования" Тогда
+
+ НаименованиеМетода = НСтр("ru = 'Поиск и удаление дублей: Определение мест использования'");
+ ПараметрыМетода = МассивСсылокИзНабора(МестаИспользования);
+
+ ИначеЕсли ИмяПроцедуры = "ЗаменитьСсылки" Тогда
+
+ НаименованиеМетода = НСтр("ru = 'Поиск и удаление дублей: Объединение элементов'");
+ ПарыЗамен = Новый Соответствие;
+ Для Каждого Строка Из МестаИспользования Цикл
+ ПарыЗамен.Вставить(Строка.Ссылка, ОсновнойЭлемент);
+ КонецЦикла;
+
+ ПараметрыЗамены = Новый Структура;
+ ПараметрыЗамены.Вставить("СпособУдаления", ТекущийВариантУдаления);
+ ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Истина);
+
+ ПараметрыМетода = Новый Структура;
+ ПараметрыМетода.Вставить("ПарыЗамен", ПарыЗамен);
+ ПараметрыМетода.Вставить("Параметры", ПараметрыЗамены);
+
+ Иначе
+
+ Возврат Ложь;
+
КонецЕсли;
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
- Если Задание <> Неопределено Тогда
- Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
- КонецЕсли;
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
- Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
- // Текущие сообщения фонового задания.
- НакопленныеСообщения = Задание.ПолучитьСообщенияПользователю(Истина);
- Если НакопленныеСообщения <> Неопределено Тогда
- Для Каждого Сообщение Из НакопленныеСообщения Цикл
- Сообщение.Сообщить();
- КонецЦикла;
+ // Запуск.
+ ИнформацияОбОшибке = Неопределено;
+ Попытка
+ Задание = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
+ УникальныйИдентификатор,
+ ПолноеИмяМетода,
+ ПараметрыМетода,
+ НаименованиеМетода);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИмяПроцедуры = Неопределено;
+ Возврат Ложь;
+ КонецЕсли;
+
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Задание.АдресХранилища;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.ИдентификаторЗадания;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.ЗаданиеВыполнено;
+ НастройкиПошаговогоМастера.ИмяПроцедуры = ИмяПроцедуры;
+
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Возврат Истина;
+КонецФункции
+
+&НаСервере
+Функция ФоновоеЗаданиеЗагрузитьРезультат(Знач ПрерватьЕслиНеВыполнено = Ложь)
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Иначе
+ Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ Если Задание <> Неопределено Тогда
+ Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ // Текущие сообщения фонового задания.
+ НакопленныеСообщения = Задание.ПолучитьСообщенияПользователю(Истина);
+ Если НакопленныеСообщения <> Неопределено Тогда
+ Для Каждого Сообщение Из НакопленныеСообщения Цикл
+ Сообщение.Сообщить();
+ КонецЦикла;
+ КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
- Если НастройкиПошаговогоМастера.Завершено Тогда
+ Значение = Неопределено;
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- КонецЕсли;
-
-КонецПроцедуры
-
-// Отменяет текущую длительную операцию.
-&НаСервере
-Процедура ОтменитьДлительнуюОперациюМастера()
-
- Если НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
- Если Задание <> Неопределено Тогда
- Задание.Отменить();
+ Если НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
+ Значение = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ОпределитьМестаИспользования" Тогда
+ ЗаполнитьМестаИспользования(Значение);
+ Значение = Неопределено;
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ЗаменитьСсылки" Тогда
+ Значение = Не ЗаполнитьНеудачныеЗамены(Значение);
+ КонецЕсли;
КонецЕсли;
КонецЕсли;
- НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь;
- НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
- НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
- НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Если ПрерватьЕслиНеВыполнено И Не НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ ФоновоеЗаданиеОтменить();
+ КонецЕсли;
+ ИнформацияОЗадании = Новый Структура;
+ ИнформацияОЗадании.Вставить("Завершено", НастройкиПошаговогоМастера.ЗаданиеВыполнено);
+ ИнформацияОЗадании.Вставить("ИнформацияОбОшибке", НастройкиПошаговогоМастера.ИнформацияОбОшибке);
+ ИнформацияОЗадании.Вставить("Результат", Значение);
+
+ Возврат ИнформацияОЗадании;
+КонецФункции
+
+&НаСервере
+Процедура ФоновоеЗаданиеОтменить()
+ Если НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ДлительныеОперации.ОтменитьВыполнениеЗадания(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИмяПроцедуры = Неопределено;
КонецПроцедуры
#КонецОбласти
diff --git a/SSL/src/DataProcessors/ЗащитаПерсональныхДанных/Help/ru.html b/SSL/src/DataProcessors/ЗащитаПерсональныхДанных/Help/ru.html
index c0f68cab9..f5d088307 100644
--- a/SSL/src/DataProcessors/ЗащитаПерсональныхДанных/Help/ru.html
+++ b/SSL/src/DataProcessors/ЗащитаПерсональныхДанных/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для просмотра событий доступа к персональным данным, зарегистрированным в программе.
Открывается по команде Защита персональных данных в разделе Администрирование - Поддержка и обслуживание.
Согласно Федеральному закону от 27.06.2006 №152-Ф3 "О персональных данных" и подзаконным актам в программе реализована регистрация следующих событий:
Для документов используется период отбора. В поле За период нажмите Выбрать, укажите период. Даты можно указать вручную или выбрать из календаря. С помощью ссылки Показать стандартные периоды можно быстро подобрать период.
diff --git a/SSL/src/DataProcessors/ИнтерактивноеИзменениеВыгрузки/Forms/РедактированиеСоставаНастроек/Help/ru.html b/SSL/src/DataProcessors/ИнтерактивноеИзменениеВыгрузки/Forms/РедактированиеСоставаНастроек/Help/ru.html
index bfe3a516d..afccdbb10 100644
--- a/SSL/src/DataProcessors/ИнтерактивноеИзменениеВыгрузки/Forms/РедактированиеСоставаНастроек/Help/ru.html
+++ b/SSL/src/DataProcessors/ИнтерактивноеИзменениеВыгрузки/Forms/РедактированиеСоставаНастроек/Help/ru.html
@@ -1,4 +1,4 @@
-
+
+
+ Подменю1
+ 19
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Обучение</value>
+
+
+ Подменю1РасширеннаяПодсказка
+ 20
+ Label
+ true
+ true
+
+ Left
+
+
+ Popup
+
+ Auto
+ Normal
+
+
+
+ Подменю2
+ 21
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Поддержка</value>
+
+
+ Подменю2РасширеннаяПодсказка
+ 22
+ Label
+ true
+ true
+
+ Left
+
+
+ Popup
+
+ Auto
+ Normal
+
+
+
+ Подменю3
+ 23
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Предприятие 8</value>
+
+
+ Подменю3РасширеннаяПодсказка
+ 24
+ Label
+ true
+ true
+
+ Left
+
+
+ Popup
+
+ Auto
+ Normal
+
+
+
+ Подменю4
+ 25
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Справочная информация</value>
+
+
+ Подменю4РасширеннаяПодсказка
+ 26
+ Label
+ true
+ true
+
+ Left
+
+
+ Popup
+
+ Auto
+ Normal
+
+
+
+ Подменю5
+ 27
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Единый семинар</value>
+
+
+ Подменю5РасширеннаяПодсказка
+ 28
+ Label
+ true
+ true
+
+ Left
+
+
+ Popup
+
+ Auto
+ Normal
+
+ truetrue
@@ -113,7 +279,6 @@
CommandBarLeft
- Form
@@ -282,10 +447,10 @@
- ДобавленныеКоманды
+ ПакетыСтраниц
<key>ru</key>
- <value>Добавленные команды</value>
+ <value>Пакеты страниц</value>
4
@@ -518,7 +683,7 @@
- ДобавленныеКоманды.ВебСтраницы
+ ПакетыСтраниц.ВебСтраницыОтносительноеИмя
@@ -634,10 +799,10 @@
- КомандаИдентификатор
+ ИдентификаторПакета
<key>ru</key>
- <value>Команда идентификатор</value>
+ <value>Идентификатор пакета</value>
1
@@ -820,6 +985,28 @@
AutoAuto
+
+ ГлавнаяСтраница
+
+ <key>ru</key>
+ <value>Главная страница</value>
+
+ 3
+
+ ru
+ Главная страница
+
+
+
+
+ Подключаемый_ПерейтиКСтранице
+
+
+ Auto
+ Auto
+
diff --git a/SSL/src/DataProcessors/ИнформацияПриЗапуске/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ИнформацияПриЗапуске/Forms/Форма/Module.bsl
index eccd38a89..aa7664d14 100644
--- a/SSL/src/DataProcessors/ИнформацияПриЗапуске/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ИнформацияПриЗапуске/Forms/Форма/Module.bsl
@@ -1,4 +1,3 @@
-
#Область ОбработчикиСобытийФормы
&НаСервере
@@ -15,8 +14,6 @@
КонфигурацияМоделиСервиса = КонфигурацияМоделиСервиса Или МодульОбменДаннымиПовтИсп.ЭтоАвтономноеРабочееМесто();
КонецЕсли;
- ОпределитьКаталогВременныхФайлов();
-
СтандартныйПрефикс = ПолучитьНавигационнуюСсылкуИнформационнойБазы() + "/";
ЭтоВебКлиент = Найти(СтандартныйПрефикс, "http://") > 0;
Если ЭтоВебКлиент Тогда
@@ -26,7 +23,7 @@
ПравоСохраненияДанных = ПравоДоступа("СохранениеДанныхПользователя", Метаданные);
- Если КонфигурацияБазовая ИЛИ НЕ ПравоСохраненияДанных Тогда
+ Если КонфигурацияБазовая Или Не ПравоСохраненияДанных Тогда
Элементы.ПоказыватьПриНачалеРаботы.Видимость = Ложь;
Иначе
ПоказыватьПриНачалеРаботы = Истина;
@@ -34,8 +31,7 @@
ОтсутствуютДанныеДляОтображения = Ложь;
- Если НЕ ЗаполнитьКоманды()
- ИЛИ НЕ ПодготовитьДанныеФормы() Тогда
+ Если Не ПодготовитьДанныеФормы() Тогда
ОтсутствуютДанныеДляОтображения = Истина;
@@ -54,7 +50,7 @@
&НаКлиенте
Процедура ПриЗакрытии()
- Если НЕ КонфигурацияБазовая И ПравоСохраненияДанных Тогда
+ Если Не КонфигурацияБазовая И ПравоСохраненияДанных Тогда
СохранитьСостояниеФлажка(ПоказыватьПриНачалеРаботы);
КонецЕсли;
КонецПроцедуры
@@ -67,7 +63,8 @@
Процедура ВебСодержимоеПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
Если ДанныеСобытия.Свойство("href") И ЗначениеЗаполнено(ДанныеСобытия.href) Тогда
ИмяОткрываемойСтраницы = СокрЛП(ДанныеСобытия.href);
- Если Лев(ИмяОткрываемойСтраницы, 5) <> "http:" И Лев(ИмяОткрываемойСтраницы, 4) <> "e1c:" Тогда
+ Протокол = ВРег(СтрЛевДоСимвола(ИмяОткрываемойСтраницы, ":"));
+ Если Протокол <> "HTTP" И Протокол <> "HTTPS" И Протокол <> "E1C" Тогда
Возврат; // Не ссылка
КонецЕсли;
@@ -85,11 +82,7 @@
КонецЕсли;
ПросмотрСтраницы("ПоВнутреннейСсылке", ИмяОткрываемойСтраницы);
Иначе
- #Если ТолстыйКлиентОбычноеПриложение Тогда
- ЗапуститьПриложение(ИмяОткрываемойСтраницы);
- #Иначе
- ПерейтиПоНавигационнойСсылке(ИмяОткрываемойСтраницы);
- #КонецЕсли
+ ОбщегоНазначенияКлиент.ПерейтиПоСсылке(ИмяОткрываемойСтраницы);
КонецЕсли;
СтандартнаяОбработка = Ложь;
КонецЕсли;
@@ -118,196 +111,189 @@
#Область СлужебныеПроцедурыИФункции
-&НаСервере
-Процедура ОпределитьКаталогВременныхФайлов()
- // Определение пути.
- ПутьККаталогу = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ПолучитьИмяВременногоФайла("extras"));
- СоздатьКаталог(ПутьККаталогу);
-
- // Проверка права записи.
- ИмяВременногоФайла = ПутьККаталогу + "null.tmp";
- ТекстовыйДокумент = Новый ТекстовыйДокумент;
- ТекстовыйДокумент.Вывод = ИспользованиеВывода.Разрешить;
- ТекстовыйДокумент.Записать(ИмяВременногоФайла);
- ТекстовыйДокумент = Неопределено;
- УдалитьФайлы(ИмяВременногоФайла);
-
- // Результат.
- КаталогВременныхФайлов = ПутьККаталогу;
-КонецПроцедуры
-
-&НаСервере
-Функция ЗаполнитьКоманды()
- // Считывает данные макета "Описатель", заполняя таблицу "ДобавленныеКоманды".
- ЭтаОбработка = РеквизитФормыВЗначение("Объект");
- ТекущаяДатаСеанса = ТекущаяДатаСеанса();
- ТабличныйДокумент = ЭтаОбработка.ПолучитьМакет("Описатель");
-
- Для НомерСтроки = 3 По ТабличныйДокумент.ВысотаТаблицы Цикл
- ПрефиксСтроки = "R"+ НомерСтроки +"C";
-
- // Чтение данных первой колонки.
- ИмяМакета = ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 1, , "КонецТаблицы");
- Если ВРег(ИмяМакета) = ВРег("КонецТаблицы") Тогда
- Прервать;
- КонецЕсли;
-
- // Чтение и преобразование сведений о команде в требуемый формат.
- СведенияОКоманде = Новый Структура;
- СведенияОКоманде.Вставить("Раздел", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 2));
- СведенияОКоманде.Вставить("НаименованиеСтартовойСтраницы", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 3));
- СведенияОКоманде.Вставить("ИмяФайлаСтартовойСтраницы", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 4));
- СведенияОКоманде.Вставить("ДатаНачалаПоказа", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 5, "Дата", '00010101'));
- СведенияОКоманде.Вставить("ДатаОкончанияПоказа", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 6, "Дата", '29990101'));
- СведенияОКоманде.Вставить("ВключатьВПервыйПоказ", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 7, "Число", 0));
- СведенияОКоманде.Вставить("ПоказыватьВПроф", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 8, "Булево", Истина));
- СведенияОКоманде.Вставить("ПоказыватьВБазовой", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 9, "Булево", Истина));
- СведенияОКоманде.Вставить("ПоказыватьВМоделиСервиса", ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, 10, "Булево", Истина));
-
- // Пропуск если данные не актуальны.
- Если СведенияОКоманде.ДатаНачалаПоказа > ТекущаяДатаСеанса
- ИЛИ СведенияОКоманде.ДатаОкончанияПоказа < ТекущаяДатаСеанса Тогда
- Продолжить;
- КонецЕсли;
-
- // Пропуск если данные не подходят к конфигурации.
- Если КонфигурацияБазовая Тогда
- Если НЕ СведенияОКоманде.ПоказыватьВБазовой Тогда
- Продолжить;
- КонецЕсли;
- ИначеЕсли КонфигурацияМоделиСервиса Тогда
- Если НЕ СведенияОКоманде.ПоказыватьВМоделиСервиса Тогда
- Продолжить;
- КонецЕсли;
- Иначе
- Если НЕ СведенияОКоманде.ПоказыватьВПроф Тогда
- Продолжить;
- КонецЕсли;
- КонецЕсли;
-
- // Добавление информации о команде.
- СтрокаТаблицы = ДобавленныеКоманды.Добавить();
- СтрокаТаблицы.ИмяМакета = ИмяМакета;
- СтрокаТаблицы.Идентификатор = Строка(НомерСтроки - 2);
- ЗаполнитьЗначенияСвойств(СтрокаТаблицы, СведенияОКоманде);
-
- Если НРег(СтрокаТаблицы.Раздел) = НРег(НСтр("ru = 'Реклама'")) Тогда
- СтрокаТаблицы.Приоритет = 0;
- ИначеЕсли СтрокаТаблицы.ВключатьВПервыйПоказ <> 0 Тогда
- СтрокаТаблицы.Приоритет = СтрокаТаблицы.ВключатьВПервыйПоказ;
- Иначе
- СтрокаТаблицы.Приоритет = 100;
- КонецЕсли;
-
- КонецЦикла;
-
- Возврат ДобавленныеКоманды.Количество() > 0;
-
-КонецФункции
-
&НаСервере
Функция ПодготовитьДанныеФормы()
- ПоказываемыеИнформационныеСтраницы = Новый Массив;
- ИнформационныеСтраницы = Новый Массив;
- РекламныеСтраницы = Новый Массив;
-
+ Сегодня = НачалоДня(ТекущаяДатаСеанса());
НаименованиеТекущегоРаздела = "-";
ТекущееПодменю = Неопределено;
ДобавленоПодменю = 0;
МинимальныйПриоритет = 100;
+ ПакетыСтраницСМинимальнымПриоритетом = Новый Массив;
+ ГлавнаяЗанята = Ложь;
- ДобавленныеКоманды.Сортировать("Раздел");
- Для Каждого СтрокаТаблицы Из ДобавленныеКоманды Цикл
- СтрокаТаблицы.ЗаголовокФормы = НСтр("ru = 'Информация'");
-
- МинимальныйПриоритет = Мин(СтрокаТаблицы.Приоритет, МинимальныйПриоритет);
-
- Если Не ЗначениеЗаполнено(СтрокаТаблицы.НаименованиеСтартовойСтраницы) Тогда
+ ИспользоватьКэшРегистра = Истина;
+ Если ОбщегоНазначенияКлиентСервер.РежимОтладки()
+ Или НРег(СтрЛевДоСимвола(ЭтотОбъект.ИмяФормы, ".")) = НРег("ВнешняяОбработка") Тогда
+ ИспользоватьКэшРегистра = Ложь;
+ КонецЕсли;
+
+ Если ИспользоватьКэшРегистра Тогда
+ ЗаписьРегистра = РегистрыСведений.ПакетыИнформацииПриЗапуске.Получить(Новый Структура("Номер", 0));
+ Кэш = ЗаписьРегистра.Состав.Получить();
+ Иначе
+ Кэш = ИнформацияПриЗапуске.КэшДляПервогоПоказа(РеквизитФормыВЗначение("Объект"));
+ Кэш.Вставить("ПодготовленныеПакеты", Новый Соответствие);
+ КонецЕсли;
+
+ ПакетыСтраниц.Загрузить(Кэш.ПакетыСтраниц);
+ Если ПакетыСтраниц.Количество() = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ ПакетыСтраниц.Сортировать("Раздел");
+ Для Каждого ПакетСтраниц Из ПакетыСтраниц Цикл
+ // Пропуск если пакет не нужно показывать.
+ Если ПакетСтраниц.ДатаНачалаПоказа > Сегодня
+ Или ПакетСтраниц.ДатаОкончанияПоказа < Сегодня Тогда
Продолжить;
КонецЕсли;
- НаименованиеРаздела = СокрЛП(СтрокаТаблицы.Раздел);
+ ПакетСтраниц.ЗаголовокФормы = НСтр("ru = 'Информация'");
- Если НаименованиеТекущегоРаздела <> НаименованиеРаздела Тогда
- НаименованиеТекущегоРаздела = НаименованиеРаздела;
+ Если МинимальныйПриоритет > ПакетСтраниц.Приоритет Тогда
+ МинимальныйПриоритет = ПакетСтраниц.Приоритет;
+ ПакетыСтраницСМинимальнымПриоритетом = Новый Массив;
+ ПакетыСтраницСМинимальнымПриоритетом.Добавить(ПакетСтраниц);
+ ИначеЕсли МинимальныйПриоритет = ПакетСтраниц.Приоритет
+ И ПакетыСтраницСМинимальнымПриоритетом.Найти(ПакетСтраниц.ИмяМакета) = Неопределено Тогда
+ ПакетыСтраницСМинимальнымПриоритетом.Добавить(ПакетСтраниц);
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(ПакетСтраниц.НаименованиеСтартовойСтраницы) Тогда
+ Продолжить;
+ КонецЕсли;
+
+ Если Лев(ПакетСтраниц.Раздел, 1) = "_" Тогда
+ НомерПодменю = Сред(ПакетСтраниц.Раздел, 2);
+ Если НомерПодменю = "0" Тогда
+ ПакетСтраниц.Раздел = "";
+ Если Не ГлавнаяЗанята Тогда
+ ПакетСтраниц.Идентификатор = "ГлавнаяСтраница";
+ ГлавнаяЗанята = Истина;
+ Продолжить;
+ КонецЕсли;
+ ТекущееПодменю = Элементы.БезПодменю;
+ Иначе
+ ИмяПодменю = "Подменю" + НомерПодменю;
+ ТекущееПодменю = Элементы.Найти(ИмяПодменю);
+ Если ТекущееПодменю = Неопределено Тогда
+ ВызватьИсключение СтрЗаменить(НСтр("ru = 'Не найдена группа ""%1""'"), "%1", ИмяПодменю);
+ КонецЕсли;
+ ПакетСтраниц.Раздел = ТекущееПодменю.Заголовок;
+ КонецЕсли;
+ ИначеЕсли НаименованиеТекущегоРаздела <> ПакетСтраниц.Раздел Тогда
+ НаименованиеТекущегоРаздела = ПакетСтраниц.Раздел;
+
+ ЭтоГлавная = (ПакетСтраниц.Раздел = НСтр("ru = 'Главная'"));
+ Если ЭтоГлавная И Не ГлавнаяЗанята Тогда
+ ПакетСтраниц.Идентификатор = "ГлавнаяСтраница";
+ ГлавнаяЗанята = Истина;
+ Продолжить;
+ КонецЕсли;
- Если НаименованиеРаздела = НСтр("ru = 'Главная'") ИЛИ НаименованиеРаздела = "" Тогда
+ Если ЭтоГлавная Или ПакетСтраниц.Раздел = "" Тогда
ТекущееПодменю = Элементы.БезПодменю;
Иначе
ДобавленоПодменю = ДобавленоПодменю + 1;
- ТекущееПодменю = Элементы.Добавить("Подменю" + Строка(ДобавленоПодменю), Тип("ГруппаФормы"), Элементы.ВерхняяПанель);
- ТекущееПодменю.Вид = ВидГруппыФормы.Подменю;
- ТекущееПодменю.Заголовок = НаименованиеРаздела;
+ ИмяПодменю = "Подменю" + Строка(ДобавленоПодменю);
+ ТекущееПодменю = Элементы.Найти(ИмяПодменю);
+ Если ТекущееПодменю = Неопределено Тогда
+ ТекущееПодменю = Элементы.Добавить(ИмяПодменю, Тип("ГруппаФормы"), Элементы.ВерхняяПанель);
+ ТекущееПодменю.Вид = ВидГруппыФормы.Подменю;
+ КонецЕсли;
+ ТекущееПодменю.Заголовок = ПакетСтраниц.Раздел;
КонецЕсли;
-
КонецЕсли;
Если ТекущееПодменю <> Элементы.БезПодменю Тогда
- СтрокаТаблицы.ЗаголовокФормы = СтрокаТаблицы.ЗаголовокФормы + ": " + СтрокаТаблицы.Раздел +" / "+ СтрокаТаблицы.НаименованиеСтартовойСтраницы;
+ ПакетСтраниц.ЗаголовокФормы = ПакетСтраниц.ЗаголовокФормы + ": " + ПакетСтраниц.Раздел +" / "+ ПакетСтраниц.НаименованиеСтартовойСтраницы;
КонецЕсли;
- ИмяКоманды = "ДобавленныйЭлемент_" + СтрокаТаблицы.Идентификатор;
+ ИмяКоманды = "ДобавленныйЭлемент_" + ПакетСтраниц.Идентификатор;
Команда = Команды.Добавить(ИмяКоманды);
Команда.Действие = "Подключаемый_ПерейтиКСтранице";
- Команда.Заголовок = СтрокаТаблицы.НаименованиеСтартовойСтраницы;
+ Команда.Заголовок = ПакетСтраниц.НаименованиеСтартовойСтраницы;
Кнопка = Элементы.Добавить(ИмяКоманды, Тип("КнопкаФормы"), ТекущееПодменю);
Кнопка.ИмяКоманды = ИмяКоманды;
КонецЦикла;
+ Элементы.ГлавнаяСтраница.Видимость = ГлавнаяЗанята;
+
Если МинимальныйПриоритет = 100 Тогда
Возврат Ложь;
КонецЕсли;
- Найденные = ДобавленныеКоманды.НайтиСтроки(Новый Структура("Приоритет", МинимальныйПриоритет));
+ // Определение пакета для отображения.
ГенераторСлучайныхЧисел = Новый ГенераторСлучайныхЧисел;
- НомерСтроки = ГенераторСлучайныхЧисел.СлучайноеЧисло(1, Найденные.Количество());
+ НомерСтроки = ГенераторСлучайныхЧисел.СлучайноеЧисло(1, ПакетыСтраницСМинимальнымПриоритетом.Количество());
+ СтартовыйПакетСтраниц = ПакетыСтраницСМинимальнымПриоритетом[НомерСтроки-1];
- Возврат ПросмотрСтраницы("КомандаИзТаблицыДобавленных", Найденные[НомерСтроки-1]);
+ // Чтение пакета из регистра.
+ НомерПакета = Кэш.ПодготовленныеПакеты.Получить(СтартовыйПакетСтраниц.ИмяМакета);
+ Если НомерПакета = Неопределено Тогда
+ ФайлыПакета = Неопределено;
+ Иначе
+ ЗаписьРегистра = РегистрыСведений.ПакетыИнформацииПриЗапуске.Получить(Новый Структура("Номер", НомерПакета));
+ ФайлыПакета = ЗаписьРегистра.Состав.Получить();
+ КонецЕсли;
+ Если ФайлыПакета = Неопределено Тогда
+ ФайлыПакета = ИнформацияПриЗапуске.ИзвлечьФайлыПакета(РеквизитФормыВЗначение("Объект"), ПакетСтраниц.ИмяМакета);
+ КонецЕсли;
+
+ // Подготовка пакета к показу.
+ РазместитьСтраницыПакета(СтартовыйПакетСтраниц, ФайлыПакета);
+
+ // Показ первой страницы.
+ Если Не ПросмотрСтраницы("КомандаИзТаблицыДобавленных", СтартовыйПакетСтраниц) Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Возврат Истина;
КонецФункции
&НаСервере
Функция ПросмотрСтраницы(ТипДействия, Параметр = Неопределено)
- Перем СтрокаКоманды, АдресСтраницы, НоваяСтрокаИстории, НоваяСтрокаИндекс;
+ Перем ПакетСтраниц, АдресСтраницы, НоваяСтрокаИстории, НоваяСтрокаИндекс;
Если ТипДействия = "ПоВнутреннейСсылке" Тогда
ИмяОткрываемойСтраницы = Параметр;
СтрокаИстории = ИсторияПросмотра.Получить(ТекущаяСтрокаИндекс);
- СтрокаКоманды = ДобавленныеКоманды.НайтиПоИдентификатору(СтрокаИстории.КомандаИдентификатор);
+ ПакетСтраниц = ПакетыСтраниц.НайтиПоИдентификатору(СтрокаИстории.ИдентификаторПакета);
Поиск = Новый Структура("ОтносительноеИмя", СтрЗаменить(ИмяОткрываемойСтраницы, "\", "/"));
- Найденные = СтрокаКоманды.ВебСтраницы.НайтиСтроки(Поиск);
+ Найденные = ПакетСтраниц.ВебСтраницы.НайтиСтроки(Поиск);
Если Найденные.Количество() = 0 Тогда
Возврат Ложь;
КонецЕсли;
АдресСтраницы = Найденные[0].Адрес;
- ИначеЕсли ТипДействия = "Назад" ИЛИ ТипДействия = "Вперед" Тогда
+ ИначеЕсли ТипДействия = "Назад" Или ТипДействия = "Вперед" Тогда
СтрокаИстории = ИсторияПросмотра.Получить(ТекущаяСтрокаИндекс);
НоваяСтрокаИндекс = ТекущаяСтрокаИндекс + ?(ТипДействия = "Назад", -1, +1);
НоваяСтрокаИстории = ИсторияПросмотра[НоваяСтрокаИндекс];
- СтрокаКоманды = ДобавленныеКоманды.НайтиПоИдентификатору(НоваяСтрокаИстории.КомандаИдентификатор);
+ ПакетСтраниц = ПакетыСтраниц.НайтиПоИдентификатору(НоваяСтрокаИстории.ИдентификаторПакета);
АдресСтраницы = НоваяСтрокаИстории.АдресСтраницы;
ИначеЕсли ТипДействия = "КомандаИзКоманднойПанели" Тогда
ИмяКоманды = Параметр;
- Найденные = ДобавленныеКоманды.НайтиСтроки(Новый Структура("Идентификатор", СтрЗаменить(ИмяКоманды, "ДобавленныйЭлемент_", "")));
+ Найденные = ПакетыСтраниц.НайтиСтроки(Новый Структура("Идентификатор", СтрЗаменить(ИмяКоманды, "ДобавленныйЭлемент_", "")));
Если Найденные.Количество() = 0 Тогда
Возврат Ложь;
КонецЕсли;
- СтрокаКоманды = Найденные[0];
+ ПакетСтраниц = Найденные[0];
ИначеЕсли ТипДействия = "КомандаИзТаблицыДобавленных" Тогда
- СтрокаКоманды = Параметр;
+ ПакетСтраниц = Параметр;
Иначе
@@ -316,18 +302,21 @@
КонецЕсли;
// Размещение во временном хранилище.
- РазместитьСтраницыКоманды(СтрокаКоманды);
+ Если ПакетСтраниц.АдресСтартовойСтраницы = "" Тогда
+ ФайлыПакета = ИнформацияПриЗапуске.ИзвлечьФайлыПакета(РеквизитФормыВЗначение("Объект"), ПакетСтраниц.ИмяМакета);
+ РазместитьСтраницыПакета(ПакетСтраниц, ФайлыПакета);
+ КонецЕсли;
// Получение адреса размещения страницы во временном хранилище.
Если АдресСтраницы = Неопределено Тогда
- АдресСтраницы = СтрокаКоманды.АдресСтартовойСтраницы;
+ АдресСтраницы = ПакетСтраниц.АдресСтартовойСтраницы;
КонецЕсли;
// Регистрация в истории просмотра.
Если НоваяСтрокаИстории = Неопределено Тогда
- НоваяСтрокаИсторииСтруктура = Новый Структура("КомандаИдентификатор, АдресСтраницы");
- НоваяСтрокаИсторииСтруктура.КомандаИдентификатор = СтрокаКоманды.ПолучитьИдентификатор();
+ НоваяСтрокаИсторииСтруктура = Новый Структура("ИдентификаторПакета, АдресСтраницы");
+ НоваяСтрокаИсторииСтруктура.ИдентификаторПакета = ПакетСтраниц.ПолучитьИдентификатор();
НоваяСтрокаИсторииСтруктура.АдресСтраницы = АдресСтраницы;
Найденные = ИсторияПросмотра.НайтиСтроки(НоваяСтрокаИсторииСтруктура);
@@ -359,114 +348,53 @@
// Установка веб содержимого и заголовка формы.
ВебСодержимое = ПолучитьИзВременногоХранилища(АдресСтраницы);
- Заголовок = СтрокаКоманды.ЗаголовокФормы;
+ Заголовок = ПакетСтраниц.ЗаголовокФормы;
Возврат Истина;
КонецФункции
&НаСервере
-Процедура РазместитьСтраницыКоманды(СтрокаТаблицы)
- // Выход если страницы команды уже размещены.
- Если СтрокаТаблицы.АдресСтартовойСтраницы <> "" Тогда
- Возврат;
- КонецЕсли;
-
- // Извлечение страницы
- АрхивПолноеИмя = КаталогВременныхФайлов + "tmp.zip";
- Попытка
- ДвоичныеДанные = РеквизитФормыВЗначение("Объект").ПолучитьМакет(СтрокаТаблицы.ИмяМакета);
- ДвоичныеДанные.Записать(АрхивПолноеИмя);
- Исключение
- ЗаписьЖурналаРегистрации(
- НСтр("ru = 'Информация при запуске'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
- УровеньЖурналаРегистрации.Ошибка,
- ,
- ,
- ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
- Возврат;
- КонецПопытки;
-
- ЧтениеZipФайла = Новый ЧтениеZipФайла(АрхивПолноеИмя);
- ЧтениеZipФайла.ИзвлечьВсе(КаталогВременныхФайлов, РежимВосстановленияПутейФайловZIP.Восстанавливать);
-
- УдалитьФайлы(АрхивПолноеИмя);
-
- Картинки = Новый Соответствие; // Ключ - относительное имя, Значение - адрес в хранилище.
-
- // Регистрация ссылок страниц и создание списка картинок.
- КаталогиФайлов = Новый СписокЗначений;
- КаталогиФайлов.Добавить(КаталогВременныхФайлов, "");
- Осталось = 1;
- Пока Осталось > 0 Цикл
- Осталось = Осталось - 1;
- Каталог = КаталогиФайлов[0];
- КаталогПолныйПуть = Каталог.Значение; // Полный путь в формате файловой системы.
- КаталогОтносительныйПуть = Каталог.Представление; // Относительный путь в URL формате.
- КаталогиФайлов.Удалить(0);
-
- Найденные = НайтиФайлы(КаталогПолныйПуть, "*", Ложь);
- Для Каждого Файл Из Найденные Цикл
- ФайлОтносительноеИмя = КаталогОтносительныйПуть + Файл.Имя;
-
- Если Файл.ЭтоКаталог() Тогда
- Осталось = Осталось + 1;
- КаталогиФайлов.Добавить(Файл.ПолноеИмя, ФайлОтносительноеИмя + "/");
- Продолжить;
- КонецЕсли;
-
- Расширение = СтрЗаменить(НРег(Файл.Расширение), ".", "");
-
- Если Расширение = "htm" ИЛИ Расширение = "html" Тогда
- РазмещениеФайла = СтрокаТаблицы.ВебСтраницы.Добавить();
- РазмещениеФайла.ОтносительноеИмя = ФайлОтносительноеИмя;
- РазмещениеФайла.Адрес = Файл.ПолноеИмя;
- РазмещениеФайла.ОтносительныйКаталог = КаталогОтносительныйПуть;
- Иначе
- Картинка = Новый Картинка(Новый ДвоичныеДанные(Файл.ПолноеИмя));
- АдресКартинки = ПоместитьВоВременноеХранилище(Картинка, УникальныйИдентификатор);
- Картинки.Вставить(ФайлОтносительноеИмя, АдресКартинки);
- КонецЕсли;
- КонецЦикла;
- КонецЦикла;
+Процедура РазместитьСтраницыПакета(ПакетСтраниц, ФайлыПакета)
+ ФайлыПакета.Картинки.Колонки.Добавить("Адрес", Новый ОписаниеТипов("Строка"));
// Регистрация картинок и ссылок на страницы встроенной справки.
- Для НомерСтроки = 1 По СтрокаТаблицы.ВебСтраницы.Количество() Цикл
- РазмещениеФайла = СтрокаТаблицы.ВебСтраницы[НомерСтроки-1];
+ Для Каждого ВебСтраница Из ФайлыПакета.ВебСтраницы Цикл
+ ТекстHTML = ВебСтраница.Данные;
- ЧтениеТекста = Новый ЧтениеТекста(РазмещениеФайла.Адрес, );
- ТекстHTML = ЧтениеТекста.Прочитать();
- ЧтениеТекста.Закрыть();
- ЧтениеТекста = Неопределено;
-
- // Регистрация картинок
- Длина = СтрДлина(РазмещениеФайла.ОтносительныйКаталог);
- Для Каждого КлючИЗначение Из Картинки Цикл
- ПутьККартинке = КлючИЗначение.Ключ;
- АдресКартинки = КлючИЗначение.Значение;
- Если Длина > 0 И Лев(ПутьККартинке, Длина) = РазмещениеФайла.ОтносительныйКаталог Тогда
+ // Регистрация картинок.
+ Длина = СтрДлина(ВебСтраница.ОтносительныйКаталог);
+ Для Каждого Картинка Из ФайлыПакета.Картинки Цикл
+ // Помещение картинок во временное хранилище.
+ Если ПустаяСтрока(Картинка.Адрес) Тогда
+ Картинка.Адрес = ПоместитьВоВременноеХранилище(Картинка.Данные, УникальныйИдентификатор);
+ КонецЕсли;
+ // Вычисление пути к картинки от страницы.
+ // Например в странице "/1/a.htm" путь к картинке "/1/2/b.png" будет значиться как "2/b.png".
+ ПутьККартинке = Картинка.ОтносительноеИмя;
+ Если Длина > 0 И Лев(ПутьККартинке, Длина) = ВебСтраница.ОтносительныйКаталог Тогда
ПутьККартинке = Сред(ПутьККартинке, Длина + 1);
КонецЕсли;
- ТекстHTML = СтрЗаменить(ТекстHTML, ПутьККартинке, АдресКартинки);
+ // Замена относительных путей картинки на адреса во временном хранилище.
+ ТекстHTML = СтрЗаменить(ТекстHTML, ПутьККартинке, Картинка.Адрес);
КонецЦикла;
// Замена относительных встроенных ссылок на абсолютные для этой ИБ.
ТекстHTML = СтрЗаменить(ТекстHTML, "v8config://", СтандартныйПрефикс + "e1cib/helpservice/topics/v8config/");
// Регистрация гиперссылок встроенной справки.
- ДобавитьГиперссылкиВстроеннойСправки(ТекстHTML, СтрокаТаблицы.ВебСтраницы);
+ ДобавитьГиперссылкиВстроеннойСправки(ТекстHTML, ПакетСтраниц.ВебСтраницы);
// Размещение HTML содержимого во временном хранилище.
- РазмещениеФайла.Адрес = ПоместитьВоВременноеХранилище(ТекстHTML, УникальныйИдентификатор);
+ РегистрацияВебСтраницы = ПакетСтраниц.ВебСтраницы.Добавить();
+ РегистрацияВебСтраницы.ОтносительноеИмя = ВебСтраница.ОтносительноеИмя;
+ РегистрацияВебСтраницы.ОтносительныйКаталог = ВебСтраница.ОтносительныйКаталог;
+ РегистрацияВебСтраницы.Адрес = ПоместитьВоВременноеХранилище(ТекстHTML, УникальныйИдентификатор);
// Регистрация стартовой страницы.
- Если РазмещениеФайла.ОтносительноеИмя = СтрокаТаблицы.ИмяФайлаСтартовойСтраницы Тогда
- СтрокаТаблицы.АдресСтартовойСтраницы = РазмещениеФайла.Адрес;
+ Если РегистрацияВебСтраницы.ОтносительноеИмя = ПакетСтраниц.ИмяФайлаСтартовойСтраницы Тогда
+ ПакетСтраниц.АдресСтартовойСтраницы = РегистрацияВебСтраницы.Адрес;
КонецЕсли;
-
КонецЦикла;
-
- // Удаление временных файлов (все файлы были помещены во временные хранилища).
- УдалитьФайлы(КаталогВременныхФайлов, "*");
КонецПроцедуры
&НаСервереБезКонтекста
@@ -478,22 +406,6 @@
КонецЕсли;
КонецПроцедуры
-&НаСервере
-Функция ДанныеКолонки(ТабличныйДокумент, ПрефиксСтроки, НомерКолонки, Тип = "Строка", ЗначениеПоУмолчанию = "")
- Результат = СокрЛП(ТабличныйДокумент.Область(ПрефиксСтроки + Строка(НомерКолонки)).Текст);
- Если ПустаяСтрока(Результат) Тогда
- Возврат ЗначениеПоУмолчанию;
- ИначеЕсли Тип = "Число" Тогда
- Возврат Число(Результат);
- ИначеЕсли Тип = "Дата" Тогда
- Возврат Дата(Результат);
- ИначеЕсли Тип = "Булево" Тогда
- Возврат Результат <> "0";
- Иначе
- Возврат Результат;
- КонецЕсли;
-КонецФункции
-
&НаСервере
Функция ДобавитьГиперссылкиВстроеннойСправки(ТекстHTML, ВебСтраницы)
ПрефиксГиперссылкиВстроеннойСправки = """" + СтандартныйПрефикс + "e1cib/helpservice/topics/v8config/v8cfgHelp/";
@@ -522,4 +434,17 @@
КонецЦикла;
КонецФункции
+&НаКлиентеНаСервереБезКонтекста
+Функция СтрЛевДоСимвола(Строка, Разделитель, Остаток = Неопределено)
+ Позиция = Найти(Строка, Разделитель);
+ Если Позиция = 0 Тогда
+ СтрокаДоТочки = Строка;
+ Остаток = "";
+ Иначе
+ СтрокаДоТочки = Лев(Строка, Позиция - 1);
+ Остаток = Сред(Строка, Позиция + СтрДлина(Разделитель));
+ КонецЕсли;
+ Возврат СтрокаДоТочки;
+КонецФункции
+
#КонецОбласти
diff --git a/SSL/src/DataProcessors/ИнформацияПриЗапуске/Help/ru.html b/SSL/src/DataProcessors/ИнформацияПриЗапуске/Help/ru.html
index 05624c738..6b2f122af 100644
--- a/SSL/src/DataProcessors/ИнформацияПриЗапуске/Help/ru.html
+++ b/SSL/src/DataProcessors/ИнформацияПриЗапуске/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для просмотра справочной, нормативной и другой информации, поставляемой в составе программы.
Для базовых версий показ дополнительной информации при начале работы программы выполняется всегда.
Открывается по команде Информация при запуске из группы Информация на странице Главное. При открытии сразу показывается одна из страниц дополнительной информации.
Открывается из списка Мои бизнес-процессы или из окна бизнес-процесса (например, Задания) по кнопке Карта маршрута.
Ход выполнения бизнес-процесса в программе наглядно представлен в виде карты маршрута. Карта маршрута описывает логику бизнес-процесса и весь его жизненный цикл в виде схематического изображения - последовательности прохождения точек маршрута. Точка маршрута отражает этап бизнес-процесса, связанный с выполнением, как правило, одной операции. При переходе бизнес-процесса в какую-либо точку маршрута, предусматривающую действия конкретного исполнителя, формируется задача. После того как исполнитель отметит задачу как выполненную, бизнес-процесс автоматически перейдет к следующей точке маршрута. Таким образом, с помощью выполнения задач бизнес-процесс продвигается к точке своего завершения.
При работе с программой предусмотрена возможность отображения актуальной карты маршрута для конкретного бизнес-процесса, с учетом пройденных и активных точек маршрута. Пройденные (выполненные) точки маршрута обозначаются штриховкой.
diff --git a/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/ObjectModule.bsl b/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/ObjectModule.bsl
new file mode 100644
index 000000000..236e6a958
--- /dev/null
+++ b/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/ObjectModule.bsl
@@ -0,0 +1,453 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+#Область ПрограммныйИнтерфейс
+
+#Область ЭкспортныеСвойства
+
+// Функция-свойство: результат выполнения обмена данными.
+//
+// Тип: ПеречислениеСсылка.РезультатыВыполненияОбмена
+//
+Функция РезультатВыполненияОбмена() Экспорт
+
+ Возврат КомпонентыОбмена.СостояниеОбменаДанными.РезультатВыполненияОбмена;
+
+КонецФункции
+
+// Функция-свойство: количество объектов, которые были загружены.
+//
+// Тип: Число
+//
+Функция СчетчикЗагруженныхОбъектов() Экспорт
+
+ Возврат КомпонентыОбмена.СчетчикЗагруженныхОбъектов;
+
+КонецФункции
+
+// Функция-свойство: количество объектов, которые были выгружены.
+//
+// Тип: Число
+//
+Функция СчетчикВыгруженныхОбъектов() Экспорт
+
+ Возврат КомпонентыОбмена.СчетчикВыгруженныхОбъектов;
+
+КонецФункции
+
+// Функция-свойство: строка, которая содержит сообщение об ошибке при обмене данными.
+//
+// Тип: Строка
+//
+Функция СтрокаСообщенияОбОшибке() Экспорт
+
+ Возврат КомпонентыОбмена.СтрокаСообщенияОбОшибке;
+
+КонецФункции
+
+// Функция-свойство: флаг ошибки выполнения обмена данными.
+//
+// Тип: Булево
+//
+Функция ФлагОшибки() Экспорт
+
+ Возврат КомпонентыОбмена.ФлагОшибки;
+
+КонецФункции
+
+// Функция-свойство: номер сообщения обмена данными.
+//
+// Тип: Число
+//
+Функция НомерСообщения() Экспорт
+
+ Возврат КомпонентыОбмена.НомерВходящегоСообщения;
+
+КонецФункции
+
+// Функция-свойство: таблица значений со статистической и дополнительной информацией о входящем сообщении обмена.
+//
+// Тип: ТаблицаЗначений
+//
+Функция ТаблицаДанныхЗаголовкаПакета() Экспорт
+
+ Если КомпонентыОбмена = Неопределено Тогда
+ Возврат ОбменДаннымиXDTOСервер.НоваяТаблицаДанныхЗаголовкаПакета();
+ Иначе
+ Возврат КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета;
+ КонецЕсли;
+
+КонецФункции
+
+// Функция-свойство: соответствие с таблицами данных входящего сообщения обмена.
+//
+// Тип: Соответствие
+//
+Функция ТаблицыДанныхСообщенияОбмена() Экспорт
+
+ Если КомпонентыОбмена = Неопределено Тогда
+ Возврат Новый Соответствие;
+ Иначе
+ Возврат КомпонентыОбмена.ТаблицыДанныхСообщенияОбмена;
+ КонецЕсли;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область ВыгрузкаДанных
+
+// Выполняет выгрузку данных
+// -- Все объекты выгружаются в один файл.
+//
+// Параметры:
+//
+Процедура ВыполнитьВыгрузкуДанных(ОбработкаДляЗагрузкиДанных = Неопределено) Экспорт
+
+ КомпонентыОбмена = ОбменДаннымиXDTOСервер.ИнициализироватьКомпонентыОбмена("Отправка");
+
+ КомпонентыОбмена.ВедениеПротоколаДанных.ВыводВПротоколИнформационныхСообщений = ВыводВПротоколИнформационныхСообщений;
+ КомпонентыОбмена.КлючСообщенияЖурналаРегистрации = КлючСообщенияЖурналаРегистрации;
+
+ #Область НастройкаКомпонентовОбменаНаРаботуСУзлом
+ КомпонентыОбмена.УзелКорреспондента = УзелДляОбмена;
+
+ КомпонентыОбмена.ВерсияФорматаОбмена = ОбменДаннымиXDTOСервер.ВерсияФорматаОбменаПриВыгрузке(УзелДляОбмена);
+
+ ФорматОбмена = ОбменДаннымиXDTOСервер.ФорматОбмена(
+ УзелДляОбмена, КомпонентыОбмена.ВерсияФорматаОбмена);
+ КомпонентыОбмена.XMLСхема = ФорматОбмена;
+
+ КомпонентыОбмена.МенеджерОбмена = ОбменДаннымиXDTOСервер.МенеджерОбменаВерсииФормата(
+ УзелДляОбмена, КомпонентыОбмена.ВерсияФорматаОбмена);
+
+ КомпонентыОбмена.ТаблицаПравилаРегистрацииОбъектов = ОбменДаннымиXDTOСервер.ПравилаРегистрацииОбъектов(УзелДляОбмена);
+ КомпонентыОбмена.СвойстваУзлаПланаОбмена = ОбменДаннымиXDTOСервер.СвойстваУзлаПланаОбмена(УзелДляОбмена);
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьТаблицыПравилОбмена(КомпонентыОбмена);
+ #КонецОбласти
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьВедениеПротоколаОбмена(КомпонентыОбмена, ИмяФайлаПротоколаОбмена);
+
+ // Открываем файл обмена
+ ОбменДаннымиXDTOСервер.ОткрытьФайлВыгрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+
+ Если КомпонентыОбмена.ФлагОшибки Тогда
+ КомпонентыОбмена.ФайлОбмена = Неопределено;
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ // ВЫГРУЗКА ДАННЫХ
+ Попытка
+ ОбменДаннымиXDTOСервер.ПроизвестиВыгрузкуДанных(КомпонентыОбмена);
+ Исключение
+ Если КомпонентыОбмена.ЭтоОбменЧерезПланОбмена Тогда
+ РазблокироватьДанныеДляРедактирования(УзелДляОбмена);
+ КонецЕсли;
+ ОбменДаннымиXDTOСервер.ЗаписатьВПротоколВыполнения(КомпонентыОбмена, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ КомпонентыОбмена.ФайлОбмена = Неопределено;
+ Возврат;
+ КонецПопытки;
+
+ КомпонентыОбмена.ФайлОбмена.Закрыть();
+
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ЗагрузкаДанных
+
+// Выполняет загрузку данных из файла сообщения обмена.
+// Данные загружаются в информационную базу.
+//
+// Параметры:
+//
+Процедура ВыполнитьЗагрузкуДанных() Экспорт
+
+ КомпонентыОбмена = ОбменДаннымиXDTOСервер.ИнициализироватьКомпонентыОбмена("Получение");
+ КомпонентыОбмена.КлючСообщенияЖурналаРегистрации = КлючСообщенияЖурналаРегистрации;
+ КомпонентыОбмена.УзелКорреспондента = УзелОбменаЗагрузкаДанных;
+
+ КомпонентыОбмена.ВедениеПротоколаДанных.ВыводВПротоколИнформационныхСообщений = ВыводВПротоколИнформационныхСообщений;
+ РежимЗагрузкиДанных = "ЗагрузкаВИнформационнуюБазу";
+
+ КомпонентыОбмена.СостояниеОбменаДанными.ДатаНачала = ТекущаяДатаСеанса();
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьВедениеПротоколаОбмена(КомпонентыОбмена, ИмяФайлаПротоколаОбмена);
+
+ Если ПустаяСтрока(ИмяФайлаОбмена) Тогда
+ ОбменДаннымиXDTOСервер.ЗаписатьВПротоколВыполнения(КомпонентыОбмена, 15);
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ Если ПродолжитьПриОшибке Тогда
+ ИспользоватьТранзакции = Ложь;
+ КомпонентыОбмена.ИспользоватьТранзакции = Ложь;
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ОткрытьФайлЗагрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+
+ Если КомпонентыОбмена.ФлагОшибки Тогда
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьТаблицыПравилОбмена(КомпонентыОбмена);
+
+ Попытка
+ ОбменДаннымиXDTOСервер.ПроизвестиЧтениеДанных(КомпонентыОбмена);
+ Исключение
+ СтрокаСообщения = НСтр("ru = 'Ошибка при загрузке данных: %1'");
+ СтрокаСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщения, ОписаниеОшибки());
+ ОбменДаннымиXDTOСервер.ЗаписатьВПротоколВыполнения(КомпонентыОбмена, СтрокаСообщения,,,,,Истина);
+ КомпонентыОбмена.ФлагОшибки = Истина;
+ КонецПопытки;
+
+ КомпонентыОбмена.ФайлОбмена.Закрыть();
+
+ Если Не КомпонентыОбмена.ФлагОшибки Тогда
+
+ // Запишем информацию о номере входящего сообщения.
+ ОбъектУзла = УзелОбменаЗагрузкаДанных.ПолучитьОбъект();
+ ОбъектУзла.НомерПринятого = КомпонентыОбмена.НомерВходящегоСообщения;
+ ОбъектУзла.ДополнительныеСвойства.Вставить("ПолучениеСообщенияОбмена");
+ ОбъектУзла.Записать();
+
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+
+КонецПроцедуры
+
+// Выполняет загрузку данных из файла сообщения обмена в Информационную Базу только заданных типов объектов.
+//
+// Параметры:
+// ТаблицыДляЗагрузки - Массив - массив типов, которые необходимо загрузить из сообщения обмена; элемент массива -
+// Строка.
+// Например, для загрузки из сообщения обмена только элементов справочника Контрагенты:
+// ТаблицыДляЗагрузки = Новый Массив;
+// ТаблицыДляЗагрузки.Добавить("СправочникСсылка.Контрагенты");
+//
+// Список всех типов, которые содержаться в текущем сообщении обмена
+// можно получить вызовом процедуры ВыполнитьАнализСообщенияОбмена().
+//
+Процедура ВыполнитьЗагрузкуДанныхВИнформационнуюБазу(ТаблицыДляЗагрузки) Экспорт
+
+ КомпонентыОбмена = ОбменДаннымиXDTOСервер.ИнициализироватьКомпонентыОбмена("Получение");
+ КомпонентыОбмена.КлючСообщенияЖурналаРегистрации = КлючСообщенияЖурналаРегистрации;
+ КомпонентыОбмена.ВедениеПротоколаДанных.ВыводВПротоколИнформационныхСообщений = ВыводВПротоколИнформационныхСообщений;
+ КомпонентыОбмена.УзелКорреспондента = УзелОбменаЗагрузкаДанных;
+
+ РежимЗагрузкиДанных = "ЗагрузкаВИнформационнуюБазу";
+
+ КомпонентыОбмена.СостояниеОбменаДанными.ДатаНачала = ТекущаяДатаСеанса();
+
+ ОбменДаннымиXDTOСервер.ОткрытьФайлЗагрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+
+ Если КомпонентыОбмена.ФлагОшибки Тогда
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьТаблицыПравилОбмена(КомпонентыОбмена);
+
+ // Запись в журнале регистрации.
+ СтрокаСообщения = НСтр("ru = 'Начало процесса обмена данными для узла: %1'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка());
+ СтрокаСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщения, Строка(УзелОбменаЗагрузкаДанных));
+ ОбменДаннымиXDTOСервер.ЗаписьЖурналаРегистрацииОбменДанными(СтрокаСообщения, КомпонентыОбмена, УровеньЖурналаРегистрации.Информация);
+
+ ОбменДаннымиXDTOСервер.ПроизвестиЧтениеДанных(КомпонентыОбмена, ТаблицыДляЗагрузки);
+
+ // Запись в журнале регистрации.
+ СтрокаСообщения = НСтр("ru = '%1, %2; Обработано %3 объектов'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка());
+ СтрокаСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщения,
+ КомпонентыОбмена.СостояниеОбменаДанными.РезультатВыполненияОбмена,
+ Перечисления.ДействияПриОбмене.ЗагрузкаДанных,
+ Формат(КомпонентыОбмена.СчетчикЗагруженныхОбъектов, "ЧГ=0"));
+
+ ОбменДаннымиXDTOСервер.ЗаписьЖурналаРегистрацииОбменДанными(СтрокаСообщения, КомпонентыОбмена, УровеньЖурналаРегистрации.Информация);
+
+КонецПроцедуры
+
+// Выполняет последовательное чтение файла сообщения обмена при этом:
+// - удаляется регистрация изменений по номеру входящей квитанции
+// - загружаются правила обмена
+// - загружается информация о типах данных
+// - зачитывается информация сопоставления данных и записывается и ИБ
+// - собирается информация о типах объектов и их количестве.
+//
+// Параметры:
+// Нет.
+//
+Процедура ВыполнитьАнализСообщенияОбмена(ПараметрыАнализа = Неопределено) Экспорт
+
+ РежимЗагрузкиДанных = "ЗагрузкаВТаблицуЗначений";
+ ИспользоватьТранзакции = Ложь;
+
+ КомпонентыОбмена = ОбменДаннымиXDTOСервер.ИнициализироватьКомпонентыОбмена("Получение");
+ КомпонентыОбмена.ВедениеПротоколаДанных.ВыводВПротоколИнформационныхСообщений = ВыводВПротоколИнформационныхСообщений;
+ КомпонентыОбмена.КлючСообщенияЖурналаРегистрации = КлючСообщенияЖурналаРегистрации;
+ КомпонентыОбмена.УзелКорреспондента = УзелОбменаЗагрузкаДанных;
+ КомпонентыОбмена.РежимЗагрузкиДанныхВИнформационнуюБазу = Ложь;
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьВедениеПротоколаОбмена(КомпонентыОбмена, ИмяФайлаПротоколаОбмена);
+
+ Если ПустаяСтрока(ИмяФайлаОбмена) Тогда
+ ОбменДаннымиXDTOСервер.ЗаписатьВПротоколВыполнения(КомпонентыОбмена, 15);
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ // дата начала анализа
+ КомпонентыОбмена.СостояниеОбменаДанными.ДатаНачала = ТекущаяДатаСеанса();
+
+ ОбменДаннымиXDTOСервер.ОткрытьФайлЗагрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+
+ Если КомпонентыОбмена.ФлагОшибки Тогда
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьТаблицыПравилОбмена(КомпонентыОбмена);
+
+ Попытка
+
+ // Зачитываем данные из сообщения обмена.
+ ОбменДаннымиXDTOСервер.ПроизвестиЧтениеДанныхВРежимеАнализа(КомпонентыОбмена, ПараметрыАнализа);
+
+ // Формируем временную таблицу данных.
+ ТаблицаДанныхЗаголовкаПакетаВременная = КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета.Скопировать(, "ТипИсточникаСтрокой, ТипПриемникаСтрокой, ПоляПоиска, ПоляТаблицы");
+ ТаблицаДанныхЗаголовкаПакетаВременная.Свернуть("ТипИсточникаСтрокой, ТипПриемникаСтрокой, ПоляПоиска, ПоляТаблицы");
+
+ // Сворачиваем таблицу данных заголовка пакета.
+ КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета.Свернуть(
+ "ТипОбъектаСтрокой, ТипИсточникаСтрокой, ТипПриемникаСтрокой, СинхронизироватьПоИдентификатору, ЭтоКлассификатор, ЭтоУдалениеОбъекта, ИспользоватьПредварительныйПросмотр",
+ "КоличествоОбъектовВИсточнике"
+ );
+ //
+ КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета.Колонки.Добавить("ПоляПоиска", Новый ОписаниеТипов("Строка"));
+ КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета.Колонки.Добавить("ПоляТаблицы", Новый ОписаниеТипов("Строка"));
+
+ Для Каждого СтрокаТаблицы Из КомпонентыОбмена.ТаблицаДанныхЗаголовкаПакета Цикл
+
+ Отбор = Новый Структура;
+ Отбор.Вставить("ТипИсточникаСтрокой", СтрокаТаблицы.ТипИсточникаСтрокой);
+ Отбор.Вставить("ТипПриемникаСтрокой", СтрокаТаблицы.ТипПриемникаСтрокой);
+
+ СтрокиВременнойТаблицы = ТаблицаДанныхЗаголовкаПакетаВременная.НайтиСтроки(Отбор);
+
+ СтрокаТаблицы.ПоляПоиска = СтрокиВременнойТаблицы[0].ПоляПоиска;
+ СтрокаТаблицы.ПоляТаблицы = СтрокиВременнойТаблицы[0].ПоляТаблицы;
+
+ КонецЦикла;
+
+ Исключение
+ СтрокаСообщения = НСтр("ru = 'Ошибка при анализе данных: %1'");
+ СтрокаСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщения, ОписаниеОшибки());
+ ОбменДаннымиXDTOСервер.ЗаписатьВПротоколВыполнения(КомпонентыОбмена, СтрокаСообщения,,,,,Истина);
+ КонецПопытки;
+
+ КомпонентыОбмена.ФайлОбмена.Закрыть();
+
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+
+КонецПроцедуры
+
+// Выполняет загрузку данных из файла сообщения обмена в Таблицу значений только заданных типов объектов.
+//
+// Параметры:
+// ТаблицыДляЗагрузки - Массив - массив типов, которые необходимо загрузить из сообщения обмена; элемент массива -
+// Строка.
+// Например, для загрузки из сообщения обмена только элементов справочника Контрагенты:
+// ТаблицыДляЗагрузки = Новый Массив;
+// ТаблицыДляЗагрузки.Добавить("СправочникСсылка.Контрагенты");
+//
+// Список всех типов, которые содержаться в текущем сообщении обмена
+// можно получить вызовом процедуры ВыполнитьАнализСообщенияОбмена().
+//
+Процедура ВыполнитьЗагрузкуДанныхВТаблицуЗначений(ТаблицыДляЗагрузки) Экспорт
+
+ РежимЗагрузкиДанных = "ЗагрузкаВТаблицуЗначений";
+ ИспользоватьТранзакции = Ложь;
+
+ Если КомпонентыОбмена = Неопределено Тогда
+
+ КомпонентыОбмена = ОбменДаннымиXDTOСервер.ИнициализироватьКомпонентыОбмена("Получение");
+ КомпонентыОбмена.КлючСообщенияЖурналаРегистрации = КлючСообщенияЖурналаРегистрации;
+ КомпонентыОбмена.ВедениеПротоколаДанных.ВыводВПротоколИнформационныхСообщений = ВыводВПротоколИнформационныхСообщений;
+ КомпонентыОбмена.УзелКорреспондента = УзелОбменаЗагрузкаДанных;
+
+ ОбменДаннымиXDTOСервер.ОткрытьФайлЗагрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+
+ Если КомпонентыОбмена.ФлагОшибки Тогда
+ ОбменДаннымиXDTOСервер.ЗавершитьВедениеПротоколаОбмена(КомпонентыОбмена);
+ Возврат;
+ КонецЕсли;
+
+ ОбменДаннымиXDTOСервер.ИнициализироватьТаблицыПравилОбмена(КомпонентыОбмена);
+ Иначе
+ ОбменДаннымиXDTOСервер.ОткрытьФайлЗагрузки(КомпонентыОбмена, ИмяФайлаОбмена);
+ КонецЕсли;
+
+ КомпонентыОбмена.СостояниеОбменаДанными.ДатаНачала = ТекущаяДатаСеанса();
+ КомпонентыОбмена.РежимЗагрузкиДанныхВИнформационнуюБазу = Ложь;
+
+ // Инициализируем таблицы данных сообщения обмена.
+ Для Каждого КлючТаблицыДанных Из ТаблицыДляЗагрузки Цикл
+
+ МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(КлючТаблицыДанных, "#");
+
+ ТипОбъекта = МассивПодстрок[1];
+
+ КомпонентыОбмена.ТаблицыДанныхСообщенияОбмена.Вставить(КлючТаблицыДанных, ИнициализацияТаблицыДанныхСообщенияОбмена(Тип(ТипОбъекта)));
+
+ КонецЦикла;
+
+ ОбменДаннымиXDTOСервер.ПроизвестиЧтениеДанных(КомпонентыОбмена, ТаблицыДляЗагрузки);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#КонецОбласти
+
+#Область Прочее
+
+Функция ИнициализацияТаблицыДанныхСообщенияОбмена(ТипОбъекта)
+
+ ТаблицаДанныхСообщенияОбмена = Новый ТаблицаЗначений;
+
+ Колонки = ТаблицаДанныхСообщенияОбмена.Колонки;
+
+ // обязательные поля
+ Колонки.Добавить("УникальныйИдентификатор", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(36)));
+ Колонки.Добавить("ТипСтрокой", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(255)));
+
+ ОбъектМетаданных = Метаданные.НайтиПоТипу(ТипОбъекта);
+
+ // Получаем описание всех полей объекта метаданного из конфигурации.
+ ТаблицаОписанияСвойствОбъекта = ОбщегоНазначения.ПолучитьТаблицуОписанияСвойствОбъекта(ОбъектМетаданных, "Имя, Тип");
+
+ Для Каждого ОписаниеСвойства Из ТаблицаОписанияСвойствОбъекта Цикл
+
+ Колонки.Добавить(ОписаниеСвойства.Имя, ОписаниеСвойства.Тип);
+
+ КонецЦикла;
+
+ Возврат ТаблицаДанныхСообщенияОбмена;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область ОператорыОсновнойПрограммы
+
+Параметры = Новый Структура;
+
+#КонецОбласти
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/КонвертацияОбъектовXDTO.mdo b/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/КонвертацияОбъектовXDTO.mdo
new file mode 100644
index 000000000..5c7198238
--- /dev/null
+++ b/SSL/src/DataProcessors/КонвертацияОбъектовXDTO/КонвертацияОбъектовXDTO.mdo
@@ -0,0 +1,271 @@
+
+
+
+
+
+
+ КонвертацияОбъектовXDTO
+
+ ru
+ Конвертация объектов XDTO
+
+ true
+
+ ВыводВОкноСообщенийИнформационныхСообщений
+
+ ru
+ Вывод в окно сообщений информационных сообщений
+
+
+ Boolean
+
+
+
+
+
+ ВыводВПротоколИнформационныхСообщений
+
+ ru
+ Вывод в протокол информационных сообщений
+
+
+ Boolean
+
+
+
+
+
+ ВыгружатьТолькоРазрешенные
+
+ ru
+ Выгружать только разрешенные
+
+
+ Boolean
+
+
+
+
+
+ ДописыватьДанныеВПротоколОбмена
+
+ ru
+ Дописывать данные в протокол обмена
+
+
+ Boolean
+
+
+
+
+
+ ИмяПланаОбменаВРО
+
+ ru
+ Имя плана обмена с выборочной регистраций объектов
+
+
+ String
+
+ 150
+
+
+
+
+
+
+ ИмяФайлаОбмена
+
+ ru
+ Имя файла обмена
+
+
+ String
+
+
+
+
+
+
+ ИмяФайлаПротоколаОбмена
+
+ ru
+ Имя файла протокола обмена
+
+
+ String
+
+ 255
+
+
+
+
+
+
+ ИспользоватьТранзакции
+
+ ru
+ Использовать транзакции
+
+
+ Boolean
+
+
+
+
+
+ КоличествоОбработанныхОбъектовДляОбновленияСтатуса
+
+ ru
+ Количество обработанных объектов для обновления статуса
+
+
+ Number
+
+ 10
+ true
+
+
+
+
+
+
+ КоличествоОбъектовНаТранзакцию
+
+ ru
+ Количество объектов на транзакцию
+
+
+ Number
+
+ 10
+ true
+
+
+
+
+
+
+ КомментарийПриВыгрузкеДанных
+
+ ru
+ Комментарий при выгрузке данных
+
+
+ String
+
+
+
+
+
+
+ КомментарийПриЗагрузкеДанных
+
+ ru
+ Комментарий при загрузке данных
+
+
+ String
+
+
+
+
+
+
+ Параметры
+
+ ru
+ Параметры
+
+
+
+
+
+
+ ПродолжитьПриОшибке
+
+ ru
+ Продолжить при ошибке
+
+
+ Boolean
+
+
+
+
+
+ РежимЗагрузкиДанных
+
+ ru
+ Режим загрузки данных
+
+
+ String
+
+
+
+
+
+
+ РежимОбмена
+
+ ru
+ Режим обмена
+
+
+ String
+
+ 10
+
+
+
+
+
+
+ УзелДляОбмена
+
+ ru
+ Узел для обмена
+
+
+ ExchangePlanRef
+
+
+
+
+
+ УзелОбменаЗагрузкаДанных
+
+ ru
+ Узел обмена загрузка данных
+
+
+ ExchangePlanRef
+
+
+
+
+
+ КомпонентыОбмена
+
+ ru
+ Компоненты обмена
+
+
+
+
+
+
+ КлючСообщенияЖурналаРегистрации
+
+ ru
+ Ключ сообщения журнала регистрации
+
+
+ String
+
+
+
+
+
+
diff --git a/SSL/src/DataProcessors/КонвертацияОбъектовИнформационныхБаз/ObjectModule.bsl b/SSL/src/DataProcessors/КонвертацияОбъектовИнформационныхБаз/ObjectModule.bsl
index ebaa088c6..07ca9d4a7 100644
--- a/SSL/src/DataProcessors/КонвертацияОбъектовИнформационныхБаз/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/КонвертацияОбъектовИнформационныхБаз/ObjectModule.bsl
@@ -441,21 +441,6 @@
Возврат ПолеТаблицыОписанийСвойствОбъектов;
КонецФункции
-Функция ДокументыДляОтложенногоПроведения()
-
- Если ТипЗнч(ПолеДокументыДляОтложенногоПроведения) <> Тип("ТаблицаЗначений") Тогда
-
- // Инициализируем таблицу для отложенного проведения документов.
- ПолеДокументыДляОтложенногоПроведения = Новый ТаблицаЗначений;
- ПолеДокументыДляОтложенногоПроведения.Колонки.Добавить("ДокументСсылка");
- ПолеДокументыДляОтложенногоПроведения.Колонки.Добавить("ДатаДокумента", одОписаниеТипа("Дата"));
-
- КонецЕсли;
-
- Возврат ПолеДокументыДляОтложенногоПроведения;
-
-КонецФункции
-
Функция ДополнительныеСвойстваДляОтложенногоПроведения()
Если ТипЗнч(СоответствиеДокументовДляОтложенногоПроведения) <> Тип("Соответствие") Тогда
@@ -882,12 +867,12 @@
// Отложенная запись того, что не записали.
ПровестиЗаписьНеЗаписанныхОбъектов();
+ ВыполнитьОбработчикПослеЗагрузкиДанных();
+
Если ФлагОшибки() Тогда
ВызватьИсключение НСтр("ru = 'Возникли ошибки при загрузке данных.'");
КонецЕсли;
- ЗакончитьЧтениеСообщения(ЧтениеСообщения);
-
Если ИспользоватьТранзакции Тогда
ЗафиксироватьТранзакцию();
КонецЕсли;
@@ -903,6 +888,8 @@
ВыполнитьОтложенноеПроведениеДокументов();
ВыполнитьОтложеннуюЗаписьОбъектов();
+ ЗакончитьЧтениеСообщения(ЧтениеСообщения);
+
Исключение
Если ЧтениеСообщения <> Неопределено
И ЧтениеСообщения.СообщениеБылоПринятоРанее Тогда
@@ -1125,6 +1112,8 @@
КонецЦикла;
+ ВыполнитьОбработчикПослеЗагрузкиДанных();
+
ЗакончитьЧтениеСообщения(ЧтениеСообщения);
Исключение
@@ -1621,7 +1610,8 @@
ИмяКонстантыДляВыгрузки = "",
ЭтоВыгружаетсяОбъект = Неопределено,
ЭтоПравилоСГлобальнойВыгрузкойОбъектов = Ложь,
- НеИспользоватьПравилоСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные = Ложь) Экспорт
+ НеИспользоватьПравилоСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные = Ложь,
+ СтекВыгрузкиОбъекта = Неопределено) Экспорт
//
ОпределитьПКОПоПараметрам(ПКО, Источник, ИмяПКО);
@@ -1663,7 +1653,27 @@
ЭтоПравилоСГлобальнойВыгрузкойОбъектов = Ложь;
- ЗапоминатьВыгруженные = Ложь;
+ Если СтекВыгрузкиОбъекта = Неопределено Тогда
+ СтекВыгрузкиОбъекта = Новый Массив;
+ КонецЕсли;
+
+ СвойстваДляПереноса = Новый Структура("Ссылка");
+ Если Источник <> Неопределено И ТипЗнч(Источник) <> Тип("Строка") Тогда
+ ЗаполнитьЗначенияСвойств(СвойстваДляПереноса, Источник);
+ КонецЕсли;
+ ИсточникСсылка = СвойстваДляПереноса.Ссылка;
+
+ ОбъектВыгружаетсяПоСсылкеИзСамогоСебя = Ложь;
+ Если ЗначениеЗаполнено(ИсточникСсылка) Тогда
+ ПорядковыйНомерВСтеке = СтекВыгрузкиОбъекта.Найти(ИсточникСсылка);
+ ОбъектВыгружаетсяПоСсылкеИзСамогоСебя = ПорядковыйНомерВСтеке <> Неопределено;
+ КонецЕсли;
+
+ СтекВыгрузкиОбъекта.Добавить(ИсточникСсылка);
+
+ // Циклическая ссылка на объект.
+ ЗапоминатьВыгруженные = ОбъектВыгружаетсяПоСсылкеИзСамогоСебя;
+
ВыгруженныеОбъекты = ПКО.Выгруженные;
ВсеОбъектыВыгружены = ПКО.ВсеОбъектыВыгружены;
НеЗамещатьОбъектПриЗагрузке = ПКО.НеЗамещать;
@@ -1978,7 +1988,7 @@
Если НеНужноВыгружатьПоСоответствиюЗначений Тогда
Если ПКО.СвойстваПоиска.Количество() > 0
- ИЛИ ИмяПредопределенногоЭлемента <> Неопределено Тогда
+ ИЛИ ИмяПредопределенногоЭлемента <> Неопределено Тогда
// Формируем узел ссылки
УзелСсылки = СоздатьУзел("Ссылка");
@@ -2017,7 +2027,7 @@
ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ПКО, ПКО.СвойстваПоиска,
УзелСсылки, , ИмяПредопределенногоЭлемента, Истина,
- Истина, ВыгружаетсяОбъект, КлючВыгружаемыхДанных, , ЗначениеСсылкиВДругойИБ);
+ Истина, ВыгружаетсяОбъект, КлючВыгружаемыхДанных, , ЗначениеСсылкиВДругойИБ,,, СтекВыгрузкиОбъекта);
КонецЕсли;
@@ -2204,7 +2214,8 @@
, // НеИспользоватьПравилаСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные = Ложь
ЗначениеСсылкиВДругойИБ, // ЗначениеСсылкиВДругойИБ
СписокВременныхФайлов, // СписокВременныхФайлов = Неопределено
- ВыгрузкаСтрокиНабораЗаписейРегистра); // ВыгрузкаСтрокиНабораЗаписейРегистра = Ложь
+ ВыгрузкаСтрокиНабораЗаписейРегистра, // ВыгрузкаСтрокиНабораЗаписейРегистра = Ложь
+ СтекВыгрузкиОбъекта);
КонецЕсли;
@@ -2561,6 +2572,48 @@
КонецПроцедуры
+// Возвращает таблицу значений, в которой содержатся ссылки на документы для отложенного проведения,
+// а также даты этих документов для предварительной сортировки.
+//
+// Возвращаемое значение:
+// Таблица значений, колонки:
+// ДокументСсылка - ссылка, ссылка на загруженный документ требующий отложенного проведения;
+// ДатаДокумента - дата, дата загруженного документа для предварительной сортировки таблицы.
+//
+Функция ДокументыДляОтложенногоПроведения() Экспорт
+
+ Если ТипЗнч(ПолеДокументыДляОтложенногоПроведения) <> Тип("ТаблицаЗначений") Тогда
+
+ // Инициализируем таблицу для отложенного проведения документов.
+ ПолеДокументыДляОтложенногоПроведения = Новый ТаблицаЗначений;
+ ПолеДокументыДляОтложенногоПроведения.Колонки.Добавить("ДокументСсылка");
+ ПолеДокументыДляОтложенногоПроведения.Колонки.Добавить("ДатаДокумента", одОписаниеТипа("Дата"));
+
+ КонецЕсли;
+
+ Возврат ПолеДокументыДляОтложенногоПроведения;
+
+КонецФункции
+
+// Добавляет в таблицу отложенного проведения строку содержащую ссылку на документ,
+// который необходимо провести и дату документа для предварительной сортировки.
+//
+// Параметры:
+// СсылкаНаОбъект - Ссылка, объект, который необходимо провести отложенно;
+// ДатаОбъекта - Дата, дата объекта;
+// ДополнительныеСвойства - Структура, дополнительные свойства записываемого объекта.
+//
+Процедура ДобавитьОбъектДляОтложенногоПроведения(СсылкаНаОбъект, ДатаОбъекта, ДополнительныеСвойства) Экспорт
+
+ ТаблицаОтложенногоПроведения = ДокументыДляОтложенногоПроведения();
+ НоваяСтрока = ТаблицаОтложенногоПроведения.Добавить();
+ НоваяСтрока.ДокументСсылка = СсылкаНаОбъект;
+ НоваяСтрока.ДатаДокумента = ДатаОбъекта;
+
+ ДополнительныеСвойстваДляОтложенногоПроведения().Вставить(СсылкаНаОбъект, ДополнительныеСвойства);
+
+КонецПроцедуры
+
Процедура ПолучитьЗначенияПредопределенныхДанных(Знач ПКО)
ПКО.ЗначенияПредопределенныхДанных = Новый Соответствие;
@@ -4542,7 +4595,11 @@
КонецЕсли;
- // ПОЛУЧАЕМ ПОЛЯ ТАБЛИЦЫ И ПОЛЯ ПОИСКА ДЛЯ ПРАВИЛ ЗАГРУЗКИ ДАННЫХ (ЗаписьXML)
+ КонецЕсли;
+
+ ПоляТаблицы = "";
+ ПоляПоиска = "";
+ Если НоваяСтрока.Свойства.Количество() > 0 Тогда
СвойстваМассив = НоваяСтрока.Свойства.Скопировать(Новый Структура("ЭтоГруппа, ИмяПараметраДляПередачи", Ложь, ""), "Приемник").ВыгрузитьКолонку("Приемник");
@@ -4571,6 +4628,21 @@
ПоляТаблицы = СтроковыеФункцииКлиентСервер.СтрокаИзМассиваПодстрок(СвойстваМассив);
ПоляПоиска = СтроковыеФункцииКлиентСервер.СтрокаИзМассиваПодстрок(СвойстваПоискаМассив);
+ КонецЕсли;
+
+ Если РежимОбмена = "Загрузка" Тогда
+
+ // Загрузка правил корреспондента - необходимо запомнить поля поиска и поля таблицы.
+ Если Не ЗначениеЗаполнено(НоваяСтрока.ПоляТаблицы) Тогда
+ НоваяСтрока.ПоляТаблицы = ПоляТаблицы;
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(НоваяСтрока.ПоляПоиска) Тогда
+ НоваяСтрока.ПоляПоиска = ПоляПоиска;
+ КонецЕсли;
+
+ Иначе
+
Если Не ПустаяСтрока(ПоляТаблицы) Тогда
одЗаписатьЭлемент(ЗаписьXML, "ПоляТаблицы", ПоляТаблицы);
КонецЕсли;
@@ -5952,7 +6024,7 @@
КонецПроцедуры
-Процедура ЗакончитьЧтениеСообщения(Знач ЧтениеСообщения)
+Процедура ВыполнитьОбработчикПослеЗагрузкиДанных()
// {Обработчик: ПослеЗагрузкиДанных} Начало
Если Не ПустаяСтрока(Конвертация.ПослеЗагрузкиДанных) Тогда
@@ -5976,6 +6048,10 @@
КонецЕсли;
// {Обработчик: ПослеЗагрузкиДанных} Окончание
+КонецПроцедуры
+
+Процедура ЗакончитьЧтениеСообщения(Знач ЧтениеСообщения)
+
Если ФайлОбмена.ТипУзла <> ТипУзлаXML.КонецЭлемента Тогда
ВызватьИсключение НСтр("ru = 'Ошибка формата сообщения обмена.'");
КонецЕсли;
@@ -7492,8 +7568,13 @@
СсылкаНаОбъект = НайтиЭлементПоСвойствамПоиска(ТипОбъекта, ИмяТипаОбъекта, СвойстваПоиска, СтруктураСвойств,
СтрокаИменСвойствПоиска, ПоискПоДатеНаРавенство);
- НеНужноВыполнятьПоиск = ЗначениеЗаполнено(СсылкаНаОбъект);
-
+ НеНужноВыполнятьПоиск = ЗначениеЗаполнено(СсылкаНаОбъект);
+
+ Если СсылкаНаОбъект <> Неопределено
+ И СсылкаНаОбъект.Пустая() Тогда
+ СсылкаНаОбъект = Неопределено;
+ КонецЕсли;
+
КонецЕсли;
Если НеНужноВыполнятьПоиск Тогда
@@ -7925,6 +8006,7 @@
КопияТЧДляПоиска = Неопределено;
Движения = Объект.Движения[Имя];
+ Движения.Записывать = Истина;
Движения.Прочитать();
@@ -10392,8 +10474,6 @@
ДобавитьПодчиненный(УзелСубконто, УзелСвойства);
-
-
// Значение
УзелСвойства = СоздатьУзел("Свойство");
@@ -10432,7 +10512,33 @@
Иначе
ЭтоПравилоСГлобальнойВыгрузкой = Ложь;
- УзелСсылки = ВыгрузитьПоПравилу(Субконто,, ИсходящиеДанные, , ИмяПКО, , ИСТИНА, ПКОЗначение, , , , , Ложь, ЭтоПравилоСГлобальнойВыгрузкой);
+
+ ВыгрузитьТолькоСсылку = Истина;
+ Если ВыгружатьОбъектПоСсылке(Субконто, УзелДляОбмена) Тогда
+
+ Если Не ОбъектПроходитФильтрРазрешенныхОбъектов(Субконто) Тогда
+
+ // Выставляем признак того, что объект должен быть выгружен полностью.
+ ВыгрузитьТолькоСсылку = Ложь;
+
+ // Добавляем запись в регистр сопоставления.
+ СтруктураЗаписи = Новый Структура;
+ СтруктураЗаписи.Вставить("УзелИнформационнойБазы", УзелДляОбмена);
+ СтруктураЗаписи.Вставить("УникальныйИдентификаторИсточника", Субконто);
+ СтруктураЗаписи.Вставить("ОбъектВыгруженПоСсылке", Истина);
+
+ РегистрыСведений.СоответствияОбъектовИнформационныхБаз.ДобавитьЗапись(СтруктураЗаписи, Истина);
+
+ // Добавляем объект в массив выгруженных по ссылке объектов
+ // для последующей регистрации объектов на текущем узле
+ // и для присвоения номера текущего отправленного сообщения обмена.
+ ВыгруженныеПоСсылкеОбъектыДобавитьЗначение(Субконто);
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ УзелСсылки = ВыгрузитьПоПравилу(Субконто,, ИсходящиеДанные, , ИмяПКО, , ВыгрузитьТолькоСсылку, ПКОЗначение, , , , , Ложь, ЭтоПравилоСГлобальнойВыгрузкой);
УстановитьАтрибут(УзелСвойства, "Имя", "Значение");
ВыгрузитьТипСвойстваЭлемента(УзелСвойства, ТипПриемника);
@@ -10820,7 +10926,8 @@
НеИспользоватьПравилаСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные = Ложь,
ЗначениеСсылкиВДругойИБ = "",
СписокВременныхФайлов = Неопределено,
- ВыгрузкаСтрокиНабораЗаписейРегистра = Ложь)
+ ВыгрузкаСтрокиНабораЗаписейРегистра = Ложь,
+ СтекВыгрузкиОбъекта = Неопределено)
// Переменные-заглушки для поддержки механизма отладки кода обработчиков событий.
Перем КлючИЗначение, ВидСубконто, Субконто, ИмяПКОВидСубконто, УзелСубконто;
@@ -11209,9 +11316,15 @@
КонецЕсли;
+ Если ЗначениеЗаполнено(СтекВыгрузкиОбъекта) Тогда
+ ОтветвлениеСтекаВыгрузки = ОбщегоНазначенияКлиентСервер.СкопироватьМассив(СтекВыгрузкиОбъекта);
+ Иначе
+ ОтветвлениеСтекаВыгрузки = Новый Массив;
+ КонецЕсли;
+
ПравилоСГлобальнойВыгрузкой = Ложь;
УзелСсылки = ВыгрузитьПоПравилу(Значение, , ИсходящиеДанные, , ИмяПКО, , ВыгрузитьТолькоСсылку, ПКОСвойств, , , , , Ложь,
- ПравилоСГлобальнойВыгрузкой, НеИспользоватьПравилаСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные);
+ ПравилоСГлобальнойВыгрузкой, НеИспользоватьПравилаСГлобальнойВыгрузкойИНеЗапоминатьВыгруженные, ОтветвлениеСтекаВыгрузки);
Если УзелСсылки = Неопределено Тогда
@@ -13391,12 +13504,12 @@
// Отложенная запись того, что не записали.
ПровестиЗаписьНеЗаписанныхОбъектов();
+ ВыполнитьОбработчикПослеЗагрузкиДанных();
+
Если ФлагОшибки() Тогда
ВызватьИсключение НСтр("ru = 'Возникли ошибки при загрузке данных.'");
КонецЕсли;
- ЗакончитьЧтениеСообщения(ЧтениеСообщения);
-
Если ИспользоватьТранзакции Тогда
ЗафиксироватьТранзакцию();
КонецЕсли;
@@ -13412,6 +13525,8 @@
ВыполнитьОтложенноеПроведениеДокументов();
ВыполнитьОтложеннуюЗаписьОбъектов();
+ ЗакончитьЧтениеСообщения(ЧтениеСообщения);
+
Исключение
Если ЧтениеСообщения <> Неопределено
И ЧтениеСообщения.СообщениеБылоПринятоРанее Тогда
@@ -15017,6 +15132,8 @@
ОтработатьУдалениеОбъекта(Данные);
Продолжить;
+ ИначеЕсли ТипДанныхДляВыгрузки = ТипРегистрСоответствия Тогда
+ Продолжить;
КонецЕсли;
ОбъектМетаданныхТекущий = Данные.Метаданные();
diff --git a/SSL/src/DataProcessors/ЛегальностьПолученияОбновлений/Help/ru.html b/SSL/src/DataProcessors/ЛегальностьПолученияОбновлений/Help/ru.html
index 2bd3e5f4b..fc0e5c5d0 100644
--- a/SSL/src/DataProcessors/ЛегальностьПолученияОбновлений/Help/ru.html
+++ b/SSL/src/DataProcessors/ЛегальностьПолученияОбновлений/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для проверки легальности получения обновлений.
При обновлении программа запрашивает у администратора подтверждение, что файлы обновления были получены легальным способом.
УСЛОВИЯ РАСПРОСТРАНЕНИЯ ОБНОВЛЕНИЙ ПРОГРАММ "1С:ПРЕДПРИЯТИЕ"
Обновления к программам производства фирмы "1С", также как и сами программы, являются объектами исключительного права фирмы "1С" и распространяются по правилам, установленным фирмой "1С" как правообладателем в соответствии со ст. 1225 Гражданского кодекса.
В случае если в кластере серверов 1С:Предприятия для данной информационной базы используются профили безопасности, ограничивающие доступ к внешним (относительно кластера серверов 1С:Предприятия) ресурсам, то для корректной работы программы требуется внести изменения в состав разрешений в профиле безопасности.
В списке перечислены внешние ресурсы, возможность использования которых будет разрешена.
В данной панели осуществляется настройка использования для информационной базы профилей безопасности кластера серверов 1С:Предприятия. Профили безопасности предназначены для контроля за использованием программой внешних ресурсов (относительно кластера серверов 1С:Предприятия).
Находится в разделе Администрирование - Поддержка и обслуживание - Безопасность.
Профили безопасности - механизм версии 8.3 платформы "1С:Предприятие", позволяющий ограничивать использование информационной базой внешних (по отношению к кластеру серверов платформы "1С:Предприятие" ресурсов, такие, как каталоги файловой системы, COM-объекты (на Windows-системах), внешние (по отношению к конфигурации) программные модули на встроенном языке платформы "1С:Предприятие" (внешние отчеты и обработки, вызовы методов Выполнить и Вычислить, внешние компоненты, приложения операционной системы и Интернет-ресурсы. Таким образом, с помощью профилей безопасности можно изолировать каждую информационную базу, позволяя ей использовать только те внешние ресурсы, использование которых явно одобрено администратором.
Ранее программа могла работать только с профилем безопасности, в котором разрешен полный доступ к внешним отчетам и обработкам. В данной версии это ограничение снято, что позволяет предоставлять для внешнего кода (в том числе, кода внешних отчетов и обработок) более строгие разрешения на использование внешних ресурсов, нежели для информационной базы.
Реализовано автоматическое управление разрешениями на доступ к внешним (относительно кластера серверов платформы "1С:Предприятие ресурсам. Таким образом, администратору не требуется самостоятельно отслеживать перечень внешних ресурсов, к которым нужно предоставить доступ (иначе программа не сможет функционировать), вместо этого - при необходимости получения разрешения администратору выводится диалог с перечнем требуемых разрешений. В случае одобрения новых разрешений администратором, они будут автоматически добавлены в профиль безопасности в кластере серверов. При этом для программы автоматически формируется максимально ограниченный профиль безопасности, в котором, в частности, снят признак Полный доступ к внешним отчетам и обработкам.
Предназначена для настройки резервного копирования информационной базы.
Иногда возникают ситуации, которые приводят к потере данных, например, сбои энергоснабжения, отказы компьютеров или неправильные действия в программе. С целью уменьшения риска потери данных администратору программы необходимо регулярно выполнять резервное копирование информационной базы, в этом случае информационную базу можно восстановить. Частота создания резервных копий зависит от интенсивности ввода новых данных в программу. Также резервные копии рекомендуется создавать перед любыми операциями в программе, которые связаны с изменением большого объема данных, например, перед групповым изменением объектов.
В любой момент времени можно восстановить данные из созданной ранее резервной копии. Однако необходимо учитывать, что в восстановленной информационной базе будут только те данные, которые были введены на момент создания резервной копии. Данные, которые были введены позже, будут безвозвратно утеряны. Поэтому очень важно составить расписание резервного копирования так, чтобы снизить потери данных до минимума.
@@ -22,7 +22,7 @@
При хранении файлов в томах на диске для этих файлов также необходимо проводить резервное копирование, другими средствами.
Ошибки при резервном копировании
Если резервное копирование завершилось неудачей, а во временном log-файле имеется запись: "Исключение в createConnection: Error, Automation server can't create object", то, скорее всего, используется 32-разрядная компонента comcntr.dll на компьютере под управлением 64-разрядной операционной системы. Для устранения данной проблемы необходимо взять 64-разрядную компоненту comcntr.dll из поставки 1С Предприятие x64 Сервер и зарегистрировать ее, запустив из командной строки:
Важно: для того чтобы войти в информационную базу, если резервное копирование не выполнилось, необходимо запустить 1С:Предприятие с параметрами: ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.
+
Важно: для того чтобы войти в информационную базу, если резервное копирование не выполнилось, необходимо запустить 1С:Предприятие с параметрами: ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборНастроек/Help/ru.html b/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборНастроек/Help/ru.html
index 2eb91b30c..12923db9a 100644
--- a/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборНастроек/Help/ru.html
+++ b/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборНастроек/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Внешний вид - выводятся настройки внешнего вида рабочего стола, форм (например, различных списков программы) и командного интерфейса программы.
diff --git a/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборПользователей/Help/ru.html b/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборПользователей/Help/ru.html
index 1f02e91b9..0b069d91e 100644
--- a/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборПользователей/Help/ru.html
+++ b/SSL/src/DataProcessors/НастройкиПользователей/Forms/ВыборПользователей/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Список состоит из двух частей: в левой части списка располагаются группы, в правой отражаются входящие в них пользователи (внешние пользователи). По умолчанию выбрана группа Все пользователи (Все внешние пользователи).
Для того чтобы увидеть всех пользователей, включенных в дочерние группы с учетом иерархии, необходимо установить флажок Показывать пользователей дочерних групп в нижней части списка.
Предназначена для копирования настроек одного пользователя другим пользователям программы. При этом скопировать можно настройки в пределах одного списка - Пользователи или Внешние пользователи.
Удобно использовать в случае, если настраивается несколько новых пользователей в одной группе, в которой уже есть пользователи.
Команда для копирования настроек пользователей находится в разделе Администрирование - Настройки пользователей и прав.
Предназначена для удаления пользовательских настроек.
Иногда требуется удалить пользовательские настройки, например, если из-за этих неправильных настроек работа в программе стала невозможной. Очистить можно все настройки, в том числе и личные варианты отчетов.
Команда для очистки настроек пользователей находится в разделе Администрирование - Настройки пользователей и прав.
Далее следует выбрать актуальную (последнюю официально опубликованную) версию технологической платформы
+
Для скачивания файла перейдите в раздел «Технологическая платформа 1С:Предприятия для Windows»:
-
-
Сохраните файл на диск, запомните папку, в которую его сохранили:
-
+
+
Далее, по ссылке "Скачать дистрибутив" откроется диалог сохранения файла на диск. Запомните папку, в которую его сохранили:
+
2. Установить новую версию 1С:Предприятия 8.3
Обратите внимание: для установки программы пользователь Windows должен обладать правами администратора! Распакуйте загруженный файл с архивом. В папке, в которую распаковали архив, найдите и запустите файл Setup.exe:
-
-
Далее следуйте инструкциям программы – установщика:
-
-
-
-
-
-
+
+
Далее следуйте инструкциям программы-установщика:
+
3. Создать резервную копию информационной базы
Определите и откройте каталог, в котором находится нужная база данных:
-
-
\ No newline at end of file
+
+
+
4. Начало работы с новой версией платформы
+
По кнопке "1С:Предприятие" можно начать работы с выбранной информационной базой на новой версии платформы.
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ИндикацияХодаОбновленияИБ/Help/ru.html b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ИндикацияХодаОбновленияИБ/Help/ru.html
index 521951fc6..93f692d76 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ИндикацияХодаОбновленияИБ/Help/ru.html
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ИндикацияХодаОбновленияИБ/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Индикатор показывает ход обновления ИБ.
В сообщении выводится номер версии, на которую производится обновление ИБ.
Обновление может занять длительное время, в зависимости от объема данных и производительности компьютера.
Предназначена для индикации хода и просмотра результатов отложенного обновления ИБ.
При обновлении версии ИБ в программе предусмотрена возможность часть данных обрабатывать отложенно, во время работы программы, в фоновом режиме. В этом случае документы, которые еще не были обработаны, будут недоступны. При попытке открыть такой документ программа выдает сообщение, что действия с документом временно запрещены, так как не завершен переход на новую версию программы. Некоторые отчеты также могут быть недоступны. Программа при попытке сформировать отчет выдает сообщение, что отчет может содержать некорректные данные, так как не завершен переход на новую версию программы.
Открывается автоматически при входе в программу после обновления ИБ одновременно с открытием окна Описание изменений программы (Что нового в конфигурации).
@@ -10,6 +10,24 @@
Нажмите Выполнить, для того чтобы начать обработку данных.
Если выполнение начато, то ссылка указывает, сколько процедур выполнено.
После завершения дополнительных процедур обработки данных указывается дата и время их завершения. Ссылка принимает значение Все процедуры обновления выполнены успешно (в скобках указывается количество выполненных процедур).
Настройка расписания обработки данных
-
Как правило, обработка данных может занимать длительное время (от нескольких минут до нескольких часов в зависимости от объема введенных данных в программе и производительности компьютера), а также во время ее выполнения может наблюдаться существенное замедление работы пользователей. Поэтому рекомендуется выполнять обработку в период наименьшей активности пользователей, настроив расписание регламентного задания Отложенное обновление ИБ.
-
Для того чтобы настроить выполнение регламентного задания Отложенное обновление ИБ, нажмите Настроить расписание.
-
Как правило, обработка данных может занимать длительное время (от нескольких минут до нескольких часов в зависимости от объема введенных данных в программе и производительности компьютера), а также во время ее выполнения может наблюдаться существенное замедление работы пользователей. Поэтому рекомендуется выполнять обработку в период наименьшей активности пользователей.
+
В клиент-серверном режиме можно настроить расписание регламентного задания Отложенное обновление ИБ. Для того чтобы настроить выполнение регламентного задания Отложенное обновление ИБ, нажмите Настроить расписание.
+
Если в клиент-серверном режиме установлена блокировка регламентных заданий, то отложенное обновление не будет выполняться.
+
+
Проконтролировать блокировку можно:
+
+
С помощью ссылки Проверить блокировку регламентных заданий;
+
+
С помощью консоли администрирования кластера серверов. Подробнее о консоли см. документацию о платформе.
+
+
Запустить консоль можно из меню Пуск, выбрав раздел Все программы - 1С:Предприятие 8 - Дополнительно.
+
+
Для отображения свойств отдельной информационной базы выберите нужный центральный сервер, нужный кластер, нужную информационную базу.
+
+
Для просмотра параметров информационной базы щелкните по имени информационной базы в списке правой кнопкой мыши.
+
+
Найдите в списке параметров информационной базы сведения о блокировке пользователей и регламентных заданий.
+
+
Подробнее о блокировках выбранной информационной базы можно узнать, выбрав группу Блокировки в дереве консоли.
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Form.form b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Form.form
index 5cfd732f5..2f43792d4 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Form.form
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Form.form
@@ -616,7 +616,7 @@
20
<key>ru</key>
- <value>В данный момент выполняются дополнительные процедуры обновления</value>
+ <value>В данный момент выполняются дополнительные процедуры обработки данных</value>
true
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Help/ru.html b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Help/ru.html
index 387a5540c..5463801c0 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Help/ru.html
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для просмотра дополнительных процедур обработки данных, которые проходят после обновления версии отложенно, в фоновом режиме.
Список можно открыть, перейдя по соответствующей ссылке из окна Результаты обновления программы, в которое можно перейти по команде Результаты обновления и дополнительная обработка данных раздела Администрирование - Поддержка и обслуживание.
В списке выводится:
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Module.bsl b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Module.bsl
index db8242db8..41a5c8a53 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Module.bsl
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/ОтложенныеОбработчики/Module.bsl
@@ -59,6 +59,7 @@
&НаКлиенте
Процедура ГиперссылкаОтложенноеОбновлениеНажатие(Элемент)
+ ПолучитьСведенияОбОбновлении();
Если ЗначениеЗаполнено(ВремяНачалаОтложенногоОбновления) И ЗначениеЗаполнено(ВремяОкончанияОтложенногоОбновления) Тогда
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ДатаНачала", ВремяНачалаОтложенногоОбновления);
@@ -111,6 +112,13 @@
КонецПроцедуры
+&НаСервере
+Процедура ПолучитьСведенияОбОбновлении()
+ СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы();
+ ВремяНачалаОтложенногоОбновления = СведенияОбОбновлении.ВремяНачалаОтложенногоОбновления;
+ ВремяОкончанияОтложенногоОбновления = СведенияОбОбновлении.ВремяОкончаниеОтложенногоОбновления;
+КонецПроцедуры
+
&НаСервере
Процедура СформироватьТаблицуОтложенныхОбработчиков(ВыполненыВсеОбработчики = Истина, НачальноеЗаполнение = Ложь)
@@ -154,15 +162,13 @@
Элементы.ТекстПояснения.Заголовок = НСтр("ru = 'Невыполненные процедуры рекомендуется запустить повторно.'");
КонецЕсли;
- ОтложенныеОбработчики.Сортировать("Вес Убыв");
-
НомерЭлемента = 1;
Для Каждого СтрокаТаблицы Из ОтложенныеОбработчики Цикл
СтрокаТаблицы.Номер = НомерЭлемента;
НомерЭлемента = НомерЭлемента + 1;
КонецЦикла;
- Элементы.ОбновлениеВыполняется.Видимость = ОбновлениеВыполняется;
+ Элементы.ОбновлениеВыполняется.Видимость = Не ВыполненыВсеОбработчики;
КонецПроцедуры
@@ -189,25 +195,21 @@
СтрокаСписка.ИнформацияОПроцедуреОбновления =
НСтр("ru = 'Процедура ""%1"" обработки данных завершилась успешно.'");
СтрокаСписка.СтатусОбработчика = НСтр("ru = 'Выполнено'");
- СтрокаСписка.Вес = 1;
СтрокаСписка.СтатусКартинка = БиблиотекаКартинок.Успешно;
ИначеЕсли СтрокаОбработчика.Статус = "Выполняется" Тогда
ОбработчикиНеВыполнялись = Ложь;
СтрокаСписка.ИнформацияОПроцедуреОбновления =
НСтр("ru = 'Процедура ""%1"" обработки данных в данный момент выполняется.'");
СтрокаСписка.СтатусОбработчика = НСтр("ru = 'Выполняется'");
- СтрокаСписка.Вес = 3;
ИначеЕсли СтрокаОбработчика.Статус = "Ошибка" Тогда
ОбработчикиНеВыполнялись = Ложь;
ВыполненыВсеОбработчики = Ложь;
СтрокаСписка.ИнформацияОПроцедуреОбновления = СтрокаОбработчика.ИнформацияОбОшибке;
СтрокаСписка.СтатусОбработчика = НСтр("ru = 'Ошибка'");
- СтрокаСписка.Вес = 4;
СтрокаСписка.СтатусКартинка = БиблиотекаКартинок.Остановить;
Иначе
ВыполненыВсеОбработчики = Ложь;
СтрокаСписка.СтатусОбработчика = НСтр("ru = 'Не выполнялась'");
- СтрокаСписка.Вес = 2;
СтрокаСписка.ИнформацияОПроцедуреОбновления = НСтр("ru = 'Процедура ""%1"" обработки данных еще не выполнялась.'");
КонецЕсли;
@@ -216,5 +218,4 @@
КонецПроцедуры
-#КонецОбласти
-
+#КонецОбласти
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Help/ru.html b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Help/ru.html
index 17d54f45f..e666b5faa 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Help/ru.html
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначено для информирования об ошибке во время обновления ИБ.
Для того чтобы посмотреть в журнале регистрации сведения об ошибках, перейдите по ссылке Подробности см. в Журнале регистрации.
Для того чтобы выйти из программы, нажмите Завершить.
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Module.bsl b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Module.bsl
index 2ded7ef3e..72f7f6437 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Module.bsl
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Forms/СообщениеОНеудачномОбновлении/Module.bsl
@@ -91,8 +91,19 @@
ДиалогОткрытияФайла.Фильтр = НСтр("ru = 'Внешняя обработка'") + "(*.epf)|*.epf";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = НСтр("ru = 'Выберите внешнюю обработку'");
- Если ДиалогОткрытияФайла.Выбрать() Тогда
- ВыбраннаяОбработка = Новый ДвоичныеДанные(ДиалогОткрытияФайла.ПолноеИмяФайла);
+
+ ОписаниеОповещения = Новый ОписаниеОповещения("ОткрытьВнешнююОбработкуЗавершение", ЭтотОбъект);
+ ДиалогОткрытияФайла.Показать(ОписаниеОповещения);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОткрытьВнешнююОбработкуЗавершение(Результат, ДополнительныеПараметры) Экспорт
+
+ Если Результат <> Неопределено
+ И Результат.Количество() = 1 Тогда
+ ПолноеИмяФайла = Результат[0];
+ ВыбраннаяОбработка = Новый ДвоичныеДанные(ПолноеИмяФайла);
АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(ВыбраннаяОбработка, УникальныйИдентификатор);
ИмяВнешнейОбработки = ПодключитьВнешнююОбработку(АдресВоВременномХранилище);
ОткрытьФорму(ИмяВнешнейОбработки + ".Форма");
diff --git a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Help/ru.html b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Help/ru.html
index 07dba8cbf..dfe1cf24e 100644
--- a/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Help/ru.html
+++ b/SSL/src/DataProcessors/ОбновлениеИнформационнойБазы/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Существует два метода обновления ИБ, которые могут применяться, дополняя друг друга:
Для обновления с пользовательского сайта необходимо указать код пользователя и пароль для доступа. Доступ к получению обновлений имеют только зарегистрированные пользователи программ 1С:Предприятие. Подробная информация о том, как можно получить код пользователя и пароль, содержится в разделе методической поддержки на сайте v8.1c.ru.
Открывается по команде Настройка обновления программы через Интернет из раздела Администрирование - Поддержка и обслуживания - Обновление версии программы.
Предназначена для настройки резервного копирования информационной базы при обновлении программы.
Перед началом обновления программы рекомендуется создавать резервную копию информационной базы. Резервная копия используется для автоматического восстановления информационной базы в случае нештатной ситуации.
Открывается по ссылке Создавать временную резервную копию ИБ и выполнять откат при нештатной ситуации из окна Поиск и установка обновлений.
diff --git a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/НастройкаРезервнойКопии/Module.bsl b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/НастройкаРезервнойКопии/Module.bsl
index df63b96e4..420633c7b 100644
--- a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/НастройкаРезервнойКопии/Module.bsl
+++ b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/НастройкаРезервнойКопии/Module.bsl
@@ -19,16 +19,17 @@
&НаКлиенте
Процедура ПолеКаталогРезервнойКопииНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
- Диалог.Каталог = ОбновлениеКонфигурацииКлиент.ПолучитьКаталогФайла(Объект.ИмяКаталогаРезервнойКопииИБ);
+ Диалог.Каталог = Объект.ИмяКаталогаРезервнойКопииИБ;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Заголовок = НСтр("ru = 'Выбор каталога резервной копии ИБ'");
-
Если Диалог.Выбрать() Тогда
Объект.ИмяКаталогаРезервнойКопииИБ = Диалог.Каталог;
КонецЕсли;
+
КонецПроцедуры
&НаКлиенте
diff --git a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Form.form b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Form.form
index 26016809f..529dff6db 100644
--- a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Form.form
+++ b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Form.form
@@ -1538,10 +1538,8 @@
StartChoiceПолеФайлОбновленияНачалоВыбора
- 50truetrue
- falsetruetruetrue
@@ -3342,124 +3340,19 @@
ГруппаДлительнаяОперация1032
- ПанельОжиданиеДлительнойОперации
- 151
-
- Интернет
- 152
-
- Группа18
- 146
-
- ДекорацияКартинка33
- 147
- true
- true
-
- true
-
-
- ДекорацияКартинка33ExtendedTooltip
- 835
- Label
- true
- true
-
- Left
-
-
-
- ДекорацияКартинка33КонтекстноеМеню
- 148
- true
-
- 5
- true
- 3
- true
- false
-
-
- CommonPicture.ДлительнаяОперация48
-
-
-
-
- Декорация34
- 149
-
- <key>ru</key>
- <value>Получение обновления программы может занять от нескольких минут до нескольких часов в зависимости от размера обновления, скорости подключения к Интернету и производительности компьютера.</value>
-
- true
- true
-
- true
-
-
- Декорация34ExtendedTooltip
- 836
- Label
- true
- true
-
- Left
-
-
-
- Декорация34КонтекстноеМеню
- 150
- true
-
- Label
- true
- true
- true
- true
- false
-
- Left
- Center
- 2
-
-
- true
- true
-
- true
-
- false
-
- Группа18ExtendedTooltip
- 834
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Auto
- true
- true
- Auto
- Auto
-
-
+ ГруппаАнимация
+ 1077
+
+ ДекорацияКартинка33
+ 147truetruetrue
-
- <key>ru</key>
- <value>Интернет</value>
-
- ИнтернетExtendedTooltip
- 833
+ ДекорацияКартинка33ExtendedTooltip
+ 835Labeltruetrue
@@ -3467,10 +3360,59 @@
Left
- Page
-
- Vertical
- auto
+
+ ДекорацияКартинка33КонтекстноеМеню
+ 148
+ true
+
+ 6
+ true
+ 3
+ true
+ false
+
+
+ CommonPicture.ДлительнаяОперация48
+
+
+
+
+ Декорация34
+ 149
+
+ <key>ru</key>
+ <value>Получение обновления программы может занять от нескольких минут до нескольких часов в зависимости от размера обновления, скорости подключения к Интернету и производительности компьютера.</value>
+
+ true
+ true
+
+ true
+
+
+ Декорация34ExtendedTooltip
+ 836
+ Label
+ true
+ true
+
+ Left
+
+
+
+ Декорация34КонтекстноеМеню
+ 150
+ true
+
+ Label
+ true
+ true
+ true
+ true
+ false
+
+ Left
+ Center
+ 2true
@@ -3478,14 +3420,10 @@
true
-
- <key>ru</key>
- <value>Панель ожидание длительной операции</value>
-
- false
+ false
- ПанельОжиданиеДлительнойОперацииExtendedTooltip
- 832
+ ГруппаАнимацияРасширеннаяПодсказка
+ 1078Labeltruetrue
@@ -3493,8 +3431,12 @@
Left
- Pages
-
+ UsualGroup
+
+ Auto
+ true
+ true
+ AutoAuto
@@ -4718,7 +4660,7 @@
- Группа7
+ ГруппаДатаОбновления1048Декорация2
@@ -4803,7 +4745,7 @@
true
- Группа7РасширеннаяПодсказка
+ ГруппаДатаОбновленияРасширеннаяПодсказка1049Labeltrue
@@ -5621,7 +5563,8 @@
259
<key>ru</key>
- <value>Благодарим Вас за обновление программы. </value>
+ <value>Установка новой версии программы успешно завершена.
+Нажмите кнопку "Готово" для завершения обновления.</value>
truetrue
@@ -5652,20 +5595,16 @@
- НадписьИнформацияОбОбновленииПриЗавершении
- 522
-
- <key>ru</key>
- <value>Новое в этой версии</value>
-
+ Декорация4
+ 1085truetruetrue
- НадписьИнформацияОбОбновленииПриЗавершенииExtendedTooltip
- 924
+ Декорация4РасширеннаяПодсказка
+ 1087Labeltruetrue
@@ -5674,114 +5613,33 @@
- НадписьИнформацияОбОбновленииПриЗавершенииКонтекстноеМеню
- 523
+ Декорация4КонтекстноеМеню
+ 1086trueLabeltrue
+ 2true
- false
-
- Click
- НадписьИнформацияОбОбновленииПриЗавершенииНажатие
-
- trueLeft
- Center
-
- ПанельПорядокОбновленияПриЗавершении
- 261
-
- Картинка3
- 262
- true
- true
-
- true
-
-
- Картинка3ExtendedTooltip
- 926
- Label
- true
- true
-
- Left
-
-
-
- Картинка3КонтекстноеМеню
- 263
- true
-
- 4
- true
- 2
- true
- false
-
-
- CommonPicture.Предупреждение32
-
-
-
-
- УспешноеОбновлениеНадписьПорядокОбновления
- 265
-
- <key>ru</key>
- <value>Пожалуйста, ознакомьтесь с <link ПорядокОбновления>дополнительными инструкциями</> для завершения обновления.</value>
-
- true
- true
-
- true
-
-
- УспешноеОбновлениеНадписьПорядокОбновленияРасширеннаяПодсказка
- 928
- Label
- true
- true
-
- Left
-
-
-
- УспешноеОбновлениеНадписьПорядокОбновленияКонтекстноеМеню
- 266
- true
-
- true
- Label
- true
- 2
- true
- false
-
-
- URLProcessing
- УспешноеОбновлениеНадписьПорядокОбновленияОбработкаНавигационнойСсылки
-
- Left
-
-
+
+ ПоказатьНовоеВВерсии
+ 1082truetruetrue
-
- <key>ru</key>
- <value>Панель порядок обновления при завершении</value>
-
+
+ ПоказатьНовоеВВерсии
+
+ Right
- ПанельПорядокОбновленияПриЗавершенииExtendedTooltip
- 925
+ ПоказатьНовоеВВерсииРасширеннаяПодсказка
+ 1084Labeltruetrue
@@ -5789,15 +5647,51 @@
Left
- UsualGroup
-
- Auto
- NormalSeparation
- true
- true
- Auto
- Auto
-
+
+ ПоказатьНовоеВВерсииКонтекстноеМеню
+ 1083
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+
+
+
+ ОзнакомитьсяСДополнительнымиИнструкциями
+ 1079
+ true
+ true
+
+ true
+
+
+ ОзнакомитьсяСДополнительнымиИнструкциями
+
+ Right
+
+ ОзнакомитьсяСДополнительнымиИнструкциямиРасширеннаяПодсказка
+ 1081
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ОзнакомитьсяСДополнительнымиИнструкциямиКонтекстноеМеню
+ 1080
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+ Отступ45
@@ -5831,41 +5725,6 @@
Left
-
- НадписьСообщениеДалее2
- 269
-
- <key>ru</key>
- <value>Нажмите кнопку "Готово", чтобы закрыть помощник обновления конфигурации.</value>
-
- true
- true
-
- true
-
-
- НадписьСообщениеДалее2ExtendedTooltip
- 931
- Label
- true
- true
-
- Left
-
-
-
- НадписьСообщениеДалее2КонтекстноеМеню
- 270
- true
-
- Label
- true
- true
- false
-
- Left
-
- truetrue
@@ -6681,6 +6540,57 @@
true
+
+ ПоказатьНовоеВВерсии
+
+ <key>ru</key>
+ <value>Показать новое в версии</value>
+
+ 6
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
+
+ ОзнакомитьсяСДополнительнымиИнструкциями
+
+ <key>ru</key>
+ <value>Ознакомиться с информацией о порядке обновления</value>
+
+ 10
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
+
+ ЕстьАктивныеСеансы
+
+ <key>ru</key>
+ <value>Есть активные сеансы</value>
+
+ 11
+
+ Boolean
+
+
+ true
+
+
+ true
+
+ Назад
diff --git a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Module.bsl
index 0d7b3d0dd..522c0f886 100644
--- a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Forms/Форма/Module.bsl
@@ -38,6 +38,7 @@
Если Параметры.ЗавершениеРаботыСистемы Тогда
Элементы.ПереключательОбновленияФайл.Видимость = Ложь;
Элементы.ПереключательОбновленияСервер.Видимость = Ложь;
+ Элементы.ГруппаДатаОбновления.Видимость = Ложь;
КонецЕсли;
Если Параметры.ПолученоОбновлениеКонфигурации Тогда
@@ -47,10 +48,10 @@
КонецЕсли;
ИнформацияОНаличииСоединений = СоединенияИБ.ИнформацияОСоединениях();
- Параметры.ВыполнитьОбновление = ?(ИнформацияОНаличииСоединений.НаличиеАктивныхСоединений, Ложь, Параметры.ВыполнитьОбновление);
+ ЕстьАктивныеСеансы = Не ИнформацияОНаличииСоединений.НаличиеАктивныхСоединений;
- Элементы.НадписьОбновлениеКонфигурацииВыполняетсяПриОбменеДаннымиСГлавнымУзлом.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Элементы.НадписьОбновлениеКонфигурацииВыполняетсяПриОбменеДаннымиСГлавнымУзлом.Заголовок, ПланыОбмена.ГлавныйУзел());
- Элементы.НадписьПроцессОбновленияМожетЗанятьМногоВремени.Видимость = Не Параметры.ЗавершениеРаботыСистемы;
+ Элементы.НадписьОбновлениеКонфигурацииВыполняетсяПриОбменеДаннымиСГлавнымУзлом.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ Элементы.НадписьОбновлениеКонфигурацииВыполняетсяПриОбменеДаннымиСГлавнымУзлом.Заголовок, ПланыОбмена.ГлавныйУзел());
ПараметрыАутентификации = СтандартныеПодсистемыСервер.ПараметрыАутентификацииНаСайте();
@@ -69,7 +70,10 @@
ВосстановитьНастройкиОбновленияКонфигурации();
Если Параметры.ВыполнитьОбновление Тогда
- Если ПроверитьДоступКИБ() Тогда
+ Если ЕстьАктивныеСеансы Тогда
+ ПерейтиКВыборуРежимаОбновления();
+ Возврат;
+ ИначеЕсли ПроверитьДоступКИБ() Тогда
ВыполнитьОбновление = Истина;
ОбновлениеКонфигурацииКлиентПереопределяемый.ПередЗавершениемРаботыСистемы();
ПараметрыПриложения.Вставить("СтандартныеПодсистемы.ПропуститьПредупреждениеПередЗавершениемРаботыСистемы", Истина);
@@ -110,7 +114,7 @@
ИмяФайлаИнформацияОбОбновлении = ПолучитьИмяЛокальногоФайлаОписанияОбновления();
Если НЕ ФайлСуществуетНаКлиенте(ИмяФайлаИнформацияОбОбновлении) Тогда
- ИмяФайлаПорядокОбновления = "";
+ ИмяФайлаИнформацияОбОбновлении = "";
КонецЕсли;
ИмяСтраницы = ? (Объект.РезультатОбновления, Страницы.УспешноеОбновление.Имя, Страницы.НеуспешноеОбновление.Имя);
@@ -259,7 +263,19 @@
&НаКлиенте
Процедура НадписьОткрытьЖурналРегистрацииНажатие(Элемент)
- ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", Новый Структура("Пользователь", ИмяПользователя()));
+
+ СписокПриложений = Новый Массив;
+ СписокПриложений.Добавить("COMConnection");
+ СписокПриложений.Добавить("Designer");
+ СписокПриложений.Добавить("1CV8");
+ СписокПриложений.Добавить("1CV8C");
+
+ ОтборЖурналаРегистрации = Новый Структура;
+ ОтборЖурналаРегистрации.Вставить("Пользователь", ИмяПользователя());
+ ОтборЖурналаРегистрации.Вставить("ИмяПриложения", СписокПриложений);
+
+ ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", ОтборЖурналаРегистрации);
+
КонецПроцедуры
&НаКлиенте
@@ -375,32 +391,6 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// Страница УспешноеОбновление
-
-&НаКлиенте
-Процедура НадписьИнформацияОбОбновленииПриЗавершенииНажатие(Элемент)
-
- ПараметрыФормы = Новый Структура;
- ПараметрыФормы.Вставить("ПоказыватьТолькоИзменения", Истина);
-
- ОткрытьФорму("ОбщаяФорма.ОписаниеИзмененийСистемы", ПараметрыФормы);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура УспешноеОбновлениеНадписьПорядокОбновленияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылка, СтандартнаяОбработка)
-
- СтандартнаяОбработка = Ложь;
-
- Если НЕ ПустаяСтрока(ИмяФайлаПорядокОбновления) Тогда
- ОбновлениеКонфигурацииКлиент.ОткрытьВебСтраницу(ИмяФайлаПорядокОбновления);
- Иначе
- ПоказатьПредупреждение(, НСтр("ru = 'Описание порядка обновления отсутствует.'"));
- КонецЕсли;
-
-КонецПроцедуры
-
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -453,7 +443,7 @@
Функция НаличиеАктивныхСоединений(СообщенияДляЖурналаРегистрации = Неопределено)
// Запись накопленных событий ЖР.
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(СообщенияДляЖурналаРегистрации);
- Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь) > 1;
+ Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь, Ложь) > 1;
КонецФункции
&НаСервере
@@ -540,7 +530,7 @@
Результат = СтрЗаменить(Результат, "[ВосстанавливатьИнформационнуюБазу]" , ?(Объект.ВосстанавливатьИнформационнуюБазу, "true", "false"));
Результат = СтрЗаменить(Результат, "[БлокироватьСоединенияИБ]" , ?(БлокироватьСоединенияИБ, "true", "false"));
Результат = СтрЗаменить(Результат, "[ИмяCOMСоединителя]" , Форматировать(СтруктураПараметров.ИмяCOMСоединителя));
- Результат = СтрЗаменить(Результат, "[ИспользоватьCOMСоединитель]" , ?(СтруктураПараметров.ЭтоБазоваяВерсияКонфигурации, "false", "true"));
+ Результат = СтрЗаменить(Результат, "[ИспользоватьCOMСоединитель]" , ?(СтруктураПараметров.ИспользоватьCOMСоединитель, "false", "true"));
Результат = СтрЗаменить(Результат, "[ЗапускСеансаПослеОбновления]" , ?(Параметры.ЗавершениеРаботыСистемы, "false", "true"));
Результат = СтрЗаменить(Результат, "[ВыполнятьСжатиеТаблицИБ]" , ?(ВыполнятьСжатиеТаблицИБ(), "true", "false"));
@@ -976,9 +966,6 @@
ДоступностьКнопкиНазад = Ложь;
ДоступностьКнопкиЗакрыть = Ложь;
- СтраницыОжидания = Элементы.ПанельОжиданиеДлительнойОперации.ПодчиненныеЭлементы;
- Элементы.ПанельОжиданиеДлительнойОперации.ТекущаяСтраница = СтраницыОжидания.Интернет;
-
ИначеЕсли НоваяТекущаяСтраница = Страницы.ВыборРежимаОбновленияФайл Тогда
ФункцияКнопкиДалее = (Объект.РежимОбновления = 0);// Если НЕ обновляем сейчас, то "готово".
@@ -1039,7 +1026,9 @@
КонецЕсли;
ИначеЕсли НоваяТекущаяСтраница = Страницы.УспешноеОбновление Тогда
- Элементы.ПанельПорядокОбновленияПриЗавершении.Видимость = НЕ ПустаяСтрока(ИмяФайлаПорядокОбновления);
+ ОзнакомитьсяСДополнительнымиИнструкциями = Не ПустаяСтрока(ИмяФайлаПорядокОбновления);
+ ПоказатьНовоеВВерсии = Не ОзнакомитьсяСДополнительнымиИнструкциями;
+ Элементы.ОзнакомитьсяСДополнительнымиИнструкциями.Видимость = ОзнакомитьсяСДополнительнымиИнструкциями;
ФункцияКнопкиДалее = Ложь;
ДоступностьКнопкиНазад = Ложь;
ДоступностьКнопкиЗакрыть = Ложь;
@@ -1448,9 +1437,18 @@
&НаКлиенте
Функция ОбработатьСтраницуУспешноеОбновление(ВыдаватьСообщения = Истина)
- Страницы = Элементы.СтраницыПомощника.ПодчиненныеЭлементы;
+
+ Если ПоказатьНовоеВВерсии Тогда
+ ОткрытьФорму("ОбщаяФорма.ОписаниеИзмененийСистемы", Новый Структура("ПоказыватьТолькоИзменения", Истина));
+ КонецЕсли;
+
+ Если ОзнакомитьсяСДополнительнымиИнструкциями Тогда
+ ОбновлениеКонфигурацииКлиент.ОткрытьВебСтраницу(ИмяФайлаПорядокОбновления);
+ КонецЕсли;
+
Закрыть();
- Возврат Страницы.УспешноеОбновление.Имя;
+ Возврат Элементы.УспешноеОбновление.Имя;
+
КонецФункции
&НаКлиенте
@@ -1781,7 +1779,7 @@
// В базовых версиях проверку подключения не осуществляем;
// при некорректном вводе имени и пароля обновление завершится неуспешно.
ПараметрыРаботыКлиента = СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента();
- Если ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации Тогда
+ Если ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации Или ПараметрыРаботыКлиента.ЭтоУчебнаяПлатформа Тогда
Возврат Результат;
КонецЕсли;
@@ -1815,11 +1813,10 @@
&НаКлиенте
Функция ПроверитьНастройкиЭлектроннойПочты(ИмяТекущейСтраницы, ВыдаватьСообщения = Истина)
- Если Найти(Объект.АдресЭлектроннойПочты, "@") = 0 ИЛИ Найти(Объект.АдресЭлектроннойПочты, ".") = 0 Тогда
+ Если Не ОбщегоНазначенияКлиентСервер.АдресЭлектроннойПочтыСоответствуетТребованиям(Объект.АдресЭлектроннойПочты) Тогда
Если ВыдаватьСообщения Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Укажите допустимый адрес электронной почты.'"));
КонецЕсли;
- ТекущийЭлемент = Элементы.ПолеАдресЭлектроннойПочты;
Возврат ИмяТекущейСтраницы;
КонецЕсли;
Возврат "";
@@ -1946,14 +1943,14 @@
// Структура параметров необходима для их определения на клиенте и передачи на сервер.
СтруктураПараметров = Новый Структура;
- СтруктураПараметров.Вставить("ИмяИсполняемогоФайлаКонфигуратора", ПараметрыОбновления.ИмяИсполняемогоФайлаКонфигуратора);
- СтруктураПараметров.Вставить("ИмяИсполняемогоФайлаКлиента" , СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента().ИмяИсполняемогоФайлаКлиента);
- СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыОбновления.СобытиеЖурналаРегистрации);
- СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиента.ИмяCOMСоединителя);
- СтруктураПараметров.Вставить("ЭтоБазоваяВерсияКонфигурации" , ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации);
- СтруктураПараметров.Вставить("ИнформационнаяБазаФайловая" , ПараметрыРаботыКлиента.ИнформационнаяБазаФайловая);
- СтруктураПараметров.Вставить("ПараметрыСкрипта" , ПолучитьПараметрыАутентификацииАдминистратораОбновления());
- СтруктураПараметров.Вставить("ПараметрыАдминистрирования" , ПараметрыАдминистрирования);
+ СтруктураПараметров.Вставить("ИмяИсполняемогоФайлаКонфигуратора", ПараметрыОбновления.ИмяИсполняемогоФайлаКонфигуратора);
+ СтруктураПараметров.Вставить("ИмяИсполняемогоФайлаКлиента" , СтандартныеПодсистемыКлиент.ИмяИсполняемогоФайлаПриложения());
+ СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыОбновления.СобытиеЖурналаРегистрации);
+ СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиента.ИмяCOMСоединителя);
+ СтруктураПараметров.Вставить("ИспользоватьCOMСоединитель" , ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации Или ПараметрыРаботыКлиента.ЭтоУчебнаяПлатформа);
+ СтруктураПараметров.Вставить("ИнформационнаяБазаФайловая" , ПараметрыРаботыКлиента.ИнформационнаяБазаФайловая);
+ СтруктураПараметров.Вставить("ПараметрыСкрипта" , ПолучитьПараметрыАутентификацииАдминистратораОбновления());
+ СтруктураПараметров.Вставить("ПараметрыАдминистрирования" , ПараметрыАдминистрирования);
// Добавим в структуру и имя запускаемой программы.
@@ -2628,7 +2625,6 @@
СтрокаЗапуска = "cmd /c """"%1"""" [p1]%2[/p1][p2]%3[/p2]";
СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаЗапуска, ИмяГлавногоФайлаСкрипта,
ПараметрыАдминистрирования.ПарольАдминистратораИнформационнойБазы, ПараметрыАдминистрирования.ПарольАдминистратораКластера);
-
Оболочка = Новый COMОбъект("Wscript.Shell");
Оболочка.RegWrite("HKCU\Software\Microsoft\Internet Explorer\Styles\MaxScriptStatements", 1107296255, "REG_DWORD");
Оболочка.Run(СтрокаЗапуска, 0);
diff --git a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Help/ru.html b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Help/ru.html
index a22c0d557..408dab518 100644
--- a/SSL/src/DataProcessors/ОбновлениеКонфигурации/Help/ru.html
+++ b/SSL/src/DataProcessors/ОбновлениеКонфигурации/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Поиск и установка обновлений позволяет получать информацию о последних обновлениях на пользовательском сайте в сети Интернет и автоматически их устанавливать.</p>
<p>Открывается по команде <strong>Поиск и установка обновлений</strong> раздела <strong>Администрирование - Поддержка и обслуживание</strong>.</p>
<p>Программа позволяет обновлять конфигурацию ИБ в режиме 1С:Предприятия. Обновление производится по требованию или в указанное время.</p>
diff --git a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Help/ru.html b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Help/ru.html
index 779427436..3024a390d 100644
--- a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Help/ru.html
+++ b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для настройки регламентного задания по экспорту замеров производительности.</p>
<p>Это может потребоваться, например, для выполнения анализа производительности в другой программе.</p>
<p>Вызывается по команде <strong>Еще -</strong> <strong>Настройка</strong> из окна <strong>Оценка производительности</strong>.</p>
diff --git a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Module.bsl b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Module.bsl
index dd009194e..80eb2c9db 100644
--- a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Module.bsl
+++ b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/АвтоматическийЭкспортЗамеровПроизводительности/Module.bsl
@@ -131,11 +131,21 @@
ВыборФайла.МножественныйВыбор = Ложь;
ВыборФайла.Заголовок = НСтр("ru = 'Выбор каталога экспорта'");
- Если ВыборФайла.Выбрать() Тогда
- ВыбранныйКаталог = ВыборФайла.Каталог;
- ЛокальныйКаталогЭкспорта = ВыбранныйКаталог;
- ЭтотОбъект.Модифицированность = Истина;
- КонецЕсли;
+ ОписаниеОповещения = Новый ОписаниеОповещения("ДействиеПослеВыбораКаталогаЭкспорта", ЭтотОбъект);
+ ВыборФайла.Показать(ОписаниеОповещения);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДействиеПослеВыбораКаталогаЭкспорта(Результат, ДополнительныеПараметры) Экспорт
+
+ Если ЗначениеЗаполнено(Результат) Тогда
+
+ ВыбранныйКаталог = Результат;
+ ЛокальныйКаталогЭкспорта = Результат;
+ ЭтотОбъект.Модифицированность = Истина;
КонецЕсли;
diff --git a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/Форма/Module.bsl
index f8429c8ab..3577ea6c2 100644
--- a/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ОценкаПроизводительности/Forms/Форма/Module.bsl
@@ -484,11 +484,11 @@
Процедура ИзменитьСоставРеквизитовОбъекта(КолонкиТаблицаКлючевыхОпераций, УдаляемыеРеквизиты)
// Удаление колонок из табличной части "Производительность".
- Для а = 0 По УдаляемыеРеквизиты.Количество() - 1 Цикл
+ Для ИндексРеквизита = 0 По УдаляемыеРеквизиты.Количество() - 1 Цикл
// Имена удаляемых реквизитов Объект.Производительность.ПроизводительностьN
// где N номер, это выражение получает строку вида ПроизводительностьN.
- Элемент = Элементы.Найти(Сред(УдаляемыеРеквизиты[а], 27));
+ Элемент = Элементы.Найти(Сред(УдаляемыеРеквизиты[ИндексРеквизита], 27));
Если Элемент <> Неопределено Тогда
Элементы.Удалить(Элемент);
КонецЕсли;
@@ -557,14 +557,14 @@
УдаляемыеРеквизиты = Новый Массив;
- а = 0;
- Пока а < РеквизитыОбъекта.Количество() Цикл
+ ИндексРеквизита = 0;
+ Пока ИндексРеквизита < РеквизитыОбъекта.Количество() Цикл
- ИмяРеквизита = РеквизитыОбъекта[а].Имя;
+ ИмяРеквизита = РеквизитыОбъекта[ИндексРеквизита].Имя;
Если Лев(ИмяРеквизита, 18) = "Производительность" Тогда
УдаляемыеРеквизиты.Добавить("Объект.Производительность." + ИмяРеквизита);
КонецЕсли;
- а = а + 1;
+ ИндексРеквизита = ИндексРеквизита + 1;
КонецЦикла;
@@ -642,7 +642,7 @@
КоличествоПолей = ПоляОтбора.Количество() - 1;
// Оформление если операция не выполнялась.
- Для а = 0 По КоличествоПолей Цикл
+ Для ИндексПоля = 0 По КоличествоПолей Цикл
ЭлементОформления = УсловноеОформление.Элементы.Добавить();
@@ -651,11 +651,11 @@
// Условие для оформления
ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
- ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[а]);
+ ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[ИндексПоля]);
ЭлементОтбора.ПравоеЗначение = 0;
// Оформляемое поле
ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
- ПолеОформления.Поле = Новый ПолеКомпоновкиДанных(ПоляОформления[а]);
+ ПолеОформления.Поле = Новый ПолеКомпоновкиДанных(ПоляОформления[ИндексПоля]);
КонецЦикла;
@@ -663,7 +663,7 @@
Соответствие = СоответствиеЦветовУровнюАпдекса();
Для Каждого КлючЗначение Из Соответствие Цикл
- Для а = 0 По КоличествоПолей Цикл
+ Для ИндексПоля = 0 По КоличествоПолей Цикл
ЭлементОформления = УсловноеОформление.Элементы.Добавить();
@@ -672,16 +672,16 @@
// Условие для оформления
ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно;
- ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[а]);
+ ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[ИндексПоля]);
ЭлементОтбора.ПравоеЗначение = КлючЗначение.Значение.От;
// Условие для оформления
ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше;
- ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[а]);
+ ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ПоляОтбора[ИндексПоля]);
ЭлементОтбора.ПравоеЗначение = КлючЗначение.Значение.До;
// Оформляемое поле
ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
- ПолеОформления.Поле = Новый ПолеКомпоновкиДанных(ПоляОформления[а]);
+ ПолеОформления.Поле = Новый ПолеКомпоновкиДанных(ПоляОформления[ИндексПоля]);
КонецЦикла;
@@ -951,9 +951,9 @@
ЗаписьXML.ЗаписатьАтрибут("EndDate", Строка(Конец));
ЗаписьXML.ЗаписатьАтрибут("ExportDate", Строка(ТекущаяДата()));
- Для а = 0 По МассивКлючевыхОпераций.Количество() - 1 Цикл
+ Для ИндексОперации = 0 По МассивКлючевыхОпераций.Количество() - 1 Цикл
ЗаписьXML.ЗаписатьНачалоЭлемента("KeyOperation");
- ЗаписьXML.ЗаписатьАтрибут("name", Строка(МассивКлючевыхОпераций[а]));
+ ЗаписьXML.ЗаписатьАтрибут("name", Строка(МассивКлючевыхОпераций[ИндексОперации]));
ЗаписьXML.ЗаписатьКонецЭлемента();
КонецЦикла;
@@ -1109,8 +1109,8 @@
ТЧ = Объект.Производительность;
Отбор = Новый Массив;
- Для а = 0 По ТЧ.Количество() -1 Цикл
- Отбор.Добавить(ТЧ[а].КлючеваяОперация);
+ Для ТекИндекс = 0 По ТЧ.Количество() - 1 Цикл
+ Отбор.Добавить(ТЧ[ТекИндекс].КлючеваяОперация);
КонецЦикла;
ПараметрыФормы = Новый Структура;
diff --git a/SSL/src/DataProcessors/ОценкаПроизводительности/Help/ru.html b/SSL/src/DataProcessors/ОценкаПроизводительности/Help/ru.html
index 866f979d7..45a0f3f0c 100644
--- a/SSL/src/DataProcessors/ОценкаПроизводительности/Help/ru.html
+++ b/SSL/src/DataProcessors/ОценкаПроизводительности/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для оценки производительности работы программы.</p>
<p>В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем. </p>
<p>Для того чтобы оценивать производительность, необходимо в начале работы программы заполнить список <a href="Catalog.КлючевыеОперации/Help">Ключевые операции</a>.</p>
diff --git a/SSL/src/DataProcessors/ОценкаПроизводительности/ObjectModule.bsl b/SSL/src/DataProcessors/ОценкаПроизводительности/ObjectModule.bsl
index a2e301346..f47beac35 100644
--- a/SSL/src/DataProcessors/ОценкаПроизводительности/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/ОценкаПроизводительности/ObjectModule.bsl
@@ -168,11 +168,11 @@
Колонки = "";
Итоги = "";
НачалоПериода = ПараметрыВычисления.ДатаНачала;
- Для а = 0 По ПараметрыВычисления.КоличествоШагов - 1 Цикл
+ Для ТекШаг = 0 По ПараметрыВычисления.КоличествоШагов - 1 Цикл
- КонецПериода = ?(а = ПараметрыВычисления.КоличествоШагов - 1, ПараметрыВычисления.ДатаОкончания, НачалоПериода + ПараметрыВычисления.ШагЧисло - 1);
+ КонецПериода = ?(ТекШаг = ПараметрыВычисления.КоличествоШагов - 1, ПараметрыВычисления.ДатаОкончания, НачалоПериода + ПараметрыВычисления.ШагЧисло - 1);
- ИндексШага = Формат(а, "ЧН=0; ЧГ=0");
+ ИндексШага = Формат(ТекШаг, "ЧН=0; ЧГ=0");
Запрос.УстановитьПараметр("НачалоПериода" + ИндексШага, НачалоПериода);
Запрос.УстановитьПараметр("КонецПериода" + ИндексШага, КонецПериода);
@@ -184,7 +184,7 @@
Колонки = СтрЗаменить(Колонки, "%Номер%", ИндексШага);
Если ПараметрыВычисления.ВыводитьИтоги Тогда
- Итоги = Итоги + Итог + ?(а = ПараметрыВычисления.КоличествоШагов - 1, "", ",");
+ Итоги = Итоги + Итог + ?(ТекШаг = ПараметрыВычисления.КоличествоШагов - 1, "", ",");
Итоги = СтрЗаменить(Итоги, "%Номер%", ИндексШага);
КонецЕсли;
@@ -209,24 +209,24 @@
// ТаблицаКлючевыхОпераций.Сдвинуть(0, ТаблицаКлючевыхОпераций.Количество() - 1);
КонецЕсли;
- а = 0;
+ ИндексКолонки = 0;
ИндексМассива = 0;
- Пока а <= ТаблицаКлючевыхОпераций.Колонки.Количество() - 1 Цикл
+ Пока ИндексКолонки <= ТаблицаКлючевыхОпераций.Колонки.Количество() - 1 Цикл
- КолонкаТаблицаКлючевыхОпераций = ТаблицаКлючевыхОпераций.Колонки[а];
+ КолонкаТаблицаКлючевыхОпераций = ТаблицаКлючевыхОпераций.Колонки[ИндексКолонки];
Если Лев(КолонкаТаблицаКлючевыхОпераций.Имя, 4) = "Врем" Тогда
ТаблицаКлючевыхОпераций.Колонки.Удалить(КолонкаТаблицаКлючевыхОпераций);
Продолжить;
КонецЕсли;
- Если а < 3 Тогда
- а = а + 1;
+ Если ИндексКолонки < 3 Тогда
+ ИндексКолонки = ИндексКолонки + 1;
Продолжить;
КонецЕсли;
КолонкаТаблицаКлючевыхОпераций.Заголовок = ЗаголовкиКолонок[ИндексМассива];
ИндексМассива = ИндексМассива + 1;
- а = а + 1;
+ ИндексКолонки = ИндексКолонки + 1;
КонецЦикла;
@@ -346,7 +346,7 @@
Колонка = ИндексНачальнойКолонки;
Пока Колонка < ИндексПоследнейКолонки Цикл
- Н = 0;
+ НН = 0;
НС = 0;
НТ = 0;
@@ -365,17 +365,17 @@
ТаблицаКлючевыхОпераций[Строка][Колонка + 1] = ТаблицаКлючевыхОпераций[Строка][Колонка + 1] * Коэффициент;
ТаблицаКлючевыхОпераций[Строка][Колонка + 2] = ТаблицаКлючевыхОпераций[Строка][Колонка + 2] * Коэффициент;
- Н = Н + ТаблицаКлючевыхОпераций[Строка][Колонка];
+ НН = НН + ТаблицаКлючевыхОпераций[Строка][Колонка];
НС = НС + ТаблицаКлючевыхОпераций[Строка][Колонка + 1];
НТ = НТ + ТаблицаКлючевыхОпераций[Строка][Колонка + 2];
КонецЦикла;
- Если Н = 0 Тогда
+ Если НН = 0 Тогда
ИтоговыйAPDEX = 0;
- ИначеЕсли НС = 0 И НТ = 0 И Н <> 0 Тогда
+ ИначеЕсли НС = 0 И НТ = 0 И НН <> 0 Тогда
ИтоговыйAPDEX = 0.001;
Иначе
- ИтоговыйAPDEX = (НС + НТ / 2) / Н;
+ ИтоговыйAPDEX = (НС + НТ / 2) / НН;
КонецЕсли;
ТаблицаКлючевыхОпераций[ИндексСтрокиИтогов][Колонка + 3] = ИтоговыйAPDEX;
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиПользователейИПрав/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиПользователейИПрав/Help/ru.html
index ff77372c0..7ca638bff 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиПользователейИПрав/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиПользователейИПрав/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется администрирование пользователей и настройка прав доступа. Доступны команды:</p>
<ul><a name="СтандартныеПодсистемы.Пользователи">
<li><a href="Catalog.Пользователи/Help">Пользователи</a> - администрирование пользователей, которые работают с программой.
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиРаботыСФайлами/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиРаботыСФайлами/Help/ru.html
index d3f71eb5c..33f275c83 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиРаботыСФайлами/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиРаботыСФайлами/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется настройка параметров загрузки, хранения и обработки файлов. Доступны команды:</p>
<ul><a name="СтандартныеПодсистемы.ФайловыеФункции">
<li><strong>Хранить файлы в томах на диске</strong> - выбор между хранением файлов в информационной базе или в томах на диске. В последнем случае файлы не будут храниться в программе.
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Help/ru.html
index 72b4ce82f..09852112c 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется настройка синхронизации данных с другими программами и организация совместной работы в распределенной информационной базе.</p>
<ul><li><strong>Синхронизация данных</strong> - включите флажок, для того чтобы стали доступными раздел программы <strong>Синхронизация данных</strong> и команды:
<ul><li><a href="CommonForm.ОбменыДанными/Help">Синхронизация данных</a> - переход к настройке и выполнению синхронизации данных с другими программами (например, с 1С:Бухгалтерия предприятия, редакция 3.0), а также организации совместной работы в распределенной информационной базе.
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Module.bsl b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Module.bsl
index 73bee46f2..06002f4e2 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Module.bsl
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиСинхронизацииДанных/Module.bsl
@@ -91,16 +91,21 @@
#Область ОбработчикиКомандФормы
+// Обработка оповещений от других открытых форм.
+//
+// Параметры:
+// ИмяСобытия - Строка - имя события. Может быть использовано для идентификации сообщений принимающими их формами.
+// Параметр - Произвольный - параметр сообщения. Могут быть переданы любые необходимые данные.
+// Источник - Произвольный - источник события. Например, в качестве источника может быть указана другая форма.
+//
+// Пример:
+// Если ИмяСобытия = "НаборКонстант.ПрефиксУзлаРаспределеннойИнформационнойБазы" Тогда
+// НаборКонстант.ПрефиксУзлаРаспределеннойИнформационнойБазы = Параметр;
+// КонецЕсли;
+//
&НаКлиенте
Процедура ОбработчикОповещений(ИмяСобытия, Параметр, Источник)
- // Обработка оповещений от других открытых форм.
- //
- // Пример:
- // Если ИмяСобытия = "НаборКонстант.ПрефиксУзлаРаспределеннойИнформационнойБазы" Тогда
- // НаборКонстант.ПрефиксУзлаРаспределеннойИнформационнойБазы = Параметр;
- // КонецЕсли;
-
КонецПроцедуры
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ОбщиеНастройки/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ОбщиеНастройки/Help/ru.html
index 31376c160..3326c990a 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ОбщиеНастройки/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ОбщиеНастройки/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется настройка основных параметров программы.</p>
<ul><li><strong>Заголовок программы</strong> - введите текст, который будет отображаться в заголовке окна программы.
</li><li><strong>Часовой пояс</strong> - часовой пояс, по которому ведется учет в программе. Все даты документов и регистров программы хранятся в этом часовом поясе.
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/Органайзер/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/Органайзер/Help/ru.html
index 43b01adc0..ab17ebaec 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/Органайзер/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/Органайзер/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется настройка электронной почты, заметок, напоминаний и бизнес-процессов. Доступны команды:</p>
<ul><a name="СтандартныеПодсистемы.Взаимодействия">
<li><strong>Почтовый клиент</strong> - включите флажок, для того чтобы использовать возможности встроенного в программу почтового клиента для <a href="DocumentJournal.Взаимодействия.Form.ФормаСписка/Help">взаимодействий</a> с помощью электронных писем (e-mail).
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПечатныеФормыОтчетыИОбработки/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПечатныеФормыОтчетыИОбработки/Help/ru.html
index 20b15a444..e764c670d 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПечатныеФормыОтчетыИОбработки/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПечатныеФормыОтчетыИОбработки/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-</style><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.9600.17420"></meta></head><body>
+</style><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 9.00.8112.16421"></meta></head><body>
<p>В данной панели осуществляется настройка печатных форм, вариантов отчетов, рассылок отчетов, дополнительных отчетов и обработок. Доступны команды:</p>
<ul><a name="СтандартныеПодсистемы.Печать">
<li><a href="InformationRegister.ПользовательскиеМакетыПечати/Help">Макеты печатных форм</a> - переход к списку макетов для настройки печатных форм, формируемых из программы.</li></a> <a name="СтандартныеПодсистемы.ВариантыОтчетов">
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Form.form b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Form.form
index 72e77a6e4..62223633d 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Form.form
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Form.form
@@ -179,7 +179,7 @@
<id>1903</id>
<title>
<key>ru</key>
- <value>После изменения настроек необходимо переоткрыть все открытые окна или перезайти в программу.</value>
+ <value>После изменения настроек необходимо <link ОбновитьИнтерфейс>переоткрыть все открытые окна</> или перезайти в программу.</value>
truetrue
@@ -201,6 +201,7 @@
1904true
+ trueLabeltruetrue
@@ -1246,61 +1247,29 @@
Группа81768
-
- Группа2
- 1797
-
- УдалениеПомеченныхИспользование
- 1770
-
- <key>ru</key>
- <value>Автоматически удалять помеченные объекты по расписанию:</value>
-
- true
- true
-
- true
-
-
- УдалениеПомеченныхИспользование
-
- Right
-
- OnChange
- УдалениеПомеченныхИспользованиеПриИзменении
-
-
- УдалениеПомеченныхИспользованиеРасширеннаяПодсказка
- 1772
- Label
- true
- true
-
- Left
-
-
-
- УдалениеПомеченныхИспользованиеКонтекстноеМеню
- 1771
- true
-
- CheckBoxField
- Enter
- true
- Left
- true
-
-
+
+ УдалениеПомеченныхИспользование
+ 1770
+
+ <key>ru</key>
+ <value>Автоматически удалять помеченные объекты по расписанию:</value>
+ truetruetrue
- 43
- false
+
+ УдалениеПомеченныхИспользование
+
+ Right
+
+ OnChange
+ УдалениеПомеченныхИспользованиеПриИзменении
+
- Группа2РасширеннаяПодсказка
- 1798
+ УдалениеПомеченныхИспользованиеРасширеннаяПодсказка
+ 1772Labeltruetrue
@@ -1308,42 +1277,17 @@
Left
- UsualGroup
-
- Auto
- true
- true
- Auto
- Auto
-
-
-
- Группа9
- 1799
- true
- true
-
- true
-
-
- Группа9РасширеннаяПодсказка
- 1800
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
-
+
+ УдалениеПомеченныхИспользованиеКонтекстноеМеню
+ 1771
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+ УдалениеПомеченныхНастроитьРасписание
@@ -4842,6 +4786,477 @@
Auto
+
+ ГруппаПроверкаКонтрагентов
+ 1908
+
+ ПерваяГруппаНастроек
+ 1910
+
+ ЛеваяКолонкаПервойГруппы
+ 1912
+
+ ИспользоватьПроверкуКонтрагентов
+ 1914
+
+ <key>ru</key>
+ <value>Проверять контрагентов с помощью веб-сервиса ФНС</value>
+
+ true
+ true
+
+ true
+
+
+ НаборКонстант.ИспользоватьПроверкуКонтрагентов
+
+ Right
+ ShowBottom
+
+ OnChange
+ ИспользоватьПроверкуКонтрагентовПриИзменении
+
+
+ ИспользоватьПроверкуКонтрагентовРасширеннаяПодсказка
+ 1916
+
+ <key>ru</key>
+ <value><colorstyle 0:ad87bd29-0ad1-4da4-ac62-38e714e0cb9f>Проверка регистрации контрагентов в ЕГРН (Едином государственном реестре налогоплательщиков)</>
+<link e1cib/app/Обработка.ИнструкцияПоИспользованиюПроверкиКонтрагента>Подробнее о сервисе</></value>
+
+ true
+ Label
+ true
+ 3
+ true
+
+ Left
+
+
+
+ ИспользоватьПроверкуКонтрагентовКонтекстноеМеню
+ 1915
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Левая колонка первой группы</value>
+
+
+ ru
+ Левая колонка первой группы
+
+ 43
+ false
+
+ ЛеваяКолонкаПервойГруппыРасширеннаяПодсказка
+ 1913
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+
+ ПраваяКолонкаПервойГруппы
+ 1920
+
+ ПредупреждениеПроТестовыйРежимПроверкиКонтрагента
+ 1917
+
+ <key>ru</key>
+ <value><Предупреждение про тестовый режим работы сервиса></value>
+
+ true
+ true
+
+ true
+
+
+ ПредупреждениеПроТестовыйРежимПроверкиКонтрагентаРасширеннаяПодсказка
+ 1919
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ПредупреждениеПроТестовыйРежимПроверкиКонтрагентаКонтекстноеМеню
+ 1918
+ true
+
+ Label
+ 43
+ true
+ 1
+ true
+ false
+
+ Left
+
+ Style.ЦветФонаТестовогоРежимаСервисаФНС
+
+
+
+
+ ПроверитьДоступКСервису
+ 1924
+ true
+ true
+
+ true
+
+
+ ПроверитьДоступКСервисуРасширеннаяПодсказка
+ 1925
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualButton
+ Form.Command.ПроверитьДоступКСервису
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Правая колонка первой группы</value>
+
+
+ ru
+ Правая колонка первой группы
+
+
+ ПраваяКолонкаПервойГруппыРасширеннаяПодсказка
+ 1921
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+ true
+ true
+
+ true
+
+
+ ПерваяГруппаНастроекРасширеннаяПодсказка
+ 1911
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+
+ ВтораяГруппаНастроек
+ 1926
+
+ ЛеваяКолонкаВторойГруппы
+ 1928
+
+ АвтоматическиПроверятьКонтрагентовИспользование
+ 1930
+ true
+ true
+
+ true
+
+
+ АвтоматическиПроверятьКонтрагентовИспользование
+
+ Right
+
+ OnChange
+ АвтоматическаяПроверкаИспользованиеПриИзменении
+
+
+ АвтоматическиПроверятьКонтрагентовИспользованиеРасширеннаяПодсказка
+ 1932
+ Label
+ true
+ true
+
+ Left
+
+
+
+ АвтоматическиПроверятьКонтрагентовИспользованиеКонтекстноеМеню
+ 1931
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+
+
+
+ АвтоматическиПроверятьКонтрагентовПояснение
+ 1943
+ true
+ true
+
+ true
+
+
+ АвтоматическиПроверятьКонтрагентовПояснениеРасширеннаяПодсказка
+ 1945
+ Label
+ true
+ true
+
+ Left
+
+
+
+ АвтоматическиПроверятьКонтрагентовПояснениеКонтекстноеМеню
+ 1944
+ true
+
+ Label
+ true
+ true
+
+ Style.ПоясняющийТекст
+
+
+ Left
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Левая колонка второй группы</value>
+
+
+ ru
+ Левая колонка первой группы
+
+ 43
+ false
+
+ ЛеваяКолонкаВторойГруппыРасширеннаяПодсказка
+ 1929
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+
+ ПраваяКолонкаВторойГруппы
+ 1936
+
+ НастроитьРасписаниеПроверкиКонтрагентов
+ 1938
+ true
+ false
+
+ true
+
+
+ НастроитьРасписаниеПроверкиКонтрагентовРасширеннаяПодсказка
+ 1939
+ Label
+ true
+ 2
+ true
+
+ Left
+
+
+ Hyperlink
+ Form.Command.НастроитьРасписаниеПроверкиКонтрагентов
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ None
+ Auto
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Правая колонка второй группы</value>
+
+
+ ru
+ Левая колонка первой группы
+
+ false
+
+ ПраваяКолонкаВторойГруппыРасширеннаяПодсказка
+ 1937
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+ true
+ true
+
+ true
+
+
+ ru
+ Вторая группа настроек
+
+
+ ВтораяГруппаНастроекРасширеннаяПодсказка
+ 1927
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Работа с контрагентами</value>
+
+
+ System.DefaultGUIFont
+ 11.0
+ true
+ false
+ false
+ false
+
+
+ ru
+
+
+
+ ГруппаПроверкаКонтрагентовРасширеннаяПодсказка
+ 1909
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ NormalSeparation
+ true
+ true
+ Equal
+ auto
+ Auto
+ Auto
+
+ ФормаКоманднаяПанель-1
@@ -4970,6 +5385,55 @@
true
+
+ АвтоматическиПроверятьКонтрагентовИспользование
+
+ <key>ru</key>
+ <value>Автоматически проверять контрагентов по расписанию:</value>
+
+ 5
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
+
+ АвтоматическиПроверятьКонтрагентовРасписание
+
+ <key>ru</key>
+ <value>Автоматически проверять контрагентов рассписание</value>
+
+ 8
+
+
+ true
+
+
+ true
+
+
+
+ АвтоматическиПроверятьКонтрагентовИдентификатор
+
+ <key>ru</key>
+ <value>Автоматически проверять контрагентов идентификатор</value>
+
+ 9
+
+ UUID
+
+
+ true
+
+
+ true
+
+ УправлениеПолнотекстовымПоискомИИзвлечениемТекстов
@@ -5147,6 +5611,50 @@
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
+ <formCommands>
+ <name>ПроверитьДоступКСервису</name>
+ <title>
+ <key>ru</key>
+ <value>Проверить доступ к веб-сервису</value>
+
+ 1
+
+ ru
+ Проверить доступ к сервису
+
+
+
+
+ ПроверитьДоступКСервису
+
+
+ Auto
+ Auto
+
+
+ НастроитьРасписаниеПроверкиКонтрагентов
+
+ <key>ru</key>
+ <value>Настроить расписание проверки контрагентов</value>
+
+ 7
+
+ ru
+ Настроить расписание проверки контрагентов
+
+
+
+
+ НастроитьРасписаниеПроверкиКонтрагентов
+
+
+ Auto
+ Auto
+
diff --git a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Help/ru.html b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Help/ru.html
index ec12800ad..8ed09ce64 100644
--- a/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Help/ru.html
+++ b/SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ПоддержкаИОбслуживание/Help/ru.html
@@ -4,7 +4,7 @@
TD {
VERTICAL-ALIGN: top
}
-В данной панели осуществляется контроль состояния программы, резервное копирование и восстановление, обновление версии, оптимизация быстродействия.
Программа позволяет производить полнотекстовый поиск в любых справочниках, документах и других объектах, отыскивая заданную строку во всех полях объектов. При наличии присоединенных файлов, содержащих текстовую информацию, поиск осуществляется также и по ним. Полнотекстовый поиск используется при поиске данных в программе по содержимому справочников, документов и других объектов программы.
В разделе Администрирование предусмотрены средства, при помощи которых можно изменять параметры работы, проводить регламентные операции и контролировать состояние программы.
Для эффективной работы программы ее необходимо правильно настроить.
При необходимости, часто используемые настройки можно вынести в командный интерфейс раздела Администрирование в настройках панели навигации или панели действий, в зависимости от типа настройки.
Предназначена для переноса файлов, хранящихся в информационной базе, в тома хранения файлов.
Для успешного переноса файлов необходимо:
В настройках программы в разделе Администрирование - Настройки работы с файлами включить флажок Хранить файлы в томах на диске.
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Form.form b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Form.form
index e8e45af68..88dccedff 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Form.form
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Form.form
@@ -5,129 +5,22 @@
Поиск и удаление дублей
- Заголовок
- 12
-
- ЗаголовокЗаголовки
- 14
-
- НадписьИскать
- 18
-
- <key>ru</key>
- <value>Искать в:</value>
-
- true
- true
-
- true
-
-
- НадписьИскатьРасширеннаяПодсказка
- 20
- Label
- true
- true
-
- Left
-
-
-
- НадписьИскатьКонтекстноеМеню
- 19
- true
-
- Label
- true
- true
-
- Left
-
-
-
- НадписьПравилаОтбора
- 21
-
- <key>ru</key>
- <value>Отбирать:</value>
-
- true
- true
-
- true
-
-
- НадписьПравилаОтбораРасширеннаяПодсказка
- 23
- Label
- true
- true
-
- Left
-
-
-
- НадписьПравилаОтбораКонтекстноеМеню
- 22
- true
-
- Label
- true
- true
-
- Left
-
-
-
- НадписьПравилаПоиска
- 24
-
- <key>ru</key>
- <value>Сравнивать:</value>
-
- true
- true
-
- true
-
-
- НадписьПравилаПоискаРасширеннаяПодсказка
- 26
- Label
- true
- true
-
- Left
-
-
-
- НадписьПравилаПоискаКонтекстноеМеню
- 25
- true
-
- Label
- true
- true
-
- Left
-
-
+ Шапка
+ 406
+
+ ПредставлениеОбластиПоискаДублей
+ 9truetruetrue
-
- <key>ru</key>
- <value>Заголовок заголовки</value>
-
-
- ru
- Заголовок заголовки
-
+
+ ПредставлениеОбластиПоискаДублей
+
- ЗаголовокЗаголовкиРасширеннаяПодсказка
- 15
+ ПредставлениеОбластиПоискаДублейРасширеннаяПодсказка
+ 11Labeltruetrue
@@ -135,271 +28,56 @@
Left
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
+
+ ПредставлениеОбластиПоискаДублейКонтекстноеМеню
+ 10
+ true
+
+ InputField
+ Enter
+ true
+ Left
+ true
+
+
+ StartChoice
+ ПредставлениеОбластиПоискаНачалоВыбора
+
+
+ Clearing
+ ПредставлениеОбластиПоискаДублейОчистка
+
+ 43
+ true
+ true
+ false
+ true
+ false
+ true
+ ShowInInputField
+ false
+ false
+ false
+ false
+ true
+ true
+ Normal
-
- ЗаголовокПоляВыбора
- 16
-
- ПредставлениеОбластиПоискаДублей
- 9
- true
- true
-
- true
-
-
- ПредставлениеОбластиПоискаДублей
-
- None
-
- ПредставлениеОбластиПоискаДублейРасширеннаяПодсказка
- 11
- Label
- true
- true
-
- Left
-
-
-
- ПредставлениеОбластиПоискаДублейКонтекстноеМеню
- 10
- true
-
- InputField
- Enter
- true
- Left
- true
-
-
- StartChoice
- ПредставлениеОбластиПоискаНачалоВыбора
-
-
- Clearing
- ПредставлениеОбластиПоискаДублейОчистка
-
- 45
- true
- true
- false
- true
- false
- true
- ShowInInputField
- false
- false
- false
- false
- true
- true
- Normal
-
-
-
- ГруппаПравилаОтбора
- 27
-
- ПравилаОтбора
- 358
-
- <key>ru</key>
- <value>Правила отбора</value>
-
- true
- true
-
- true
-
-
- ПравилаОтбораРасширеннаяПодсказка
- 360
- Label
- true
- true
-
- Left
-
-
-
- ПравилаОтбораКонтекстноеМеню
- 359
- true
-
- Label
- true
- true
-
-
- Click
- ПравилаОтбораНажатие
-
- true
- Left
-
-
-
- ОчиститьПравилаОтбора
- 29
- true
- true
-
- true
-
-
- ОчиститьПравилаОтбораРасширеннаяПодсказка
- 30
- Label
- true
- true
-
- Left
-
-
- Hyperlink
- Form.Command.ОчиститьПравилаОтбора
- Normal
- Picture
- 2
- true
- true
- UserCmds
- Auto
-
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Группа правила отбора</value>
-
-
- ru
- Группа правила отбора
-
-
- ГруппаПравилаОтбораРасширеннаяПодсказка
- 28
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Auto
- true
- true
- Auto
- Auto
-
-
-
- ГруппаПравилаПоиска
- 337
-
- ПравилаПоиска
- 361
-
- <key>ru</key>
- <value>Правила поиска</value>
-
- true
- true
-
- true
-
-
- ПравилаПоискаРасширеннаяПодсказка
- 363
- Label
- true
- true
-
- Left
-
-
-
- ПравилаПоискаКонтекстноеМеню
- 362
- true
-
- Label
- true
- true
- true
-
-
- Click
- ПравилаПоискаНажатие
-
- true
- Left
-
-
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Группа правила поиска</value>
-
-
- ru
- Группа правила поиска
-
-
- ГруппаПравилаПоискаРасширеннаяПодсказка
- 338
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
-
-
+
+ ПредставлениеПравилОтбора
+ 413truetruetrue
-
- <key>ru</key>
- <value>Заголовок поля выбора</value>
-
-
- ru
- Заголовок поля выбора
-
+
+ ПредставлениеПравилОтбора
+
- ЗаголовокПоляВыбораРасширеннаяПодсказка
- 17
+ ПредставлениеПравилОтбораРасширеннаяПодсказка
+ 415Labeltruetrue
@@ -407,14 +85,76 @@
Left
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
+
+ ПредставлениеПравилОтбораКонтекстноеМеню
+ 414
+ true
+
+ InputField
+ Enter
+ true
+ Left
+ true
+
+
+ StartChoice
+ ПредставлениеПравилОтбораНачалоВыбора
+
+
+ Clearing
+ ПредставлениеПравилОтбораОчистка
+
+ 45
+ true
+ true
+ false
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+
+ ПредставлениеПравилПоиска
+ 408
+ true
+ true
+
+ true
+
+
+ ПредставлениеПравилПоиска
+
+
+ ПредставлениеПравилПоискаРасширеннаяПодсказка
+ 410
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ПредставлениеПравилПоискаКонтекстноеМеню
+ 409
+ true
+
+ LabelField
+ Enter
+ true
+ Left
+ true
+
+
+ Click
+ ПредставлениеПравилПоискаНажатие
+
+ true
+ true
+ truetrue
@@ -424,15 +164,15 @@
<key>ru</key>
- <value>Заголовок</value>
+ <value>Шапка</value>
ru
- Заголовок
+ Шапка
- ЗаголовокРасширеннаяПодсказка
- 13
+ ШапкаРасширеннаяПодсказка
+ 407Labeltruetrue
@@ -442,6 +182,7 @@
UsualGroup
+ VerticalAutotruetrue
@@ -1011,6 +752,11 @@
НайденныеДубли.Количество
+ None
+
+ ru
+ Мест использования
+ НайденныеДублиКоличествоРасширеннаяПодсказка121
@@ -1031,10 +777,13 @@
LeftAutotrue
+
+ CommonPicture.Информация
+ Lefttrue
- 15
+ 4truetruefalse
@@ -1383,46 +1132,6 @@
true
-
- ВсеМестаИспользования
- 328
-
- <key>ru</key>
- <value>Все места использования</value>
-
- true
- true
-
- true
-
-
- ВсеМестаИспользованияРасширеннаяПодсказка
- 330
- Label
- true
- true
-
- Left
-
-
-
- ВсеМестаИспользованияКонтекстноеМеню
- 329
- true
-
- Label
- true
- true
- true
-
-
- Click
- ВсеМестаИспользованияНажатие
-
- true
- Right
-
- truetrue
@@ -1455,54 +1164,21 @@
ОписаниеГруппы151
-
- Группа1
- 222
-
- ОписаниеТекущейГруппыДублей
- 134
-
- <key>ru</key>
- <value>Описание текущей группы дублей</value>
-
- true
- true
-
- true
-
-
- ОписаниеТекущейГруппыДублейРасширеннаяПодсказка
- 136
- Label
- true
- true
-
- Left
-
-
-
- ОписаниеТекущейГруппыДублейКонтекстноеМеню
- 135
- true
-
- Label
- true
- true
- true
- true
-
- Left
- Top
-
-
+
+ ОписаниеТекущейГруппыДублей
+ 134
+
+ <key>ru</key>
+ <value>Описание текущей группы дублей</value>
+ truetruetrue
- Группа1РасширеннаяПодсказка
- 223
+ ОписаниеТекущейГруппыДублейРасширеннаяПодсказка
+ 136Labeltruetrue
@@ -1510,14 +1186,23 @@
Left
- UsualGroup
-
- Vertical
- Auto
- true
- true
- Auto
- Auto
+
+ ОписаниеТекущейГруппыДублейКонтекстноеМеню
+ 135
+ true
+
+ Label
+ true
+ true
+ true
+ true
+
+ Center
+ Center
+
+
+ 1
+ true
@@ -1529,10 +1214,6 @@
ruОписание группы
-
- ru
- Описание группы
- ОписаниеГруппыРасширеннаяПодсказка152
@@ -1649,11 +1330,51 @@
true2true
+ trueStyle.ПоясняющийТекст
+
+ ВсеМестаИспользования
+ 328
+
+ <key>ru</key>
+ <value>Все места использования</value>
+
+ true
+ true
+
+ true
+
+
+ ВсеМестаИспользованияРасширеннаяПодсказка
+ 330
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ВсеМестаИспользованияКонтекстноеМеню
+ 329
+ true
+
+ Label
+ true
+ true
+
+
+ Click
+ ВсеМестаИспользованияНажатие
+
+ true
+ Right
+
+ truetrue
@@ -2040,7 +1761,7 @@
331
<key>ru</key>
- <value>При обработке некоторых элементов возникли ошибки замены в местах использования:</value>
+ <value>Не удалось заменить удаляемые элементы на оригиналы во всех местах использования:</value>
truetrue
@@ -2282,10 +2003,6 @@
НеобработанныеДублиКоличество299
-
- <key>ru</key>
- <value>Неудачных замен</value>
- truetrue
@@ -2294,6 +2011,11 @@
НеобработанныеДубли.Количество
+ None
+
+ ru
+ Неудачных замен
+ НеобработанныеДублиКоличествоРасширеннаяПодсказка301
@@ -2313,10 +2035,13 @@
trueAutotrue
+
+ CommonPicture.Предупреждение
+ Lefttrue
- 13
+ 4truetruefalse
@@ -2660,6 +2385,7 @@
truetrueMultiRow
+ Row11AutoUse
@@ -2728,83 +2454,6 @@
Normal
-
- ГруппаГоризонтальнаяСостояниеНеобработанных
- 283
-
- ВсеМестаИспользованияНеобработанных
- 323
-
- <key>ru</key>
- <value>Все места использования</value>
-
- true
- true
-
- true
-
-
- ВсеМестаИспользованияНеобработанныхРасширеннаяПодсказка
- 325
- Label
- true
- true
-
- Left
-
-
-
- ВсеМестаИспользованияНеобработанныхКонтекстноеМеню
- 324
- true
-
- Label
- true
- true
- true
- false
-
-
- Click
- ВсеМестаИспользованияНеобработанныхНажатие
-
- true
- Right
-
-
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Группа горизонтальная состояние необработанных</value>
-
-
- ru
- Группа горизонтальная состояние найденного
-
- false
-
- ГруппаГоризонтальнаяСостояниеНеобработанныхРасширеннаяПодсказка
- 284
- Label
- true
- true
-
- Left
-
-
- UsualGroup
-
- Auto
- true
- true
- Auto
- Auto
-
- truetrue
@@ -2874,8 +2523,12 @@
truetrue
- Left
- Top
+ Center
+ Center
+
+
+ 1
+ true
@@ -2993,21 +2646,102 @@
Auto
-
- Декорация3
- 334
-
- <key>ru</key>
- <value>Обработка групп(ы) дублей была отменена. После исправления ошибок можно продолжить удаление.</value>
-
+
+ ГруппаПояснениеКНеобработанным
+ 283
+
+ Декорация3
+ 334
+
+ <key>ru</key>
+ <value>Удаление групп(ы) дублей было отменено до выяснения и устранения причин.</value>
+
+ true
+ true
+
+ true
+
+
+ Декорация3РасширеннаяПодсказка
+ 336
+ Label
+ true
+ true
+
+ Left
+
+
+
+ Декорация3КонтекстноеМеню
+ 335
+ true
+
+ Label
+ true
+ true
+ true
+
+ Style.ПоясняющийТекст
+
+
+ Left
+
+
+
+ ВсеМестаИспользованияНеобработанных
+ 323
+
+ <key>ru</key>
+ <value>Все места использования</value>
+
+ true
+ true
+
+ true
+
+
+ ВсеМестаИспользованияНеобработанныхРасширеннаяПодсказка
+ 325
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ВсеМестаИспользованияНеобработанныхКонтекстноеМеню
+ 324
+ true
+
+ Label
+ true
+ true
+ true
+ false
+
+
+ Click
+ ВсеМестаИспользованияНеобработанныхНажатие
+
+ true
+ Right
+
+ truetruetrue
+
+ <key>ru</key>
+ <value>Группа пояснение к необработанным</value>
+
+ Ctrl+S
+ false
- Декорация3РасширеннаяПодсказка
- 336
+ ГруппаПояснениеКНеобработаннымРасширеннаяПодсказка
+ 284Labeltruetrue
@@ -3015,19 +2749,13 @@
Left
-
- Декорация3КонтекстноеМеню
- 335
- true
-
- Label
- true
- true
-
- Style.ПоясняющийТекст
-
-
- Left
+ UsualGroup
+
+ Auto
+ true
+ true
+ Auto
+ Autotrue
@@ -3658,6 +3386,10 @@
OnCreateAtServerПриСозданииНаСервере
+
+ OnClose
+ ПриЗакрытии
+ BeforeLoadDataFromSettingsAtServerПередЗагрузкойДанныхИзНастроекНаСервере
@@ -4179,23 +3911,6 @@
true
-
- ДоступноВыполнениеПроцедурыМодуляОбъектаОбработки
-
- <key>ru</key>
- <value>Доступно выполнение процедуры модуля объекта обработки</value>
-
- 18
-
- Boolean
-
-
- true
-
-
- true
-
- АдресРезультатаЗамены
@@ -4391,7 +4106,7 @@
<name>МестаИспользованияНеобработанных</name>
<title>
<key>ru</key>
- <value>Места использования необработанных</value>
+ <value>Места использования</value>
24
@@ -4494,7 +4209,7 @@
ПредставлениеОбластиПоискаДублей
<key>ru</key>
- <value>Представление области поиска дублей</value>
+ <value>Искать в</value>
26
@@ -4508,31 +4223,57 @@
true
-
- ОчиститьПравилаОтбора
+
+ НастройкиПошаговогоМастера
<key>ru</key>
- <value>Очистить правила отбора</value>
+ <value>Настройки пошагового мастера</value>
- 2
-
- ru
- Очистить правила отбора
-
-
-
- StdPicture.Delete
-
-
-
- ОчиститьПравилаОтбора
-
-
- Auto
- Auto
-
+
+
+ true
+
+
+
+ ПредставлениеПравилПоиска
+
+ <key>ru</key>
+ <value>Сравнивать</value>
+
+ 18
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ ПредставлениеПравилОтбора
+
+ <key>ru</key>
+ <value>Отбирать</value>
+
+ 28
+
+ String
+
+
+
+ true
+
+
+ true
+
+ ВыбратьОсновнойЭлемент
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Module.bsl b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Module.bsl
index 4c034f471..824481653 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Module.bsl
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПоискДублей/Module.bsl
@@ -1,15 +1,8 @@
-// Флаг подтверждения, используется при не модальном закрытии.
-&НаКлиенте
-Перем ПодтверждениеЗакрытияФормы;
-
#Область ОбработчикиСобытийФормы
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
УстановитьЦветаИУсловноеОформление();
-
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
@@ -43,7 +36,7 @@
ОтображениеСостояния.Картинка = Элементы.Предупреждение32.Картинка;
// Пошаговый мастер
- ИнициализироватьМастера(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
+ НастройкиПошаговогоМастера = ИнициализироватьМастер(Элементы.ШагиМастера, Элементы.Далее, Элементы.Назад, Элементы.Отмена);
// Добавляем шаги, зависящие от логики формы.
ИнициализироватьСценарийМастера();
@@ -67,18 +60,23 @@
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
- Если ПодтверждениеЗакрытияФормы <> Истина Тогда
-
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено
+ И НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Ложь Тогда
Отказ = Истина;
-
- Текст = НСтр("ru = 'Закрыть поиск и удаление дублей?'");
- Оповещение = Новый ОписаниеОповещения("ЗакрытиеФормыЗавершение", ЭтотОбъект);
- ПоказатьВопрос(Оповещение, Текст, РежимДиалогаВопрос.ДаНет);
-
+ ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Истина);
КонецЕсли;
КонецПроцедуры
+&НаКлиенте
+Процедура ПриЗакрытии()
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь
+ И НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ФоновоеЗаданиеОтменить();
+ КонецЕсли;
+КонецПроцедуры
+
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
@@ -122,7 +120,6 @@
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура ПредставлениеОбластиПоискаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
@@ -158,37 +155,41 @@
КонецПроцедуры
&НаКлиенте
-Процедура ПравилаОтбораНажатие(Элемент)
+Процедура ПредставлениеПравилОтбораНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+ СтандартнаяОбработка = Ложь;
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("АдресСхемыКомпоновки", АдресСхемыКомпоновки);
ПараметрыФормы.Вставить("АдресНастроекКомпоновщикаОтбора", АдресНастроекКомпоновщикаОтбора());
ПараметрыФормы.Вставить("ИдентификаторОсновнойФормы", УникальныйИдентификатор);
- ПараметрыФормы.Вставить("ПредставлениеОбластиОтбора",
- Элементы.ПредставлениеОбластиПоискаДублей.СписокВыбора[0].Представление);
+ ПараметрыФормы.Вставить("ПредставлениеОбластиОтбора", ПредставлениеОбластиПоискаДублей);
ОткрытьФорму(БазовоеИмяФормы + "ПравилаОтбора", ПараметрыФормы, ЭтотОбъект);
-
КонецПроцедуры
&НаКлиенте
-Процедура ПравилаПоискаНажатие(Элемент)
+Процедура ПредставлениеПравилОтбораОчистка(Элемент, СтандартнаяОбработка)
+ СтандартнаяОбработка = Ложь;
+ КомпоновщикПредварительногоОтбора.Настройки.Отбор.Элементы.Очистить();
+ ОбновитьОписаниеОтбора();
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПредставлениеПравилПоискаНажатие(Элемент, СтандартнаяОбработка)
+ СтандартнаяОбработка = Ложь;
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ОбластьПоискаДублей", ОбластьПоискаДублей);
ПараметрыФормы.Вставить("ОписаниеПрикладныхПравил", ОписаниеПрикладныхПравил);
- ПараметрыФормы.Вставить("АдресНастроек", АдресНастроекПравилПоиска() );
- ПараметрыФормы.Вставить("ПредставлениеОбластиОтбора",
- Элементы.ПредставлениеОбластиПоискаДублей.СписокВыбора[0].Представление);
-
+ ПараметрыФормы.Вставить("АдресНастроек", АдресНастроекПравилПоиска());
+ ПараметрыФормы.Вставить("ПредставлениеОбластиОтбора", ПредставлениеОбластиПоискаДублей);
+
ОткрытьФорму(БазовоеИмяФормы + "ПравилаПоиска", ПараметрыФормы, ЭтотОбъект);
КонецПроцедуры
-
#КонецОбласти
#Область ОбработчикиСобытийТаблицыНайденныеДубли
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура НайденныеДублиПриАктивизацииСтроки(Элемент)
@@ -225,7 +226,7 @@
КонецЦикла;
Элементы.ОписаниеТекущейГруппыДублей.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Для элемента ""%1"" найдены дубли (%2)'"),
+ НСтр("ru = 'Для элемента ""%1"" найдено дублей: %2'"),
НаименованиеОригинала, ДанныеСтроки.Количество);
Элементы.СтраницыМестаИспользования.ТекущаяСтраница = Элементы.ОписаниеГруппы;
@@ -275,7 +276,6 @@
#КонецОбласти
#Область ОбработчикиСобытийТаблицыНеобработанныеДубли
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура НеобработанныеДублиПриАктивизацииСтроки(Элемент)
@@ -303,18 +303,7 @@
// Описание группы
МестаИспользованияНеобработанных.Очистить();
- НаименованиеОригинала = Неопределено;
- Для Каждого Кандидат Из ДанныеСтроки.ПолучитьЭлементы() Цикл
- Если Кандидат.Основной Тогда
- НаименованиеОригинала = Кандидат.Наименование;
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
- Элементы.ОписаниеТекущейГруппыДублей1.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Для элемента ""%1"" найдены дубли (%2)'"),
- НаименованиеОригинала, ДанныеСтроки.Количество);
-
+ Элементы.ОписаниеТекущейГруппыДублей1.Заголовок = НСтр("ru = 'Для просмотра причин выберите проблемный элемент-дубль.'");
Элементы.СтраницыМестаИспользованияНеобработанных.ТекущаяСтраница = Элементы.ОписаниеГруппыНеобработанных;
Возврат;
КонецЕсли;
@@ -330,7 +319,7 @@
Если ДанныеСтроки.Количество = 0 Тогда
Элементы.ОписаниеТекущейГруппыДублей1.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Элемент ""%1"" успешно обработан'"),
+ НСтр("ru = 'Замена дубля ""%1"" возможна, но была отменена из-за невозможности замены в других местах.'"),
ДанныеСтроки.Наименование);
Элементы.СтраницыМестаИспользованияНеобработанных.ТекущаяСтраница = Элементы.ОписаниеГруппыНеобработанных;
@@ -353,9 +342,7 @@
#КонецОбласти
-
#Область ОбработчикиСобытийТаблицыМестаИспользованияНеобработанных
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура МестаИспользованияНеобработанныхПриАктивизацииСтроки(Элемент)
@@ -380,7 +367,6 @@
#КонецОбласти
#Область ОбработчикиСобытийТаблицыМестаИспользованияКандидата
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура МестаИспользованияКандидатаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
@@ -393,14 +379,6 @@
#КонецОбласти
#Область ОбработчикиКомандФормы
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-
-&НаКлиенте
-Процедура ОчиститьПравилаОтбора(Команда)
-
- ОчиститьОтборПринудительно();
-
-КонецПроцедуры
&НаКлиенте
Процедура ВыбратьОсновнойЭлемент(Команда)
@@ -466,7 +444,6 @@
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Процедура ОбновитьУстановкиОбластиДублей(Знач ВыбранноеЗначение)
@@ -494,7 +471,6 @@
&НаСервере
Процедура УстановитьЦветаИУсловноеОформление()
-
ЦветПоясняющийТекст = ЦветСтиляИлиАвто("ПоясняющийТекст", 69, 81, 133);
ЦветПоясняющийОшибкуТекст = ЦветСтиляИлиАвто("ПоясняющийОшибкуТекст", 255, 0, 0);
ЦветНедоступныеДанные = ЦветСтиляИлиАвто("ЦветНедоступныеДанные", 192, 192, 192);
@@ -588,7 +564,7 @@
ОтборОформления.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ОтборОформления.ПравоеЗначение = 0;
- ЭлементОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Не используется'"));
+ ЭлементОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = '–'"));
ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
ПолеОформления.Поле = Новый ПолеКомпоновкиДанных("НайденныеДублиКоличество");
@@ -608,41 +584,8 @@
КонецПроцедуры
-&НаСервере
-Процедура ЗапуститьФоновыйПоискДублей()
-
- Если Не ЭтоАдресВременногоХранилища(АдресСхемыКомпоновки) Тогда
- // Не инициализировано
- Возврат;
- КонецЕсли;
-
- ПараметрыПоиска = Новый Структура;
- ПараметрыПоиска.Вставить("ОбластьПоискаДублей", ОбластьПоискаДублей);
- ПараметрыПоиска.Вставить("МаксимальноеЧислоДублей", 1500);
-
- МассивПравилПоиска = Новый Массив;
- Для Каждого Правило Из ПравилаПоиска Цикл
- МассивПравилПоиска.Добавить( Новый Структура("Реквизит, Правило", Правило.Реквизит, Правило.Правило) );
- КонецЦикла;
- ПараметрыПоиска.Вставить("ПравилаПоиска", МассивПравилПоиска);
-
- ПараметрыПоиска.Вставить("УчитыватьПрикладныеПравила", УчитыватьПрикладныеПравила);
-
- Если ДоступноВыполнениеПроцедурыМодуляОбъектаОбработки Тогда
- // В качестве схемы компоновки передаем схему, будет использован отдельный фоновый сеанс.
- ПараметрыПоиска.Вставить("СхемаКомпоновки", ПолучитьИзВременногоХранилища(АдресСхемыКомпоновки) );
- Иначе
- // В качестве схемы компоновки передаем адрес, будет использован этот же сеанс.
- ПараметрыПоиска.Вставить("СхемаКомпоновки", АдресСхемыКомпоновки);
- КонецЕсли;
- ПараметрыПоиска.Вставить("НастройкиКомпоновщикаПредварительногоОтбора", КомпоновщикПредварительногоОтбора.Настройки);
-
- ЗапуститьДлительнуюОперациюМастера("ФоновыйПоискДублей", ПараметрыПоиска, Истина, НСтр("ru = 'Поиск групп дублей'") );
-КонецПроцедуры
-
&НаСервере
Функция ЦветСтиляИлиАвто(Знач Имя, Знач Красный = Неопределено, Зеленый = Неопределено, Синий = Неопределено)
-
ЭлементСтиля = Метаданные.ЭлементыСтиля.Найти(Имя);
Если ЭлементСтиля <> Неопределено И ЭлементСтиля.Вид = Метаданные.СвойстваОбъектов.ВидЭлементаСтиля.Цвет Тогда
Возврат ЦветаСтиля[Имя];
@@ -686,7 +629,7 @@
Возврат ПараметрыОтчета;
КонецФункции
-&НаКлиенте
+&НаКлиенте
Процедура РазвернутьГруппуДублейИерархически(Знач СтрокаДанных = Неопределено)
Если СтрокаДанных <> Неопределено Тогда
Элементы.НайденныеДубли.Развернуть(СтрокаДанных, Истина);
@@ -699,7 +642,7 @@
КонецЦикла;
КонецПроцедуры
-&НаКлиенте
+&НаКлиенте
Процедура СвернутьГруппуДублейИерархически(Знач СтрокаДанных = Неопределено)
Если СтрокаДанных <> Неопределено Тогда
Элементы.НайденныеДубли.Свернуть(СтрокаДанных);
@@ -773,30 +716,15 @@
ДанныеСтроки.Наименование, Родитель.Количество);
КонецПроцедуры
-&НаСервере
-Функция ПроверитьСостояниеПоискаДублей()
- СостояниеОперации = СостояниеДлительнойОперацииМастера();
-
- Если Не СостояниеОперации.Завершено Тогда
- // Клиенту пока можно ничего не говорить.
- СостояниеОперации.Результат = Неопределено;
-
- ИначеЕсли СостояниеОперации.ИнформацияОбОшибке <> Неопределено Тогда
- // Завершено c ошибками
- СостояниеОперации.Результат = Неопределено;
-
- ИначеЕсли СостояниеОперации.Завершено И СостояниеОперации.Результат <> Неопределено Тогда
- // Формируем таблицы результата.
- СостояниеОперации.Результат = ЗаполнитьРезультатыПоискаДублей( СостояниеОперации.Результат );
-
- КонецЕсли;
-
- Возврат СостояниеОперации;
-КонецФункции
-
&НаСервере
Функция ЗаполнитьРезультатыПоискаДублей(Знач Данные)
// Данные - результат функции ГруппыДублей модуля.
+ Если Не ПустаяСтрока(Данные.ОписаниеОшибки) Тогда
+ // Фоновое сломалось
+ ОписаниеСостоянияНайденныхДублей = Новый ФорматированнаяСтрока(Элементы.Внимание16.Картинка, " ",
+ Новый ФорматированнаяСтрока(Данные.ОписаниеОшибки, , ЦветПоясняющийОшибкуТекст));
+ Возврат -1;
+ КонецЕсли;
// Строим дерево для редактирования по таблицам результата.
ЭлементыДерева = НайденныеДубли.ПолучитьЭлементы();
@@ -853,23 +781,14 @@
УдалитьИзВременногоХранилища(АдресМестИспользования);
КонецЕсли;
АдресМестИспользования = ПоместитьВоВременноеХранилище(МестаИспользования, УникальныйИдентификатор);
-
- Если Не ПустаяСтрока(Данные.ОписаниеОшибки) Тогда
- // Фоновое сломалось
- ОписаниеСостоянияНайденныхДублей = Новый ФорматированнаяСтрока(Элементы.Внимание16.Картинка, " ",
- Новый ФорматированнаяСтрока(Данные.ОписаниеОшибки, , ЦветПоясняющийОшибкуТекст));
- Возврат -1;
-
- КонецЕсли;
-
+
// Нет ошибок поиска
Если ВсегоНайденоДублей = 0 Тогда
ОписаниеСостоянияНайденныхДублей = Новый ФорматированнаяСтрока(Элементы.Информация16.Картинка, " ",
- НСтр("ru = 'Не обнаружено дублей по указанным условиям'"));
+ НСтр("ru = 'Не обнаружено дублей по указанным условиям.'"));
Иначе
ОписаниеСостоянияНайденныхДублей = Новый ФорматированнаяСтрока(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Найдены дубли элементов: %2 (среди элементов: %1). Все отмеченные элементы будут помечены на удаление
- |и заменены во всех местах использования на оригиналы (отмечены стрелкой).'"),
+ НСтр("ru = 'Найдено дублей: %2 (среди элементов: %1). Все отмеченные элементы будут помечены на удаление и заменены во всех местах использования на оригиналы (отмечены стрелкой).'"),
ВсегоНайденоДублей, ВсегоНайденоДублей - ЭлементыДерева.Количество()),
, ЦветПоясняющийТекст);
КонецЕсли;
@@ -877,28 +796,6 @@
Возврат ВсегоНайденоДублей;
КонецФункции
-&НаСервере
-Функция ПроверитьСостояниеУдаленияДублей()
-
- СостояниеОперации = СостояниеДлительнойОперацииМастера();
-
- Если Не СостояниеОперации.Завершено Тогда
- // Клиенту пока можно ничего не говорить.
- СостояниеОперации.Результат = Неопределено;
-
- ИначеЕсли СостояниеОперации.ИнформацияОбОшибке <> Неопределено Тогда
- // Завершено c ошибками
- СостояниеОперации.Результат = Неопределено;
-
- ИначеЕсли СостояниеОперации.Завершено И СостояниеОперации.Результат <> Неопределено Тогда
- // Формируем таблицы результата.
- СостояниеОперации.Результат = ЗаполнитьРезультатыУдаленияДублей( СостояниеОперации.Результат );
-
- КонецЕсли;
-
- Возврат СостояниеОперации;
-КонецФункции
-
&НаСервере
Функция ЗаполнитьРезультатыУдаленияДублей(Знач ТаблицаОшибок)
// ТаблицаОшибок - результат функции ЗаменитьСсылки модуля.
@@ -1035,7 +932,7 @@
КонецПроцедуры
-&НаСервере
+&НаСервере
Процедура ОбновитьПравилаПоиска(Адрес)
Настройки = ПолучитьИзВременногоХранилища(Адрес);
Адрес = Неопределено;
@@ -1050,7 +947,6 @@
Союз = " " + НСтр("ru = 'И'") + " ";
Для Каждого Правило Из ПравилаПоиска Цикл
-
Если Правило.Правило = "Равно" Тогда
Сравнение = НСтр("ru = '%1 совпадает'");
ИначеЕсли Правило.Правило = "Подобно" Тогда
@@ -1071,54 +967,24 @@
КонецЕсли;
КонецЦикла;
КонецЕсли;
-
+
ТекстПравил = ТекстПравил + ПрикладнойТекст;
Если ПустаяСтрока(ТекстПравил) Тогда
- Элементы.ПравилаПоиска.Заголовок = НСтр("ru = 'Правила не заданы'");
+ ТекстПравил = НСтр("ru = 'Правила не заданы'");
Иначе
- Элементы.ПравилаПоиска.Заголовок = СокрЛП(Сред(ТекстПравил, СтрДлина(Союз)));
+ ТекстПравил = СокрЛП(Сред(ТекстПравил, СтрДлина(Союз)));
КонецЕсли;
-
- Элементы.ПравилаПоиска.Доступность = Не ПустаяСтрока(ОбластьПоискаДублей);
+ ПредставлениеПравилПоиска = ТекстПравил;
+ Элементы.ПредставлениеПравилПоиска.Доступность = Не ПустаяСтрока(ОбластьПоискаДублей);
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьОписаниеОтбора()
-
- ОписаниеОтбора = Строка(КомпоновщикПредварительногоОтбора.Настройки.Отбор);
- Если ПустаяСтрока(ОписаниеОтбора) Тогда
- ОписаниеОтбора = НСтр("ru = 'Все элементы'");
- Элементы.ОчиститьПравилаОтбора.Доступность = Ложь;
- Иначе
- Элементы.ОчиститьПравилаОтбора.Доступность = Истина;
+ ПредставлениеПравилОтбора = Строка(КомпоновщикПредварительногоОтбора.Настройки.Отбор);
+ Если ПустаяСтрока(ПредставлениеПравилОтбора) Тогда
+ ПредставлениеПравилОтбора = НСтр("ru = 'Все элементы'");
КонецЕсли;
-
- Элементы.ПравилаОтбора.Заголовок = ОписаниеОтбора;
-
- Элементы.ПравилаОтбора.Доступность = Не ПустаяСтрока(ОбластьПоискаДублей);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ОбновитьОписаниеОбластиПоиска()
-
- Список = Элементы.ПредставлениеОбластиПоискаДублей.СписокВыбора;
- Список.Очистить();
- ЭлементПредставления = Список.Добавить();
-
- Текущий = ОбластиПоискаДублей.НайтиПоЗначению(ОбластьПоискаДублей);
- Если Текущий <> Неопределено Тогда
- ЗаполнитьЗначенияСвойств(ЭлементПредставления, Текущий);
- КонецЕсли;
-
- ЭтотОбъект.ОбновитьОтображениеДанных();
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ОчиститьОтборПринудительно()
-
- КомпоновщикПредварительногоОтбора.Настройки.Отбор.Элементы.Очистить();
- ОбновитьОписаниеОтбора();
-
+ Элементы.ПредставлениеПравилОтбора.Доступность = Не ПустаяСтрока(ОбластьПоискаДублей);
КонецПроцедуры
&НаСервере
@@ -1246,8 +1112,8 @@
// Правило сравнения, только если есть наименование.
Правило = ПравилаСравнения.Найти("Наименование", "Реквизит");
Если Правило <> Неопределено Тогда
- Если Правило.ВариантыСравнения.НайтиПоЗначению("Подобно") <> Неопределено Тогда
- Правило.Правило = "Подобно";
+ Если Правило.ВариантыСравнения.НайтиПоЗначению("Равно") <> Неопределено Тогда
+ Правило.Правило = "Равно";
КонецЕсли;
КонецЕсли;
@@ -1274,10 +1140,6 @@
Результат = Новый СписокЗначений;
ЗаполнитьЗначенияСвойств(Результат.Добавить(), ВсеВариантыСравнения[0]); // Совпадает
- Если ЭтоСтрока Тогда
- ЗаполнитьЗначенияСвойств(Результат.Добавить(), ВсеВариантыСравнения[1]); // Похоже
- КонецЕсли;
-
Возврат Результат;
КонецФункции
@@ -1294,14 +1156,10 @@
ИмяОбработки = ?(ЭтоВнешняяОбработка, ОбъектОбработки.ИспользуемоеИмяФайла, МетаОбъектОбработки.Имя);
БазовоеИмяФормы = МетаОбъектОбработки.ПолноеИмя() + ".Форма.";
- ДоступноВыполнениеПроцедурыМодуляОбъектаОбработки = Метаданные.НайтиПоПолномуИмени(
- "Подсистема.СтандартныеПодсистемы.Подсистема.БазоваяФункциональность"
- ) <> Неопределено;
-
ОбъектОбработки.ОбластиПоискаДублей(ОбластиПоискаДублей, Истина);
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
// Пошаговый помощник
&НаСервере
@@ -1315,13 +1173,11 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Отказаться от поиска и замены дублей'");
- ДобавитьШагМастера(Элементы.ШагПоискНеВыполнялся,
- ДействиеШагаМастера("ПриАктивации", "ШагПоискНеВыполнялсяПриАктивации",
- ДействиеШагаМастера("ПередДействиемДалее", "ШагПоискНеВыполнялсяПередДействиемДалее",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагПоискНеВыполнялсяПередДействиемОтмена",
- ))),
- КнопкиМастера
- );
+ ДобавитьШагМастера(Элементы.ШагПоискНеВыполнялся,
+ ДействиеШагаМастера("ПриАктивации", "ШагПоискНеВыполнялсяПриАктивации",
+ ДействиеШагаМастера("ПередДействиемДалее", "ШагПоискНеВыполнялсяПередДействиемДалее",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагПоискНеВыполнялсяПередДействиемОтмена",))),
+ КнопкиМастера);
// 1. Длительный поиск
КнопкиМастера = КнопкиМастера();
@@ -1330,13 +1186,11 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Прервать'");
КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Прервать поиск дублей'");
- ДобавитьШагМастера(Элементы.ШагВыполнениеПоиска,
- ДействиеШагаМастера("ПриАктивации", "ШагВыполнениеПоискаПриАктивации",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыполнениеПоискаПередДействиемОтмена",
- ДействиеШагаМастера("ПриОбработкеОжидания", "ШагВыполнениеПоискаПриОбработкеОжидания",
- ))),
- КнопкиМастера
- );
+ ДобавитьШагМастера(Элементы.ШагВыполнениеПоиска,
+ ДействиеШагаМастера("ПриАктивации", "ШагВыполнениеПоискаПриАктивации",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыполнениеПоискаПередДействиемОтмена",
+ ДействиеШагаМастера("ПриОбработкеОжидания", "ШагВыполнениеПоискаПриОбработкеОжидания",))),
+ КнопкиМастера);
// 2. Обработка результатов поиска, выбор основных элементов.
КнопкиМастера = КнопкиМастера();
@@ -1346,13 +1200,11 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Отказаться от поиска и замены дублей'");
- ДобавитьШагМастера(Элементы.ШагВыборОсновногоЭлемента,
- ДействиеШагаМастера("ПриАктивации", "ШагВыборОсновногоЭлементаПриАктивации",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыборОсновногоЭлементаПередДействиемОтмена",
- ДействиеШагаМастера("ПередДействиемДалее", "ШагВыборОсновногоЭлементаПередДействиемДалее",
- ))),
- КнопкиМастера
- );
+ ДобавитьШагМастера(Элементы.ШагВыборОсновногоЭлемента,
+ ДействиеШагаМастера("ПриАктивации", "ШагВыборОсновногоЭлементаПриАктивации",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыборОсновногоЭлементаПередДействиемОтмена",
+ ДействиеШагаМастера("ПередДействиемДалее", "ШагВыборОсновногоЭлементаПередДействиемДалее",))),
+ КнопкиМастера);
// 3. Длительное удаление дублей.
КнопкиМастера = КнопкиМастера();
@@ -1361,13 +1213,11 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Прервать'");
КнопкиМастера.Отмена.Подсказка = НСтр("ru = 'Прервать удаление дублей'");
- ДобавитьШагМастера(Элементы.ШагВыполнениеУдаления,
- ДействиеШагаМастера("ПриАктивации", "ШагВыполнениеУдаленияПриАктивации",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыполнениеУдаленияПередДействиемОтмена",
- ДействиеШагаМастера("ПриОбработкеОжидания", "ШагВыполнениеУдаленияПриОбработкеОжидания",
- ))),
- КнопкиМастера
- );
+ ДобавитьШагМастера(Элементы.ШагВыполнениеУдаления,
+ ДействиеШагаМастера("ПриАктивации", "ШагВыполнениеУдаленияПриАктивации",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагВыполнениеУдаленияПередДействиемОтмена",
+ ДействиеШагаМастера("ПриОбработкеОжидания", "ШагВыполнениеУдаленияПриОбработкеОжидания",))),
+ КнопкиМастера);
// 4. Успешное удаление
КнопкиМастера = КнопкиМастера();
@@ -1378,12 +1228,10 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
ДобавитьШагМастера(Элементы.ШагУспешноеУдаление,
- ДействиеШагаМастера("ПриАктивации", "ШагУспешноеУдалениеПриАктивации",
- ДействиеШагаМастера("ПередДействиемНазад", "ШагУспешноеУдалениеПередДействиемНазад",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагУспешноеУдалениеПередДействиемОтмена",
- ))),
- КнопкиМастера
- );
+ ДействиеШагаМастера("ПриАктивации", "ШагУспешноеУдалениеПриАктивации",
+ ДействиеШагаМастера("ПередДействиемНазад", "ШагУспешноеУдалениеПередДействиемНазад",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагУспешноеУдалениеПередДействиемОтмена",))),
+ КнопкиМастера);
// 5. Неполное удаление
КнопкиМастера = КнопкиМастера();
@@ -1393,12 +1241,10 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
ДобавитьШагМастера(Элементы.ШагНеудачныеЗамены,
- ДействиеШагаМастера("ПриАктивации", "ШагНеудачныеЗаменыПриАктивации",
- ДействиеШагаМастера("ПередДействиемДалее", "ШагНеудачныеЗаменыПередДействиемДалее",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагНеудачныеЗаменыПередДействиемОтмена",
- ))),
- КнопкиМастера
- );
+ ДействиеШагаМастера("ПриАктивации", "ШагНеудачныеЗаменыПриАктивации",
+ ДействиеШагаМастера("ПередДействиемДалее", "ШагНеудачныеЗаменыПередДействиемДалее",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагНеудачныеЗаменыПередДействиемОтмена",))),
+ КнопкиМастера);
// 6. Дублей не найдено
КнопкиМастера = КнопкиМастера();
@@ -1408,12 +1254,10 @@
КнопкиМастера.Отмена.Заголовок = НСтр("ru = 'Закрыть'");
ДобавитьШагМастера(Элементы.ШагДублейНеНайдено,
- ДействиеШагаМастера("ПриАктивации", "ШагДублейНеНайденоПриАктивации",
- ДействиеШагаМастера("ПередДействиемДалее", "ШагДублейНеНайденоПередДействиемДалее",
- ДействиеШагаМастера("ПередДействиемОтмена", "ШагДублейНеНайденоПередДействиемОтмена",
- ))),
- КнопкиМастера
- );
+ ДействиеШагаМастера("ПриАктивации", "ШагДублейНеНайденоПриАктивации",
+ ДействиеШагаМастера("ПередДействиемДалее", "ШагДублейНеНайденоПередДействиемДалее",
+ ДействиеШагаМастера("ПередДействиемОтмена", "ШагДублейНеНайденоПередДействиемОтмена",))),
+ КнопкиМастера);
КонецПроцедуры
@@ -1422,10 +1266,9 @@
&НаКлиенте
Процедура ШагПоискНеВыполнялсяПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Истина;
+ Элементы.Шапка.Доступность = Истина;
ОбновитьОписаниеОтбора();
- ОбновитьОписаниеОбластиПоиска();
ОбновитьОписаниеПравилПоиска();
КонецПроцедуры
@@ -1445,9 +1288,7 @@
&НаКлиенте
Процедура ШагПоискНеВыполнялсяПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
// 1. Длительный поиск
@@ -1455,56 +1296,26 @@
&НаКлиенте
Процедура ШагВыполнениеПоискаПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Ложь;
+ Элементы.Шапка.Доступность = Ложь;
- ЗапуститьФоновыйПоискДублей();
+ Если Не ЭтоАдресВременногоХранилища(АдресСхемыКомпоновки) Тогда
+ Возврат; // Не инициализировано.
+ КонецЕсли;
+
+ ФоновоеЗаданиеЗапустить("ФоновыйПоискДублей");
КонецПроцедуры
&НаКлиенте
Процедура ШагВыполнениеПоискаПриОбработкеОжидания(Прекратить, Знач ДополнительныеПараметры) Экспорт
-
- // Ожидаем завершения поиска дублей.
- СостояниеОперации = ПроверитьСостояниеПоискаДублей();
-
- Если Не СостояниеОперации.Завершено Тогда
- Возврат;
- КонецЕсли;
-
- // Смотрим на результат выполнения.
- ОписаниеОшибки = Неопределено;
- Если СостояниеОперации.ИнформацияОбОшибке <> Неопределено Тогда
- ОписаниеОшибки = СостояниеОперации.ИнформацияОбОшибке;
- ИначеЕсли СостояниеОперации.Результат = -1 Тогда
- ОписаниеОшибки = ОписаниеСостоянияНайденныхДублей;
- КонецЕсли;
-
- Если ОписаниеОшибки <> Неопределено Тогда
+ Если ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Ложь) Тогда
Прекратить = Истина;
- ПоказатьПредупреждение(, ОписаниеОшибки );
- ПерейтиНаШагМастера(Элементы.ШагПоискНеВыполнялся, Истина);
- Возврат;
КонецЕсли;
-
- Если СостояниеОперации.Результат <> Неопределено И СостояниеОперации.Результат > 0 Тогда
- // Найдены какие-то дубли
- ШагМастера("Далее");
- Возврат;
- КонецЕсли;
-
- // Дублей по текущим установкам не найдено.
- ПерейтиНаШагМастера(Элементы.ШагДублейНеНайдено, Истина);
-
КонецПроцедуры
&НаКлиенте
Процедура ШагВыполнениеПоискаПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ТекстВопроса = НСтр("ru = 'Прервать поиск дублей?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
-
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
КонецПроцедуры
// 2. Обработка результатов поиска, выбор основных элементов.
@@ -1512,7 +1323,7 @@
&НаКлиенте
Процедура ШагВыборОсновногоЭлементаПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Истина;
+ Элементы.Шапка.Доступность = Истина;
// Разрешаем повторять поиск
Элементы.ПовторитьПоиск.Видимость = Истина;
@@ -1532,61 +1343,27 @@
&НаКлиенте
Процедура ШагВыборОсновногоЭлементаПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
// 3. Длительное удаление
&НаКлиенте
Процедура ШагВыполнениеУдаленияПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- Элементы.Заголовок.Доступность = Ложь;
-
- ПараметрыУдаления = Новый Структура;
- ПараметрыУдаления.Вставить("СпособУдаления", "Пометка");
- ПараметрыУдаления.Вставить("ПарыЗамен", ПарыЗаменДублей() );
-
- ЗапуститьДлительнуюОперациюМастера("ФоновоеУдалениеДублей", ПараметрыУдаления, Истина, НСтр("ru = 'Удаление дублей'") );
+ Элементы.Шапка.Доступность = Ложь;
+ ФоновоеЗаданиеЗапустить("ФоновоеУдалениеДублей");
КонецПроцедуры
&НаКлиенте
Процедура ШагВыполнениеУдаленияПриОбработкеОжидания(Прекратить, Знач ДополнительныеПараметры) Экспорт
-
- // Ожидаем завершения поиска дублей.
- СостояниеОперации = ПроверитьСостояниеУдаленияДублей();
-
- Если Не СостояниеОперации.Завершено Тогда
- Возврат;
- КонецЕсли;
-
- Если СостояниеОперации.ИнформацияОбОшибке = Неопределено Тогда
- // Выполнено успешно, данные сформированы и переложены в реквизиты.
- Если СостояниеОперации.Результат = Истина Тогда
- // Успешно заменены все группы дублей.
- ШагМастера("Далее");
- Иначе
- // Не все места использования удалось заменить.
- ПерейтиНаШагМастера(Элементы.ШагНеудачныеЗамены, Истина);
- КонецЕсли;
- Иначе
- // Фоновое задание завершено с ошибкой.
+ Если ФоновоеЗаданиеЗагрузитьНаКлиенте(Ложь, Ложь) Тогда
Прекратить = Истина;
- ПоказатьПредупреждение(, СостояниеОперации.ИнформацияОбОшибке);
- ПерейтиНаШагМастера(Элементы.ШагПоискНеВыполнялся, Истина);
КонецЕсли;
-
КонецПроцедуры
&НаКлиенте
Процедура ШагВыполнениеУдаленияПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ТекстВопроса = НСтр("ru = 'Прервать удаление дублей?'");
- Описание = Новый ОписаниеОповещения("ЗавершениеОтменыИЗакрытиеФормы", ЭтотОбъект, Новый Структура);
- Описание.ДополнительныеПараметры.Вставить("ПараметрыШага", ПараметрыШага);
- ПоказатьВопрос(Описание, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
-
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
КонецПроцедуры
// 4. Успешное удаление
@@ -1594,7 +1371,7 @@
&НаКлиенте
Процедура ШагУспешноеУдалениеПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Ложь;
+ Элементы.Шапка.Доступность = Ложь;
КонецПроцедуры
@@ -1608,9 +1385,7 @@
&НаКлиенте
Процедура ШагУспешноеУдалениеПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
// 5. Неполное удаление
@@ -1618,7 +1393,7 @@
&НаКлиенте
Процедура ШагНеудачныеЗаменыПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Ложь;
+ Элементы.Шапка.Доступность = Ложь;
КонецПроцедуры
@@ -1632,9 +1407,7 @@
&НаКлиенте
Процедура ШагНеудачныеЗаменыПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- ЗавершитьРаботуФормы();
-
+ Закрыть();
КонецПроцедуры
// 6. Дублей не найдено
@@ -1642,7 +1415,7 @@
&НаКлиенте
Процедура ШагДублейНеНайденоПриАктивации(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
- Элементы.Заголовок.Доступность = Истина;
+ Элементы.Шапка.Доступность = Истина;
КонецПроцедуры
@@ -1656,53 +1429,10 @@
&НаКлиенте
Процедура ШагДублейНеНайденоПередДействиемОтмена(Знач ПараметрыШага, Знач ДополнительныеПараметры) Экспорт
-
- // Успешное завершение
- ЗавершитьРаботуФормы();
-
-КонецПроцедуры
-
-
-// Общий обработчик немодального продолжения отмены с закрытием.
-//
-&НаКлиенте
-Процедура ЗавершениеОтменыИЗакрытиеФормы(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
-
- Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
- // Подтверждаем продолжение процесса.
- ЗавершитьШагМастера(ДополнительныеПараметры.ПараметрыШага);
- Возврат;
- КонецЕсли;
-
- ЗавершитьРаботуФормы();
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ЗавершитьРаботуФормы(Знач ТекстВсплывающегоСообщения = Неопределено)
-
- ОтменитьДлительнуюОперациюМастера();
-
- Если ТекстВсплывающегоСообщения <> Неопределено Тогда
- ПоказатьОповещениеПользователя( , , ТекстВсплывающегоСообщения, Элементы.Информация32);
- КонецЕсли;
-
- // Закрываем без дополнительных вопросов.
- ПодтверждениеЗакрытияФормы = Истина;
Закрыть();
КонецПроцедуры
-// Общий обработчик подтверждения закрытия.
-&НаКлиенте
-Процедура ЗакрытиеФормыЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
- Если РезультатВопроса = КодВозвратаДиалога.Да Тогда
- ЗавершитьРаботуФормы();
- Иначе
- ПодтверждениеЗакрытияФормы = Неопределено;
- КонецЕсли;
-КонецПроцедуры
-
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
// Блок мастера
// Для встраивания функционала мастера необходимо:
@@ -1728,7 +1458,7 @@
// 3) Добавить блок методов пошагового помощника.
//
// 4) В коде на сервере:
-// - Инициализировать структуры помощника вызовом "ИнициализироватьМастера", передав туда соответствующие
+// - Инициализировать структуры помощника вызовом "ИнициализироватьМастер", передав туда соответствующие
// элементы формы.
//
// - Создать сценарий работы последовательным вызовами "ДобавитьШагМастера". Рекомендуется использовать
@@ -1747,45 +1477,44 @@
// - Запустить начальную страницу вызовом "ЗапуститьРаботуМастера".
//
-// Инициализирует структуры мастера.
-//
-// Параметры:
-// ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
-// КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
-// КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
-// КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
-//
&НаСервере
-Процедура ИнициализироватьМастера(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
- НастройкиМастера = Новый Структура;
-
- НастройкиМастера.Вставить("Шаги", Новый Массив);
- НастройкиМастера.Вставить("НомерТекущегоШага", 0);
- НастройкиМастера.Вставить("СтраницаСтарта", Неопределено);
+Функция ИнициализироватьМастер(Знач ГруппаСтраниц, Знач КнопкаДалее, Знач КнопкаНазад, Знач КнопкаОтмена)
+ // Инициализирует структуры мастера.
+ //
+ // Параметры:
+ // ГруппаСтраниц - ГруппаФормы - Элемент формы, группа типа "страницы", содержащая в себе страницы-шаги мастера.
+ // КнопкаДалее - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Далее".
+ // КнопкаНазад - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Назад".
+ // КнопкаОтмена - КнопкаФормы, КнопкаКоманднойПанели - Элемент формы, используемый для кнопки "Отмена".
+ Результат = Новый Структура;
+
+ Результат.Вставить("Шаги", Новый Массив);
+ Результат.Вставить("НомерТекущегоШага", 0);
+ Результат.Вставить("СтраницаСтарта", Неопределено);
// Идентификаторы частей интерфейса.
- НастройкиМастера.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
- НастройкиМастера.Вставить("КнопкаДалее", КнопкаДалее.Имя);
- НастройкиМастера.Вставить("КнопкаНазад", КнопкаНазад.Имя);
- НастройкиМастера.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
+ Результат.Вставить("ГруппаСтраниц", ГруппаСтраниц.Имя);
+ Результат.Вставить("КнопкаДалее", КнопкаДалее.Имя);
+ Результат.Вставить("КнопкаНазад", КнопкаНазад.Имя);
+ Результат.Вставить("КнопкаОтмена", КнопкаОтмена.Имя);
// Таймаут вызова обработчика
- НастройкиМастера.Вставить("ТаймаутОжиданияДлительнойОперации",
+ Результат.Вставить("ТаймаутОжиданияДлительнойОперации",
?( ПолучитьСкоростьКлиентскогоСоединения() = СкоростьКлиентскогоСоединения.Низкая, 5, 3) );
// Для обработки длительных операций.
- НастройкиМастера.Вставить("ИдентификаторФоновогоЗадания");
- НастройкиМастера.Вставить("АдресРезультатаФоновогоЗадания");
+ Результат.Вставить("ИдентификаторФоновогоЗадания");
+ Результат.Вставить("АдресРезультатаФоновогоЗадания");
+ Результат.Вставить("ИнформацияОбОшибке");
+ Результат.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("ИмяПроцедуры");
+ Результат.Вставить("ЕстьПодтверждениеОтменыЗадания", Ложь);
// Для хранения пользовательских параметров.
- НастройкиМастера.Вставить("ПользовательскиеПараметры", Новый Соответствие);
+ Результат.Вставить("ПользовательскиеПараметры", Новый Соответствие);
- ДобавляемыеРеквизиты = Новый Массив;
- ДобавляемыеРеквизиты.Добавить( Новый РеквизитФормы("НастройкиПошаговогоМастера", Новый ОписаниеТипов) );
- ИзменитьРеквизиты(ДобавляемыеРеквизиты);
-
- ЭтотОбъект.НастройкиПошаговогоМастера = НастройкиМастера;
-КонецПроцедуры
+ Возврат Результат;
+КонецФункции
// Добавляет шаг мастера. Переходы между страницами будут происходить согласно порядку добавления.
//
@@ -1866,7 +1595,7 @@
ОписаниеШага.Вставить("Кнопка" + ИмяКнопки, ОписаниеКнопки);
КонецЦикла;
- ЭтотОбъект.НастройкиПошаговогоМастера.Шаги.Добавить(ОписаниеШага);
+ НастройкиПошаговогоМастера.Шаги.Добавить(ОписаниеШага);
КонецПроцедуры
// Вспомогательное формирование структуры, описывающей действие.
@@ -1939,7 +1668,7 @@
&НаКлиенте
Процедура УстановитьНачальнуюСтраницуМастера(Знач Страница)
- ЭтотОбъект.НастройкиПошаговогоМастера.СтраницаСтарта = НомерШагаМастераПоИдентификатору(Страница);
+ НастройкиПошаговогоМастера.СтраницаСтарта = НомерШагаМастераПоИдентификатору(Страница);
КонецПроцедуры
@@ -1947,15 +1676,14 @@
// "УстановитьНачальнуюСтраницуМастера".
&НаКлиенте
Процедура ЗапуститьРаботуМастера()
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
- Если НастройкиМастера.СтраницаСтарта = Неопределено Тогда
+ Если НастройкиПошаговогоМастера.СтраницаСтарта = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Перед запуском мастера должна быть установлена начальная страница.'");
- ИначеЕсли НастройкиМастера.СтраницаСтарта = -1 Тогда
+ ИначеЕсли НастройкиПошаговогоМастера.СтраницаСтарта = -1 Тогда
// Разогрев. Проверяем наличие обработчиков действий у всех шагов.
ВозможныеДействия = Новый Структура("ПриАктивации, ПередДействиемДалее, ПередДействиемНазад, ПередДействиемОтмена, ПриОбработкеОжидания");
- Для Каждого ОписаниеШага Из НастройкиМастера.Шаги Цикл
+ Для Каждого ОписаниеШага Из НастройкиПошаговогоМастера.Шаги Цикл
Для Каждого КлючЗначение Из ВозможныеДействия Цикл
ИмяДействия = КлючЗначение.Ключ;
ИмяОбработчика = ОписаниеШага[ИмяДействия];
@@ -1976,16 +1704,16 @@
КонецЦикла;
// Фактический запуск
- ПерейтиНаШагМастера(НастройкиМастера.НомерТекущегоШага, Истина);
+ ПерейтиНаШагМастера(НастройкиПошаговогоМастера.НомерТекущегоШага, Истина);
Иначе
// По умолчанию все отключено
- Элементы[НастройкиМастера.КнопкаДалее].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаНазад].Видимость = Ложь;
- Элементы[НастройкиМастера.КнопкаОтмена].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаДалее].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаНазад].Видимость = Ложь;
+ Элементы[НастройкиПошаговогоМастера.КнопкаОтмена].Видимость = Ложь;
// Отложенный запуск
- ЭтотОбъект.НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиМастера.СтраницаСтарта;
- ЭтотОбъект.НастройкиПошаговогоМастера.СтраницаСтарта = -1;
+ НастройкиПошаговогоМастера.НомерТекущегоШага = НастройкиПошаговогоМастера.СтраницаСтарта;
+ НастройкиПошаговогоМастера.СтраницаСтарта = -1;
ПодключитьОбработчикОжидания("ЗапуститьРаботуМастера", 0.1, Истина);
КонецЕсли;
КонецПроцедуры
@@ -1997,7 +1725,6 @@
//
&НаКлиенте
Процедура ШагМастера(Знач КодКоманды)
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
Если КодКоманды = "Далее" Тогда
Направление = 1;
@@ -2009,7 +1736,7 @@
ВызватьИсключение НСтр("ru = 'Некорректная команда шага помощника'");
КонецЕсли;
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -2044,8 +1771,6 @@
//
&НаКлиенте
Процедура ПерейтиНаШагМастера(Знач ИдентификаторШага, Знач ИнициироватьСобытия = Ложь)
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
СледующийШаг = НомерШагаМастераПоИдентификатору(ИдентификаторШага);
Если СледующийШаг = Неопределено Тогда
Ошибка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -2055,7 +1780,7 @@
ВызватьИсключение Ошибка;
КонецЕсли;
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
// Останавливаем обработчик, если есть.
Если ОписаниеШага.ПриОбработкеОжидания <> Неопределено Тогда
@@ -2073,10 +1798,8 @@
//
&НаКлиенте
Процедура ЗавершитьШагМастера(Знач ПараметрыШага)
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
- СледующийШаг = НастройкиМастера.НомерТекущегоШага + ПараметрыШага;
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ СледующийШаг = НастройкиПошаговогоМастера.НомерТекущегоШага + ПараметрыШага;
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
Если ПараметрыШага = 0 Тогда
// Подтверждение отмены - ничего не делаем.
@@ -2097,15 +1820,13 @@
&НаКлиенте
Процедура ШагМастераЗавершениеБезусловно(Знач СледующийШаг, Знач ИнициироватьСобытия = Истина)
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[СледующийШаг];
- ПоследнийШаг = НастройкиМастера.Шаги.ВГраница();
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[СледующийШаг];
+ ПоследнийШаг = НастройкиПошаговогоМастера.Шаги.ВГраница();
// Переключаем на новую страницу.
- Элементы[НастройкиМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
+ Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц].ТекущаяСтраница = Элементы[ОписаниеШага.Страница];
// Обход особенности платформы.
- ГруппаСтраницМастера = Элементы[НастройкиМастера.ГруппаСтраниц];
+ ГруппаСтраницМастера = Элементы[НастройкиПошаговогоМастера.ГруппаСтраниц];
НоваяТекущаяСтраница = Элементы[ОписаниеШага.Страница];
ВидГруппыСтраница = ВидГруппыФормы.Страница;
ТипГруппаФормы = Тип("ГруппаФормы");
@@ -2116,12 +1837,12 @@
КонецЦикла;
// Обновляем кнопки
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
- ОбновитьСвойстваКнопкиМастера(НастройкиМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаДалее, ОписаниеШага.КнопкаДалее);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаНазад, ОписаниеШага.КнопкаНазад);
+ ОбновитьСвойстваКнопкиМастера(НастройкиПошаговогоМастера.КнопкаОтмена, ОписаниеШага.КнопкаОтмена);
// Успешно перешли
- ЭтотОбъект.НастройкиПошаговогоМастера.НомерТекущегоШага = СледующийШаг;
+ НастройкиПошаговогоМастера.НомерТекущегоШага = СледующийШаг;
Если ИнициироватьСобытия И Не ПустаяСтрока(ОписаниеШага.ПриАктивации) Тогда
// Отрабатываем "ПриАктивации" новой страницы, он же запустит ожидание.
@@ -2145,9 +1866,7 @@
&НаКлиенте
Процедура ОбработкаАктивацииСтраницыМастера()
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Если Не ПустаяСтрока(ОписаниеШага.ПриАктивации) Тогда
Оповещение = Новый ОписаниеОповещения(ОписаниеШага.ПриАктивации, ЭтотОбъект);
ВыполнитьОбработкуОповещения(Оповещение, Элементы[ОписаниеШага.Страница]);
@@ -2163,31 +1882,25 @@
// Может быть номер шага или группа-страница, или ее идентификатор.
&НаКлиенте
Функция НомерШагаМастераПоИдентификатору(Знач ИдентификаторШага)
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
- НомерШага = Неопределено;
-
ТипПараметра = ТипЗнч(ИдентификаторШага);
Если ТипПараметра = Тип("Число") Тогда
- НомерШага = ИдентификаторШага;
- Иначе
- ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
- Для НомерШага=0 По НастройкиМастера.Шаги.ВГраница() Цикл
- Если НастройкиМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
- НомерШага = НомерШага;
- Прервать;
- КонецЕсли;
- КонецЦикла;
+ Возврат ИдентификаторШага;
КонецЕсли;
- Возврат НомерШага;
+ ИмяПоиска = ?(ТипПараметра = Тип("ГруппаФормы"), ИдентификаторШага.Имя, ИдентификаторШага);
+ Для НомерШага=0 По НастройкиПошаговогоМастера.Шаги.ВГраница() Цикл
+ Если НастройкиПошаговогоМастера.Шаги[НомерШага].Страница = ИмяПоиска Тогда
+ Возврат НомерШага;
+ КонецЕсли;
+ КонецЦикла;
+
+ ВызватьИсключение СтрЗаменить(НСтр("ru = 'Не найден шаг ""%1"".'"), "%1", ИмяПоиска);
КонецФункции
// Возвращает флаг отмены
&НаКлиенте
Функция ОбработкаОжиданияСтраницыМастера()
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
- ОписаниеШага = НастройкиМастера.Шаги[НастройкиМастера.НомерТекущегоШага];
+ ОписаниеШага = НастройкиПошаговогоМастера.Шаги[НастройкиПошаговогоМастера.НомерТекущегоШага];
Действие = ОписаниеШага.ПриОбработкеОжидания;
Если ПустаяСтрока(Действие) Тогда
Возврат Ложь;
@@ -2200,126 +1913,223 @@
Продолжать = Не Прекратить;
Если Продолжать Тогда
- ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиМастера.ТаймаутОжиданияДлительнойОперации, Истина);
+ ПодключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера", НастройкиПошаговогоМастера.ТаймаутОжиданияДлительнойОперации, Истина);
КонецЕсли;
Возврат Продолжать;
КонецФункции
-// Стартует длительную операцию мастера.
-//
-// Параметры:
-// ИмяМетода - Строка - Имя метода для фонового задания.
-// ПараметрыМетода - Массив - Параметры метода для фонового задания.
-// ВозвращаетРезультат - Булево - Флаг необходимости получения результатов. Если установлен в Истина, то
-// последним параметром вызова автоматически добавляется адрес хранилища для
-// результата.
-// ОписаниеМетода - Строка - Необязательное описание метода для отображения в списке фоновых заданий.
-//
-&НаСервере
-Процедура ЗапуститьДлительнуюОперациюМастера(Знач ИмяМетода, Знач ПараметрыМетода, Знач ВозвращаетРезультат = Ложь, Знач ОписаниеМетода = "")
-
- // Отменяем возможно незавершенное предыдущее.
- ОтменитьДлительнуюОперациюМастера();
-
- Если ВозвращаетРезультат Тогда
- ЭтотОбъект.НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
+&НаКлиенте
+Процедура ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы(Ответ, ПараметрыВыполнения) Экспорт
+ Если Ответ = КодВозвратаДиалога.Прервать Тогда
+ ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения();
Иначе
- ЭтотОбъект.НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ ОбработкаОжиданияСтраницыМастера();
КонецЕсли;
-
- СлужебныеПараметры = Новый Структура("ДополнительнаяОбработкаСсылка", Неопределено);
- СлужебныеПараметры.Вставить("ЭтоВнешняяОбработка", ЭтоВнешняяОбработка);
- СлужебныеПараметры.Вставить("ИмяОбработки", ИмяОбработки);
- СлужебныеПараметры.Вставить("ИмяМетода", ИмяМетода);
- СлужебныеПараметры.Вставить("ПараметрыВыполнения", ПараметрыМетода);
-
- Если Не ДоступноВыполнениеПроцедурыМодуляОбъектаОбработки Тогда
- // Запуск задания будет выполнен прямым вызовом.
- ЭтотОбъект.НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = СлужебныеПараметры;
- Возврат;
- КонецЕсли;
-
- // У нас есть БСП
- ПараметрыДлительнойОперации = Новый Массив;
- ПараметрыДлительнойОперации.Добавить(СлужебныеПараметры);
- ПараметрыДлительнойОперации.Добавить(ЭтотОбъект.НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
-
- Задание = ФоновыеЗадания.Выполнить("ДлительныеОперации.ВыполнитьПроцедуруМодуляОбъектаОбработки", ПараметрыДлительнойОперации, , ОписаниеМетода);
- ЭтотОбъект.НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.УникальныйИдентификатор;
КонецПроцедуры
-// Получает состояние текущей длительной операцию.
-//
-// Возвращаемое значение - Структура - Описание состояния с полями:
-// Завершено - Булево - Флаг активности длительной операции.
-// ИнформацияОбОшибке - ИнформацияОбОшибке - Если операция завершилась аварийно, то содержит информацию почему.
-// Результат - Произвольный - Если длительное задание было запущено с флагом возвращения
-// результата, то содержит текущее значение результата.
-//
-&НаСервере
-Функция СостояниеДлительнойОперацииМастера()
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
-
- Данные = Новый Структура("Завершено, Результат, ИнформацияОбОшибке, Предупреждение", Истина);
+&НаКлиенте
+Процедура ПроверитьФоновоеЗаданиеИЗакрытьФормуБезПодтверждения()
+ Если Не ФоновоеЗаданиеЗагрузитьНаКлиенте(Истина, Ложь) Тогда
+ НастройкиПошаговогоМастера.ЕстьПодтверждениеОтменыЗадания = Истина;
+ Закрыть();
+ КонецЕсли;
+КонецПроцедуры
- Если НастройкиМастера.ИдентификаторФоновогоЗадания = Неопределено Тогда
- Возврат Данные;
-
- ИначеЕсли ТипЗнч(НастройкиМастера.ИдентификаторФоновогоЗадания) <> Тип("УникальныйИдентификатор") Тогда
- // Отложенное выполнение, которое необходимо произвести здесь.
- ОбъектОбработки = РеквизитФормыВЗначение("Объект");
-
- ИмяМетода = НастройкиМастера.ИдентификаторФоновогоЗадания.ИмяМетода;
- ПараметрыВыполнения = НастройкиМастера.ИдентификаторФоновогоЗадания.ПараметрыВыполнения;
- АдресРезультата = НастройкиМастера.АдресРезультатаФоновогоЗадания;
-
- УстановитьБезопасныйРежим(Истина);
- Выполнить("ОбъектОбработки." + ИмяМетода + "(ПараметрыВыполнения, АдресРезультата)");
- УстановитьБезопасныйРежим(Ложь);
-
- Задание = Неопределено;
- Иначе
- // Нормальное фоновое
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиМастера.ИдентификаторФоновогоЗадания);
-
- КонецЕсли;
+&НаКлиенте
+Функция ФоновоеЗаданиеЗагрузитьНаКлиенте(ПрерватьЕслиНеВыполнено, ПоказатьДиалогПередЗакрытием)
- Если Задание <> Неопределено Тогда
- // Все непонятное - завершено, см значения по умолчанию.
- Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
- Данные.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+ ОтключитьОбработчикОжидания("ОбработкаОжиданияСтраницыМастера");
+
+ ИнформацияОЗадании = ФоновоеЗаданиеЗагрузитьРезультат(ПрерватьЕслиНеВыполнено);
+ Если Не ИнформацияОЗадании.Завершено Тогда
+ Если ПоказатьДиалогПередЗакрытием Тогда
+ Обработчик = Новый ОписаниеОповещения("ПослеПодтвержденияОтменыЗаданияИЗакрытияФормы", ЭтотОбъект);
+
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновыйПоискДублей" Тогда
+ ТекстВопроса = НСтр("ru = 'Прервать поиск дублей и закрыть форму?'");
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновоеУдалениеДублей" Тогда
+ ТекстВопроса = НСтр("ru = 'Прервать удаление дублей и закрыть форму?'");
+ КонецЕсли;
+
+ Кнопки = Новый СписокЗначений;
+ Кнопки.Добавить(КодВозвратаДиалога.Прервать, НСтр("ru = 'Прервать'"));
+ Кнопки.Добавить(КодВозвратаДиалога.Нет, НСтр("ru = 'Не прерывать'"));
+
+ ПоказатьВопрос(Обработчик, ТекстВопроса, Кнопки, , КодВозвратаДиалога.Нет);
КонецЕсли;
- Данные.Завершено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
+ Возврат Ложь;
КонецЕсли;
- Если Не ПустаяСтрока(НастройкиМастера.АдресРезультатаФоновогоЗадания) Тогда
- Данные.Результат = ПолучитьИзВременногоХранилища(НастройкиМастера.АдресРезультатаФоновогоЗадания);
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновыйПоискДублей" Тогда
+ // Смотрим на результат выполнения.
+ ОписаниеОшибки = Неопределено;
+ Если ИнформацияОЗадании.ИнформацияОбОшибке <> Неопределено Тогда
+ ОписаниеОшибки = ИнформацияОЗадании.ИнформацияОбОшибке;
+ ИначеЕсли ИнформацияОЗадании.Результат = -1 Тогда
+ ОписаниеОшибки = ОписаниеСостоянияНайденныхДублей;
+ КонецЕсли;
+
+ Если ОписаниеОшибки = Неопределено Тогда
+ Если ИнформацияОЗадании.Результат <> Неопределено И ИнформацияОЗадании.Результат > 0 Тогда
+ // Найдены какие-то дубли
+ ШагМастера("Далее");
+ Иначе
+ // Дублей по текущим установкам не найдено.
+ ПерейтиНаШагМастера(Элементы.ШагДублейНеНайдено, Истина);
+ КонецЕсли;
+ Иначе
+ ПоказатьПредупреждение(, ОписаниеОшибки );
+ ПерейтиНаШагМастера(Элементы.ШагПоискНеВыполнялся, Истина);
+ КонецЕсли;
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновоеУдалениеДублей" Тогда
+ Если ИнформацияОЗадании.ИнформацияОбОшибке = Неопределено Тогда
+ // Выполнено успешно, данные сформированы и переложены в реквизиты.
+ Если ИнформацияОЗадании.Результат = Истина Тогда
+ // Успешно заменены все группы дублей.
+ ШагМастера("Далее");
+ Иначе
+ // Не все места использования удалось заменить.
+ ПерейтиНаШагМастера(Элементы.ШагНеудачныеЗамены, Истина);
+ КонецЕсли;
+ Иначе
+ // Фоновое задание завершено с ошибкой.
+ ПоказатьПредупреждение(, ИнформацияОЗадании.ИнформацияОбОшибке);
+ ПерейтиНаШагМастера(Элементы.ШагПоискНеВыполнялся, Истина);
+ КонецЕсли;
КонецЕсли;
- Если Данные.Завершено Тогда
- ЭтотОбъект.НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
- ЭтотОбъект.НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
- КонецЕсли;
-
- Возврат Данные;
+ Возврат Истина;
КонецФункции
-// Отменяет текущую длительную операцию.
&НаСервере
-Процедура ОтменитьДлительнуюОперациюМастера()
- НастройкиМастера = ЭтотОбъект.НастройкиПошаговогоМастера;
+Функция ФоновоеЗаданиеЗапустить(Знач ИмяПроцедуры)
+ // Отмена предыдущего задания.
+ ФоновоеЗаданиеОтменить();
- Если НастройкиМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
- Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиМастера.ИдентификаторФоновогоЗадания);
- Если Задание <> Неопределено Тогда
- Задание.Отменить();
+ // Определение параметров запуска.
+ ПараметрыМетода = Новый Структура;
+ ПараметрыМетода.Вставить("ПолноеИмяОбъекта", "Обработка.ПоискИУдалениеДублей");
+ ПараметрыМетода.Вставить("ИмяПроцедуры", ИмяПроцедуры);
+
+ Если ИмяПроцедуры = "ФоновыйПоискДублей" Тогда
+
+ НаименованиеМетода = НСтр("ru = 'Поиск и удаление дублей: Поиск дублей'");
+
+ ПараметрыМетода.Вставить("ОбластьПоискаДублей", ОбластьПоискаДублей);
+ ПараметрыМетода.Вставить("МаксимальноеЧислоДублей", 1500);
+
+ Если ОбщегоНазначенияКлиентСервер.РежимОтладки() Тогда
+ ПараметрыМетода.МаксимальноеЧислоДублей = 50;
КонецЕсли;
- ЭтотОбъект.НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+
+ МассивПравилПоиска = Новый Массив;
+ Для Каждого Правило Из ПравилаПоиска Цикл
+ МассивПравилПоиска.Добавить(Новый Структура("Реквизит, Правило", Правило.Реквизит, Правило.Правило));
+ КонецЦикла;
+ ПараметрыМетода.Вставить("ПравилаПоиска", МассивПравилПоиска);
+
+ ПараметрыМетода.Вставить("УчитыватьПрикладныеПравила", УчитыватьПрикладныеПравила);
+
+ // В качестве схемы компоновки передаем схему, будет использован отдельный фоновый сеанс.
+ ПараметрыМетода.Вставить("СхемаКомпоновки", ПолучитьИзВременногоХранилища(АдресСхемыКомпоновки));
+ ПараметрыМетода.Вставить("НастройкиКомпоновщикаПредварительногоОтбора", КомпоновщикПредварительногоОтбора.Настройки);
+
+ ИначеЕсли ИмяПроцедуры = "ФоновоеУдалениеДублей" Тогда
+
+ НаименованиеМетода = НСтр("ru = 'Поиск и удаление дублей: Удаление дублей'");
+
+ ПараметрыМетода.Вставить("СпособУдаления", "Пометка");
+ ПараметрыМетода.Вставить("ПарыЗамен", ПарыЗаменДублей());
+ ПараметрыМетода.Вставить("УчитыватьПрикладныеПравила", УчитыватьПрикладныеПравила);
+
+ Иначе
+
+ Возврат Ложь;
+
КонецЕсли;
- ЭтотОбъект.НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ // Запуск.
+ ИнформацияОбОшибке = Неопределено;
+ Попытка
+ Задание = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
+ УникальныйИдентификатор,
+ "ДлительныеОперации.ВыполнитьКомандуОтчетаИлиОбработки",
+ ПараметрыМетода,
+ НаименованиеМетода);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Истина;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИмяПроцедуры = Неопределено;
+ Возврат Ложь;
+ КонецЕсли;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Задание.АдресХранилища;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Задание.ИдентификаторЗадания;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.ЗаданиеВыполнено;
+ НастройкиПошаговогоМастера.ИмяПроцедуры = ИмяПроцедуры;
+
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Возврат Истина;
+КонецФункции
+
+&НаСервере
+Функция ФоновоеЗаданиеЗагрузитьРезультат(Знач ПрерватьЕслиНеВыполнено = Ложь)
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ Иначе
+ Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ Если Задание <> Неопределено Тогда
+ Если Задание.ИнформацияОбОшибке <> Неопределено Тогда
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Задание.Состояние <> СостояниеФоновогоЗадания.Активно;
+ КонецЕсли;
+ КонецЕсли;
+
+ Значение = Неопределено;
+ Если НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ Если НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено Тогда
+ Значение = ПолучитьИзВременногоХранилища(НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания);
+ Если НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновыйПоискДублей" Тогда
+ Значение = ЗаполнитьРезультатыПоискаДублей(Значение);
+ ИначеЕсли НастройкиПошаговогоМастера.ИмяПроцедуры = "ФоновоеУдалениеДублей" Тогда
+ Значение = ЗаполнитьРезультатыУдаленияДублей(Значение);
+ КонецЕсли;
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ КонецЕсли;
+
+ Если ПрерватьЕслиНеВыполнено И Не НастройкиПошаговогоМастера.ЗаданиеВыполнено Тогда
+ ФоновоеЗаданиеОтменить();
+ КонецЕсли;
+
+ ИнформацияОЗадании = Новый Структура;
+ ИнформацияОЗадании.Вставить("Завершено", НастройкиПошаговогоМастера.ЗаданиеВыполнено);
+ ИнформацияОЗадании.Вставить("ИнформацияОбОшибке", НастройкиПошаговогоМастера.ИнформацияОбОшибке);
+ ИнформацияОЗадании.Вставить("Результат", Значение);
+
+ Возврат ИнформацияОЗадании;
+КонецФункции
+
+&НаСервере
+Процедура ФоновоеЗаданиеОтменить()
+ Если НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания <> Неопределено Тогда
+ ДлительныеОперации.ОтменитьВыполнениеЗадания(НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания);
+ КонецЕсли;
+ НастройкиПошаговогоМастера.ЗаданиеВыполнено = Ложь;
+ НастройкиПошаговогоМастера.АдресРезультатаФоновогоЗадания = Неопределено;
+ НастройкиПошаговогоМастера.ИнформацияОбОшибке = Неопределено;
+ НастройкиПошаговогоМастера.ИдентификаторФоновогоЗадания = Неопределено;
КонецПроцедуры
#КонецОбласти
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаОтбора/Help/ru.html b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаОтбора/Help/ru.html
index 5fdcd431c..33745a99b 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаОтбора/Help/ru.html
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаОтбора/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для отбора элементов списков.</p>
<p>Открывается из окна <a href="DataProcessor.ПоискИУдалениеДублей/Help">Поиск и удаление дублей</a> по ссылке в поле <strong>Отбирать</strong>.</p>
<h3>Ввод условий отбора</h3>
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Form.form b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Form.form
index d3cd835db..9042aabd0 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Form.form
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Form.form
@@ -12,25 +12,96 @@
<segments>ПравилаПоиска</segments>
</dataPath>
<titleLocation>Top</titleLocation>
- <items xsi:type="form:FormField">
- <name>ПравилаПоискаИспользовать</name>
- <id>30</id>
+ <items xsi:type="form:FormGroup">
+ <name>ПравилаПоискаГруппа1</name>
+ <id>46</id>
+ <items xsi:type="form:FormField">
+ <name>ПравилаПоискаИспользовать</name>
+ <id>30</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <dataPath xsi:type="form:DataPath">
+ <segments>ПравилаПоиска.Использовать</segments>
+ </dataPath>
+ <titleLocation>None</titleLocation>
+ <handlers>
+ <event>OnChange</event>
+ <name>ПравилаПоискаИспользоватьПриИзменении</name>
+ </handlers>
+ <extendedTooltip>
+ <name>ПравилаПоискаИспользоватьРасширеннаяПодсказка</name>
+ <id>32</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <contextMenu>
+ <name>ПравилаПоискаИспользоватьКонтекстноеМеню</name>
+ <id>31</id>
+ <autoFill>true</autoFill>
+ </contextMenu>
+ <type>CheckBoxField</type>
+ <editMode>Auto</editMode>
+ <showInHeader>true</showInHeader>
+ <headerHorizontalAlign>Left</headerHorizontalAlign>
+ <showInFooter>true</showInFooter>
+ <extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
+ </items>
+ <items xsi:type="form:FormField">
+ <name>ПравилаПоискаПредставлениеРеквизита</name>
+ <id>24</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <dataPath xsi:type="form:DataPath">
+ <segments>ПравилаПоиска.ПредставлениеРеквизита</segments>
+ </dataPath>
+ <extendedTooltip>
+ <name>ПравилаПоискаПредставлениеРеквизитаРасширеннаяПодсказка</name>
+ <id>26</id>
+ <type>Label</type>
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <extInfo xsi:type="form:LabelDecorationExtInfo">
+ <horizontalAlign>Left</horizontalAlign>
+ </extInfo>
+ </extendedTooltip>
+ <contextMenu>
+ <name>ПравилаПоискаПредставлениеРеквизитаКонтекстноеМеню</name>
+ <id>25</id>
+ <autoFill>true</autoFill>
+ </contextMenu>
+ <type>InputField</type>
+ <readOnly>true</readOnly>
+ <editMode>Auto</editMode>
+ <showInHeader>true</showInHeader>
+ <headerHorizontalAlign>Left</headerHorizontalAlign>
+ <showInFooter>true</showInFooter>
+ <extInfo xsi:type="form:InputFieldExtInfo">
+ <autoMaxWidth>true</autoMaxWidth>
+ <autoMaxHeight>true</autoMaxHeight>
+ <wrap>true</wrap>
+ <chooseType>true</chooseType>
+ <typeDomainEnabled>true</typeDomainEnabled>
+ <textSize>Normal</textSize>
+ </extInfo>
+ </items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
- <dataPath xsi:type="form:DataPath">
- <segments>ПравилаПоиска.Использовать</segments>
- </dataPath>
- <titleLocation>None</titleLocation>
- <handlers>
- <event>OnChange</event>
- <name>ПравилаПоискаИспользоватьПриИзменении</name>
- </handlers>
<extendedTooltip>
- <name>ПравилаПоискаИспользоватьРасширеннаяПодсказка</name>
- <id>32</id>
+ <name>ПравилаПоискаГруппа1РасширеннаяПодсказка</name>
+ <id>47</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -38,57 +109,11 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <contextMenu>
- <name>ПравилаПоискаИспользоватьКонтекстноеМеню</name>
- <id>31</id>
- <autoFill>true</autoFill>
- </contextMenu>
- <type>CheckBoxField</type>
- <editMode>Auto</editMode>
- <showInHeader>true</showInHeader>
- <headerHorizontalAlign>Left</headerHorizontalAlign>
- <showInFooter>true</showInFooter>
- <extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
- </items>
- <items xsi:type="form:FormField">
- <name>ПравилаПоискаПредставлениеРеквизита</name>
- <id>24</id>
- <visible>true</visible>
- <enabled>true</enabled>
- <userVisible>
- <common>true</common>
- </userVisible>
- <dataPath xsi:type="form:DataPath">
- <segments>ПравилаПоиска.ПредставлениеРеквизита</segments>
- </dataPath>
- <extendedTooltip>
- <name>ПравилаПоискаПредставлениеРеквизитаРасширеннаяПодсказка</name>
- <id>26</id>
- <type>Label</type>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <extInfo xsi:type="form:LabelDecorationExtInfo">
- <horizontalAlign>Left</horizontalAlign>
- </extInfo>
- </extendedTooltip>
- <contextMenu>
- <name>ПравилаПоискаПредставлениеРеквизитаКонтекстноеМеню</name>
- <id>25</id>
- <autoFill>true</autoFill>
- </contextMenu>
- <type>InputField</type>
- <readOnly>true</readOnly>
- <editMode>Auto</editMode>
- <showInHeader>true</showInHeader>
- <headerHorizontalAlign>Left</headerHorizontalAlign>
- <showInFooter>true</showInFooter>
- <extInfo xsi:type="form:InputFieldExtInfo">
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <wrap>true</wrap>
- <chooseType>true</chooseType>
- <typeDomainEnabled>true</typeDomainEnabled>
- <textSize>Normal</textSize>
+ <type>ColumnGroup</type>
+ <extInfo xsi:type="form:ColumnGroupExtInfo">
+ <group>InCell</group>
+ <showTitle>auto</showTitle>
+ <showInCard>true</showInCard>
</extInfo>
</items>
<items xsi:type="form:FormField">
@@ -118,6 +143,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -131,10 +157,6 @@
<event>StartListChoice</event>
<name>ПравилаПоискаВидСравненияНачалоВыбораИзСписка</name>
</handlers>
- <handlers>
- <event>ChoiceProcessing</event>
- <name>ПравилаПоискаВидСравненияОбработкаВыбора</name>
- </handlers>
<width>21</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -162,6 +184,10 @@
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
+ <handlers>
+ <event>Selection</event>
+ <name>ПравилаПоискаВыбор</name>
+ </handlers>
<searchStringAddition>
<name>ПравилаПоискаСтрокаПоиска</name>
<id>37</id>
@@ -399,7 +425,7 @@
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
- <name>Выбрать</name>
+ <name>ЗавершитьРедактирование</name>
<id>12</id>
<visible>true</visible>
<enabled>true</enabled>
@@ -407,7 +433,7 @@
<common>true</common>
</userVisible>
<extendedTooltip>
- <name>ВыбратьРасширеннаяПодсказка</name>
+ <name>ЗавершитьРедактированиеРасширеннаяПодсказка</name>
<id>13</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
@@ -416,7 +442,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.Выбрать</commandName>
+ <commandName>Form.Command.ЗавершитьРедактирование</commandName>
<representation>Auto</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
@@ -553,7 +579,6 @@
<edit>
<common>true</common>
</edit>
- <savedData>true</savedData>
</attributes>
<attributes>
<name>ОписаниеПрикладныхПравил</name>
@@ -586,7 +611,6 @@
<edit>
<common>true</common>
</edit>
- <savedData>true</savedData>
<columns>
<name>Реквизит</name>
<title>
@@ -644,7 +668,7 @@
<name>ПредставлениеРеквизита</name>
<title>
<key>ru</key>
- <value>Реквизит</value>
+ <value>Поле</value>
4
@@ -732,22 +756,22 @@
- Выбрать
+ ЗавершитьРедактирование
<key>ru</key>
- <value>Выбрать</value>
+ <value>ОК</value>
1ru
- Выбрать
+ Завершить редактирование
- Выбрать
+ ЗавершитьРедактированиеAuto
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Module.bsl b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Module.bsl
index ec3c62170..334c05426 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Module.bsl
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Module.bsl
@@ -94,43 +94,35 @@
#Область ОбработчикиСобытийТаблицыПравилаПоиска
+&НаКлиенте
+Процедура ПравилаПоискаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+ ИмяКолонки = Поле.Имя;
+ Если ИмяКолонки = "ПравилаПоискаВидСравнения" Тогда
+ СтандартнаяОбработка = Ложь;
+ ВыбратьВидСравнения();
+ КонецЕсли;
+КонецПроцедуры
+
&НаКлиенте
Процедура ПравилаПоискаИспользоватьПриИзменении(Элемент)
-
- ТекущиеДанные = Элементы.ПравилаПоиска.ТекущиеДанные;
-
- Если ТекущиеДанные.Использовать Тогда
- Если ПустаяСтрока(ТекущиеДанные.Правило) И ТекущиеДанные.ВариантыСравнения.Количество() > 0 Тогда
- ТекущиеДанные.Правило = ТекущиеДанные.ВариантыСравнения[0].Значение
+ СтрокаТаблицы = Элементы.ПравилаПоиска.ТекущиеДанные;
+ Если СтрокаТаблицы.Использовать Тогда
+ Если ПустаяСтрока(СтрокаТаблицы.Правило) И СтрокаТаблицы.ВариантыСравнения.Количество() > 0 Тогда
+ СтрокаТаблицы.Правило = СтрокаТаблицы.ВариантыСравнения[0].Значение
КонецЕсли;
КонецЕсли;
-
КонецПроцедуры
&НаКлиенте
Процедура ПравилаПоискаВидСравненияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
-
- ТекущиеДанные = Элементы.ПравилаПоиска.ТекущиеДанные;
- ДанныеВыбора = ТекущиеДанные.ВариантыСравнения;
-
+ ВыбратьВидСравнения();
КонецПроцедуры
&НаКлиенте
Процедура ПравилаПоискаВидСравненияНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)
-
СтандартнаяОбработка = Ложь;
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПравилаПоискаВидСравненияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
-
- ТекущиеДанные = Элементы.ПравилаПоиска.ТекущиеДанные;
- ТекущиеДанные.Использовать = Истина;
- ТекущиеДанные.Правило = ВыбранноеЗначение;
-
+ ВыбратьВидСравнения();
КонецПроцедуры
#КонецОбласти
@@ -138,20 +130,14 @@
#Область ОбработчикиКомандыФормы
&НаКлиенте
-Процедура Выбрать(Команда)
-
+Процедура ЗавершитьРедактирование(Команда)
ТекстОшибокВыбора = ОшибкиВыбора();
Если ТекстОшибокВыбора <> Неопределено Тогда
ПоказатьПредупреждение(, ТекстОшибокВыбора);
Возврат;
КонецЕсли;
- Если Модифицированность Тогда
- ОповеститьОВыборе( РезультатВыбора() );
- Иначе
- Закрыть();
- КонецЕсли;
-
+ ОповеститьОВыборе(РезультатВыбора());
КонецПроцедуры
#КонецОбласти
@@ -159,7 +145,45 @@
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
-Функция ОшибкиВыбора()
+Процедура ВыбратьВидСравнения()
+ СтрокаТаблицы = Элементы.ПравилаПоиска.ТекущиеДанные;
+ Если СтрокаТаблицы = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ СписокВыбора = СтрокаТаблицы.ВариантыСравнения;
+ Количество = СписокВыбора.Количество();
+ Если Количество = 0 Тогда
+ Возврат;
+ КонецЕсли;
+
+ Контекст = Новый Структура("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор());
+ Обработчик = Новый ОписаниеОповещения("ЗавершениеВыбораВидаСравнения", ЭтотОбъект, Контекст);
+ Если Количество = 1 И Не СтрокаТаблицы.Использовать Тогда
+ ВыполнитьОбработкуОповещения(Обработчик, СписокВыбора[0]);
+ Возврат;
+ КонецЕсли;
+
+ ПоказатьВыборИзМеню(Обработчик, СписокВыбора);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗавершениеВыбораВидаСравнения(Результат, Контекст) Экспорт
+ Если Результат = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ СтрокаТаблицы = ПравилаПоиска.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор);
+ Если СтрокаТаблицы = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ СтрокаТаблицы.Правило = Результат.Значение;
+ СтрокаТаблицы.Использовать = Истина;
+КонецПроцедуры
+
+&НаКлиенте
+Функция ОшибкиВыбора()
Если ОписаниеПрикладныхПравил <> Неопределено И УчитыватьПрикладныеПравила Тогда
// Есть прикладные правила и они используются - ошибок нет.
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Help/ru.html b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Help/ru.html
index 4a3fd34d3..cb1e41703 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/Help/ru.html
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для поиска и устранения дублирования элементов во всех списках программы (для администраторов программы).
При работе пользователей в программе часто ошибочно вводятся дубли (например, неправильно производился поиск элемента, в результате его не нашли и ввели заново), которые мешают правильному учету. В документах указывают то один экземпляр элемента, то другой, в результате при проведении документов возникают неправильные проводки, и баланс не сходится. Поэтому от дублирования в программе необходимо избавляться.
Программа позволяет найти вхождения всех дублирующихся элементов и производит в документах замену всех ссылок на дубли ссылками на выбранный "правильный" элемент, затем помечает на удаление дублирующиеся элементы в списке.
diff --git a/SSL/src/DataProcessors/ПоискИУдалениеДублей/ObjectModule.bsl b/SSL/src/DataProcessors/ПоискИУдалениеДублей/ObjectModule.bsl
index 40f7f1045..23b3cf991 100644
--- a/SSL/src/DataProcessors/ПоискИУдалениеДублей/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/ПоискИУдалениеДублей/ObjectModule.bsl
@@ -1,7 +1,6 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область СлужебныйПрограммныйИнтерфейс
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Заполняет список всех возможных областей для поиска дублей.
//
@@ -129,7 +128,7 @@
ПараметрыЗамены = Новый Структура;
ПараметрыЗамены.Вставить("СпособУдаления", Параметры.СпособУдаления);
- ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Истина);
+ ПараметрыЗамены.Вставить("ВключатьБизнесЛогику", Параметры.УчитыватьПрикладныеПравила);
ЗаменитьСсылки(Параметры.ПарыЗамен, ПараметрыЗамены, АдресРезультата);
@@ -352,7 +351,7 @@
ТаблицаДублей.Индексы.Добавить("Родитель");
ТаблицаДублей.Индексы.Добавить("Ссылка, Родитель");
- Результат = Новый Структура("ТаблицаДублей, ОписаниеОшибки", ТаблицаДублей);
+ Результат = Новый Структура("ТаблицаДублей, ОписаниеОшибки, МестаИспользования", ТаблицаДублей);
СтруктураПолей = Новый Структура;
СтруктураПолей.Вставить("РасшифровкаДополнительныхПолей", РасшифровкаДополнительныхПолей);
@@ -475,10 +474,28 @@
КонецФункции
+// Интерфейс для выполнения команд обработки.
+Процедура ВыполнитьКоманду(ПараметрыВыполнения, АдресРезультата) Экспорт
+
+ Если ПараметрыВыполнения.ИмяПроцедуры = "ФоновыйПоискДублей" Тогда
+
+ ФоновыйПоискДублей(ПараметрыВыполнения, АдресРезультата);
+
+ ИначеЕсли ПараметрыВыполнения.ИмяПроцедуры = "ФоновоеУдалениеДублей" Тогда
+
+ ФоновоеУдалениеДублей(ПараметрыВыполнения, АдресРезультата);
+
+ Иначе
+
+ ВызватьИсключение НСтр("ru = 'Поиск и удаление дублей: Команда ""%1"" не поддерживается.'");
+
+ КонецЕсли;
+
+КонецПроцедуры
+
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Преобразуем объект в таблицу для помещения в запрос.
Функция ОбъектВТаблицуЗначений(Знач ОбъектДанных)
@@ -501,7 +518,7 @@
Возврат Результат;
КонецФункции
-
+
// Дополнительный анализ кандидатов в дубли прикладном методом.
//
Процедура ДобавитьДублиПоПрикладнымПравилам(СтрокиДереваРезультата, Знач МенеджерОбластиПоиска, Знач ОсновныеДанные, Знач ТаблицаКандидатов, Знач СтруктураПолей, Знач ДополнительныеПараметры)
@@ -752,9 +769,8 @@
Возврат "";
КонецФункции
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
// Нечеткое сравнение строк
-//
Функция СтрокиПодобны(Знач Строка1, Знач Строка2)
@@ -899,8 +915,6 @@
Возврат Коэффициенты[Длина1][Длина2];
КонецФункции
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
-
Процедура ГруппаОбластейПоискаДублей(Результат, ОбъектыСПоискомДублей, Знач АнализироватьПрикладныеПравила, Знач МенеджерГруппы, Знач Пиктограмма)
Для Каждого Элемент Из МенеджерГруппы Цикл
@@ -924,9 +938,8 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+////////////////////////////////////////////////////////////////////////////////
// Для автономной работы.
-//
// [ОбщегоНазначения.МестаИспользования]
Функция МестаИспользованияСсылок(Знач НаборСсылок, Знач АдресРезультата = "")
@@ -946,5 +959,4 @@
#КонецОбласти
-
#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/ПолнотекстовыйПоискВДанных/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ПолнотекстовыйПоискВДанных/Forms/Форма/Module.bsl
index a2d111cab..da291364c 100644
--- a/SSL/src/DataProcessors/ПолнотекстовыйПоискВДанных/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ПолнотекстовыйПоискВДанных/Forms/Форма/Module.bsl
@@ -223,13 +223,11 @@
Элементы.Далее.Доступность = Ложь;
Элементы.Назад.Доступность = Ложь;
- ТекстПоиска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Комбинация слов ""%1"" нигде не встречается.
+ ТекстПоиска = НСтр("ru = 'Искомая комбинация слов нигде не встречается.
|Рекомендации:
|
Убедитесь, что все слова написаны без ошибок.
|
Попробуйте использовать другие ключевые слова.
- |
Попробуйте уменьшить количество искомых слов.'"),
- СокрЛП(СтрокаПоиска));
+ |
Полнотекстовый поиск данных позволяет находить любые сведения не только по полям карточек, но и по содержимому присоединенных файлов.
Полнотекстовый поиск можно выполнять прямо с Рабочего стола программы.
Полнотекстовый поиск предоставляет такие возможности как:
@@ -10,7 +10,7 @@
В файловом варианте информационной базы индекс полнотекстового поиска не обновляется автоматически и поэтому должен периодически обновляться вручную. Если индекс полнотекстового поиска не актуален (т.е. есть такие данные, которые еще не прошли индексирование), то в файловом варианте информационной базы становится доступна кнопка Обновить индекс.
Примеры
-
Пример поиска
+
Пример поиска
Результат
«Реализация 00016422»
Найдет документ «реализация товаров и услуг» с номером «00016422»
«Платежное 120000»
Найдет платежные поручения на суммы 120000 и 120000,50
«Иванов Акация»
diff --git a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl
index 86d5588c6..af1a9ad8d 100644
--- a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl
@@ -665,44 +665,82 @@
Возврат;
КонецЕсли;
- Оповещение = Новый ОписаниеОповещения("ОткрытьКаталогОбменаИнформациейУзлаЗавершение", ЭтотОбъект, Новый Структура);
- Оповещение.ДополнительныеПараметры.Вставить("ИмяКаталога", ИмяКаталога);
+ ДополнительныеПараметры = Новый Структура();
+ ДополнительныеПараметры.Вставить("ИмяКаталога", ИмяКаталога);
+
+ Оповещение = Новый ОписаниеОповещения("ПослеПроверкиРасширенияРаботыСФайлами", ЭтаФорма, ДополнительныеПараметры);
+
ТекстПредложения = Нстр("ru = 'Для открытия каталога необходимо необходимо установить расширение работы с файлами.'");
+ ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Оповещение, ТекстПредложения);
- ОбщегоНазначенияКлиент.ПроверитьРасширениеРаботыСФайламиПодключено(Оповещение, ТекстПредложения);
КонецПроцедуры
+// Продолжение процедуры (см. выше).
&НаКлиенте
-Процедура ОткрытьКаталогОбменаИнформациейУзлаЗавершение(Результат, ДополнительныеПараметры) Экспорт
+Процедура ПослеПроверкиРасширенияРаботыСФайлами(Результат, ДополнительныеПараметры) Экспорт
- ИмяКаталога = ДополнительныеПараметры.ИмяКаталога;
+ Если Результат Тогда
- ТекстПредупреждения = "";
+ Файл = Новый Файл();
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьСуществованиеФайла", ЭтаФорма, ДополнительныеПараметры);
+ Файл.НачатьИнициализацию(ОписаниеОповещения, ДополнительныеПараметры.ИмяКаталога);
- Файл = Новый Файл(ИмяКаталога);
- Если Не Файл.Существует() Тогда
- ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Каталог ""%1"" не существует или к нему нет доступа.'"),
- ИмяКаталога
- );
-
- ИначеЕсли Не Файл.ЭтоКаталог() Тогда
- ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = '""%1"" является файлом, а не каталогом.'"),
- ИмяКаталога
- );
-
- КонецЕсли;
-
- Если ПустаяСтрока(ТекстПредупреждения) Тогда
- // Независимое от платформы открытие каталога.
- ЗапуститьПриложение(ИмяКаталога);
Иначе
+ ТекстПредупреждения = Нстр("ru = 'Расширение для работы с файлами не установлено, открытие каталога не возможно.'");
ПоказатьПредупреждение(, ТекстПредупреждения);
КонецЕсли;
КонецПроцедуры
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПроверитьСуществованиеФайла(Файл, ДополнительныеПараметры) Экспорт
+ ДополнительныеПараметры.Вставить("Файл", Файл);
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПослеОпределенияСуществованияФайла", ЭтаФорма, ДополнительныеПараметры);
+ Файл.НачатьПроверкуСуществования(ОписаниеОповещения);
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеОпределенияСуществованияФайла(Существует, ДополнительныеПараметры) Экспорт
+
+ Если Существует Тогда
+ Файл = ДополнительныеПараметры.Файл;
+ ОписаниеОповещения = Новый ОписаниеОповещения("ОпределитьЭтоКаталог", ЭтаФорма, ДополнительныеПараметры);
+ Файл.НачатьПроверкуЭтоКаталог(ОписаниеОповещения);
+ Иначе
+ ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Каталог ""%1"" не существует или к нему нет доступа.'"),
+ ДополнительныеПараметры.ИмяКаталога
+ );
+ ПоказатьПредупреждение(, ТекстПредупреждения);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ОпределитьЭтоКаталог(ЭтоКаталог, ДополнительныеПараметры) Экспорт
+
+ Если ЭтоКаталог Тогда
+ ОписаниеОповещения = Новый ОписаниеОповещения("ОткрытьКаталогСФайлом", ЭтаФорма, ДополнительныеПараметры);
+ НачатьЗапускПриложения(ОписаниеОповещения, ДополнительныеПараметры.ИмяКаталога);
+ Иначе
+ ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '""%1"" является файлом, а не каталогом.'"),
+ ДополнительныеПараметры.ИмяКаталога
+ );
+ ПоказатьПредупреждение(, ТекстПредупреждения);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ОткрытьКаталогСФайлом(КодВозврата, ДополнительныеПараметры) Экспорт
+ // Обработка не требуется.
+КонецПроцедуры
+
&НаКлиенте
Процедура ПерейтиВЖурналРегистрации(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
diff --git a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Help/ru.html b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Help/ru.html
index cc2c8ec54..785141d70 100644
--- a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Help/ru.html
+++ b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Помощник интерактивной синхронизации данных предназначен для выполнения синхронизации данных с возможностью предварительного просмотра и сопоставления загружаемых данных. Помощник позволяет выполнять сопоставление объектов двух информационных баз, между которыми настроена синхронизация данных. После выполнения сопоставления выполняется загрузка данных и последующая выгрузка данных.
Режим интерактивной синхронизации данных следует использовать в случае, когда до начала синхронизации один и тот же объект мог быть введен независимо в обеих обменивающихся ИБ. Другими словами, интерактивный режим синхронизации данных следует выбирать при первой синхронизации данных между ИБ, учет в которых уже ведется. Поскольку вероятность существования в таких ИБ одних и тех же объектов очень высока. В этом случае интерактивный режим позволит такие объекты сопоставить вручную.
Открыть помощник можно, нажав кнопку Синхронизировать данные, задав дополнительные параметры в списке Синхронизация данных.
diff --git a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/ObjectModule.bsl b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/ObjectModule.bsl
index 94b255982..e8fbba8d9 100644
--- a/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/ObjectModule.bsl
@@ -305,12 +305,14 @@
УстановитьПривилегированныйРежим(Истина);
- ОбработкаОбменаДанными = ОбменДаннымиСервер.ОбработкаОбменаДляЗагрузкиДанных(Отказ, УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
+ СтруктураНастроекОбмена = ОбменДаннымиСервер.СтруктураНастроекОбменаДляСеансаИнтерактивнойЗагрузки(УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
- Если Отказ Тогда
+ Если СтруктураНастроекОбмена.Отказ Тогда
Возврат;
КонецЕсли;
+ ОбработкаОбменаДанными = СтруктураНастроекОбмена.ОбработкаОбменаДанными;
+
ПараметрыАнализа = Новый Структура("СобиратьСтатистикуКлассификаторов", Истина);
ОбработкаОбменаДанными.ВыполнитьАнализСообщенияОбмена(ПараметрыАнализа);
@@ -365,12 +367,14 @@
//
Процедура ВыполнитьЗагрузкуДанныхИзСообщенияОбменаВКэш(Отказ, ИндексыСтрок)
- ОбработкаОбменаДанными = ОбменДаннымиСервер.ОбработкаОбменаДляЗагрузкиДанных(Отказ, УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
+ СтруктураНастроекОбмена = ОбменДаннымиСервер.СтруктураНастроекОбменаДляСеансаИнтерактивнойЗагрузки(УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
- Если Отказ Тогда
+ Если СтруктураНастроекОбмена.Отказ Тогда
Возврат;
КонецЕсли;
+ ОбработкаОбменаДанными = СтруктураНастроекОбмена.ОбработкаОбменаДанными;
+
// Получаем массив таблиц, которые необходимо пакетно загрузить в кэш платформы.
ТаблицыДляЗагрузки = Новый Массив;
diff --git a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Form.form b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Form.form
index ef46abba5..4e96b27d6 100644
--- a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Form.form
+++ b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Form.form
@@ -16410,6 +16410,23 @@
true
+
+ ЭтоПланОбменаXDTO
+
+ <key>ru</key>
+ <value>Это план обмена XDTO</value>
+
+ 75
+
+ Boolean
+
+
+ true
+
+
+ true
+
+ КомандаДалее
diff --git a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Module.bsl
index 061a50740..874637753 100644
--- a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/Форма/Module.bsl
@@ -53,6 +53,7 @@
// Получаем значения по умолчанию для плана обмена.
МенеджерПланаОбмена = ПланыОбмена[Объект.ИмяПланаОбмена];
+
КраткоеОписание = МенеджерПланаОбмена.КраткаяИнформацияПоОбмену(Объект.ВариантНастройкиОбмена);
СсылкаНаПодробноеОписание = МенеджерПланаОбмена.ПодробнаяИнформацияПоОбмену(Объект.ВариантНастройкиОбмена);
@@ -63,6 +64,7 @@
НастройкаОтборовНаУзле = ОбменДаннымиСервер.НастройкаОтборовНаУзле(Объект.ИмяПланаОбмена, ВерсияКонфигурацииКорреспондента, ФормаНастройкиУзла, Объект.ВариантНастройкиОбмена);
ЗначенияПоУмолчаниюНаУзле = ОбменДаннымиСервер.ЗначенияПоУмолчаниюНаУзле(Объект.ИмяПланаОбмена, ВерсияКонфигурацииКорреспондента, ФормаНастройкиЗначенийПоУмолчанию, Объект.ВариантНастройкиОбмена);
+ ЭтоПланОбменаXDTO = ОбменДаннымиСервер.ЭтоПланОбменаXDTO(Объект.ИмяПланаОбмена);
НастройкиПараметровУчетаПоясняющаяНадпись = МенеджерПланаОбмена.ПояснениеДляНастройкиПараметровУчета();
@@ -739,25 +741,11 @@
#Иначе
- Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
-
- Диалог.Заголовок = НСтр("ru = 'Укажите имя файла настроек синхронизации данных'");
- Диалог.Расширение = "xml";
- Диалог.Фильтр = "Файл настроек синхронизации данных(*.xml)|*.xml";
- Диалог.ПолноеИмяФайла = ИмяФайлаНастроекДляПриемника;
-
- Если Диалог.Выбрать() Тогда
-
- Объект.ИмяФайлаНастроекОбменаДанными = Диалог.ПолноеИмяФайла;
-
- ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
-
- УдалитьИзВременногоХранилища(АдресВременногоХранилища);
-
- // получаем файл
- ДвоичныеДанные.Записать(Объект.ИмяФайлаНастроекОбменаДанными);
-
- КонецЕсли;
+ ДополнительныеПараметры = Новый Структура();
+ ДополнительныеПараметры.Вставить("АдресВременногоХранилища", АдресВременногоХранилища);
+ ТекстПредложения = Нстр("ru = 'Для открытия каталога необходимо необходимо установить расширение работы с файлами.'");
+ Оповещение = Новый ОписаниеОповещения("ПослеПроверкиРасширенияРаботыСФайлами", ЭтаФорма, ДополнительныеПараметры);
+ ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Оповещение, ТекстПредложения);
#КонецЕсли
@@ -765,6 +753,39 @@
КонецПроцедуры
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеПроверкиРасширенияРаботыСФайлами(Результат, ДополнительныеПараметры) Экспорт
+
+ Если Результат Тогда
+
+ Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
+
+ Диалог.Заголовок = НСтр("ru = 'Укажите имя файла настроек синхронизации данных'");
+ Диалог.Расширение = "xml";
+ Диалог.Фильтр = "Файл настроек синхронизации данных(*.xml)|*.xml";
+ Диалог.ПолноеИмяФайла = ИмяФайлаНастроекДляПриемника;
+
+ Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтаФорма, ДополнительныеПараметры);
+ Диалог.Показать(Оповещение);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
+
+ Если ВыбранныеФайлы.Количество() = 1 Тогда
+ Объект.ИмяФайлаНастроекОбменаДанными = ВыбранныеФайлы[0];
+ ДвоичныеДанные = ПолучитьИзВременногоХранилища(ДополнительныеПараметры.АдресВременногоХранилища);
+ УдалитьИзВременногоХранилища(ДополнительныеПараметры.АдресВременногоХранилища);
+ ДвоичныеДанные.Записать(Объект.ИмяФайлаНастроекОбменаДанными);
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ПроверитьПодключениеFILE(Команда)
@@ -2237,8 +2258,7 @@
ОбменДаннымиКлиент.ОткрытьФормуПослеЗакрытияТекущей(ЭтотОбъект, "Обработка.ПомощникИнтерактивногоОбменаДанными.Форма", ПараметрыФормы, ПараметрыОткрытия);
Иначе
- ОткрытьФорму("Обработка.ПомощникИнтерактивногоОбменаДанными.Форма", ПараметрыФормы, , , ВариантОткрытияОкна.ОтдельноеОкно, , ,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
-
+ ОткрытьФорму("Обработка.ПомощникИнтерактивногоОбменаДанными.Форма", ПараметрыФормы);
КонецЕсли;
КонецЕсли;
@@ -2373,22 +2393,12 @@
ПараметрыФормы.Вставить("РасширенныйРежимДополненияВыгрузки", Истина);
ИмяФормыПомощника = "Обработка.ПомощникИнтерактивногоОбменаДанными.Форма";
-
- Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("ОбменДаннымиXDTO") Тогда
-
- МодульОбменДаннымиXDTOКлиентПовтИсп = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбменДаннымиXDTOКлиентПовтИсп");
- Если МодульОбменДаннымиXDTOКлиентПовтИсп.ЭтоПланОбменаXDTO(Объект.УзелИнформационнойБазы) Тогда
- ИмяФормыПомощника = "Обработка.ПомощникИнтерактивногоОбменаДаннымиЧерезXDTO.Форма";
- КонецЕсли;
-
- КонецЕсли;
-
Если ОткрыватьПослеЗакрытияТекущей Тогда
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("РежимОткрытияОкна", РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
ОбменДаннымиКлиент.ОткрытьФормуПослеЗакрытияТекущей(ЭтотОбъект, ИмяФормыПомощника, ПараметрыФормы, ПараметрыОткрытия);
Иначе
- ОткрытьФорму(ИмяФормыПомощника, ПараметрыФормы, , , ВариантОткрытияОкна.ОтдельноеОкно, , ,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
+ ОткрытьФорму(ИмяФормыПомощника, ПараметрыФормы);
КонецЕсли;
КонецЕсли;
@@ -3728,27 +3738,6 @@
Процедура СтраницаМастераОжиданиеСинхронизацииДанныхЗагрузкаДлительнаяОперацияОкончание_ОбработкаДлительнойОперации()
ДлительнаяОперация = Ложь;
- ДлительнаяОперацияЗавершена = Ложь;
- ИдентификаторДлительнойОперации = "";
-
- ПараметрыМетода = Новый Структура;
- ПараметрыМетода.Вставить("УзелИнформационнойБазы", Объект.УзелИнформационнойБазы);
- ПараметрыМетода.Вставить("ИдентификаторФайла", ИдентификаторФайлаСообщенияВСервисе);
- ПараметрыМетода.Вставить("ДатаНачалаОперации", ДатаНачалаОперации);
- ПараметрыМетода.Вставить("ПараметрыАутентификации", Объект.WSПароль);
-
- Результат = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
- УникальныйИдентификатор,
- "Обработки.ПомощникСозданияОбменаДанными.ВыполнитьЗагрузкуДанных",
- ПараметрыМетода,
- НСтр("ru = 'Загрузка справочников из сообщения обмена'"));
-
- Если Не Результат.ЗаданиеВыполнено Тогда
-
- ДлительнаяОперация = Истина;
- ИдентификаторДлительнойОперации = Результат.ИдентификаторЗадания;
-
- КонецЕсли;
КонецПроцедуры
@@ -4720,7 +4709,7 @@
НовыйПереход.ИмяОбработчикаПриПереходеДалее = "СтраницаМастераСопоставлениеДанных_ПриПереходеДалее";
НовыйПереход.ИмяОбработчикаПриОткрытии = "СтраницаМастераСопоставлениеДанных_ПриОткрытии";
- // Синхронизация справочников
+ // Синхронизация справочников.
НовыйПереход = ТаблицаПереходов.Добавить();
НовыйПереход.ПорядковыйНомерПерехода = 13;
@@ -4934,7 +4923,7 @@
НовыйПереход.ИмяОбработчикаПриПереходеДалее = "СтраницаМастераСопоставлениеДанных_ПриПереходеДалее";
НовыйПереход.ИмяОбработчикаПриОткрытии = "СтраницаМастераСопоставлениеДанных_ПриОткрытии";
- // Синхронизация справочников
+ // Синхронизация справочников.
НовыйПереход = ТаблицаПереходов.Добавить();
НовыйПереход.ПорядковыйНомерПерехода = 12;
diff --git a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Help/ru.html b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Help/ru.html
index 83f4e8307..36a68fb2a 100644
--- a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Help/ru.html
+++ b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для настройки <a href="CommonForm.ОбменыДанными/Help">синхронизации данных</a> между двумя программами. Возможна настройка синхронизации данных по правилам обмена, без использования правил обмена и организация совместной работы в распределенной информационной базе (РИБ).</p>
<h3>Этапы настройки параметров синхронизации данных</h3>
<ul><li>Настройка синхронизации данных при выборе варианта подключения через другие каналы связи выполняется в два этапа. Первый шаг настройки синхронизации данных выполняется в текущей программе, затем необходимо перейти в другую программу и закончить в ней настройку синхронизации данных. Для передачи информации между этапами настройки синхронизации данных используется временный файл с настройками. При настройке синхронизации данных через прямое соединение с базой или через веб-сервисы вся настройка для обеих программ выполняется в текущей программе.
diff --git a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/ПомощникСозданияОбменаДанными.mdo b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/ПомощникСозданияОбменаДанными.mdo
index ce9df53cd..42b66c8f2 100644
--- a/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/ПомощникСозданияОбменаДанными.mdo
+++ b/SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/ПомощникСозданияОбменаДанными.mdo
@@ -797,6 +797,10 @@
</attributes>
<attributes uuid="f03f1b68-e924-4c06-b0aa-8033a9a2f592">
<name>ИндексКартинки</name>
+ <synonym>
+ <key>ru</key>
+ <value>Индекс картинки</value>
+ </synonym>
<type>
<types>Number</types>
<numberQualifiers>
diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl
index 8994a2f75..4bbe2155b 100644
--- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl
+++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl
@@ -65,13 +65,59 @@
&НаКлиенте
Процедура ОбработкаЗапросаПутьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
- Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
- Диалог.ПроверятьСуществованиеФайла = Истина;
- Диалог.Фильтр = НСтр("ru = 'Внешние обработки (*.epf)|*.epf'");
- Если Диалог.Выбрать() Тогда
- ВариантИспользованияКонсолиЗапросов = 2;
- УстановитьНастройкуАдресВнешнейОбработкиЗапросов(Диалог.ПолноеИмяФайла);
+
+ ДополнительныеПараметры = Новый Структура();
+
+ ТекстПредложения = Нстр("ru = 'Для открытия каталога необходимо необходимо установить расширение работы с файлами.'");
+ ОписаниеОповещенияОЗакрытии = Новый ОписаниеОповещения("ПослеПроверкиРасширенияРаботыСФайлами", ЭтаФорма, ДополнительныеПараметры);
+
+ ОписаниеОповещенияЗавершение = Новый ОписаниеОповещения("ПоказатьВопросОбУстановкеРасширенияРаботыСФайламиЗавершение",
+ ЭтотОбъект, ОписаниеОповещенияОЗакрытии);
+
+#Если Не ВебКлиент Тогда
+ // В тонком и толстом клиентах расширение подключено всегда.
+ ВыполнитьОбработкуОповещения(ОписаниеОповещенияЗавершение, "ПодключениеНеТребуется");
+ Возврат;
+#КонецЕсли
+
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ОписаниеОповещенияЗавершение", ОписаниеОповещенияЗавершение);
+ ДополнительныеПараметры.Вставить("ТекстПредложения", ТекстПредложения);
+ ДополнительныеПараметры.Вставить("ВозможноПродолжениеБезУстановки", Истина);
+
+ Оповещение = Новый ОписаниеОповещения("ПоказатьВопросОбУстановкеРасширенияРаботыСФайламиПриУстановкеРасширения",
+ ЭтотОбъект, ДополнительныеПараметры);
+ НачатьПодключениеРасширенияРаботыСФайлами(Оповещение);
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеПроверкиРасширенияРаботыСФайлами(Результат, ДополнительныеПараметры) Экспорт
+
+ Если Результат Тогда
+
+ Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
+
+ Диалог.ПроверятьСуществованиеФайла = Истина;
+ Диалог.Фильтр = НСтр("ru = 'Внешние обработки (*.epf)|*.epf'");
+
+ Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтаФорма, ДополнительныеПараметры);
+ Диалог.Показать(Оповещение);
+
КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
+
+ Если ВыбранныеФайлы.Количество() = 1 Тогда
+ ВариантИспользованияКонсолиЗапросов = 2;
+ УстановитьНастройкуАдресВнешнейОбработкиЗапросов(ВыбранныеФайлы[0]);
+ КонецЕсли;
+
КонецПроцедуры
#КонецОбласти
diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/СообщениеОбОбычномИнтерфейсе/Form.oform b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/СообщениеОбОбычномИнтерфейсе/Form.oform
index d7f4ba947..f36e6e9b6 100644
Binary files a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/СообщениеОбОбычномИнтерфейсе/Form.oform and b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/СообщениеОбОбычномИнтерфейсе/Form.oform differ
diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Help/ru.html b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Help/ru.html
index 4faaa5f83..57ed0d22a 100644
--- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Help/ru.html
+++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для регистрации изменений данных в программе. Это необходимо для последующей отправки данных при синхронизации в другие программы.</p>
<p>Список можно открыть по команде <strong>Еще -</strong> <strong>Состав отправляемых данных</strong> из списка <a href="CommonForm.ОбменыДанными/Help">Синхронизации данных</a>.</p>
<p>Ведется регистрация номеров сообщений. Нажмите на ссылку с номерами сообщений, чтобы просмотреть их или исправить. </p>
diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form
index 030dd36f1..4974578a4 100644
--- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form
+++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form
@@ -1061,10 +1061,6 @@
</view>
<edit>
<common>true</common>
- <for>
- <value>true</value>
- <role>Role.ПолныеПрава</role>
- </for>
</edit>
<savedData>true</savedData>
</attributes>
@@ -1117,10 +1113,6 @@
</valueType>
<view>
<common>true</common>
- <for>
- <value>true</value>
- <role>Role.ПолныеПрава</role>
- </for>
</view>
<edit>
<common>true</common>
diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Help/ru.html b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Help/ru.html
index 2b4be0aa7..c916f168c 100644
--- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Help/ru.html
+++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств регламентного задания.</p>
<p>Как правило, необходимость в изменении свойств регламентных заданий возникает редко. Чаще всего, используется флажок <strong>Включено</strong>, с помощью которого можно отключить выполнение регламентного задания. </p>
<p>В некоторых случаях бывает необходимо задать два разных расписания для одного регламентного задания. Тогда в список можно добавить новое регламентное задание по одному из предопределенных шаблонов, предусмотренных в программе.</p>
diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Help/ru.html b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Help/ru.html
index a9c5f6290..869f07ef2 100644
--- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Help/ru.html
+++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Описание свойств фонового задания.</p>
<h3>Основное</h3>
<ul><li><strong>Наименование</strong> - копия поля <strong>Наименование</strong> <a href="DataProcessor.РегламентныеИФоновыеЗадания.Form.РегламентноеЗадание/Help">регламентного задания</a>. При применении кнопки <strong>Выполнить сейчас</strong> на командной панели регламентного задания, наименованию фонового задания присваивается значение "Запуск вручную: <Представление регламентного задания>".
diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Help/ru.html b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Help/ru.html
index 3714287c0..37543d41c 100644
--- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Help/ru.html
+++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Help/ru.html
@@ -1,11 +1,19 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначен для администрирования регламентных и фоновых заданий.</p>
<p>Ряд действий в программе может выполняться автоматически в фоновом режиме, по определенному расписанию. Такие действия называются регламентными заданиями, например, это ежедневная загрузка курсов валют, регулярная рассылка отчетов, отложенное проведение документов и т.п. Регламентные задания облегчают работу в программе, позволяя перенести выполнение рутинных задач в саму программу, и в то же время они снижают человеческий фактор (например, можно забыть загрузить курсы валют в один из перегруженных другими задачами дней).</p>
<p>Открывается по команде <strong>Регламентные и фоновые задания</strong> в разделе <strong>Администрирование - Поддержка и обслуживание</strong>.</p>
<p>Список предоставляет следующие возможности: </p>
<ul><li><a href="#Работа_с_РЗ">Регламентные задания</a>;
</li><li><a href="#Работа_с_ФЗ">Фоновые задания</a>;
-</li><li><a href="#КонтрольРЗ">Контроль выполнения регламентных заданий</a>.</li></ul><h2><a name="#Работа_с_РЗ">Регламентные задания</a></h2>
+</li><li><a href="#КонтрольРЗ">Контроль выполнения регламентных заданий</a>.</li></ul><h3>Особенности запуска регламентных заданий в файловом режиме работы</h3>
+<ul><li>
+<div><strong>Внимание!</strong> При одновременной параллельной работе с файловой базой нескольких пользователей рекомендуется выделить для выполнения регламентных заданий отдельное приложение (запуск с параметром <strong>/AllowExecuteScheduledJobs -Force</strong>).</div>
+</li><li>
+<div>Желательно, чтобы приложение запускалось на том же компьютере, где расположена информационная база.</div>
+</li><li>
+<div>Это связано с тем, что выполнение регламентных заданий во время одновременной работы нескольких пользователей (от 4 и выше) в файловой базе может существенно затормозить их работу. </div>
+</li><li>
+<div>Если пользователей более 10, то необходимо воспользоваться отдельным приложением для выполнения регламентных заданий.</div></li></ul><h2><a name="#Работа_с_РЗ">Регламентные задания</a></h2>
<p>В списке можно включить (или отключить) то или иное <a href="DataProcessor.РегламентныеИФоновыеЗадания.Form.РегламентноеЗадание/Help">регламентное задание</a> и поменять расписание.</p>
<p>В списке выводится:</p>
<ul><li><img src="StdPicture.ScheduledJob"></img> - флажок в колонке означает, что регламентное задание <strong>Включено</strong> и выполняется в соответствии с заданным расписанием;
@@ -40,7 +48,7 @@
</li><li><strong>Окончание</strong> - дата и время окончания выполнения фонового задания;
</li><li><strong>Регламентное задание</strong> - наименование регламентного задания.</li></ul><p>Для контроля выполнения регламентных заданий можно воспользоваться отбором фоновых заданий по различным признакам:</p>
<p></p>
-<table width="100%" border="1"><tbody><tr><td valign="top"><strong>Отбор</strong></td>
+<table border="1" width="100%"><tbody><tr><td valign="top"><strong>Отбор</strong></td>
<td valign="top"><strong>Описание</strong></td></tr><tr><td><strong>По состоянию</strong></td>
<td>
<ul><li>Позволяет выполнить отбор по состоянию (дополнительно к отбору по периоду и по регламентному заданию):
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Help/ru.html b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Help/ru.html
index 28cb6f1bf..b29fa6925 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Help/ru.html
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Help/ru.html
@@ -1,4 +1,4 @@
-<!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.9600.17420"></meta></head><body>
+<!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 9.00.8112.16421"></meta></head><body>
<p>Предназначена для восстановления данных из резервной копии.</p>
<p>Открывается командой <strong>Восстановление из резервной копии</strong> раздела <strong>Администрирование - Поддержка и обслуживание - Резервное копирование и восстановление</strong>.</p>
<p>В любой момент времени можно восстановить данные из созданной ранее резервной копии. Необходимо учитывать, что все данные в восстановленной информационно базе будут актуальны на момент создания копии. Данные, введенные в программу после создания резервной копии, будут отсутствовать в восстановленной ИБ.</p>
@@ -7,6 +7,6 @@
</li><li>В данном помощнике при восстановлении данных можно использовать только архивы формата .zip, содержащие один файл - файл информационной базы 1cv8.cd. Лучше всего использовать архивы, созданные <a href="DataProcessor.РезервноеКопированиеИБ.Form.РезервноеКопированиеДанных/Help">помощником создания резервной копии</a>.
</li><li>Программа выводит предупреждение о том, что имеются другие пользователи, которые кроме вас работают с информационной базой в текущий момент. Перейдите по ссылке, для того чтобы <strong>Посмотреть список активных сеансов</strong>.
</li><li>Нажмите <strong>Восстановить данные</strong>. Если присутствуют активные сеансы, будет запущен <a href="DataProcessor.БлокировкаРаботыПользователей/Help">механизм отключения</a> их от информационной базы. Затем программа выполнит восстановление данных.</li></ul><h3>Вход в базу в случае сбоя восстановления данных</h3>
-<ul><li><font size="1"><font color="black"><span style="FONT-SIZE: 10pt; LINE-HEIGHT: 120%; mso-fareast-language: RU"><span style="LINE-HEIGHT: 120%; mso-bidi-font-size: 10.5pt"><span style="FONT-SIZE: 8pt; FONT-FAMILY: Verdana; COLOR: black; mso-fareast-language: RU; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: RU; mso-bidi-language: AR-SA"><strong>Важно</strong>: Для того чтобы войти в информационную базу, если восстановление данных не выполнилось, необходимо запустить 1С:Предприятие с параметрами: <strong>ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.</strong></span></span></span></font></font></li></ul><h3 style="MARGIN: 11.35pt 0cm 8.5pt">См. также:</h3>
+<ul><li><font size="1"><font color="black"><span style="LINE-HEIGHT: 120%; FONT-SIZE: 10pt; mso-fareast-language: RU"><span style="LINE-HEIGHT: 120%; mso-bidi-font-size: 10.5pt"><span style="FONT-FAMILY: Verdana; COLOR: black; FONT-SIZE: 8pt; mso-fareast-language: RU; mso-fareast-font-family: 'Times New Roman'; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: RU; mso-bidi-language: AR-SA"><strong>Важно</strong>: Для того чтобы войти в информационную базу, если восстановление данных не выполнилось, необходимо запустить 1С:Предприятие с параметрами: <strong>ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.</strong></span></span></span></font></font></li></ul><h3 style="MARGIN: 11.35pt 0cm 8.5pt">См. также:</h3>
<ul><li>
<div style="MARGIN: 11.35pt 0cm 8.5pt"><a href="v8help://frame/form_common">Работа с формами</a>.</div></li></ul></body></html>
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl
index 22d58f77c..dab561a4e 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl
@@ -24,7 +24,7 @@
ПарольАдминистратораИБ = НастройкиРезервногоКопирования.ПарольАдминистратораИБ;
Объект.КаталогСРезервнымиКопиями = НастройкиРезервногоКопирования.КаталогХраненияРезервныхКопий;
- Если СоединенияИБ.КоличествоСеансовИнформационнойБазы() > 1 Тогда
+ Если КоличествоСеансовИнформационнойБазы() > 1 Тогда
Элементы.СтраницыСтатусаВосстановления.ТекущаяСтраница = Элементы.СтраницаАктивныеПользователи;
@@ -150,13 +150,15 @@
Страницы.ТекущаяСтраница = Элементы.СтраницаИнформацииИВыполненияРезервногоКопирования;
Элементы.Закрыть.Доступность = Истина;
- ОбновитьКоличествоАктивныхПользователей();
Элементы.Готово.Доступность = Ложь;
+ КоличествоСеансовИнформационнойБазы = КоличествоСеансовИнформационнойБазы();
+ Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы;
+
УстановитьБлокировкуСоединений = Истина;
СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(Нстр("ru = 'Выполняется восстановление информационной базы.'"), "РезервноеКопирование");
- Если СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы() = 1 Тогда
+ Если КоличествоСеансовИнформационнойБазы = 1 Тогда
СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(УстановитьБлокировкуСоединений);
СоединенияИБКлиент.ЗавершитьРаботуЭтогоСеанса(Ложь);
НачатьРезервноеКопирование();
@@ -194,14 +196,6 @@
КонецПроцедуры
-// Процедура обновляет заголовок гиперссылки количества активных пользователей.
-&НаКлиенте
-Процедура ОбновитьКоличествоАктивныхПользователей()
-
- Элементы.КоличествоАктивныхПользователей.Заголовок = СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы();
-
-КонецПроцедуры
-
// Функция запрашивает у пользователя и возвращает путь к файлу или каталогу.
&НаКлиенте
Процедура ВыбратьФайлРезервнойКопии()
@@ -307,11 +301,11 @@
&НаКлиенте
Процедура ПроверкаНаЕдинственностьПодключения()
- Если СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы() = 1 Тогда
+ Если КоличествоСеансовИнформационнойБазы() = 1 Тогда
НачатьРезервноеКопирование();
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
&НаКлиенте
Процедура НачатьРезервноеКопирование()
@@ -504,4 +498,11 @@
КонецПроцедуры
+&НаСервере
+Функция КоличествоСеансовИнформационнойБазы()
+
+ Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь, Ложь);
+
+КонецФункции
+
#КонецОбласти
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Form.form b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Form.form
index a5318ee6e..dc64aff9e 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Form.form
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Form.form
@@ -1927,106 +1927,26 @@
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
- <items xsi:type="form:FormGroup">
- <name>КоманднаяПанель</name>
- <id>387</id>
- <items xsi:type="form:FormGroup">
- <name>КоманднаяПанельСправа</name>
- <id>383</id>
- <items xsi:type="form:Button">
- <name>Далее</name>
- <id>1</id>
- <title>
- <key>ru</key>
- <value>Далее ></value>
-
- true
- true
-
- true
-
-
- ДалееExtendedTooltip
- 288
- Label
- true
- true
-
- Left
-
-
- Form.Command.ФормаДалее
- Auto
- true
- true
- true
- UserCmds
- Auto
-
-
- Отмена
- 2
-
- <key>ru</key>
- <value>Отмена</value>
-
- true
- true
-
- true
-
-
- ОтменаExtendedTooltip
- 289
- Label
- true
- true
-
- Left
-
-
- Form.Command.ФормаОтмена
- Normal
- Auto
- true
- true
- UserCmds
- Auto
-
-
- Справка
- 385
- true
- true
-
- true
-
-
- СправкаРасширеннаяПодсказка
- 386
- Label
- true
- true
-
- Left
-
-
- Form.StandardCommand.Help
- Normal
- Auto
- true
- true
- UserCmds
- Auto
-
+ Bottom
+ true
+
+ ФормаКоманднаяПанель
+ -1
+
+ Далее
+ 1
+
+ <key>ru</key>
+ <value>Далее ></value>
+ truetruetrue
- КоманднаяПанельСправаРасширеннаяПодсказка
- 384
+ ДалееExtendedTooltip
+ 288Labeltruetrue
@@ -2034,48 +1954,70 @@
Left
- CommandBar
-
- Right
-
-
- true
- true
-
- true
-
-
- <key>ru</key>
- <value>Командная панель</value>
-
-
- ru
- Командная панель
-
-
- КоманднаяПанельРасширеннаяПодсказка
- 388
- Label
+ Form.Command.ФормаДалее
+ Auto
+ truetruetrue
-
- Left
-
-
- UsualGroup
-
- Auto
- true
- true
- Auto
- Auto
-
-
- Bottom
- true
-
- ФормаКоманднаяПанель
- -1
+ UserCmds
+ Auto
+
+
+ Отмена
+ 2
+
+ <key>ru</key>
+ <value>Отмена</value>
+
+ true
+ true
+
+ true
+
+
+ ОтменаExtendedTooltip
+ 289
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Command.ФормаОтмена
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ Справка
+ 385
+ true
+ true
+
+ true
+
+
+ СправкаРасширеннаяПодсказка
+ 386
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Help
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ Right
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Help/ru.html b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Help/ru.html
index ea5b898cc..ba2edc450 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Help/ru.html
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для создания резервной копии информационной базы.
Рекомендуется создавать резервные копии перед любой операцией в программе, которая может необратимо изменить большие объемы данных, например, перед групповым изменением реквизитов объектов программы. В этом случае необходимо выполнить резервное копирование в ручном режиме.
Открывается по команде Создание резервной копии из раздела Администрирование - Поддержка и обслуживание - Резервное копирование.
@@ -14,5 +14,5 @@
Если программе не удалось принудительно отключить сеансы, и администратором также не были предприняты какие-либо действия, то резервное копирование может не состояться. В этом случае программа выводит предупреждение, что резервное копирование не было проведено, и список сеансов, которые не удалось завершить (например, Конфигуратор).
Запуск программы в случае ошибок во время резервного копирования
Перед началом резервного копирования программа выводит сообщение с рекомендациями по немедленному запуску.
-
Для того, чтобы войти в информационную базу, если резервное копирование не выполнилось, необходимо запустить 1С:Предприятие с параметрами: ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.
См. также:
+
Для того, чтобы войти в информационную базу, если резервное копирование не выполнилось, необходимо запустить 1С:Предприятие с параметрами: ENTERPRISE /F <путь к информационной базе> /CРазрешитьРаботуПользователей /UC РезервноеКопирование.
\ No newline at end of file
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl
index fe995cfc5..e6f2cb881 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl
@@ -64,13 +64,20 @@
// Первая часть проверки на сервере - если в информационной базе есть пользователи.
ТребуетсяВводПароля = (ПользователиИнформационнойБазы.ПолучитьПользователей().Количество() > 0);
- Если СоединенияИБ.КоличествоСеансовИнформационнойБазы() > 1 Тогда
+ РучнойЗапуск = (Элементы.СтраницыПомощника.ТекущаяСтраница = Элементы.СтраницаВыполненияРезервногоКопирования);
+
+ Если РучнойЗапуск Тогда
- Элементы.СтраницыСтатусаКопирования.ТекущаяСтраница = Элементы.СтраницаАктивныеПользователи;
+ Если КоличествоСеансовИнформационнойБазы() > 1 Тогда
+
+ Элементы.СтраницыСтатусаКопирования.ТекущаяСтраница = Элементы.СтраницаАктивныеПользователи;
+
+ КонецЕсли;
+
+ Элементы.Далее.Заголовок = Нстр("ru = 'Сохранить резервную копию'");
КонецЕсли;
- РучнойЗапуск = (Элементы.СтраницыПомощника.ТекущаяСтраница = Элементы.СтраницаВыполненияРезервногоКопирования);
РезервноеКопированиеИБСервер.УстановитьЗначениеНастройки("РучнойЗапускПоследнегоРезервногоКопирования", РучнойЗапуск);
КонецПроцедуры
@@ -203,7 +210,7 @@
ТекущаяСтраницаПомощника = Элементы.СтраницыПомощника.ТекущаяСтраница;
Если ТекущаяСтраницаПомощника = Элементы.СтраницыПомощника.ПодчиненныеЭлементы.СтраницаВыполненияРезервногоКопирования Тогда
- ОбработатьВыборРежимаИнтерактивногоКопирования();
+ ПерейтиНаСтраницу(Элементы.СтраницаИнформацииИВыполненияРезервногоКопирования);
УстановитьПутьАрхиваСКопиями(Объект.КаталогСРезервнымиКопиями);
Иначе
@@ -234,9 +241,7 @@
Процедура ПерейтиНаСтраницу(НоваяСтраница)
ПодчиненныеСтраницы = Элементы.СтраницыПомощника.ПодчиненныеЭлементы;
- Если НоваяСтраница = ПодчиненныеСтраницы.СтраницаВыполненияРезервногоКопирования Тогда
- ПерейтиНаСтраницуВыполненияРезервногоКопирования();
- ИначеЕсли НоваяСтраница = ПодчиненныеСтраницы.СтраницаИнформацииИВыполненияРезервногоКопирования Тогда
+ Если НоваяСтраница = ПодчиненныеСтраницы.СтраницаИнформацииИВыполненияРезервногоКопирования Тогда
ПерейтиНаСтраницуИнформацииИВыполненияРезервногоКопирования();
ИначеЕсли НоваяСтраница = ПодчиненныеСтраницы.СтраницаОшибокПриКопировании
ИЛИ НоваяСтраница = ПодчиненныеСтраницы.СтраницаУспешногоВыполненияКопирования Тогда
@@ -251,19 +256,6 @@
КонецПроцедуры
-&НаКлиенте
-Процедура ПерейтиНаСтраницуВыполненияРезервногоКопирования()
-
- Если СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы() > 1 Тогда
-
- Элементы.СтраницыСтатусаКопирования.ТекущаяСтраница = Элементы.СтраницаАктивныеПользователи;
-
- КонецЕсли;
-
- Элементы.Далее.Заголовок = Нстр("ru = 'Сохранить резервную копию'");
-
-КонецПроцедуры
-
&НаКлиенте
Процедура ПерейтиНаСтраницуИнформацииИВыполненияРезервногоКопирования()
@@ -271,7 +263,7 @@
РезервноеКопированиеИБВызовСервера.УстановитьЗначениеНастройки("ПроцессВыполняется", Истина);
Элементы.Отмена.Доступность = Истина;
- ОбновитьКоличествоАктивныхПользователей();
+ Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы();
УстановитьЗаголовокКнопкиДалее(Истина);
Элементы.Далее.Доступность = Ложь;
@@ -287,7 +279,7 @@
Возврат;
КонецЕсли;
- Если СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы() = 1 Тогда
+ Если КоличествоСеансовИнформационнойБазы() = 1 Тогда
СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(Нстр("ru = 'Для выполнения резервного копирования.'"), "РезервноеКопирование");
СоединенияИБКлиент.УстановитьПризнакЗавершитьВсеСеансыКромеТекущего(Истина);
@@ -429,25 +421,6 @@
КонецПроцедуры
-// Обработчик значения переключателя "Код типа резервного копирования" при нажатии на кнопку "Далее".
-&НаКлиенте
-Процедура ОбработатьВыборРежимаИнтерактивногоКопирования()
-
- НоваяСтраницаПомощника = Неопределено;
-
- Если РезервноеКопированиеИБКлиент.ПроверитьДоступКИнформационнойБазе(ПарольАдминистратораИБ) Тогда
- УстановитьПараметрыРезервногоКопирования();
- Иначе
- Элементы.СтраницыСтатусаКопирования.ТекущаяСтраница = Элементы.СтраницыСтатусаКопирования.ПодчиненныеЭлементы.СтраницаОшибкаПодключения;
- Возврат;
- КонецЕсли;
-
- НоваяСтраницаПомощника = Элементы.СтраницыПомощника.ПодчиненныеЭлементы.СтраницаИнформацииИВыполненияРезервногоКопирования;
-
- ПерейтиНаСтраницу(НоваяСтраницаПомощника);
-
-КонецПроцедуры
-
&НаКлиенте
Процедура УстановитьОбработчикОжиданияИстеченияТаймаутаРезервногоКопирования()
@@ -505,7 +478,7 @@
&НаКлиенте
Процедура ПроверкаНаЕдинственностьПодключения()
- КоличествоПользователей = СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы();
+ КоличествоПользователей = КоличествоСеансовИнформационнойБазы();
Элементы.КоличествоАктивныхПользователей.Заголовок = Строка(КоличествоПользователей);
Если КоличествоПользователей = 1 Тогда
НачатьРезервноеКопирование();
@@ -543,13 +516,6 @@
КонецФункции
-&НаКлиенте
-Процедура ОбновитьКоличествоАктивныхПользователей()
-
- Элементы.КоличествоАктивныхПользователей.Заголовок = СоединенияИБВызовСервера.КоличествоСеансовИнформационнойБазы();
-
-КонецПроцедуры
-
&НаКлиенте
Процедура НачатьРезервноеКопирование()
@@ -750,4 +716,11 @@
ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель();
КонецПроцедуры
+&НаСервере
+Функция КоличествоСеансовИнформационнойБазы()
+
+ Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь, Ложь);
+
+КонецФункции
+
#КонецОбласти
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ЗаставкаРезервногоКопирования/Template.txt b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ЗаставкаРезервногоКопирования/Template.txt
index c1ecc7ab9..71c4b9e99 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ЗаставкаРезервногоКопирования/Template.txt
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ЗаставкаРезервногоКопирования/Template.txt
@@ -110,7 +110,7 @@
// Передача управления IE и повторный вызов main через 1 секунду (достаточно для завершения COM-соединения).
// Если еще не все сеансы завершены, то ret = -1 и ждем 18 секунд до следующей проверки.
if (!finish)
- setTimeout("main()", ret != -1 ? 1000 : 18 * 1000);
+ setTimeout("main()", ret != -1 ? 1000 : 5 * 1000);
}
function checkClose() {
diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt
index 8353b3dfb..7ff858f68 100644
--- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt
+++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt
@@ -40,6 +40,8 @@ oShell.CurrentDirectory = thisFileDir;
var errorMarker = "{ERR}";
var successMarker = "{OK }";
+var FileSize = 0;
+
// Переменные состояния
var backupCreated = false;
var logging1C = false;
@@ -229,7 +231,7 @@ function finalize(success)
if (!success)
{
- allowConnections(); // Разрешение подключений
+ allowConnections(false); // Разрешение подключений
}
@@ -398,11 +400,16 @@ function WaitUntilFinish()
// файл резервной копии не найден, ожидаем далее
return -1;
}
- FileSize = FileArchive.size / 1024;
+ var nowSize = FileArchive.size;
// файл все еще не начал создаваться, возможно выполняется интерактив, ожидаем далее
- if (FileSize < 5)
- return -1;
+ if (nowSize/1024 < 5){
+ FileSize = nowSize;
+ return -1;}
+
+ if (FileSize != nowSize){
+ FileSize = nowSize;
+ return -1;}
return 0;
}
diff --git a/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Form.form b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Form.form
new file mode 100644
index 000000000..8915a11a5
--- /dev/null
+++ b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Form.form
@@ -0,0 +1,68 @@
+
+
+
+ ФормаКоманднаяПанель
+ -1
+ Left
+ true
+
+
+ OnOpen
+ ПриОткрытии
+
+
+ OnCreateAtServer
+ ПриСозданииНаСервере
+
+ DontBlock
+ true
+ true
+ true
+ Vertical
+ true
+ true
+ true
+ auto
+ true
+
+ Объект
+ 1
+
+ DataProcessorObject.РекомендацияПоПовышениюСкоростиРаботы
+
+
+ true
+
+
+ true
+
+ true
+
+
+ РекомендуемыйОбъем
+
+ <key>ru</key>
+ <value>Рекомендуемый объем</value>
+
+ 2
+
+ Number
+
+ 10
+ 1
+ true
+
+
+
+ true
+
+
+ true
+
+
+
+
+
+
+
+
diff --git a/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl
new file mode 100644
index 000000000..b4cb5206d
--- /dev/null
+++ b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl
@@ -0,0 +1,61 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+ ОбщиеПараметры = ОбщегоНазначения.ОбщиеПараметрыБазовойФункциональности();
+ РекомендуемыйОбъем = ОбщиеПараметры.РекомендуемыйОбъемОперативнойПамяти;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ Отказ = Истина;
+
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+ ДоступныйОбъем = Окр(СистемнаяИнформация.ОперативнаяПамять / 1024, 1);
+
+ Если ДоступныйОбъем >= РекомендуемыйОбъем Тогда
+ Возврат;
+ КонецЕсли;
+
+ ТекстСообщения = НСтр("ru = 'На компьютере установлено %1 Гб оперативной памяти.
+ |Для того чтобы программа работала быстрее,
+ |рекомендуется увеличить объем памяти до %2 Гб.'");
+
+ ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, ДоступныйОбъем, РекомендуемыйОбъем);
+
+ ЗаголовокСообщения = НСтр("ru = 'Рекомендация по повышению скорости работы'");
+
+ ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю();
+ ПараметрыВопроса.Заголовок = ЗаголовокСообщения;
+ ПараметрыВопроса.Картинка = БиблиотекаКартинок.Предупреждение32;
+ ПараметрыВопроса.Вставить("ТекстФлажка", НСтр("ru = 'Не показывать в течение двух месяцев'"));
+
+ Кнопки = Новый СписокЗначений;
+ Кнопки.Добавить("ПродолжитьРаботу", НСтр("ru = 'Продолжить работу'"));
+
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПоказаРекомендации", ЭтотОбъект);
+ СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(ОписаниеОповещения, ТекстСообщения, Кнопки, ПараметрыВопроса);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ПослеПоказаРекомендации(Результат, ДополнительныеПараметры) Экспорт
+ Если Результат = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ РекомендацияПоОбъемуОперативнойПамяти = Новый Структура;
+ РекомендацияПоОбъемуОперативнойПамяти.Вставить("Показывать", Не Результат.БольшеНеЗадаватьЭтотВопрос);
+ РекомендацияПоОбъемуОперативнойПамяти.Вставить("ДатаПредыдущегоПоказа", ОбщегоНазначенияКлиент.ДатаСеанса());
+
+ ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекСохранить("ОбщиеНастройкиПользователя",
+ "РекомендацияПоОбъемуОперативнойПамяти", РекомендацияПоОбъемуОперативнойПамяти);
+КонецПроцедуры
+
+#КонецОбласти
diff --git a/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/РекомендацияПоПовышениюСкоростиРаботы.mdo b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/РекомендацияПоПовышениюСкоростиРаботы.mdo
new file mode 100644
index 000000000..0973358db
--- /dev/null
+++ b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/РекомендацияПоПовышениюСкоростиРаботы.mdo
@@ -0,0 +1,23 @@
+
+
+
+
+
+
+ РекомендацияПоПовышениюСкоростиРаботы
+
+ ru
+ Рекомендация по повышению скорости работы
+
+ true
+ DataProcessor.РекомендацияПоПовышениюСкоростиРаботы.Form.Форма
+
+ Форма
+
+ ru
+ Форма
+
+ PersonalComputer
+ MobileDevice
+
+
diff --git a/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Commands/ОткрытьФормуСбросаНастроек/CommandModule.bsl b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Commands/ОткрытьФормуСбросаНастроек/CommandModule.bsl
new file mode 100644
index 000000000..ba530483d
--- /dev/null
+++ b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Commands/ОткрытьФормуСбросаНастроек/CommandModule.bsl
@@ -0,0 +1,6 @@
+
+&НаКлиенте
+Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
+ ПараметрыФормы = Новый Структура("", );
+ ОткрытьФорму("Обработка.СбросНастроекПроверкиКонтрагентов.Форма", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно, ПараметрыВыполненияКоманды.НавигационнаяСсылка);
+КонецПроцедуры
diff --git a/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Form.form b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Form.form
new file mode 100644
index 000000000..7c92167a0
--- /dev/null
+++ b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Form.form
@@ -0,0 +1,94 @@
+
+
+
+ СбросНастроек
+ 1
+ true
+ true
+
+ true
+
+
+ СбросНастроекРасширеннаяПодсказка
+ 2
+
+ <key>ru</key>
+ <value>Отключение проверки контрагентов, сброс даты последнего отображения предложения на использование сервиса, сброс отказа от подключения к сервису</value>
+
+ Label
+ true
+ true
+
+ Style.ПоясняющийТекст
+
+
+ Left
+
+
+ UsualButton
+ Form.Command.СбросНастроек
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ ShowBottom
+ Auto
+
+
+ ФормаКоманднаяПанель
+ -1
+ Left
+
+ DontBlock
+ true
+ true
+ true
+ Vertical
+ true
+ true
+ true
+ auto
+ true
+
+ Объект
+ 1
+
+ DataProcessorObject.СбросНастроекПроверкиКонтрагентов
+
+
+ true
+
+
+ true
+
+ true
+
+
+ СбросНастроек
+
+ <key>ru</key>
+ <value>Сброс настроек</value>
+
+ 1
+
+ ru
+ Сброс настроек
+
+
+
+
+ СбросНастроек
+
+
+ Auto
+ Auto
+
+
+
+
+
+
+
diff --git a/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Module.bsl
new file mode 100644
index 000000000..bd34cc049
--- /dev/null
+++ b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/Forms/Форма/Module.bsl
@@ -0,0 +1,27 @@
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура СбросНастроек(Команда)
+ СбросНастроекНаСервере();
+КонецПроцедуры
+
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервереБезКонтекста
+Процедура СбросНастроекНаСервере()
+
+ ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("ПроверкаКонтрагентов",
+ "ПроверкаКонтрагентов_ДатаПоследнегоОтображенияПредложенияНаВключениеСервиса", ТекущаяДатаСеанса() - 60*60*6);
+ ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("ПроверкаКонтрагентов",
+ "ПроверкаКонтрагентов_БольшеНеПоказыватьПредложениеИспользоватьСервис", Неопределено);
+ УстановитьПривилегированныйРежим(Истина);
+
+ ПроверкаКонтрагентов.ВключитьВыключитьПроверкуКонтрагентов(Ложь);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git a/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/СбросНастроекПроверкиКонтрагентов.mdo b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/СбросНастроекПроверкиКонтрагентов.mdo
new file mode 100644
index 000000000..55a133f1f
--- /dev/null
+++ b/SSL/src/DataProcessors/СбросНастроекПроверкиКонтрагентов/СбросНастроекПроверкиКонтрагентов.mdo
@@ -0,0 +1,31 @@
+
+
+
+
+
+
+ СбросНастроекПроверкиКонтрагентов
+
+ ru
+ Сброс настроек проверки контрагентов
+
+ DataProcessor.СбросНастроекПроверкиКонтрагентов.Form.Форма
+
+ Форма
+
+ ru
+ Форма
+
+ PersonalComputer
+ MobileDevice
+
+
+ ОткрытьФормуСбросаНастроек
+
+ ru
+ Сброс настроек проверки контрагентов
+
+ NavigationPanelOrdinary
+ Auto
+
+
diff --git a/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl
index 7151a7023..df37a9b0f 100644
--- a/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl
+++ b/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl
@@ -66,7 +66,7 @@
УникальныйИдентификатор,
"Обработки.СдвигГраницыИтогов.ВыполнитьКоманду",
Новый Структура,
- НСтр("ru = 'Рассылки отчетов: Выполнение рассылок в фоне'"));
+ НСтр("ru = 'Итоги и агрегаты: Ускорение проведения документов и формирования отчетов'"));
ЗаполнитьЗначенияСвойств(ПараметрыЗадания, Запуск);
Если ПараметрыЗадания.ЗаданиеВыполнено Тогда
diff --git a/SSL/src/DataProcessors/СогласиеНаОбработкуПерсональныхДанных/Help/ru.html b/SSL/src/DataProcessors/СогласиеНаОбработкуПерсональныхДанных/Help/ru.html
index 430476b06..a75411af7 100644
--- a/SSL/src/DataProcessors/СогласиеНаОбработкуПерсональныхДанных/Help/ru.html
+++ b/SSL/src/DataProcessors/СогласиеНаОбработкуПерсональныхДанных/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для печати формы согласия на обработку персональных данных.
Федеральный закон от 27.06.2006 № 152-Ф3 "О персональных данных" предписывает со всех субъектов, чьи персональные данные в программе обрабатываются, получить согласие на такую обработку.
Открывается из списков программы или из элементов списков по команде Еще - Согласие на обработку персональных данных. Печать формы возможна из всех списков программы, в которых имеются персональные данные.
diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl
index c8659b0fc..eb3d09236 100644
--- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl
@@ -364,7 +364,7 @@
&НаКлиенте
Процедура ВыполнитьЗагрузкуДанных(Команда)
НСтрока = НСтр("ru = 'Получить данные в информационную базу?'");
- Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхЗавершение1", ЭтотОбъект);
+ Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхПослеВопросаОПодтвержденииПолученияДанных", ЭтотОбъект);
ПоказатьВопрос(Оповещение, НСтрока, РежимДиалогаВопрос.ДаНет, ,КодВозвратаДиалога.Да);
КонецПроцедуры
@@ -672,33 +672,33 @@
КонецПроцедуры
&НаКлиенте
-Процедура ВыполнитьЗагрузкуДанныхЗавершение1(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
+Процедура ВыполнитьЗагрузкуДанныхПослеВопросаОПодтвержденииПолученияДанных(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
Если Объект.ДанныеУспешноЗагружены Тогда
НСтрока = НСтр("ru = 'Данные уже были получены. Выполнить получение данных повторно?'");
- Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхЗавершение2", ЭтотОбъект);
+ Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхПослеВопросаОПовторномПолученииДанных", ЭтотОбъект);
ПоказатьВопрос(Оповещение, НСтрока, РежимДиалогаВопрос.ДаНет, ,КодВозвратаДиалога.Нет);
Возврат;
КонецЕсли;
- ВыполнитьЗагрузкуДанныхЗавершение3();
+ ВыполнитьЗагрузкуДанныхПослеПодтвержденияПолученияДанных();
КонецПроцедуры
&НаКлиенте
-Процедура ВыполнитьЗагрузкуДанныхЗавершение2(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
+Процедура ВыполнитьЗагрузкуДанныхПослеВопросаОПовторномПолученииДанных(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
- ВыполнитьЗагрузкуДанныхЗавершение3();
+ ВыполнитьЗагрузкуДанныхПослеПодтвержденияПолученияДанных();
КонецПроцедуры
&НаКлиенте
-Процедура ВыполнитьЗагрузкуДанныхЗавершение3()
+Процедура ВыполнитьЗагрузкуДанныхПослеПодтвержденияПолученияДанных()
// Оповещение состояния
Состояние(НСтр("ru = 'Выполняется получение данных. Пожалуйста, подождите...'"));
@@ -711,7 +711,7 @@
НСтрока = НСтр("ru = 'При получении данных возникли ошибки.
|Перейти в журнал регистрации?'");
- Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхЗавершение4", ЭтотОбъект);
+ Оповещение = Новый ОписаниеОповещения("ВыполнитьЗагрузкуДанныхПослеВопросаОПереходеВЖурналРегистрации", ЭтотОбъект);
ПоказатьВопрос(Оповещение, НСтрока, РежимДиалогаВопрос.ДаНет, ,КодВозвратаДиалога.Нет);
Возврат;
@@ -722,7 +722,7 @@
КонецПроцедуры
&НаКлиенте
-Процедура ВыполнитьЗагрузкуДанныхЗавершение4(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
+Процедура ВыполнитьЗагрузкуДанныхПослеВопросаОПереходеВЖурналРегистрации(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
@@ -825,9 +825,17 @@
&НаСервере
Процедура ОтменитьУтвержденноеСопоставлениеНаСервере(Отбор)
- Отбор.Вставить("УзелИнформационнойБазы", Объект.УзелИнформационнойБазы);
+ Если ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(Объект.УзелИнформационнойБазы) Тогда
+ ОтборПубличныеИдентификаторы = Новый Структура("УзелИнформационнойБазы, Идентификатор, Ссылка",
+ Объект.УзелИнформационнойБазы,
+ Отбор.УникальныйИдентификаторПриемника,
+ Отбор.УникальныйИдентификаторИсточника);
+ РегистрыСведений.ПубличныеИдентификаторыСинхронизируемыхОбъектов.УдалитьЗапись(ОтборПубличныеИдентификаторы);
+ Иначе
+ Отбор.Вставить("УзелИнформационнойБазы", Объект.УзелИнформационнойБазы);
- РегистрыСведений.СоответствияОбъектовИнформационныхБаз.УдалитьЗапись(Отбор);
+ РегистрыСведений.СоответствияОбъектовИнформационныхБаз.УдалитьЗапись(Отбор);
+ КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Help/ru.html b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Help/ru.html
index d58c71b37..8f14d75a3 100644
--- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Help/ru.html
+++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для сопоставления данных двух программ.
Список открывается по команде Выполнить сопоставление на странице Сопоставление данныхПомощника интерактивной синхронизации данных. Также можно дважды щелкнуть мышью по строке, в которой обнаружены проблемы сопоставления данных.
Список состоит из двух колонок, каждая из которых соответствует информационной базе, участвующей в обмене. Данные сгруппированы по объектам программы (документы, списки). В нижней части списка выводится информационная строка: сколько элементов сопоставлено, сколько не сопоставлено.
diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl
index 35f4ead3a..4666c1eff 100644
--- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl
@@ -85,13 +85,31 @@
Для Каждого СтрокаТаблицы Из ТаблицаНеутвержденныхСвязей Цикл
- СтруктураЗаписи = Новый Структура("УникальныйИдентификаторИсточника, УникальныйИдентификаторПриемника, ТипИсточника, ТипПриемника");
-
- СтруктураЗаписи.Вставить("УзелИнформационнойБазы", УзелИнформационнойБазы);
-
- ЗаполнитьЗначенияСвойств(СтруктураЗаписи, СтрокаТаблицы);
-
- РегистрыСведений.СоответствияОбъектовИнформационныхБаз.ДобавитьЗапись(СтруктураЗаписи);
+ Если ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(УзелИнформационнойБазы) Тогда
+
+ Если Строка(СтрокаТаблицы.УникальныйИдентификаторИсточника.УникальныйИдентификатор()) = СтрокаТаблицы.УникальныйИдентификаторПриемника Тогда
+ Продолжить;
+ КонецЕсли;
+
+ СтруктураЗаписи = Новый Структура("Ссылка, Идентификатор");
+
+ СтруктураЗаписи.Вставить("УзелИнформационнойБазы", УзелИнформационнойБазы);
+ СтруктураЗаписи.Вставить("Ссылка", СтрокаТаблицы.УникальныйИдентификаторИсточника);
+ СтруктураЗаписи.Вставить("Идентификатор", СтрокаТаблицы.УникальныйИдентификаторПриемника);
+
+ РегистрыСведений.ПубличныеИдентификаторыСинхронизируемыхОбъектов.ДобавитьЗапись(СтруктураЗаписи);
+
+ Иначе
+
+ СтруктураЗаписи = Новый Структура("УникальныйИдентификаторИсточника, УникальныйИдентификаторПриемника, ТипИсточника, ТипПриемника");
+
+ СтруктураЗаписи.Вставить("УзелИнформационнойБазы", УзелИнформационнойБазы);
+
+ ЗаполнитьЗначенияСвойств(СтруктураЗаписи, СтрокаТаблицы);
+
+ РегистрыСведений.СоответствияОбъектовИнформационныхБаз.ДобавитьЗапись(СтруктураЗаписи);
+
+ КонецЕсли;
КонецЦикла;
@@ -153,12 +171,14 @@
ДанныеУспешноЗагружены = Ложь;
- ОбработкаОбменаДанными = ОбменДаннымиСервер.ОбработкаОбменаДляЗагрузкиДанных(Отказ, УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
+ СтруктураНастроекОбмена = ОбменДаннымиСервер.СтруктураНастроекОбменаДляСеансаИнтерактивнойЗагрузки(УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
- Если Отказ Тогда
+ Если СтруктураНастроекОбмена.Отказ Тогда
Возврат;
КонецЕсли;
+ ОбработкаОбменаДанными = СтруктураНастроекОбмена.ОбработкаОбменаДанными;
+
ОбработкаОбменаДанными.ВыполнитьЗагрузкуДанныхВИнформационнуюБазу(ТаблицыДляЗагрузки);
// Удаляем загруженные в ИБ таблицы из кэша обработки, т.к. они стали неактуальными.
@@ -502,7 +522,7 @@
// ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
// ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям.
//
- // ТаблицаСопоставленныхОбъектов
+ // ТаблицаСопоставленныхОбъектов.
//
// ТаблицаНеСопоставленныхОбъектовИсточника
// ТаблицаНеСопоставленныхОбъектовПриемника.
@@ -525,434 +545,624 @@
| Ссылка,
| УникальныйИдентификатор
|;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаРегистраСоответствияОбъектовИнформационныхБаз}
- |ВЫБРАТЬ
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипПриемника,
- | ТипИсточника
- |ПОМЕСТИТЬ ТаблицаРегистраСоответствияОбъектовИнформационныхБаз
- |ИЗ
- | РегистрСведений.СоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
- |ГДЕ
- | СоответствияОбъектовИнформационныхБаз.УзелИнформационнойБазы = &УзелИнформационнойБазы
- | И СоответствияОбъектовИнформационныхБаз.ТипПриемника = &ТипИсточника
- | И СоответствияОбъектовИнформационныхБаз.ТипИсточника = &ТипПриемника
- |ИНДЕКСИРОВАТЬ ПО
- | УникальныйИдентификаторПриемника,
- | ТипПриемника,
- | ТипИсточника
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеутвержденныхСвязей}
- |ВЫБРАТЬ
- |
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипПриемника,
- | ТипИсточника
- |
- |ПОМЕСТИТЬ ТаблицаНеутвержденныхСвязей
- |ИЗ
- | &ТаблицаНеутвержденныхСвязей КАК ТаблицаНеутвержденныхСвязей
- |ИНДЕКСИРОВАТЬ ПО
- | УникальныйИдентификаторПриемника,
- | ТипПриемника
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовИсточникаПоРегистру}
- |ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЕ_СОРТИРОВКИ_Приемник#
- |
- | Ссылка,
- | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
- | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
- |ИЗ
- | (ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#
- |
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК Ссылка,
- |
- | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
- | #СоответствияОбъектовИнформационныхБазЭтоГруппа# КАК ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
- | СоответствияОбъектовИнформационныхБаз.ТипПриемника КАК ТипИсточника,
- | СоответствияОбъектовИнформационныхБаз.ТипИсточника КАК ТипПриемника
- | ИЗ
- | ТаблицаИсточника КАК ТаблицаИсточника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
- | ПО
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
- | И СоответствияОбъектовИнформационныхБаз.ТипПриемника = ТаблицаИсточника.ТипОбъекта
- | ГДЕ
- | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
- | ) КАК ВложенныйЗапрос
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПриемникаПоРегистру}
- |ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЕ_СОРТИРОВКИ_Приемник#
- |
- | Ссылка,
- | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
- | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
- |ИЗ
- | (ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПриемникаПоРегистру_ВложенныйЗапрос#
- |
- | ТаблицаПриемника.Ссылка КАК Ссылка,
- |
- | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаИсточник,
- | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
- | СоответствияОбъектовИнформационныхБаз.ТипПриемника КАК ТипИсточника,
- | СоответствияОбъектовИнформационныхБаз.ТипИсточника КАК ТипПриемника
- | ИЗ
- | #ТаблицаПриемника# КАК ТаблицаПриемника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
- | ПО
- | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника = ТаблицаПриемника.Ссылка
- | И СоответствияОбъектовИнформационныхБаз.ТипИсточника = &ТипПриемника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру КАК ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
- | ПО
- | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка = ТаблицаПриемника.Ссылка
- |
- | ГДЕ
- | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
- | И ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка ЕСТЬ NULL
- | ) КАК ВложенныйЗапрос
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям}
- |ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЕ_СОРТИРОВКИ_Приемник#
- |
- | Ссылка,
- | 3 КАК СтатусСопоставления, // неутвержденные связи (3)
- | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям
- |ИЗ
- | (ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям_ВложенныйЗапрос#
- |
- | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК Ссылка,
- |
- | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
- | #ТаблицаНеутвержденныхСвязейЭтоГруппа# КАК ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
- | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
- | ТаблицаНеутвержденныхСвязей.ТипПриемника КАК ТипИсточника,
- | ТаблицаНеутвержденныхСвязей.ТипИсточника КАК ТипПриемника
- | ИЗ
- | ТаблицаИсточника КАК ТаблицаИсточника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаНеутвержденныхСвязей КАК ТаблицаНеутвержденныхСвязей
- | ПО
- | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
- | И ТаблицаНеутвержденныхСвязей.ТипПриемника = ТаблицаИсточника.ТипОбъекта
- |
- | ГДЕ
- | НЕ ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника ЕСТЬ NULL
- | ) КАК ВложенныйЗапрос
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектов}
- |ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЯ_СОРТИРОВКИ#
- |
- | Ссылка,
- | СтатусСопоставления,
- | СтатусСопоставленияДополнительный,
- |
- | // {ИНДЕКС КАРТИНКИ}
- | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ИсточникИндексКартинки,
- |
- | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ПриемникИндексКартинки,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектов
- |ИЗ
- | (
- | ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЯ_СОРТИРОВКИ#
- |
- | Ссылка,
- | СтатусСопоставления,
- | СтатусСопоставленияДополнительный,
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- | ИЗ
- | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
- |
- | ОБЪЕДИНИТЬ ВСЕ
- |
- | ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЯ_СОРТИРОВКИ#
- |
- | Ссылка,
- | СтатусСопоставления,
- | СтатусСопоставленияДополнительный,
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- | ИЗ
- | ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
- |
- | ОБЪЕДИНИТЬ ВСЕ
- |
- | ВЫБРАТЬ
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЯ_СОРТИРОВКИ#
- |
- | Ссылка,
- | СтатусСопоставления,
- | СтатусСопоставленияДополнительный,
- |
- | ЭтоГруппаИсточник,
- | ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- | ИЗ
- | ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям
- |
- | ) КАК ВложенныйЗапрос
- |
- |ИНДЕКСИРОВАТЬ ПО
- | Ссылка
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеСопоставленныхОбъектовИсточника}
- |ВЫБРАТЬ
- |
- | Ссылка,
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЕ_СОРТИРОВКИ_Источник#
- |
- | -1 КАК СтатусСопоставления, // несопоставленные объекты источника (-1)
- | 1 КАК СтатусСопоставленияДополнительный, // несопоставленные объекты (1)
- |
- | // {ИНДЕКС КАРТИНКИ}
- | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ИсточникИндексКартинки,
- |
- | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ПриемникИндексКартинки,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаНеСопоставленныхОбъектовИсточника
- |ИЗ
- | (ВЫБРАТЬ
- |
- | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
- | NULL КАК ЭтоГруппаПриемник,
- |
- | ТаблицаИсточника.Ссылка КАК Ссылка,
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаНеСопоставленныхОбъектовИсточника_ВложенныйЗапрос#
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | NULL КАК УникальныйИдентификаторПриемника,
- | ТаблицаИсточника.УникальныйИдентификатор КАК УникальныйИдентификаторИсточника,
- | &ТипИсточника КАК ТипИсточника,
- | &ТипПриемника КАК ТипПриемника
- | ИЗ
- | ТаблицаИсточника КАК ТаблицаИсточника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаСопоставленныхОбъектов КАК ТаблицаСопоставленныхОбъектов
- | ПО
- | ТаблицаИсточника.Ссылка = ТаблицаСопоставленныхОбъектов.Ссылка
- | ИЛИ ТаблицаИсточника.УникальныйИдентификатор = ТаблицаСопоставленныхОбъектов.УникальныйИдентификаторИсточника
- | ГДЕ
- | ТаблицаСопоставленныхОбъектов.Ссылка ЕСТЬ NULL
- | ) КАК ВложенныйЗапрос
- |;
- |
- |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеСопоставленныхОбъектовПриемника}
- |ВЫБРАТЬ
- |
- | Ссылка,
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
- |
- | #ПОЛЕ_СОРТИРОВКИ_Приемник#
- |
- | 1 КАК СтатусСопоставления, // несопоставленные объекты приемника (1)
- | 1 КАК СтатусСопоставленияДополнительный, // несопоставленные объекты (1)
- |
- | // {ИНДЕКС КАРТИНКИ}
- | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ИсточникИндексКартинки,
- |
- | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
- | ТОГДА 0
- | ИНАЧЕ
- | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
- | ТОГДА 1
- | ИНАЧЕ 2
- | КОНЕЦ
- | КОНЕЦ КАК ПриемникИндексКартинки,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | УникальныйИдентификаторИсточника,
- | УникальныйИдентификаторПриемника,
- | ТипИсточника,
- | ТипПриемника
- |ПОМЕСТИТЬ ТаблицаНеСопоставленныхОбъектовПриемника
- |ИЗ
- | (ВЫБРАТЬ
- |
- | ТаблицаПриемника.Ссылка КАК Ссылка,
- |
- | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаНеСопоставленныхОбъектовПриемника_ВложенныйЗапрос#
- |
- | NULL КАК ЭтоГруппаИсточник,
- | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаПриемник,
- |
- | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
- | ТаблицаПриемника.Ссылка КАК УникальныйИдентификаторПриемника,
- | Неопределено КАК УникальныйИдентификаторИсточника,
- | Неопределено КАК ТипИсточника,
- | &ТипПриемника КАК ТипПриемника
- | ИЗ
- | #ТаблицаПриемника# КАК ТаблицаПриемника
- | ЛЕВОЕ СОЕДИНЕНИЕ
- | ТаблицаСопоставленныхОбъектов КАК ТаблицаСопоставленныхОбъектов
- | ПО
- | ТаблицаПриемника.Ссылка = ТаблицаСопоставленныхОбъектов.Ссылка
- | ГДЕ
- | ТаблицаСопоставленныхОбъектов.Ссылка ЕСТЬ NULL
- | ) КАК ВложенныйЗапрос
- |;
- |
|";
+ Если ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(УзелИнформационнойБазы) Тогда
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаРегистраСоответствияОбъектовИнформационныхБаз}
+ |ВЫБРАТЬ
+ | Ссылка КАК УникальныйИдентификаторИсточника,
+ | Идентификатор КАК УникальныйИдентификаторПриемника,
+ | ""#ТипИсточника#"" КАК ТипПриемника,
+ | ""#ТипПриемника#"" КАК ТипИсточника
+ |ПОМЕСТИТЬ ТаблицаРегистраСоответствияОбъектовИнформационныхБаз
+ |ИЗ
+ | РегистрСведений.ПубличныеИдентификаторыСинхронизируемыхОбъектов КАК СоответствияОбъектовИнформационныхБаз
+ |ГДЕ
+ | СоответствияОбъектовИнформационныхБаз.УзелИнформационнойБазы = &УзелИнформационнойБазы
+ | И СоответствияОбъектовИнформационныхБаз.Ссылка ССЫЛКА #ТаблицаПриемника#
+ |
+ |ИНДЕКСИРОВАТЬ ПО
+ | УникальныйИдентификаторПриемника
+ |;
+ |";
+ Иначе
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаРегистраСоответствияОбъектовИнформационныхБаз}
+ |ВЫБРАТЬ
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипПриемника,
+ | ТипИсточника
+ |ПОМЕСТИТЬ ТаблицаРегистраСоответствияОбъектовИнформационныхБаз
+ |ИЗ
+ | РегистрСведений.СоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
+ |ГДЕ
+ | СоответствияОбъектовИнформационныхБаз.УзелИнформационнойБазы = &УзелИнформационнойБазы
+ | И СоответствияОбъектовИнформационныхБаз.ТипПриемника = &ТипИсточника
+ | И СоответствияОбъектовИнформационныхБаз.ТипИсточника = &ТипПриемника
+ |ИНДЕКСИРОВАТЬ ПО
+ | УникальныйИдентификаторПриемника,
+ | ТипПриемника,
+ | ТипИсточника
+ |;
+ |";
+ КонецЕсли;
+
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеутвержденныхСвязей}
+ |ВЫБРАТЬ
+ |
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипПриемника,
+ | ТипИсточника
+ |
+ |ПОМЕСТИТЬ ТаблицаНеутвержденныхСвязей
+ |ИЗ
+ | &ТаблицаНеутвержденныхСвязей КАК ТаблицаНеутвержденныхСвязей
+ |ИНДЕКСИРОВАТЬ ПО
+ | УникальныйИдентификаторПриемника,
+ | ТипПриемника
+ |;
+ |";
+
+ Если ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(УзелИнформационнойБазы) Тогда
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовИсточникаПоРегистру}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#
+ |
+ | ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника, ТаблицаПриемника.Ссылка) КАК Ссылка,
+ |
+ | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #СоответствияОбъектовИнформационныхБазЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника, ТаблицаПриемника.Ссылка) КАК УникальныйИдентификаторПриемника,
+ | ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника, ТаблицаИсточника.УникальныйИдентификатор) КАК УникальныйИдентификаторИсточника,
+ | ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.ТипПриемника, ""#ТипИсточника#"") КАК ТипИсточника,
+ | ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.ТипИсточника, ""#ТипПриемника#"") КАК ТипПриемника
+ | ИЗ
+ | ТаблицаИсточника КАК ТаблицаИсточника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
+ | ПО
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
+ | И СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ССЫЛКА #ТаблицаПриемника#
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | #ТаблицаПриемника# КАК ТаблицаПриемника
+ | ПО
+ | ТаблицаИсточника.Ссылка = ТаблицаПриемника.Ссылка
+ | ГДЕ
+ | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | ИЛИ НЕ ТаблицаПриемника.Ссылка ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПриемникаПоРегистру}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПриемникаПоРегистру_ВложенныйЗапрос#
+ |
+ | ТаблицаПриемника.Ссылка КАК Ссылка,
+ |
+ | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипПриемника КАК ТипИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипИсточника КАК ТипПриемника
+ | ИЗ
+ | #ТаблицаПриемника# КАК ТаблицаПриемника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
+ | ПО
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника = ТаблицаПриемника.Ссылка
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру КАК ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
+ | ПО
+ | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка = ТаблицаПриемника.Ссылка
+ |
+ | ГДЕ
+ | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | И ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 3 КАК СтатусСопоставления, // неутвержденные связи (3)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям_ВложенныйЗапрос#
+ |
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК Ссылка,
+ |
+ | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #ТаблицаНеутвержденныхСвязейЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
+ | ТаблицаНеутвержденныхСвязей.ТипПриемника КАК ТипИсточника,
+ | ТаблицаНеутвержденныхСвязей.ТипИсточника КАК ТипПриемника
+ | ИЗ
+ | ТаблицаИсточника КАК ТаблицаИсточника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаНеутвержденныхСвязей КАК ТаблицаНеутвержденныхСвязей
+ | ПО
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
+ | И ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника ССЫЛКА #ТаблицаПриемника#
+ |
+ | ГДЕ
+ | НЕ ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |";
+ Иначе
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовИсточникаПоРегистру}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#
+ |
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК Ссылка,
+ |
+ | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #СоответствияОбъектовИнформационныхБазЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипПриемника КАК ТипИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипИсточника КАК ТипПриемника
+ | ИЗ
+ | ТаблицаИсточника КАК ТаблицаИсточника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
+ | ПО
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
+ | И СоответствияОбъектовИнформационныхБаз.ТипПриемника = ТаблицаИсточника.ТипОбъекта
+ | ГДЕ
+ | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПриемникаПоРегистру}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 0 КАК СтатусСопоставления, // сопоставленные объекты (0)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПриемникаПоРегистру_ВложенныйЗапрос#
+ |
+ | ТаблицаПриемника.Ссылка КАК Ссылка,
+ |
+ | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипПриемника КАК ТипИсточника,
+ | СоответствияОбъектовИнформационныхБаз.ТипИсточника КАК ТипПриемника
+ | ИЗ
+ | #ТаблицаПриемника# КАК ТаблицаПриемника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаРегистраСоответствияОбъектовИнформационныхБаз КАК СоответствияОбъектовИнформационныхБаз
+ | ПО
+ | СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника = ТаблицаПриемника.Ссылка
+ | И СоответствияОбъектовИнформационныхБаз.ТипИсточника = &ТипПриемника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру КАК ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
+ | ПО
+ | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка = ТаблицаПриемника.Ссылка
+ |
+ | ГДЕ
+ | НЕ СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | И ТаблицаСопоставленныхОбъектовИсточникаПоРегистру.Ссылка ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | Ссылка,
+ | 3 КАК СтатусСопоставления, // неутвержденные связи (3)
+ | 0 КАК СтатусСопоставленияДополнительный, // сопоставленные объекты (0)
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям_ВложенныйЗапрос#
+ |
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК Ссылка,
+ |
+ | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | #ТаблицаНеутвержденныхСвязейЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК УникальныйИдентификаторПриемника,
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника КАК УникальныйИдентификаторИсточника,
+ | ТаблицаНеутвержденныхСвязей.ТипПриемника КАК ТипИсточника,
+ | ТаблицаНеутвержденныхСвязей.ТипИсточника КАК ТипПриемника
+ | ИЗ
+ | ТаблицаИсточника КАК ТаблицаИсточника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаНеутвержденныхСвязей КАК ТаблицаНеутвержденныхСвязей
+ | ПО
+ | ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторПриемника = ТаблицаИсточника.УникальныйИдентификатор
+ | И ТаблицаНеутвержденныхСвязей.ТипПриемника = ТаблицаИсточника.ТипОбъекта
+ |
+ | ГДЕ
+ | НЕ ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |";
+ КонецЕсли;
+
+ ТекстЗапроса = ТекстЗапроса + "
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаСопоставленныхОбъектов}
+ |ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЯ_СОРТИРОВКИ#
+ |
+ | Ссылка,
+ | СтатусСопоставления,
+ | СтатусСопоставленияДополнительный,
+ |
+ | // {ИНДЕКС КАРТИНКИ}
+ | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ИсточникИндексКартинки,
+ |
+ | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ПриемникИндексКартинки,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаСопоставленныхОбъектов
+ |ИЗ
+ | (
+ | ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЯ_СОРТИРОВКИ#
+ |
+ | Ссылка,
+ | СтатусСопоставления,
+ | СтатусСопоставленияДополнительный,
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ | ИЗ
+ | ТаблицаСопоставленныхОбъектовИсточникаПоРегистру
+ |
+ | ОБЪЕДИНИТЬ ВСЕ
+ |
+ | ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЯ_СОРТИРОВКИ#
+ |
+ | Ссылка,
+ | СтатусСопоставления,
+ | СтатусСопоставленияДополнительный,
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ | ИЗ
+ | ТаблицаСопоставленныхОбъектовПриемникаПоРегистру
+ |
+ | ОБЪЕДИНИТЬ ВСЕ
+ |
+ | ВЫБРАТЬ
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЯ_СОРТИРОВКИ#
+ |
+ | Ссылка,
+ | СтатусСопоставления,
+ | СтатусСопоставленияДополнительный,
+ |
+ | ЭтоГруппаИсточник,
+ | ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ | ИЗ
+ | ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям
+ |
+ | ) КАК ВложенныйЗапрос
+ |
+ |ИНДЕКСИРОВАТЬ ПО
+ | Ссылка
+ |;
+ |
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеСопоставленныхОбъектовИсточника}
+ |ВЫБРАТЬ
+ |
+ | Ссылка,
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Источник#
+ |
+ | -1 КАК СтатусСопоставления, // несопоставленные объекты источника (-1)
+ | 1 КАК СтатусСопоставленияДополнительный, // несопоставленные объекты (1)
+ |
+ | // {ИНДЕКС КАРТИНКИ}
+ | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ИсточникИндексКартинки,
+ |
+ | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ПриемникИндексКартинки,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаНеСопоставленныхОбъектовИсточника
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | #ТаблицаИсточникаЭтоГруппа# КАК ЭтоГруппаИсточник,
+ | NULL КАК ЭтоГруппаПриемник,
+ |
+ | ТаблицаИсточника.Ссылка КАК Ссылка,
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаНеСопоставленныхОбъектовИсточника_ВложенныйЗапрос#
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | NULL КАК УникальныйИдентификаторПриемника,
+ | ТаблицаИсточника.УникальныйИдентификатор КАК УникальныйИдентификаторИсточника,
+ | &ТипИсточника КАК ТипИсточника,
+ | &ТипПриемника КАК ТипПриемника
+ | ИЗ
+ | ТаблицаИсточника КАК ТаблицаИсточника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаСопоставленныхОбъектов КАК ТаблицаСопоставленныхОбъектов
+ | ПО
+ | ТаблицаИсточника.Ссылка = ТаблицаСопоставленныхОбъектов.Ссылка
+ | ИЛИ ТаблицаИсточника.УникальныйИдентификатор = ТаблицаСопоставленныхОбъектов.УникальныйИдентификаторИсточника
+ | ГДЕ
+ | ТаблицаСопоставленныхОбъектов.Ссылка ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |
+ |//////////////////////////////////////////////////////////////////////////////// {ТаблицаНеСопоставленныхОбъектовПриемника}
+ |ВЫБРАТЬ
+ |
+ | Ссылка,
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#
+ |
+ | #ПОЛЕ_СОРТИРОВКИ_Приемник#
+ |
+ | 1 КАК СтатусСопоставления, // несопоставленные объекты приемника (1)
+ | 1 КАК СтатусСопоставленияДополнительный, // несопоставленные объекты (1)
+ |
+ | // {ИНДЕКС КАРТИНКИ}
+ | ВЫБОР КОГДА ЭтоГруппаИсточник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаИсточник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ИсточникИндексКартинки,
+ |
+ | ВЫБОР КОГДА ЭтоГруппаПриемник ЕСТЬ NULL
+ | ТОГДА 0
+ | ИНАЧЕ
+ | ВЫБОР КОГДА ЭтоГруппаПриемник = ИСТИНА
+ | ТОГДА 1
+ | ИНАЧЕ 2
+ | КОНЕЦ
+ | КОНЕЦ КАК ПриемникИндексКартинки,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | УникальныйИдентификаторИсточника,
+ | УникальныйИдентификаторПриемника,
+ | ТипИсточника,
+ | ТипПриемника
+ |ПОМЕСТИТЬ ТаблицаНеСопоставленныхОбъектовПриемника
+ |ИЗ
+ | (ВЫБРАТЬ
+ |
+ | ТаблицаПриемника.Ссылка КАК Ссылка,
+ |
+ | #ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаНеСопоставленныхОбъектовПриемника_ВложенныйЗапрос#
+ |
+ | NULL КАК ЭтоГруппаИсточник,
+ | #ТаблицаПриемникаЭтоГруппа# КАК ЭтоГруппаПриемник,
+ |
+ | // {ДАННЫЕ РЕГИСТРА СОПОСТАВЛЕНИЯ}
+ | ТаблицаПриемника.Ссылка КАК УникальныйИдентификаторПриемника,
+ | Неопределено КАК УникальныйИдентификаторИсточника,
+ | Неопределено КАК ТипИсточника,
+ | &ТипПриемника КАК ТипПриемника
+ | ИЗ
+ | #ТаблицаПриемника# КАК ТаблицаПриемника
+ | ЛЕВОЕ СОЕДИНЕНИЕ
+ | ТаблицаСопоставленныхОбъектов КАК ТаблицаСопоставленныхОбъектов
+ | ПО
+ | ТаблицаПриемника.Ссылка = ТаблицаСопоставленныхОбъектов.Ссылка
+ | ГДЕ
+ | ТаблицаСопоставленныхОбъектов.Ссылка ЕСТЬ NULL
+ | ) КАК ВложенныйЗапрос
+ |;
+ |
+ |";
+
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаИсточника#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ТаблицаИсточникаПараметр.# КАК #,"));
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставления#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ИсточникПолеNN, ПриемникПолеNN,"));
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПоСсылке_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ТаблицаПриемника.# КАК ПриемникПолеNN, ТаблицаИсточника.# КАК ИсточникПолеNN,"));
- ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ВЫРАЗИТЬ(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК [ИмяТаблицыПриемника]).# КАК ПриемникПолеNN, ТаблицаИсточника.# КАК ИсточникПолеNN,"));
+
+ Если ОбменДаннымиПовтИсп.ЭтоПланОбменаXDTO(УзелИнформационнойБазы) Тогда
+ ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ВЫРАЗИТЬ(ЕСТЬNULL(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника, ТаблицаПриемника.Ссылка) КАК [ИмяТаблицыПриемника]).# КАК ПриемникПолеNN, ТаблицаИсточника.# КАК ИсточникПолеNN,"));
+ Иначе
+ ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовИсточникаПоРегистру_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ВЫРАЗИТЬ(СоответствияОбъектовИнформационныхБаз.УникальныйИдентификаторИсточника КАК [ИмяТаблицыПриемника]).# КАК ПриемникПолеNN, ТаблицаИсточника.# КАК ИсточникПолеNN,"));
+ КонецЕсли;
+
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПриемникаПоРегистру_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ТаблицаПриемника.# КАК ПриемникПолеNN, NULL КАК ИсточникПолеNN,"));
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаСопоставленныхОбъектовПоНеутвержденнымСвязям_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ВЫРАЗИТЬ(ТаблицаНеутвержденныхСвязей.УникальныйИдентификаторИсточника КАК [ИмяТаблицыПриемника]).# КАК ПриемникПолеNN, ТаблицаИсточника.# КАК ИсточникПолеNN,"));
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ПОЛЬЗОВАТЕЛЬСКИЕ_ПОЛЯ_ТаблицаНеСопоставленныхОбъектовИсточника_ВложенныйЗапрос#", ПолучитьПользовательскиеПоля(ПользовательскиеПоля, "ТаблицаИсточника.# КАК ИсточникПолеNN, NULL КАК ПриемникПолеNN,"));
@@ -1646,12 +1856,14 @@
// Возвращаемое значение функции.
ТаблицаДанных = Неопределено;
- ОбработкаОбменаДанными = ОбменДаннымиСервер.ОбработкаОбменаДляЗагрузкиДанных(Отказ, УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
+ СтруктураНастроекОбмена = ОбменДаннымиСервер.СтруктураНастроекОбменаДляСеансаИнтерактивнойЗагрузки(УзелИнформационнойБазы, ИмяФайлаСообщенияОбмена);
- Если Отказ Тогда
+ Если СтруктураНастроекОбмена.Отказ Тогда
Возврат Неопределено;
КонецЕсли;
+ ОбработкаОбменаДанными = СтруктураНастроекОбмена.ОбработкаОбменаДанными;
+
КлючТаблицыДанных = ОбменДаннымиСервер.КлючТаблицыДанных(ТипИсточникаСтрокой, ТипПриемникаСтрокой, ЭтоУдалениеОбъекта);
// Таблица данных может быть уже загружена и находиться в кэше обработки ОбработкаОбменаДанными.
diff --git a/SSL/src/DataProcessors/СписокРеспондента/Forms/АрхивАнкет/Help/ru.html b/SSL/src/DataProcessors/СписокРеспондента/Forms/АрхивАнкет/Help/ru.html
index b5ccc122d..4a56a0a12 100644
--- a/SSL/src/DataProcessors/СписокРеспондента/Forms/АрхивАнкет/Help/ru.html
+++ b/SSL/src/DataProcessors/СписокРеспондента/Forms/АрхивАнкет/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для просмотра анкет, работа над которыми была завершена.
Открывается с рабочего стола респондента по команде Архив анкет.
В списке отображаются анкеты, у которых составитель установил флажок Показывать в архиве анкет.
Предназначен для просмотра и редактирования анкет, доступных респонденту.
После входа в программу респондента для него открывается список Доступные анкеты. В списке выводятся наименования анкет.
Если опрос был запланирован с ограничением по времени проведения, то в списке доступных анкет после названия анкеты будет указан срок, до которого необходимо ее заполнить.
diff --git a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаПанели/Module.bsl b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаПанели/Module.bsl
index afe24dbff..f756149e9 100644
--- a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаПанели/Module.bsl
+++ b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаПанели/Module.bsl
@@ -280,9 +280,12 @@
КонецЕсли;
СтрокаРаздела.Индекс = СохраненныйРаздел.Индекс;
Дела = СтрокаРаздела.Строки;
+ ИндексПоследнегоДела = Дела.Количество() - 1;
Для Каждого СтрокаДело Из Дела Цикл
СохраненноеДело = СохраненныйРаздел.Строки.Найти(СтрокаДело.Идентификатор, "Идентификатор");
Если СохраненноеДело = Неопределено Тогда
+ СтрокаДело.Индекс = ИндексПоследнегоДела;
+ ИндексПоследнегоДела = ИндексПоследнегоДела - 1;
Продолжить;
КонецЕсли;
СтрокаДело.Индекс = СохраненноеДело.Индекс;
diff --git a/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl
index f5a8cee71..8d91da748 100644
--- a/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl
+++ b/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl
@@ -49,6 +49,7 @@
&НаКлиенте
Процедура ПриЗакрытии()
+ ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания");
ДействияПриЗакрытииПанелиТекущихДел();
КонецПроцедуры
@@ -171,6 +172,7 @@
Иначе
// Дочерние дела создаются заново.
СоздатьДочернееДело(Дело);
+ ЗаполнитьПараметрыДела(Дело);
КонецЕсли;
КонецЦикла;
@@ -193,7 +195,9 @@
Если Элемент = Неопределено Тогда
// Дела нету в списке, вероятно оно появилось после включения функциональной опции,
// в таком случае добавим его.
- СоздатьДело(Дело, РодительДела, ВключенаВидимостьДела);
+ ИмяГруппыДела = СтрЗаменить(РодительДела.Имя, "ОбщаяГруппа", "Группа");
+ ГруппаДела = РодительДела.ПодчиненныеЭлементы.Найти(ИмяГруппыДела);
+ СоздатьДело(Дело, ГруппаДела, ВключенаВидимостьДела);
ЗаполнитьПараметрыДела(Дело);
Возврат;
КонецЕсли;
diff --git a/SSL/src/DataProcessors/ТекущиеДела/Help/ru.html b/SSL/src/DataProcessors/ТекущиеДела/Help/ru.html
index 6ed88eec5..94e84c5e7 100644
--- a/SSL/src/DataProcessors/ТекущиеДела/Help/ru.html
+++ b/SSL/src/DataProcessors/ТекущиеДела/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для вывода списка текущих дел пользователя на рабочий стол.
Программа позволяет выводить список текущих дел пользователя на рабочем столе: новые письма, задачи, заявки, несогласованные заказы и т.п. Список дел может включать в себя важные и обычные дела, однострочные и многострочные, с количественными показателями и без. Список дел сгруппирован по разделам командного интерфейса, предусмотрена возможность настраивать видимость и порядок отображения, автоматическое обновление через заданный интервал. Важные дела выделяются цветом.
Дела отображаются в виде ссылок, перейдя по которым, можно открыть соответствующие списки, документы или другие объекты программы.
diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form
index 31a851ce1..c19a85eee 100644
--- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form
+++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form
@@ -55,7 +55,7 @@
ru
- Автоматическое удаление всех отмеченных объектов
+ Автоматическое удаление всех помеченных объектовПолный
@@ -148,8 +148,9 @@
ruУдаление помеченных объектов может занять длительное время
(от нескольких секунд до нескольких часов в зависимости от объема удаляемых данных).<1/>
-Во время удаления может наблюдаться существенное замедление работы <a href="1">пользователей (%1)</a>.
-Рекомендуется выполнять удаление в период наименьшей активности пользователей.
+Во время удаления может наблюдаться существенное замедление работы <a href="1">пользователей</a>.
+Рекомендуется выполнять удаление в период наименьшей активности пользователей.
+truetrue
@@ -215,6 +216,54 @@
Auto
+
+ УскоритьУдалениеПомеченных
+ 439
+
+ <key>ru</key>
+ <value>Заблокировать всю работу в программе и ускорить удаление</value>
+
+ true
+ true
+
+ true
+
+
+ Монопольно
+
+ Right
+ Button
+
+ УскоритьУдалениеПомеченныхРасширеннаяПодсказка
+ 441
+
+ <key>ru</key>
+ <value>Если флажок установлен, то на время удаления вход в программу будет закрыт и установлен монопольный режим.
+Это существенно ускорит процесс удаления.
+
+Рекомендации по использованию флажка:
+- рекомендуется включать для срочного удаления больших объемов данных, например, после выполнения свертки базы;
+- во всех остальных случаях его не рекомендуется включать, чтобы не блокировать работу пользователей с программой.</value>
+
+ Label
+ true
+ true
+
+ Left
+
+
+
+ УскоритьУдалениеПомеченныхКонтекстноеМеню
+ 440
+ true
+
+ CheckBoxField
+ Enter
+ true
+ Left
+ true
+
+ truetrue
@@ -991,21 +1040,194 @@
Left
-
- НадписьДлительнаяОперация
- 202
-
- <key>ru</key>
- <value>Удаляются объекты, помеченные на удаление...</value>
-
+
+ Группа1
+ 442
+
+ ФоновоеЗаданиеАнимация
+ 446
+
+ <key>ru</key>
+ <value>Фоновое задание анимация</value>
+
+ true
+ true
+
+ true
+
+
+ ФоновоеЗаданиеАнимацияРасширеннаяПодсказка
+ 448
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ФоновоеЗаданиеАнимацияКонтекстноеМеню
+ 447
+ true
+
+ 5
+ true
+ 2
+ true
+
+
+ CommonPicture.ДлительнаяОперация48
+
+
+
+
+ Группа2
+ 444
+
+ НадписьДлительнаяОперация
+ 202
+ true
+ true
+
+ true
+
+
+ НадписьДлительнаяОперацияРасширеннаяПодсказка
+ 204
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НадписьДлительнаяОперацияКонтекстноеМеню
+ 203
+ true
+
+ Label
+ true
+ 1
+ true
+ true
+
+ Left
+
+
+
+ ФоновоеЗаданиеПроцент
+ 184
+ true
+ true
+
+ true
+
+
+ ФоновоеЗаданиеПроцент
+
+ None
+
+ ФоновоеЗаданиеПроцентРасширеннаяПодсказка
+ 186
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ФоновоеЗаданиеПроцентКонтекстноеМеню
+ 185
+ true
+
+ ProgressBarField
+ Enter
+ true
+ Left
+ true
+
+ 32
+ true
+ 1
+ true
+ true
+ 100
+ true
+
+
+
+ ФоновоеЗаданиеСостояние
+ 194
+ true
+ true
+
+ true
+
+
+ ФоновоеЗаданиеСостояние
+
+ None
+
+ ФоновоеЗаданиеСостояниеРасширеннаяПодсказка
+ 196
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ФоновоеЗаданиеСостояниеКонтекстноеМеню
+ 195
+ true
+
+ LabelField
+ Center
+ Enter
+ true
+ Left
+ true
+
+ true
+ true
+
+
+ true
+ true
+
+ true
+
+
+ Группа2РасширеннаяПодсказка
+ 445
+ Label
+ true
+ true
+
+ Left
+
+
+ UsualGroup
+
+ Vertical
+ Auto
+ true
+ true
+ Auto
+ Auto
+
+ truetruetrue
- НадписьДлительнаяОперацияРасширеннаяПодсказка
- 204
+ Группа1РасширеннаяПодсказка
+ 443Labeltruetrue
@@ -1013,98 +1235,13 @@
Left
-
- НадписьДлительнаяОперацияКонтекстноеМеню
- 203
- true
-
- Label
- true
- 1
- true
- true
-
- Left
-
-
-
- ФоновоеЗаданиеПроцент
- 184
- true
- true
-
- true
-
-
- ФоновоеЗаданиеПроцент
-
- None
-
- ФоновоеЗаданиеПроцентРасширеннаяПодсказка
- 186
- Label
- true
- true
-
- Left
-
-
-
- ФоновоеЗаданиеПроцентКонтекстноеМеню
- 185
- true
-
- ProgressBarField
- Enter
- true
- Left
- true
-
- 32
- true
- 1
- true
- true
- 100
- true
-
-
-
- ФоновоеЗаданиеСостояние
- 194
- true
- true
-
- true
-
-
- ФоновоеЗаданиеСостояние
-
- None
-
- ФоновоеЗаданиеСостояниеРасширеннаяПодсказка
- 196
- Label
- true
- true
-
- Left
-
-
-
- ФоновоеЗаданиеСостояниеКонтекстноеМеню
- 195
- true
-
- LabelField
- Center
- Enter
- true
- Left
- true
-
- true
- true
+ UsualGroup
+
+ Auto
+ true
+ true
+ Auto
+ Auto
@@ -1488,6 +1625,15 @@
Labeltruetrue
+
+ System.DefaultGUIFont
+ Arial
+ 10.0
+ true
+ false
+ false
+ false
+
LeftCenter
@@ -1949,6 +2095,62 @@
ГруппаПричины315
+
+ НеУдаленныеПодсказка
+ 436
+
+ Style.FieldTextColor
+
+ true
+ true
+
+ true
+
+
+ НеУдаленныеПодсказка
+
+ None
+
+ НеУдаленныеПодсказкаРасширеннаяПодсказка
+ 438
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НеУдаленныеПодсказкаКонтекстноеМеню
+ 437
+ true
+
+ LabelField
+ Left
+ Bottom
+ Enter
+ true
+ Left
+ true
+
+ true
+ 2
+ true
+ false
+
+ Style.FieldTextColor
+
+
+ System.DefaultGUIFont
+ Arial
+ 10.0
+ false
+ false
+ false
+ false
+
+
+ СтраницыВариантовОтображенияПричин255
@@ -2141,7 +2343,7 @@
SortListAscSortListDesc
- ПричиныНеудаленияПредставление
+ СвязиНеУдаленныхПредставление248truetrue
@@ -2152,7 +2354,7 @@
СвязиНеУдаленных.Представление
- ПричиныНеудаленияПредставлениеРасширеннаяПодсказка
+ СвязиНеУдаленныхПредставлениеРасширеннаяПодсказка250Labeltrue
@@ -2162,7 +2364,7 @@
- ПричиныНеудаленияПредставлениеКонтекстноеМеню
+ СвязиНеУдаленныхПредставлениеКонтекстноеМеню249true
@@ -2499,22 +2701,17 @@
ru
- ShowTopГруппаПричиныРасширеннаяПодсказка316Labeltruetrue
- true
- falseStyle.FormTextColorLeft
- Bottom
- 2UsualGroup
@@ -2928,7 +3125,7 @@
RetrySaveValuesYes
- 90
+ 100LockOwnerUsetrue
@@ -3584,6 +3781,58 @@
true
+
+ ПометкаУдаленияМодифицирована
+
+ <key>ru</key>
+ <value>Пометка удаления модифицирована</value>
+
+ 10
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
+
+
+ НеУдаленныеПодсказка
+
+ <key>ru</key>
+ <value>Не удаленные подсказка</value>
+
+ 22
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ Монопольно
+
+ <key>ru</key>
+ <value>Монопольно</value>
+
+ 8
+
+ Boolean
+
+
+ true
+
+
+ true
+ КомандаДалее
diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl
index bc0e55ca5..218624632 100644
--- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl
+++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl
@@ -72,7 +72,7 @@
&НаКлиенте
Процедура ПриЗакрытии()
Если ФоновоеЗаданиеИдентификатор <> Неопределено Тогда
- ФоновоеЗаданиеОтменить(ФоновоеЗаданиеИдентификатор);
+ ФоновоеЗаданиеОтменить(ФоновоеЗаданиеИдентификатор, Монопольно);
ФоновоеЗаданиеИдентификатор = Неопределено;
КонецЕсли;
КонецПроцедуры
@@ -268,7 +268,7 @@
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СвязиНеУдаленных.Имя);
ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
- ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ПричиныНеУдаленияПредставление.Имя);
+ ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СвязиНеУдаленныхПредставление.Имя);
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СвязиНеУдаленных.Видимость");
@@ -344,6 +344,19 @@
ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчика);
ПодключитьОбработчикОжидания("ФоновоеЗаданиеПроверитьНаКлиенте", 1, Истина);
ПараметрыОбработчика.МаксимальныйИнтервал = 5;
+ ИначеЕсли Результат.ОшибкаПриУстановкеМонопольногоРежима Тогда
+ Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ЗавершениеРаботыПользователей") Тогда
+ Оповещение = Новый ОписаниеОповещения("ФоновоеЗаданиеЗапуститьПослеУстановкиМонопольногоРежима", ЭтотОбъект, Действие);
+ ПараметрыФормы = Новый Структура;
+ ПараметрыФормы.Вставить("УдалениеПомеченныхОбъектов", Истина);
+ МодульСоединенияИБКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("СоединенияИБКлиент");
+ МодульСоединенияИБКлиент.ПриОткрытииФормыОшибкиУстановкиМонопольногоРежима(Оповещение, ПараметрыФормы);
+ Иначе
+ СтандартныеПодсистемыКлиентСервер.ВывестиПредупреждение(
+ Результат,
+ НСтр("ru = 'Не удалось запустить удаление помеченных объектов'"),
+ Результат.ТекстОшибкиУстановкиМонопольногоРежима);
+ КонецЕсли;
КонецЕсли;
СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(ЭтотОбъект, Результат);
КонецПроцедуры
@@ -353,43 +366,46 @@
СтрокаДерева = Элементы.НеУдаленные.ТекущиеДанные;
Если СтрокаДерева = Неопределено Или СтрокаДерева.НомерКартинки < 1 Тогда
// Ничего не выбрано или выбрана группа.
- Элементы.СтраницыВариантовОтображенияПричин.ТекущаяСтраница = Элементы.СтраницаВыберитеНеУдаленныйОбъект;
- Элементы.ГруппаПричины.Подсказка = " ";
+ ТекущаяСтраница = Элементы.СтраницаВыберитеНеУдаленныйОбъект;
+ НеУдаленныеПодсказка = " ";
ТекстОшибки = НСтр("ru = 'Выберите объект, чтобы узнать причину,
|по которой его не удалось удалить.'");
- Возврат;
- КонецЕсли;
-
- // Выбрана ссылка не удаленного объекта.
- Скрываемые = СвязиНеУдаленных.НайтиСтроки(Новый Структура("Видимость", Истина));
- Для Каждого СтрокаТаблицы Из Скрываемые Цикл
- СтрокаТаблицы.Видимость = Ложь;
- КонецЦикла;
-
- ТекстОшибки = "";
- ПоказыватьТекстОшибки = Истина;
- Показываемые = СвязиНеУдаленных.НайтиСтроки(Новый Структура("УдаляемыйСсылка", СтрокаДерева.УдаляемыйСсылка));
- Для Каждого СтрокаТаблицы Из Показываемые Цикл
- СтрокаТаблицы.Видимость = Истина;
- Если СтрокаТаблицы.ЭтоОшибка Тогда
- ТекстОшибки = СтрокаТаблицы.ОбнаруженныйСсылка;
- Иначе
- Если ПоказыватьТекстОшибки Тогда
- Элементы.СвязиНеУдаленных.ТекущаяСтрока = СтрокаТаблицы.ПолучитьИдентификатор();
- ПоказыватьТекстОшибки = Ложь;
- КонецЕсли;
- КонецЕсли;
- КонецЦикла;
-
- Если ПоказыватьТекстОшибки Тогда
- Элементы.СтраницыВариантовОтображенияПричин.ТекущаяСтраница = Элементы.СтраницаТекстОшибки;
- Элементы.ГруппаПричины.Подсказка = " ";
Иначе
- Элементы.СтраницыВариантовОтображенияПричин.ТекущаяСтраница = Элементы.СтраницаПричиныНеУдаления;
- Элементы.ГруппаПричины.Подсказка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Места использования объекта ""%1"" (%2):'"),
- СтрокаДерева.Представление,
- Формат(СтрокаДерева.КоличествоСвязей, "ЧН=0; ЧГ="));
+ // Выбрана ссылка не удаленного объекта.
+ Скрываемые = СвязиНеУдаленных.НайтиСтроки(Новый Структура("Видимость", Истина));
+ Для Каждого СтрокаТаблицы Из Скрываемые Цикл
+ СтрокаТаблицы.Видимость = Ложь;
+ КонецЦикла;
+
+ ТекстОшибки = "";
+ ПоказыватьТекстОшибки = Истина;
+ Показываемые = СвязиНеУдаленных.НайтиСтроки(Новый Структура("УдаляемыйСсылка", СтрокаДерева.УдаляемыйСсылка));
+ Для Каждого СтрокаТаблицы Из Показываемые Цикл
+ СтрокаТаблицы.Видимость = Истина;
+ Если СтрокаТаблицы.ЭтоОшибка Тогда
+ ТекстОшибки = СтрокаТаблицы.ОбнаруженныйСсылка;
+ Иначе
+ Если ПоказыватьТекстОшибки Тогда
+ Элементы.СвязиНеУдаленных.ТекущаяСтрока = СтрокаТаблицы.ПолучитьИдентификатор();
+ ПоказыватьТекстОшибки = Ложь;
+ КонецЕсли;
+ КонецЕсли;
+ КонецЦикла;
+
+ Если ПоказыватьТекстОшибки Тогда
+ ТекущаяСтраница = Элементы.СтраницаТекстОшибки;
+ НеУдаленныеПодсказка = " ";
+ Иначе
+ ТекущаяСтраница = Элементы.СтраницаПричиныНеУдаления;
+ НеУдаленныеПодсказка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Места использования объекта ""%1"" (%2):'"),
+ СтрокаДерева.Представление,
+ Формат(СтрокаДерева.КоличествоСвязей, "ЧН=0; ЧГ=")
+ );
+ КонецЕсли;
+ КонецЕсли;
+ Если Элементы.СтраницыВариантовОтображенияПричин.ТекущаяСтраница <> ТекущаяСтраница Тогда
+ Элементы.СтраницыВариантовОтображенияПричин.ТекущаяСтраница = ТекущаяСтраница;
КонецЕсли;
КонецПроцедуры
@@ -686,42 +702,47 @@
&НаСервере
Функция ПомеченныеНаУдалениеСоСтраницыРезультатов()
- ПомеченныеНаУдаление = Новый Массив;
+ Результат = Новый Массив;
ДеревоЗначений = РеквизитФормыВЗначение("НеУдаленные");
Найденные = ДеревоЗначений.Строки.НайтиСтроки(Новый Структура("ПометкаУдаления", Истина), Истина);
Для Каждого СтрокаДерева Из Найденные Цикл
Если ТипЗнч(СтрокаДерева.УдаляемыйСсылка) <> Тип("Строка")
- И ПомеченныеНаУдаление.Найти(СтрокаДерева.УдаляемыйСсылка) = Неопределено Тогда
- ПомеченныеНаУдаление.Добавить(СтрокаДерева.УдаляемыйСсылка);
+ И Результат.Найти(СтрокаДерева.УдаляемыйСсылка) = Неопределено Тогда
+ Результат.Добавить(СтрокаДерева.УдаляемыйСсылка);
КонецЕсли;
КонецЦикла;
ТаблицаЗначений = РеквизитФормыВЗначение("СвязиНеУдаленных");
- Найденные = ТаблицаЗначений.НайтиСтроки(Новый Структура("ПометкаУдаления", Истина));
+ Если РежимУдаления = "Полный" Тогда
+ Фильтр = Новый Структура("ПометкаУдаления", Истина);
+ Иначе
+ Фильтр = Новый Структура("ПометкаУдаления, ПометкаУдаленияМодифицирована", Истина, Истина);
+ КонецЕсли;
+ Найденные = ТаблицаЗначений.НайтиСтроки(Фильтр);
Для Каждого СтрокаДерева Из Найденные Цикл
Если ТипЗнч(СтрокаДерева.ОбнаруженныйСсылка) <> Тип("Строка")
- И ПомеченныеНаУдаление.Найти(СтрокаДерева.ОбнаруженныйСсылка) = Неопределено Тогда
- ПомеченныеНаУдаление.Добавить(СтрокаДерева.ОбнаруженныйСсылка);
+ И Результат.Найти(СтрокаДерева.ОбнаруженныйСсылка) = Неопределено Тогда
+ Результат.Добавить(СтрокаДерева.ОбнаруженныйСсылка);
КонецЕсли;
КонецЦикла;
- Возврат ПомеченныеНаУдаление;
+ Возврат Результат;
КонецФункции
&НаСервере
Функция ПомеченныеНаУдалениеСоСтраницыУстановкиФлажков()
- ПомеченныеНаУдаление = Новый Массив;
+ Результат = Новый Массив;
ДеревоЗначений = РеквизитФормыВЗначение("ДеревоПомеченныхНаУдаление");
Найденные = ДеревоЗначений.Строки.НайтиСтроки(Новый Структура("Пометка", Истина), Истина);
Для Каждого СтрокаДерева Из Найденные Цикл
Если ТипЗнч(СтрокаДерева.Значение) <> Тип("Строка") Тогда
- ПомеченныеНаУдаление.Добавить(СтрокаДерева.Значение);
+ Результат.Добавить(СтрокаДерева.Значение);
КонецЕсли;
КонецЦикла;
- Возврат ПомеченныеНаУдаление;
+ Возврат Результат;
КонецФункции
&НаСервере
@@ -742,23 +763,40 @@
Функция ФоновоеЗаданиеЗапустить(Знач ПараметрыЗадания)
Результат = СтандартныеПодсистемыКлиентСервер.НовыйРезультатВыполнения();
Результат.Вставить("ФоновоеЗаданиеЗапущено", Ложь);
+ Результат.Вставить("ОшибкаПриУстановкеМонопольногоРежима", Ложь);
+ Результат.Вставить("ТекстОшибкиУстановкиМонопольногоРежима", Неопределено);
+
+ Если ПараметрыЗадания.УдалятьПомеченные И Монопольно Тогда
+ ИнформацияОбОшибке = Неопределено;
+ Попытка
+ ОбщегоНазначения.ЗаблокироватьИБ();
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке <> Неопределено Тогда
+ Результат.ОшибкаПриУстановкеМонопольногоРежима = Истина;
+ Результат.ТекстОшибкиУстановкиМонопольногоРежима = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+ Возврат Результат;
+ КонецЕсли;
+ КонецЕсли;
// Запуск фонового задания
Если Не ПараметрыЗадания.ИскатьПомеченные Тогда
Если ПараметрыЗадания.ПрочитатьПомеченныеСоСтраницыРезультатов Тогда
- ПомеченныеНаУдаление = ПомеченныеНаУдалениеСоСтраницыРезультатов();
+ ПользовательскиеОбъекты = ПомеченныеНаУдалениеСоСтраницыРезультатов();
ИначеЕсли ПараметрыЗадания.ПрочитатьПомеченныеСоСтраницыУстановкиФлажков Тогда
- ПомеченныеНаУдаление = ПомеченныеНаУдалениеСоСтраницыУстановкиФлажков();
+ ПользовательскиеОбъекты = ПомеченныеНаУдалениеСоСтраницыУстановкиФлажков();
КонецЕсли;
- Если ПомеченныеНаУдаление.Количество() = 0 Тогда
+ Если ПользовательскиеОбъекты.Количество() = 0 Тогда
Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаУдалениеНеТребуется;
ВидимостьДоступность(ЭтотОбъект);
Возврат Результат;
КонецЕсли;
- ПараметрыЗадания.Вставить("ПомеченныеНаУдаление", ПомеченныеНаУдаление);
+ ПараметрыЗадания.Вставить("ПользовательскиеОбъекты", ПользовательскиеОбъекты);
КонецЕсли;
ПараметрыЗадания.Вставить("ПериодЗаписи", 1); // Секунд
+ ПараметрыЗадания.Вставить("Монопольно", Монопольно);
РезультатФоновогоЗадания = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
УникальныйИдентификатор,
@@ -773,8 +811,8 @@
ФоновоеЗаданиеЗагрузитьРезультат(Результат);
Результат.ФоновоеЗаданиеЗапущено = Ложь;
Иначе
+ ФоновоеЗаданиеПоказатьСтраницуДлительнойОперации(ПараметрыЗадания);
ФоновоеЗаданиеПрочитатьПромежуточныйРезультат(Результат);
- Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаДлительнаяОперация;
Результат.ФоновоеЗаданиеЗапущено = Истина;
КонецЕсли;
ВидимостьДоступность(ЭтотОбъект);
@@ -783,13 +821,16 @@
КонецФункции
&НаСервереБезКонтекста
-Процедура ФоновоеЗаданиеОтменить(ФоновоеЗаданиеИдентификатор)
+Процедура ФоновоеЗаданиеОтменить(Знач ФоновоеЗаданиеИдентификатор, Знач Монопольно)
ДлительныеОперации.ОтменитьВыполнениеЗадания(ФоновоеЗаданиеИдентификатор);
+ Если Монопольно Тогда
+ СнятьМонопольныйРежим();
+ КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ИзменитьПометкуУдаленияОбъектов(МассивСсылок, ПометкаУдаления)
- Результат = СтандартныеПодсистемыКлиентСервер.НовыйРезультатВыполнения();
+ Результат = Новый Структура;
Количество = МассивСсылок.Количество();
Для Номер = 1 По Количество Цикл
ОбратныйИндекс = Количество - Номер;
@@ -808,7 +849,6 @@
ТаблицаЗначений = РеквизитФормыВЗначение("СвязиНеУдаленных");
Для Каждого Ссылка Из МассивСсылок Цикл
-
Найденные = ДеревоЗначений.Строки.НайтиСтроки(Новый Структура("УдаляемыйСсылка", Ссылка), Истина);
Для Каждого СтрокаДерева Из Найденные Цикл
Если СтрокаДерева.ПометкаУдаления = ПометкаУдаления Тогда
@@ -825,31 +865,36 @@
КонецЕсли;
СтрокаТаблицы.ПометкаУдаления = ПометкаУдаления;
СтрокаТаблицы.НомерКартинки = СтрокаТаблицы.НомерКартинки + ?(ПометкаУдаления, 1, -1);
+ СтрокаТаблицы.ПометкаУдаленияМодифицирована = Истина;
КонецЦикла;
-
КонецЦикла;
ЗагрузитьКоллекцию("НеУдаленные", ДеревоЗначений, "УдаляемыйСсылка");
ЗагрузитьКоллекцию("СвязиНеУдаленных", ТаблицаЗначений, "УдаляемыйСсылка, ОбнаруженныйСсылка");
СтандартныеПодсистемыКлиентСервер.РазвернутьУзлыДерева(Результат, "НеУдаленные", "*", Истина);
-
КонецЕсли;
- СтандартныеПодсистемыКлиентСервер.ПодготовитьОповещениеДинамическихСписков(МассивСсылок, Результат);
- Результат.ВыводОповещения.Использование = Истина;
- Если ПометкаУдаления Тогда
- Результат.ВыводОповещения.Заголовок = НСтр("ru = 'Пометка удаления установлена'");
- Иначе
- Результат.ВыводОповещения.Заголовок = НСтр("ru = 'Пометка удаления снята'");
- КонецЕсли;
+ СтандартныеПодсистемыКлиентСервер.ОповеститьДинамическиеСписки(Результат, МассивСсылок);
+
+ ОповещениеТекст = Неопределено;
+ ОповещениеСсылка = Неопределено;
Если КоличествоОбъектов = 0 Тогда
- Результат.ВыводОповещения.Заголовок = НСтр("ru = 'Объект не найден'");
- ИначеЕсли КоличествоОбъектов = 1 Тогда
- Результат.ВыводОповещения.Ссылка = МассивСсылок[0];
- Результат.ВыводОповещения.Текст = Строка(Результат.ВыводОповещения.Ссылка);
+ ОповещениеЗаголовок = НСтр("ru = 'Объект не найден'");
Иначе
- Результат.ВыводОповещения.Заголовок = Результат.ВыводОповещения.Заголовок + " (" + Формат(КоличествоОбъектов, "ЧН=0; ЧГ=") + ")";
+ Если ПометкаУдаления Тогда
+ ОповещениеЗаголовок = НСтр("ru = 'Пометка удаления установлена'");
+ Иначе
+ ОповещениеЗаголовок = НСтр("ru = 'Пометка удаления снята'");
+ КонецЕсли;
+ Если КоличествоОбъектов = 1 Тогда
+ ОповещениеСсылка = МассивСсылок[0];
+ ОповещениеТекст = Строка(ОповещениеСсылка);
+ Иначе
+ ОповещениеЗаголовок = ОповещениеЗаголовок + " (" + Формат(КоличествоОбъектов, "ЧН=0; ЧГ=") + ")";
+ КонецЕсли;
КонецЕсли;
+ СтандартныеПодсистемыКлиентСервер.ВывестиОповещение(Результат, ОповещениеЗаголовок, ОповещениеТекст, , ОповещениеСсылка);
+
Возврат Результат;
КонецФункции
@@ -962,28 +1007,51 @@
Возврат Найденные;
КонецФункции
+&НаСервереБезКонтекста
+Процедура СнятьМонопольныйРежим()
+ ОбщегоНазначения.РазблокироватьИБ();
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ФоновоеЗаданиеЗапуститьПослеУстановкиМонопольногоРежима(Результат, ДополнительныеПараметры) Экспорт
+ Если Результат = Ложь Тогда // Монопольный режим был установлен.
+ ФоновоеЗаданиеЗапуститьНаКлиенте(ДополнительныеПараметры);
+ КонецЕсли;
+КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Сервер
&НаСервере
Процедура ПриСозданииНаСервереУстановитьТекстПоясненияКОбработке()
- КоличествоСоединений = 0;
- НомерЭтогоСеанса = НомерСеансаИнформационнойБазы();
- Для Каждого СеансИнформационнойБазы Из ПолучитьСеансыИнформационнойБазы() Цикл
- Если СеансИнформационнойБазы.НомерСеанса = НомерЭтогоСеанса Тогда
- Продолжить;
- КонецЕсли;
- Если СеансИнформационнойБазы.ИмяПриложения = "1CV8" // Толстый клиент.
- Или СеансИнформационнойБазы.ИмяПриложения = "1CV8C" // Тонкий клиент.
- Или СеансИнформационнойБазы.ИмяПриложения = "WebClient" // Веб-клиент.
- Тогда
- КоличествоСоединений = КоличествоСоединений + 1;
- КонецЕсли;
- КонецЦикла;
+ Если СтандартныеПодсистемыСервер.ЭтоБазоваяВерсияКонфигурации() Тогда
+ КоличествоСоединений = 0;
+ ВыводитьПодпись = Ложь;
+ ВыводитьКоличество = Ложь;
+ ИначеЕсли ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
+ КоличествоСоединений = 0;
+ НомерЭтогоСеанса = НомерСеансаИнформационнойБазы();
+ Для Каждого СеансИнформационнойБазы Из ПолучитьСеансыИнформационнойБазы() Цикл
+ Если СеансИнформационнойБазы.НомерСеанса = НомерЭтогоСеанса Тогда
+ Продолжить;
+ КонецЕсли;
+ Если СеансИнформационнойБазы.ИмяПриложения = "1CV8" // Толстый клиент.
+ Или СеансИнформационнойБазы.ИмяПриложения = "1CV8C" // Тонкий клиент.
+ Или СеансИнформационнойБазы.ИмяПриложения = "WebClient" // Веб-клиент.
+ Тогда
+ КоличествоСоединений = КоличествоСоединений + 1;
+ КонецЕсли;
+ КонецЦикла;
+ ВыводитьПодпись = (КоличествоСоединений > 0);
+ ВыводитьКоличество = Истина;
+ Иначе
+ КоличествоСоединений = 0;
+ ВыводитьПодпись = Истина;
+ ВыводитьКоличество = Ложь;
+ КонецЕсли;
ШаблонЗаголовка = Элементы.ПояснениеКОбработке.Заголовок;
- Если КоличествоСоединений = 0 Тогда
+ Если Не ВыводитьПодпись Тогда
Элементы.ПояснениеКОбработке.Заголовок = Лев(ШаблонЗаголовка, Найти(ШаблонЗаголовка, "<1/>") - 1);
КлючСохраненияПоложенияОкна = "1";
Иначе
@@ -1004,7 +1072,9 @@
Позиция = Найти(ОпределениеСсылки, """");
АдресСсылки = Лев(ОпределениеСсылки, Позиция - 1);
ТекстСсылки = Сред(ОпределениеСсылки, Позиция + 2);
- ТекстСсылки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСсылки, Формат(КоличествоСоединений, "ЧГ="));
+ Если ВыводитьКоличество Тогда
+ ТекстСсылки = ТекстСсылки + " (" + Формат(КоличествоСоединений, "ЧГ=") + ")";
+ КонецЕсли;
МассивСтрок.Добавить(Новый ФорматированнаяСтрока(ТекстСсылки, , , , АдресСсылки));
МассивСтрок.Добавить(Остаток);
@@ -1014,6 +1084,26 @@
КонецЕсли;
КонецПроцедуры
+&НаСервере
+Процедура ФоновоеЗаданиеПоказатьСтраницуДлительнойОперации(ПараметрыЗадания)
+ ПредставлениеРежима = Элементы.РежимУдаления.СписокВыбора.НайтиПоЗначению(РежимУдаления).Представление;
+
+ ПоказыватьБублик = ПараметрыЗадания.УдалятьПомеченные И Монопольно;
+ Элементы.ФоновоеЗаданиеАнимация.Видимость = ПоказыватьБублик;
+ Элементы.ФоновоеЗаданиеПроцент.Видимость = Не ПоказыватьБублик;
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаДлительнаяОперация;
+ Если ПоказыватьБублик Тогда
+ Элементы.НадписьДлительнаяОперация.Заголовок = НСтр("ru = 'Пожалуйста, подождите...'");
+ Элементы.ФоновоеЗаданиеСостояние.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
+ ИначеЕсли ПараметрыЗадания.УдалятьПомеченные Тогда
+ Элементы.НадписьДлительнаяОперация.Заголовок = НСтр("ru = 'Удаляются объекты, помеченные на удаление...'");
+ Элементы.ФоновоеЗаданиеСостояние.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Центр;
+ Иначе
+ Элементы.НадписьДлительнаяОперация.Заголовок = НСтр("ru = 'Поиск объектов, помеченных на удаление...'");
+ Элементы.ФоновоеЗаданиеСостояние.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Центр;
+ КонецЕсли;
+КонецПроцедуры
+
&НаСервере
Процедура ФоновоеЗаданиеПрочитатьПромежуточныйРезультат(Результат)
Прогресс = ДлительныеОперации.ПрочитатьПрогресс(ФоновоеЗаданиеИдентификатор);
@@ -1025,6 +1115,10 @@
&НаСервере
Процедура ФоновоеЗаданиеЗагрузитьРезультат(Результат)
+ Если Монопольно Тогда
+ СнятьМонопольныйРежим();
+ КонецЕсли;
+
// Получение результата.
РезультатВыполненияВФоне = ПолучитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища);
Если РезультатВыполненияВФоне = Неопределено Тогда
@@ -1034,7 +1128,7 @@
Если РезультатВыполненияВФоне.УдалятьПомеченные Тогда
// Подготовка оповещения для динамических списков.
- СтандартныеПодсистемыКлиентСервер.ПодготовитьОповещениеДинамическихСписков(РезультатВыполненияВФоне.Удаленные, Результат);
+ СтандартныеПодсистемыКлиентСервер.ОповеститьДинамическиеСписки(Результат, РезультатВыполненияВФоне.Удаленные);
УдаленныеКоличество = РезультатВыполненияВФоне.Удаленные.Количество();
НеУдаленныеКоличество = РезультатВыполненияВФоне.НеУдаленные.Количество();
@@ -1094,18 +1188,19 @@
КонецЕсли;
Если ОповещениеТекст <> Неопределено Тогда
- Результат.ВыводОповещения.Использование = Истина;
- Результат.ВыводОповещения.Заголовок = НСтр("ru = 'Удаление помеченных'");
- Результат.ВыводОповещения.Текст = ОповещениеТекст;
- Результат.ВыводОповещения.Ссылка = НавигационнаяСсылка;
- Результат.ВыводОповещения.Картинка = ОповещениеКартинка;
+ СтандартныеПодсистемыКлиентСервер.ВывестиОповещение(
+ Результат,
+ НСтр("ru = 'Удаление помеченных'"),
+ ОповещениеТекст,
+ ОповещениеКартинка,
+ НавигационнаяСсылка);
КонецЕсли;
Иначе
// Заполнение дерева помеченных на удаление.
- ПомеченныеНаУдаление = ПомеченныеНаУдалениеСоСтраницыРезультатов();
- ПометкиУстанавливаютсяВыборочно = (ПомеченныеНаУдаление.Количество() > 0);
+ Отмеченные = ПомеченныеНаУдалениеСоСтраницыРезультатов();
+ ПометкиУстанавливаютсяВыборочно = (Отмеченные.Количество() > 0);
ОбработкаМенеджер = Обработки.УдалениеПомеченныхОбъектов;
@@ -1115,8 +1210,8 @@
УзлыПервогоУровня = Новый Соответствие;
- ПомеченныеНаУдаление = РезультатВыполненияВФоне.ПомеченныеНаУдаление;
- Для Каждого УдаляемыйСсылка Из ПомеченныеНаУдаление Цикл
+ ПользовательскиеОбъекты = РезультатВыполненияВФоне.ПользовательскиеОбъекты;
+ Для Каждого УдаляемыйСсылка Из ПользовательскиеОбъекты Цикл
ТипУдаляемого = ТипЗнч(УдаляемыйСсылка);
УдаляемыйИнформация = ОбработкаМенеджер.СформироватьИнформациюОТипах(РезультатВыполненияВФоне, ТипУдаляемого);
@@ -1139,7 +1234,7 @@
УзелУдаляемого.Пометка = Истина;
УзелУдаляемого.НомерКартинки = НомерКартинки(УдаляемыйСсылка, Истина, УдаляемыйИнформация.Вид, Истина);
- Если ПометкиУстанавливаютсяВыборочно И ПомеченныеНаУдаление.Найти(УдаляемыйСсылка) = Неопределено Тогда
+ Если ПометкиУстанавливаютсяВыборочно И Отмеченные.Найти(УдаляемыйСсылка) = Неопределено Тогда
УзелУдаляемого.Пометка = Ложь;
УзелТипа.Пометка = Ложь;
КонецЕсли;
diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Help/ru.html b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Help/ru.html
index 121527266..d38d1c88c 100644
--- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Help/ru.html
+++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначена для окончательного удаления помеченных объектов.
В процессе работы с программой можно помечать на удаление объекты (например, ошибочно введенные). Помеченные на удаление объекты могут быть безвозвратно удалены пользователем с административными правами.
Команда Удаление помеченных объектов находится в разделе Администрирование - Поддержка и обслуживание.
diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl
index 107a794b8..fd3214ec0 100644
--- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl
+++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl
@@ -13,7 +13,7 @@
//
Процедура УдалитьПомеченныеОбъектыИнтерактивно(ПараметрыВыполнения, АдресХранилища) Экспорт
УдалитьПомеченныеОбъекты(ПараметрыВыполнения);
- ПоместитьВоВременноеХранилище(ПараметрыВыполнения, АдресХранилища);
+ ПоместитьВоВременноеХранилище(ИзвлечьРезультат(ПараметрыВыполнения), АдресХранилища);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
@@ -28,7 +28,7 @@
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
-// Общая механика
+// Инициализация и запуск.
// Основная механика удаления помеченных объектов.
Процедура УдалитьПомеченныеОбъекты(ПараметрыВыполнения)
@@ -39,7 +39,7 @@
ИнициализироватьПараметры(ПараметрыВыполнения);
- Если ПараметрыВыполнения.ПомеченныеНаУдаление = Неопределено Тогда
+ Если ПараметрыВыполнения.ИскатьПомеченные Тогда
ПолучитьПомеченныеНаУдаление(ПараметрыВыполнения);
КонецЕсли;
@@ -48,27 +48,45 @@
КонецЕсли;
Если ПараметрыВыполнения.Интерактивное
- И ПараметрыВыполнения.ПомеченныеНаУдаление.Количество() = 0 Тогда
+ И ПараметрыВыполнения.ВсеПомеченныеНаУдаление.Количество() = 0 Тогда
Возврат; // Не удалять технологические объекты при интерактивном запуске если нет пользовательских объектов.
КонецЕсли;
+ Если ПараметрыВыполнения.Монопольно Тогда
+ УдалитьПомеченныеОбъектыМонопольно(ПараметрыВыполнения);
+ Иначе // Не монопольно.
+ УдалитьПомеченныеОбъектыКонкурентно(ПараметрыВыполнения);
+ КонецЕсли;
+
+ Обработчики = ОбщегоНазначения.ОбработчикиСлужебногоСобытия("СтандартныеПодсистемы.УдалениеПомеченныхОбъектов\ПослеУдаленияПомеченных");
+ Для Каждого Обработчик Из Обработчики Цикл
+ Обработчик.Модуль.ПослеУдаленияПомеченных(ПараметрыВыполнения);
+ КонецЦикла;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// Конкурентное удаление помеченных.
+
+// Основная механика.
+Процедура УдалитьПомеченныеОбъектыКонкурентно(ПараметрыВыполнения)
УстановитьПривилегированныйРежим(Истина);
// Удаление технологических объектов (которые создавались и помечались на удаление без участия пользователя).
Если ПараметрыВыполнения.ТехнологическиеОбъекты <> Неопределено Тогда
КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ТехнологическиеОбъекты");
Для Каждого Ссылка Из ПараметрыВыполнения.ТехнологическиеОбъекты Цикл
- УдалитьСсылку(ПараметрыВыполнения, Ссылка);
+ УдалитьСсылку(ПараметрыВыполнения, Ссылка); // Для технологических объектов результат не выводится.
КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, "ТехнологическиеОбъекты");
КонецЦикла;
КонецЕсли;
// Удаление помеченных на удаление.
- КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ПомеченныеНаУдаление");
- Для Каждого Ссылка Из ПараметрыВыполнения.ПомеченныеНаУдаление Цикл
+ КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ПользовательскиеОбъекты");
+ Для Каждого Ссылка Из ПараметрыВыполнения.ПользовательскиеОбъекты Цикл
Результат = УдалитьСсылку(ПараметрыВыполнения, Ссылка);
- ЗарегистрироватьРезультатУдаления(ПараметрыВыполнения, Ссылка, Результат, "ПомеченныеНаУдаление");
- КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, "ПомеченныеНаУдаление");
+ ЗарегистрироватьРезультатУдаления(ПараметрыВыполнения, Ссылка, Результат, "ПользовательскиеОбъекты");
+ КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, "ПользовательскиеОбъекты");
КонецЦикла;
// Удаление цепочек (линейно связанных объектов).
@@ -86,12 +104,6 @@
// Удаление циклов (кольцевых связей объектов).
УдалитьОставшиесяОбъектыВОднойТранзакции(ПараметрыВыполнения);
- // Подключаемые обработчики подсистем БСП.
- Обработчики = ОбщегоНазначения.ОбработчикиСлужебногоСобытия("СтандартныеПодсистемы.УдалениеПомеченныхОбъектов\ПослеУдаленияПомеченных");
- Для Каждого Обработчик Из Обработчики Цикл
- Обработчик.Модуль.ПослеУдаленияПомеченных(ПараметрыВыполнения);
- КонецЦикла;
-
КонецПроцедуры
// Удаление одиночного объекта с контролем результата и откатом транзакции в случае неудачи.
@@ -406,144 +418,239 @@
Причина.УдаляемыйТип = ТипЗнч(Причина.УдаляемыйСсылка);
Причина.ОбнаруженныйСсылка = ТекстОшибки;
Причина.ОбнаруженныйТип = Тип("Строка");
-
СформироватьИнформациюОТипах(ПараметрыВыполнения, Причина.УдаляемыйТип);
- Иначе // Регистрация препятствующих удалению.
+ Иначе // Регистрация связей (причин не удаления) для вывода пользователю.
Для Каждого СтрокаТаблицы Из Результат.ПрепятствующиеУдалению Цикл
- // Регистрация причины неудаления.
- Причина = ПараметрыВыполнения.ПрепятствующиеУдалению.Добавить();
- ЗаполнитьЗначенияСвойств(Причина, СтрокаТаблицы);
- Причина.УдаляемыйТип = ТипЗнч(Причина.УдаляемыйСсылка);
- Причина.ОбнаруженныйТип = ТипЗнч(Причина.ОбнаруженныйСсылка);
-
- Если СтрокаТаблицы.ОбнаруженныйСсылка = Неопределено Тогда
- Если Метаданные.Константы.Содержит(СтрокаТаблицы.ОбнаруженныйМетаданные) Тогда
- Причина.ОбнаруженныйТип = Тип("КонстантаМенеджерЗначения." + СтрокаТаблицы.ОбнаруженныйМетаданные.Имя);
- Иначе
- Причина.ОбнаруженныйСсылка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Обнаружены неразрешимые ссылки (%1)'"),
- СтрокаТаблицы.ОбнаруженныйМетаданные.Представление());
- Причина.ОбнаруженныйТип = Тип("Строка");
- Продолжить;
- КонецЕсли;
- КонецЕсли;
-
- // Регистрация информации об объектах метаданных (если требуется).
- СформироватьИнформациюОТипах(ПараметрыВыполнения, Причина.УдаляемыйТип);
- ОбнаруженныйИнформация = СформироватьИнформациюОТипах(ПараметрыВыполнения, Причина.ОбнаруженныйТип);
-
- // Заполнение подчиненных полей.
- Если ОбнаруженныйИнформация.Ссылочный Тогда
- Причина.ОбнаруженныйПометкаУдаления = Причина.ОбнаруженныйСсылка.ПометкаУдаления;
- Иначе
- Причина.ОбнаруженныйПометкаУдаления = Ложь;
- КонецЕсли;
+ ЗаписатьПричинуВРезультат(ПараметрыВыполнения, СтрокаТаблицы);
КонецЦикла;
КонецЕсли;
+
КонецЕсли; // Результат.Успех.
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
-// Передача информации на клиент.
+// Монопольное удаление помеченных.
-Процедура КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, ИмяКоллекции)
- Если Не ПараметрыВыполнения.Интерактивное Тогда
- Возврат;
+// Основная механика удаления помеченных объектов.
+Процедура УдалитьПомеченныеОбъектыМонопольно(ПараметрыВыполнения)
+
+ Если Не ПараметрыВыполнения.Свойство("ИсключенияПоискаСсылок") Тогда
+ ПараметрыВыполнения.Вставить("ИсключенияПоискаСсылок", ОбщегоНазначения.ПолучитьОбщийСписокИсключенийПоискаСсылок());
КонецЕсли;
- ПараметрыВыполнения.ДостигнутыйПроцент = ПараметрыВыполнения.ДостигнутыйПроцент + ПараметрыВыполнения.Диапазон;
- ПараметрыВыполнения.Диапазон = ПараметрыВыполнения.Диапазоны[ИмяКоллекции];
- Коллекция = Неопределено;
- Если ПараметрыВыполнения.Свойство(ИмяКоллекции, Коллекция) Тогда
- ПараметрыВыполнения.Всего = Коллекция.Количество();
- ПараметрыВыполнения.Номер = 0;
- Иначе
- ПараметрыВыполнения.Всего = 1;
- ПараметрыВыполнения.Номер = 0;
- КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции);
- КонецЕсли;
-КонецПроцедуры
-
-Процедура КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции)
- Если Не ПараметрыВыполнения.Интерактивное Тогда
- Возврат;
+ Если Не ПараметрыВыполнения.Свойство("ИсключающиеПравила") Тогда
+ ПараметрыВыполнения.Вставить("ИсключающиеПравила", Новый Соответствие); // Кэш правил исключений поиска.
КонецЕсли;
- // Регистрация прогресса.
- ПараметрыВыполнения.Номер = ПараметрыВыполнения.Номер + 1;
+ УдаляемыеОбъекты = ПараметрыВыполнения.ВсеПомеченныеНаУдаление;
- // Проверка что подошло время передачи информации на клиент.
- Если ТекущаяДатаСеанса() >= ПараметрыВыполнения.Время Тогда
- // Установка следующего времени передачи информации на клиент.
- ПараметрыВыполнения.Время = ПараметрыВыполнения.Время + ПараметрыВыполнения.ПериодЗаписи;
- ИначеЕсли ПараметрыВыполнения.Номер = ПараметрыВыполнения.Всего Тогда
- // Вывод последнего.
- Иначе
- Возврат;
- КонецЕсли;
-
- Процент = ПараметрыВыполнения.ДостигнутыйПроцент
- + ПараметрыВыполнения.Диапазон*ПараметрыВыполнения.Номер/ПараметрыВыполнения.Всего;
-
- // Подготовка передаваемых параметров.
- Если ИмяКоллекции = "ПередПоискомПомеченныхНаУдаление" Тогда
+ Пока УдаляемыеОбъекты.Количество() > 0 Цикл
- Текст = НСтр("ru = 'Подготовка к поиску объектов, помеченных на удаление.'");
+ КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "МонопольноеУдаление");
- ИначеЕсли ИмяКоллекции = "НайтиПомеченныеНаУдаление" Тогда
+ ПрепятствующиеУдалению = Новый ТаблицаЗначений;
- Текст = НСтр("ru = 'Поиск объектов, помеченных на удаление.'");
+ // Попытка удалить с контролем ссылочной целостности.
+ Попытка
+ УстановитьПривилегированныйРежим(Истина);
+ УдалитьОбъекты(УдаляемыеОбъекты, Истина, ПрепятствующиеУдалению);
+ УстановитьПривилегированныйРежим(Ложь);
+ Исключение
+ ЗаписатьПредупреждение(Неопределено, ИнформацияОбОшибке());
+ КонецПопытки;
- ИначеЕсли ИмяКоллекции = "ВсеПомеченныеНаУдаление" Тогда
+ // Назначение имен колонок для таблицы конфликтов, возникших при удалении.
+ ПрепятствующиеУдалению.Колонки[0].Имя = "УдаляемыйСсылка";
+ ПрепятствующиеУдалению.Колонки[1].Имя = "ОбнаруженныйСсылка";
+ ПрепятствующиеУдалению.Колонки[2].Имя = "ОбнаруженныйМетаданные";
- Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Анализ помеченных на удаление объектов: %1 из %2.'"),
- Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
- Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="));
+ ВсеСвязиВИсключениях = Истина;
- ИначеЕсли ИмяКоллекции = "ТехнологическиеОбъекты" Тогда
+ // Анализ причин не удаления (мест использования помеченных на удаление).
+ КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ПрепятствующиеУдалению", ПрепятствующиеУдалению);
+ Для Каждого СтрокаТаблицы Из ПрепятствующиеУдалению Цикл
+ КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, "ПрепятствующиеУдалению");
+
+ // Проверка исключающих правил.
+ Если СвязьВИсключенияхПоискаСсылок(ПараметрыВыполнения, СтрокаТаблицы) Тогда
+ Продолжить; // Связь не препятствует удалению.
+ КонецЕсли;
+
+ // Невозможно удалить объект (мешает обнаруженная ссылка или запись регистра).
+ ВсеСвязиВИсключениях = Ложь;
+
+ // Сокращение удаляемых объектов.
+ Индекс = УдаляемыеОбъекты.Найти(СтрокаТаблицы.УдаляемыйСсылка);
+ Если Индекс <> Неопределено Тогда
+ УдаляемыеОбъекты.Удалить(Индекс);
+ КонецЕсли;
+
+ // Регистрация связи для вывода пользователю.
+ ЗаписатьПричинуВРезультат(ПараметрыВыполнения, СтрокаТаблицы);
+ КонецЦикла;
- Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Подготовка к удалению (%1 из %2).'"),
- Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
- Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="));
-
- ИначеЕсли ИмяКоллекции = "ПомеченныеНаУдаление" Тогда
-
- НеУдалено = ПараметрыВыполнения.НеУдаленные.Количество();
- Если НеУдалено = 0 Тогда
- Шаблон = НСтр("ru = 'Удалено: %1 из %2 объектов.'");
- Иначе
- Шаблон = НСтр("ru = 'Обработано: %1 из %2 объектов, из них не удалено: %3.'");
+ // Удаление без контроля, если все связи в исключениях поиска ссылок.
+ Если ВсеСвязиВИсключениях Тогда
+ Попытка
+ УстановитьПривилегированныйРежим(Истина);
+ УдалитьОбъекты(УдаляемыеОбъекты, Ложь);
+ УстановитьПривилегированныйРежим(Ложь);
+ Исключение
+ ЗаписатьПредупреждение(Неопределено, ИнформацияОбОшибке());
+ КонецПопытки;
+ Прервать; // Выход из цикла.
КонецЕсли;
- Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- Шаблон,
- Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
- Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="),
- Формат(НеУдалено, "ЧН=0; ЧГ="));
+ КонецЦикла;
+
+ ПараметрыВыполнения.Вставить("Удаленные", УдаляемыеОбъекты);
+ ПараметрыВыполнения.Удалить("ИсключенияПоискаСсылок");
+ ПараметрыВыполнения.Удалить("ИсключающиеПравила");
+
+КонецПроцедуры
+
+// Проверяет что связь в исключениях.
+Функция СвязьВИсключенияхПоискаСсылок(ПараметрыВыполнения, СтрокаТаблицы)
+ // Определение исключающего правила для объекта метаданных, препятствующего удалению:
+ // Для регистров (т.н. "необъектных таблиц") - массива реквизитов для поиска в записи регистра.
+ // Для ссылочных типов (т.н. "объектных таблиц") - готового запроса для поиска в реквизитах.
+ Правило = ПараметрыВыполнения.ИсключающиеПравила[СтрокаТаблицы.ОбнаруженныйМетаданные]; // Кэш.
+ Если Правило = Неопределено Тогда
+ Правило = СформироватьИсключающееПравило(ПараметрыВыполнения, СтрокаТаблицы);
+ ПараметрыВыполнения.ИсключающиеПравила.Вставить(СтрокаТаблицы.ОбнаруженныйМетаданные, Правило);
+ КонецЕсли;
+
+ // Проверка исключающего правила.
+ Если Правило = "*" Тогда
+ Возврат Истина; // Можно удалять (обнаруженный объект метаданных не мешает).
+ ИначеЕсли ТипЗнч(Правило) = Тип("Массив") Тогда // Имена измерений регистра.
+ Для Каждого ИмяРеквизита Из Правило Цикл
+ Если СтрокаТаблицы.ОбнаруженныйСсылка[ИмяРеквизита] = СтрокаТаблицы.УдаляемыйСсылка Тогда
+ Возврат Истина; // Можно удалять (обнаруженная запись регистра не мешает).
+ КонецЕсли;
+ КонецЦикла;
+ ИначеЕсли ТипЗнч(Правило) = Тип("Запрос") Тогда // Запрос к ссылочному объекту.
+ Правило.УстановитьПараметр("УдаляемыйСсылка", СтрокаТаблицы.УдаляемыйСсылка);
+ Правило.УстановитьПараметр("ОбнаруженныйСсылка", СтрокаТаблицы.ОбнаруженныйСсылка);
+ Если НЕ Правило.Выполнить().Пустой() Тогда
+ Возврат Истина; // Можно удалять (обнаруженная ссылка не мешает).
+ КонецЕсли;
+ КонецЕсли;
+
+ Возврат Ложь;
+КонецФункции
+
+// Компонует правило оптимально для проверки.
+Функция СформироватьИсключающееПравило(ПараметрыВыполнения, СтрокаТаблицы)
+ ИсключениеПоиска = ПараметрыВыполнения.ИсключенияПоискаСсылок[СтрокаТаблицы.ОбнаруженныйМетаданные];
+ Если ИсключениеПоиска = "*" Тогда
+ Возврат "*"; // Можно удалять (обнаруженный объект метаданных не мешает).
+ КонецЕсли;
+
+ // Формирование исключающего правила.
+ ЭтоРегистрСведений = Метаданные.РегистрыСведений.Содержит(СтрокаТаблицы.ОбнаруженныйМетаданные);
+ Если ЭтоРегистрСведений
+ Или Метаданные.РегистрыБухгалтерии.Содержит(СтрокаТаблицы.ОбнаруженныйМетаданные) // ЭтоРегистрБухгалтерии
+ Или Метаданные.РегистрыНакопления.Содержит(СтрокаТаблицы.ОбнаруженныйМетаданные) Тогда // ЭтоРегистрНакопления
- ИначеЕсли ИмяКоллекции = "ПовторноУдаляемые" Тогда
+ Правило = Новый Массив;
+ Если ЭтоРегистрСведений Тогда
+ Для Каждого Измерение Из СтрокаТаблицы.ОбнаруженныйМетаданные.Измерения Цикл
+ Если Измерение.Ведущее Тогда
+ Правило.Добавить(Измерение.Имя);
+ КонецЕсли;
+ КонецЦикла;
+ Иначе
+ Для Каждого Измерение Из СтрокаТаблицы.ОбнаруженныйМетаданные.Измерения Цикл
+ Правило.Добавить(Измерение.Имя);
+ КонецЦикла;
+ КонецЕсли;
- Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Повторная проверка не удаленных объектов: %1 из %2.'"),
- Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
- Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="));
+ Если ТипЗнч(ИсключениеПоиска) = Тип("Массив") Тогда
+ Для Каждого ИмяРеквизита Из ИсключениеПоиска Цикл
+ Если Правило.Найти(ИмяРеквизита) = Неопределено Тогда
+ Правило.Добавить(ИмяРеквизита);
+ КонецЕсли;
+ КонецЦикла;
+ КонецЕсли;
+
+ ИначеЕсли ТипЗнч(ИсключениеПоиска) = Тип("Массив") Тогда
+
+ ТекстыЗапросов = Новый Соответствие;
+ ИмяКорневойТаблицы = СтрокаТаблицы.ОбнаруженныйМетаданные.ПолноеИмя();
+
+ Для Каждого ПутьКРеквизиту Из ИсключениеПоиска Цикл
+ ПозицияТочки = Найти(ПутьКРеквизиту, ".");
+ Если ПозицияТочки = 0 Тогда
+ ПолноеИмяТаблицы = ИмяКорневойТаблицы;
+ ИмяРеквизита = ПутьКРеквизиту;
+ Иначе
+ ПолноеИмяТаблицы = ИмяКорневойТаблицы + "." + Лев(ПутьКРеквизиту, ПозицияТочки - 1);
+ ИмяРеквизита = Сред(ПутьКРеквизиту, ПозицияТочки + 1);
+ КонецЕсли;
+
+ ТекстВложенногоЗапроса = ТекстыЗапросов.Получить(ПолноеИмяТаблицы);
+ Если ТекстВложенногоЗапроса = Неопределено Тогда
+ ТекстВложенногоЗапроса =
+ "ВЫБРАТЬ ПЕРВЫЕ 1
+ | 1
+ |ИЗ
+ | "+ ПолноеИмяТаблицы +" КАК Таблица
+ |ГДЕ
+ | Таблица.Ссылка = &ОбнаруженныйСсылка
+ | И (";
+ Иначе
+ ТекстВложенногоЗапроса = ТекстВложенногоЗапроса + Символы.ПС + Символы.Таб + Символы.Таб + "ИЛИ ";
+ КонецЕсли;
+ ТекстВложенногоЗапроса = ТекстВложенногоЗапроса + "Таблица." + ИмяРеквизита + " = &УдаляемыйСсылка";
+
+ ТекстыЗапросов.Вставить(ПолноеИмяТаблицы, ТекстВложенногоЗапроса);
+ КонецЦикла;
+
+ ТекстЗапроса = "";
+ Для Каждого КлючИЗначение Из ТекстыЗапросов Цикл
+ Если ТекстЗапроса <> "" Тогда
+ ТекстЗапроса = ТекстЗапроса + Символы.ПС + Символы.ПС + "ОБЪЕДИНИТЬ ВСЕ" + Символы.ПС + Символы.ПС;
+ КонецЕсли;
+ ТекстЗапроса = ТекстЗапроса + КлючИЗначение.Значение + ")";
+ КонецЦикла;
+
+ Правило = Новый Запрос;
+ Правило.Текст = ТекстЗапроса;
Иначе
- Возврат;
+ Правило = "";
КонецЕсли;
- // Регистрация сообщения для чтения из клиентского сеанса.
- ДлительныеОперации.СообщитьПрогресс(Процент, Текст);
-КонецПроцедуры
+ Возврат Правило;
+КонецФункции
////////////////////////////////////////////////////////////////////////////////
-// Служебные методы
+// Общая механика.
// Инициализирует структуру параметров, необходимых для выполнения других служебных методов.
Процедура ИнициализироватьПараметры(ПараметрыВыполнения) Экспорт
// Определение параметров работы программы.
+ Если Не ПараметрыВыполнения.Свойство("ИскатьПомеченные") Тогда
+ ПараметрыВыполнения.Вставить("ИскатьПомеченные", Истина);
+ КонецЕсли;
+ Если Не ПараметрыВыполнения.Свойство("УдалятьПомеченные") Тогда
+ ПараметрыВыполнения.Вставить("УдалятьПомеченные", Истина);
+ КонецЕсли;
+ Если Не ПараметрыВыполнения.Свойство("Монопольно") Тогда
+ ПараметрыВыполнения.Вставить("Монопольно", Ложь);
+ КонецЕсли;
+ Если Не ПараметрыВыполнения.Свойство("ТехнологическиеОбъекты") Тогда
+ ПараметрыВыполнения.Вставить("ТехнологическиеОбъекты", Новый Массив);
+ КонецЕсли;
+ Если Не ПараметрыВыполнения.Свойство("ПользовательскиеОбъекты") Тогда
+ ПараметрыВыполнения.Вставить("ПользовательскиеОбъекты", Новый Массив);
+ КонецЕсли;
+ Если Не ПараметрыВыполнения.Свойство("ВсеПомеченныеНаУдаление") Тогда
+ ПараметрыВыполнения.Вставить("ВсеПомеченныеНаУдаление", Новый Массив);
+ ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ПараметрыВыполнения.ВсеПомеченныеНаУдаление, ПараметрыВыполнения.ТехнологическиеОбъекты);
+ ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ПараметрыВыполнения.ВсеПомеченныеНаУдаление, ПараметрыВыполнения.ПользовательскиеОбъекты);
+ КонецЕсли;
Если Не ПараметрыВыполнения.Свойство("МодельСервиса") Тогда
ПараметрыВыполнения.Вставить("МодельСервиса", ОбщегоНазначенияПовтИсп.РазделениеВключено());
Если ПараметрыВыполнения.МодельСервиса Тогда
@@ -552,18 +659,9 @@
ПараметрыВыполнения.Вставить("РазделительВспомогательныхДанных", ОбщегоНазначенияПовтИсп.РазделительВспомогательныхДанных());
КонецЕсли;
КонецЕсли;
- Если Не ПараметрыВыполнения.Свойство("ПомеченныеНаУдаление") Тогда
- ПараметрыВыполнения.Вставить("ПомеченныеНаУдаление", Неопределено);
- КонецЕсли;
Если Не ПараметрыВыполнения.Свойство("ИнформацияОТипах") Тогда
ПараметрыВыполнения.Вставить("ИнформацияОТипах", Новый Соответствие);
КонецЕсли;
- Если Не ПараметрыВыполнения.Свойство("ТехнологическиеОбъекты") Тогда
- ПараметрыВыполнения.Вставить("ТехнологическиеОбъекты", Неопределено);
- КонецЕсли;
- Если Не ПараметрыВыполнения.Свойство("ВсеПомеченныеНаУдаление") Тогда
- ПараметрыВыполнения.Вставить("ВсеПомеченныеНаУдаление", Неопределено);
- КонецЕсли;
ПрепятствующиеУдалению = Новый ТаблицаЗначений;
ПрепятствующиеУдалению.Колонки.Добавить("УдаляемыйСсылка");
@@ -578,38 +676,11 @@
ПараметрыВыполнения.Вставить("ПовторноУдаляемые", Новый Массив);
ПараметрыВыполнения.Вставить("Интерактивное", ПараметрыВыполнения.Свойство("ПериодЗаписи"));
- Если ПараметрыВыполнения.Интерактивное Тогда
- ПараметрыВыполнения.Вставить("ДостигнутыйПроцент", 0);
- ПараметрыВыполнения.Вставить("Диапазон", 0);
- ПараметрыВыполнения.Вставить("Всего", 0);
- ПараметрыВыполнения.Вставить("Номер", 0);
- ПараметрыВыполнения.Вставить("Время", ТекущаяДатаСеанса() - 0.1);
-
- ПараметрыВыполнения.Вставить("Диапазоны", Новый Соответствие);
- Если ПараметрыВыполнения.ИскатьПомеченные И ПараметрыВыполнения.УдалятьПомеченные Тогда
- ПараметрыВыполнения.Диапазоны.Вставить("ПередПоискомПомеченныхНаУдаление", 5);
- ПараметрыВыполнения.Диапазоны.Вставить("ПоискПомеченныхНаУдаление", 4);
- ПараметрыВыполнения.Диапазоны.Вставить("ВсеПомеченныеНаУдаление", 1);
- ПараметрыВыполнения.Диапазоны.Вставить("ТехнологическиеОбъекты", 10);
- ПараметрыВыполнения.Диапазоны.Вставить("ПомеченныеНаУдаление", 70);
- ПараметрыВыполнения.Диапазоны.Вставить("ПовторноУдаляемые", 10);
- ИначеЕсли ПараметрыВыполнения.УдалятьПомеченные Тогда
- ПараметрыВыполнения.Диапазоны.Вставить("ТехнологическиеОбъекты", 10);
- ПараметрыВыполнения.Диапазоны.Вставить("ПомеченныеНаУдаление", 80);
- ПараметрыВыполнения.Диапазоны.Вставить("ПовторноУдаляемые", 10);
- ИначеЕсли ПараметрыВыполнения.ИскатьПомеченные Тогда
- ПараметрыВыполнения.Диапазоны.Вставить("ПередПоискомПомеченныхНаУдаление", 30);
- ПараметрыВыполнения.Диапазоны.Вставить("ПоискПомеченныхНаУдаление", 40);
- ПараметрыВыполнения.Диапазоны.Вставить("ВсеПомеченныеНаУдаление", 30);
- КонецЕсли;
- КонецЕсли;
-
+ КлиентИнициализироватьПараметры(ПараметрыВыполнения);
КонецПроцедуры
// Формирует массив помеченных на удаление с учетом разделения.
Процедура ПолучитьПомеченныеНаУдаление(ПараметрыВыполнения) Экспорт
- ПараметрыВыполнения.ПомеченныеНаУдаление = Новый Массив;
- ПараметрыВыполнения.ТехнологическиеОбъекты = Новый Массив;
КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ПередПоискомПомеченныхНаУдаление");
УдалениеПомеченныхОбъектовПереопределяемый.ПередПоискомПомеченныхНаУдаление(ПараметрыВыполнения);
@@ -622,31 +693,37 @@
// Распределение помеченных на удаление по коллекциям.
КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, "ВсеПомеченныеНаУдаление");
- Для Каждого Ссылка Из ПараметрыВыполнения.ВсеПомеченныеНаУдаление Цикл
+ Количество = ПараметрыВыполнения.ВсеПомеченныеНаУдаление.Количество();
+ Для Номер = 1 По Количество Цикл
+ ОбратныйИндекс = Количество - Номер;
+ Ссылка = ПараметрыВыполнения.ВсеПомеченныеНаУдаление[ОбратныйИндекс];
+
Информация = СформироватьИнформациюОТипах(ПараметрыВыполнения, ТипЗнч(Ссылка));
КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, "ВсеПомеченныеНаУдаление");
Если ПараметрыВыполнения.МодельСервиса
- И ПараметрыВыполнения.ВОбластиДанных
+ И ПараметрыВыполнения.ВОбластиДанных
И Не Информация.Разделенный Тогда
+ ПараметрыВыполнения.ВсеПомеченныеНаУдаление.Удалить(ОбратныйИндекс);
Продолжить; // Неразделенные объекты запрещено изменять из области данных.
КонецЕсли;
Если Информация.ЕстьПредопределенные И Информация.Предопределенные.Найти(Ссылка) <> Неопределено Тогда
+ ПараметрыВыполнения.ВсеПомеченныеНаУдаление.Удалить(ОбратныйИндекс);
Продолжить; // Предопределенные элементы создаются и удаляются только автоматически.
КонецЕсли;
Если Информация.Технический = Истина Тогда
ПараметрыВыполнения.ТехнологическиеОбъекты.Добавить(Ссылка);
Иначе
- ПараметрыВыполнения.ПомеченныеНаУдаление.Добавить(Ссылка);
+ ПараметрыВыполнения.ПользовательскиеОбъекты.Добавить(Ссылка);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
// Формирует информацию о типе объекта метаданных, как то: полное имя, представления, вид и т.п.
Функция СформироватьИнформациюОТипах(ПараметрыВыполнения, Тип) Экспорт
- Информация = ПараметрыВыполнения.ИнформацияОТипах.Получить(Тип);
+ Информация = ПараметрыВыполнения.ИнформацияОТипах.Получить(Тип); // Кэш.
Если Информация <> Неопределено Тогда
Возврат Информация;
КонецЕсли;
@@ -779,6 +856,197 @@
ТекстДляЖурнала);
КонецПроцедуры
+// Регистрация причины неудаления.
+Процедура ЗаписатьПричинуВРезультат(ПараметрыВыполнения, СтрокаТаблицы)
+ УдаляемыйТип = ТипЗнч(СтрокаТаблицы.УдаляемыйСсылка);
+ УдаляемыйИнформация = СформироватьИнформациюОТипах(ПараметрыВыполнения, УдаляемыйТип);
+ Если УдаляемыйИнформация.Технический Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Добавление не удаленных объектов.
+ Если ПараметрыВыполнения.НеУдаленные.Найти(СтрокаТаблицы.УдаляемыйСсылка) = Неопределено Тогда
+ ПараметрыВыполнения.НеУдаленные.Добавить(СтрокаТаблицы.УдаляемыйСсылка);
+ КонецЕсли;
+
+ Причина = ПараметрыВыполнения.ПрепятствующиеУдалению.Добавить();
+ ЗаполнитьЗначенияСвойств(Причина, СтрокаТаблицы);
+ Причина.УдаляемыйТип = УдаляемыйТип;
+ Причина.ОбнаруженныйТип = ТипЗнч(Причина.ОбнаруженныйСсылка);
+
+ Если СтрокаТаблицы.ОбнаруженныйСсылка = Неопределено Тогда
+ Если Метаданные.Константы.Содержит(СтрокаТаблицы.ОбнаруженныйМетаданные) Тогда
+ Причина.ОбнаруженныйТип = Тип("КонстантаМенеджерЗначения." + СтрокаТаблицы.ОбнаруженныйМетаданные.Имя);
+ Иначе
+ Причина.ОбнаруженныйСсылка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Обнаружены неразрешимые ссылки (%1)'"),
+ СтрокаТаблицы.ОбнаруженныйМетаданные.Представление());
+ Причина.ОбнаруженныйТип = Тип("Строка");
+ Возврат;
+ КонецЕсли;
+ КонецЕсли;
+
+ // Регистрация информации об объектах метаданных (если требуется).
+ ОбнаруженныйИнформация = СформироватьИнформациюОТипах(ПараметрыВыполнения, Причина.ОбнаруженныйТип);
+
+ // Заполнение подчиненных полей.
+ Если ОбнаруженныйИнформация.Ссылочный Тогда
+ Причина.ОбнаруженныйПометкаУдаления = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Причина.ОбнаруженныйСсылка, "ПометкаУдаления");
+ Иначе
+ Причина.ОбнаруженныйПометкаУдаления = Ложь;
+ КонецЕсли;
+КонецПроцедуры
+
+// Основная механика удаления помеченных объектов.
+Функция ИзвлечьРезультат(ПараметрыВыполнения)
+ РезультатУдаления = ПараметрыВыполнения;
+ РезультатУдаления.Удалить("ВсеПомеченныеНаУдаление");
+ РезультатУдаления.Удалить("ВсеПомеченныеНаУдаление");
+ Возврат РезультатУдаления;
+КонецФункции
+
+////////////////////////////////////////////////////////////////////////////////
+// Передача информации на клиент.
+
+// Инициализирует структуру параметров, необходимых для передачи на клиент.
+Процедура КлиентИнициализироватьПараметры(ПараметрыВыполнения)
+ Если Не ПараметрыВыполнения.Интерактивное Тогда
+ Возврат;
+ КонецЕсли;
+
+ ПараметрыВыполнения.Вставить("ДостигнутыйПроцент", 0);
+ ПараметрыВыполнения.Вставить("Диапазон", 0);
+ ПараметрыВыполнения.Вставить("Всего", 0);
+ ПараметрыВыполнения.Вставить("Номер", 0);
+ ПараметрыВыполнения.Вставить("Время", ТекущаяДатаСеанса() - 0.1);
+
+ ПараметрыВыполнения.Вставить("Диапазоны", Новый Соответствие);
+
+ ОбщийВес = 0;
+ Если ПараметрыВыполнения.ИскатьПомеченные Тогда
+ ПараметрыВыполнения.Диапазоны.Вставить("ПередПоискомПомеченныхНаУдаление", 5);
+ ПараметрыВыполнения.Диапазоны.Вставить("ПоискПомеченныхНаУдаление", 4);
+ ПараметрыВыполнения.Диапазоны.Вставить("ВсеПомеченныеНаУдаление", 1);
+ ОбщийВес = ОбщийВес + 10;
+ КонецЕсли;
+ Если ПараметрыВыполнения.УдалятьПомеченные Тогда
+ Если ПараметрыВыполнения.Монопольно Тогда
+ ПараметрыВыполнения.Диапазоны.Вставить("МонопольноеУдаление", 80);
+ ПараметрыВыполнения.Диапазоны.Вставить("ПрепятствующиеУдалению", 10);
+ Иначе // Не монопольно.
+ ПараметрыВыполнения.Диапазоны.Вставить("ТехнологическиеОбъекты", 10);
+ ПараметрыВыполнения.Диапазоны.Вставить("ПользовательскиеОбъекты", 70);
+ ПараметрыВыполнения.Диапазоны.Вставить("ПовторноУдаляемые", 10);
+ КонецЕсли;
+ ОбщийВес = ОбщийВес + 90;
+ КонецЕсли;
+ Если ОбщийВес <> 0 И ОбщийВес <> 100 Тогда
+ Коэффициент = 100/ОбщийВес;
+ Для Каждого КлючИЗначение Из ПараметрыВыполнения.Диапазоны Цикл
+ ПараметрыВыполнения.Диапазоны.Вставить(КлючИЗначение.Ключ, Окр(КлючИЗначение.Значение*Коэффициент, 0));
+ КонецЦикла;
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Регистрирует начало процесса.
+Процедура КлиентОтметитьНачалоОбхода(ПараметрыВыполнения, ИмяКоллекции, Коллекция = Неопределено)
+ Если Не ПараметрыВыполнения.Интерактивное Тогда
+ Возврат;
+ КонецЕсли;
+ ПараметрыВыполнения.ДостигнутыйПроцент = ПараметрыВыполнения.ДостигнутыйПроцент + ПараметрыВыполнения.Диапазон;
+ ПараметрыВыполнения.Диапазон = ПараметрыВыполнения.Диапазоны[ИмяКоллекции];
+ Если Коллекция <> Неопределено Или ПараметрыВыполнения.Свойство(ИмяКоллекции, Коллекция) Тогда
+ ПараметрыВыполнения.Всего = Коллекция.Количество();
+ ПараметрыВыполнения.Номер = 0;
+ Иначе
+ ПараметрыВыполнения.Всего = 1;
+ ПараметрыВыполнения.Номер = 0;
+ КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции);
+ КонецЕсли;
+КонецПроцедуры
+
+// Регистрирует прогресс.
+Процедура КлиентОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции)
+ Если Не ПараметрыВыполнения.Интерактивное Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Регистрация прогресса.
+ ПараметрыВыполнения.Номер = ПараметрыВыполнения.Номер + 1;
+
+ // Проверка что подошло время передачи информации на клиент.
+ Если ТекущаяДатаСеанса() >= ПараметрыВыполнения.Время Тогда
+ // Установка следующего времени передачи информации на клиент.
+ ПараметрыВыполнения.Время = ПараметрыВыполнения.Время + ПараметрыВыполнения.ПериодЗаписи;
+ ИначеЕсли ПараметрыВыполнения.Номер = ПараметрыВыполнения.Всего Тогда
+ // Вывод последнего.
+ Иначе
+ Возврат;
+ КонецЕсли;
+
+ Процент = ПараметрыВыполнения.ДостигнутыйПроцент
+ + ПараметрыВыполнения.Диапазон*ПараметрыВыполнения.Номер/ПараметрыВыполнения.Всего;
+
+ // Подготовка передаваемых параметров.
+ Если ИмяКоллекции = "ПередПоискомПомеченныхНаУдаление" Тогда
+
+ Текст = НСтр("ru = 'Подготовка к поиску объектов, помеченных на удаление.'");
+
+ ИначеЕсли ИмяКоллекции = "НайтиПомеченныеНаУдаление" Тогда
+
+ Текст = НСтр("ru = 'Поиск объектов, помеченных на удаление.'");
+
+ ИначеЕсли ИмяКоллекции = "ВсеПомеченныеНаУдаление" Тогда
+
+ Текст = НСтр("ru = 'Анализ помеченных на удаление.'");
+
+ ИначеЕсли ИмяКоллекции = "ТехнологическиеОбъекты" Тогда
+
+ Текст = НСтр("ru = 'Подготовка к удалению.'");
+
+ ИначеЕсли ИмяКоллекции = "МонопольноеУдаление" Тогда
+
+ Текст = НСтр("ru = 'Выполняется удаление объектов.'");
+
+ ИначеЕсли ИмяКоллекции = "ПользовательскиеОбъекты" Тогда
+
+ НеУдалено = ПараметрыВыполнения.НеУдаленные.Количество();
+ Если НеУдалено = 0 Тогда
+ Шаблон = НСтр("ru = 'Удалено: %1 из %2 объектов.'");
+ Иначе
+ Шаблон = НСтр("ru = 'Обработано: %1 из %2 объектов, из них не удалено: %3.'");
+ КонецЕсли;
+ Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ Шаблон,
+ Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
+ Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="),
+ Формат(НеУдалено, "ЧН=0; ЧГ="));
+
+ ИначеЕсли ИмяКоллекции = "ПовторноУдаляемые" Тогда
+
+ Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Повторная проверка не удаленных объектов: %1 из %2.'"),
+ Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
+ Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="));
+
+ ИначеЕсли ИмяКоллекции = "ПрепятствующиеУдалению" Тогда
+
+ Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Анализ объектов, препятствующих удалению: %1 из %2.'"),
+ Формат(ПараметрыВыполнения.Номер, "ЧН=0; ЧГ="),
+ Формат(ПараметрыВыполнения.Всего, "ЧН=0; ЧГ="));
+
+ Иначе
+
+ Возврат;
+
+ КонецЕсли;
+
+ // Регистрация сообщения для чтения из клиентского сеанса.
+ ДлительныеОперации.СообщитьПрогресс(Процент, Текст);
+КонецПроцедуры
+
#КонецОбласти
#КонецЕсли
diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl
index 700766783..a992901fc 100644
--- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl
+++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl
@@ -723,17 +723,39 @@
//
&НаКлиенте
Процедура ОткрытьВПриложении(ИмяФайла, СтандартнаяОбработка = Ложь)
-
- Файл = Новый Файл(ИмяФайла);
-
- Если Файл.Существует() Тогда
-
- ЗапуститьПриложение(ИмяФайла);
-
- КонецЕсли;
СтандартнаяОбработка = Ложь;
+ ДополнительныеПараметры = Новый Структура();
+ ДополнительныеПараметры.Вставить("ИмяФайла", ИмяФайла);
+ ДополнительныеПараметры.Вставить("ОписаниеОповещения", Новый ОписаниеОповещения("ОткрытьКаталогСФайлом", ЭтаФорма, ДополнительныеПараметры));
+
+ Файл = Новый Файл();
+ Файл.НачатьИнициализацию(Новый ОписаниеОповещения("ПроверитьСуществованиеФайла", ЭтаФорма, ДополнительныеПараметры), ИмяФайла);
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПроверитьСуществованиеФайла(Файл, ДополнительныеПараметры) Экспорт
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПослеОпределенияСуществованияФайла", ЭтаФорма, ДополнительныеПараметры);
+ Файл.НачатьПроверкуСуществования(ОписаниеОповещения);
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ПослеОпределенияСуществованияФайла(Существует, ДополнительныеПараметры) Экспорт
+
+ Если Существует Тогда
+ НачатьЗапускПриложения(ДополнительныеПараметры.ОписаниеОповещения, ДополнительныеПараметры.ИмяФайла);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Продолжение процедуры (см. выше).
+&НаКлиенте
+Процедура ОткрытьКаталогСФайлом(КодВозврата, ДополнительныеПараметры) Экспорт
+ // Обработка не требуется.
КонецПроцедуры
&НаКлиенте
diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl
index f0dd79880..c1cf689cf 100644
--- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl
+++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl
@@ -199,22 +199,49 @@
&НаКлиенте
Процедура ПоказатьОбработчикиСобытийВОкне()
- ФайлОбработчиков = Новый Файл(Объект.ИмяВременногоФайлаОбработчиковСобытий);
- Если ФайлОбработчиков.Существует() И ФайлОбработчиков.Размер() <> 0 Тогда
- ТекстовыйДокумент = Новый ТекстовыйДокумент;
- ТекстовыйДокумент.Прочитать(Объект.ИмяВременногоФайлаОбработчиковСобытий);
- ТекстовыйДокумент.Показать(Нстр("ru = 'Модуль отладки обработчиков'"));
+ ОбработчикиСобытий = ОбработчикиСобытий();
+ Если ОбработчикиСобытий <> Неопределено Тогда
+ ОбработчикиСобытий.Показать(Нстр("ru = 'Модуль отладки обработчиков'"));
КонецЕсли;
- ФайлОшибок = Новый Файл(Объект.ИмяВременногоФайлаПротоколаОбмена);
- Если ФайлОшибок.Существует() И ФайлОшибок.Размер() <> 0 Тогда
- ТекстовыйДокумент = Новый ТекстовыйДокумент;
- ТекстовыйДокумент.Прочитать(Объект.ИмяВременногоФайлаОбработчиковСобытий);
- ТекстовыйДокумент.Показать(Нстр("ru = 'Ошибки выгрузки модуля обработчиков'"));
+
+ ПротоколОбмена = ПротоколОбмена();
+ Если ПротоколОбмена <> Неопределено Тогда
+ ПротоколОбмена.Показать(Нстр("ru = 'Ошибки выгрузки модуля обработчиков'"));
КонецЕсли;
КонецПроцедуры
+&НаСервере
+Функция ОбработчикиСобытий()
+
+ ОбработчикиСобытий = Неопределено;
+
+ ФайлОбработчиков = Новый Файл(Объект.ИмяВременногоФайлаОбработчиковСобытий);
+ Если ФайлОбработчиков.Существует() И ФайлОбработчиков.Размер() <> 0 Тогда
+ ОбработчикиСобытий = Новый ТекстовыйДокумент;
+ ОбработчикиСобытий.Прочитать(Объект.ИмяВременногоФайлаОбработчиковСобытий);
+ КонецЕсли;
+
+ Возврат ОбработчикиСобытий;
+
+КонецФункции
+
+&НаСервере
+Функция ПротоколОбмена()
+
+ ПротоколОбмена = Неопределено;
+
+ ФайлОшибок = Новый Файл(Объект.ИмяВременногоФайлаПротоколаОбмена);
+ Если ФайлОшибок.Существует() И ФайлОшибок.Размер() <> 0 Тогда
+ ПротоколОбмена = Новый ТекстовыйДокумент;
+ ПротоколОбмена.Прочитать(Объект.ИмяВременногоФайлаОбработчиковСобытий);
+ КонецЕсли;
+
+ Возврат ПротоколОбмена;
+
+КонецФункции
+
&НаСервере
Процедура ВыгрузитьОбработчикиСобытийНаСервере(Отказ)
diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Help/ru.html b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Help/ru.html
index 8e2ff73a3..246f42b4c 100644
--- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Help/ru.html
+++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Обработка "Универсальный обмен данными в формате XML" предназначена для загрузки и выгрузки данных в файл из любой конфигурации, реализованной на платформе 1С:Предприятие 8.
Режим работы
При использовании управляемой формы обработка имеет два режим работы: 1. На клиенте. При использовании этого режима файлы правил и загружаемых данных передаются с клиента на сервер, а файл выгружаемых данных передается с сервера на клиент. Пути к этим файлам, находящимся на клиенте, необходимо указывать в диалоговом окне непосредственно перед выполнением действия. 2. На сервере. В этом режиме файлы не передаются на клиент и пути к ним необходимо указывать на сервере. Примечание: Файл внешней обработки и файлы протоколов обмена всегда должны находиться на сервере вне зависимости от режима работы.
diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl
index df126c756..408dffd85 100644
--- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl
+++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl
@@ -2955,25 +2955,25 @@
мМакетОбщиеПроцедурыФункции = ПолучитьМакет("ОбщиеПроцедурыФункции");
- // Выводим комментарии
+ // Выводим комментарии.
ДобавитьВПотокКомментарий(Результат, "Шапка");
ДобавитьВПотокКомментарий(Результат, "ПеременныеОбработки");
- // Выводим служебный код
+ // Выводим служебный код.
ДобавитьВПотокСлужебныйКод(Результат, "ПеременныеОбработки");
// Выгружаем глобальные обработчики.
ВыгрузитьОбработчикиКонвертации(Результат);
- //Выгружаем ПВД
+ // Выгружаем ПВД.
ДобавитьВПотокКомментарий(Результат, "ПВД", ТаблицаПравилВыгрузки.Строки.Количество() <> 0);
ВыгрузитьОбработчикиПравилВыгрузкиДанных(Результат, ТаблицаПравилВыгрузки.Строки);
- //Выгружаем ПОД
+ // Выгружаем ПОД.
ДобавитьВПотокКомментарий(Результат, "ПОД", ТаблицаПравилОчистки.Строки.Количество() <> 0);
ВыгрузитьОбработчикиПравилОчисткиДанных(Результат, ТаблицаПравилОчистки.Строки);
- //Выгружаем ПКО, ПКС, ПКГС
+ // Выгружаем ПКО, ПКС, ПКГС.
ВыгрузитьОбработчикиПравилКонвертации(Результат);
Если РежимОтладкиАлгоритмов = мРежимыОтладкиАлгоритмов.ПроцедурныйВызов Тогда
@@ -3161,9 +3161,9 @@
ВывестиКомментарий = ТаблицаПравилКонвертации.Количество() <> 0;
- //Выгружаем ПКО
+ // Выгружаем ПКО.
ДобавитьВПотокКомментарий(Результат, "ПКО", ВывестиКомментарий);
-
+
Для Каждого ПКО Из ТаблицаПравилКонвертации Цикл
Для Каждого Элемент Из ИменаОбработчиков.ПКО Цикл
@@ -3174,7 +3174,7 @@
КонецЦикла;
- // Выгружаем ПКС и ПКГС
+ // Выгружаем ПКС и ПКГС.
ДобавитьВПотокКомментарий(Результат, "ПКС", ВывестиКомментарий);
Для Каждого ПКО Из ТаблицаПравилКонвертации Цикл
@@ -4860,7 +4860,7 @@
Пока ФайлОбмена.Прочитать() Цикл
ИмяУзла = ФайлОбмена.ЛокальноеИмя;
-
+
Если ИмяУзла = "Значение" Тогда
ИскатьПоСвойству = одАтрибут(ФайлОбмена, одТипСтрока, "Свойство");
@@ -5692,7 +5692,11 @@
Процедура ОбработатьУстановкуСвойствПоискаУОбъекта(УстанавливатьУОбъектаВсеСвойстваПоиска, ТипОбъекта, СвойстваПоиска,
СвойстваПоискаНеЗамещать, СсылкаНаОбъект, СозданныйОбъект, ЗаписыватьНовыйОбъектВИнформационнуюБазу = Истина, ИзмененыРеквизитыОбъекта = Ложь)
- Если СсылкаНаОбъект = Неопределено Тогда
+ Если УстанавливатьУОбъектаВсеСвойстваПоиска <> Истина Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(СсылкаНаОбъект) Тогда
Возврат;
КонецЕсли;
@@ -6018,15 +6022,20 @@
НеНужноВыполнятьПоиск = ЗначениеЗаполнено(СсылкаНаОбъект);
+ Если СсылкаНаОбъект <> Неопределено
+ И СсылкаНаОбъект.Пустая() Тогда
+ СсылкаНаОбъект = Неопределено;
+ КонецЕсли;
+
КонецЕсли;
Если НеНужноВыполнятьПоиск Тогда
Если РежимПоискаОсновногоОбъекта И УстанавливатьУОбъектаВсеСвойстваПоиска = Истина Тогда
-
+
ОбработатьУстановкуСвойствПоискаУОбъекта(УстанавливатьУОбъектаВсеСвойстваПоиска, ТипОбъекта, СвойстваПоиска, СвойстваПоискаНеЗамещать,
СсылкаНаОбъект, СозданныйОбъект, НЕ РежимПоискаОсновногоОбъекта, СвойстваОбъектаМодифицированы);
-
+
КонецЕсли;
Прервать;
@@ -6402,6 +6411,7 @@
КопияТЧДляПоиска = Неопределено;
Движения = Объект.Движения[Имя];
+ Движения.Записывать = Истина;
Если Движения.Количество()=0 Тогда
Движения.Прочитать();
@@ -8645,15 +8655,20 @@
И ПКС.Источник = "{УникальныйИдентификатор}"
И ПКС.Приемник = "{УникальныйИдентификатор}" Тогда
- Попытка
-
+ Если ЗначениеСсылочногоТипа(Источник) Тогда
УникальныйИдентификатор = Источник.УникальныйИдентификатор();
+ Иначе
- Исключение
+ НачальноеЗначение = Новый УникальныйИдентификатор();
+ СтруктураДляПроверкиНаличияСвойства = Новый Структура("Ссылка", НачальноеЗначение);
+ ЗаполнитьЗначенияСвойств(СтруктураДляПроверкиНаличияСвойства, Источник);
- УникальныйИдентификатор = Источник.Ссылка.УникальныйИдентификатор();
+ Если НачальноеЗначение <> СтруктураДляПроверкиНаличияСвойства.Ссылка
+ И ЗначениеСсылочногоТипа(СтруктураДляПроверкиНаличияСвойства.Ссылка) Тогда
+ УникальныйИдентификатор = Источник.Ссылка.УникальныйИдентификатор();
+ КонецЕсли;
- КонецПопытки;
+ КонецЕсли;
УзелКоллекцииСвойств.ЗаписатьНачалоЭлемента("Свойство");
УстановитьАтрибут(УзелКоллекцииСвойств, "Имя", "{УникальныйИдентификатор}");
@@ -13609,7 +13624,7 @@
Процедура ИнициализацияСтруктурыИменОбработчиков()
- //Обработчики Конвертации
+ // Обработчики Конвертации.
ИменаОбработчиковКонвертации = Новый Структура;
ИменаОбработчиковКонвертации.Вставить("ПередВыгрузкойДанных");
ИменаОбработчиковКонвертации.Вставить("ПослеВыгрузкиДанных");
@@ -13629,7 +13644,7 @@
ИменаОбработчиковКонвертации.Вставить("ПослеЗагрузкиПравилОбмена");
ИменаОбработчиковКонвертации.Вставить("ПослеЗагрузкиПараметров");
- //Обработчики ПКО
+ // Обработчики ПКО.
ИменаОбработчиковПКО = Новый Структура;
ИменаОбработчиковПКО.Вставить("ПередВыгрузкой");
ИменаОбработчиковПКО.Вставить("ПриВыгрузке");
@@ -13642,13 +13657,13 @@
ИменаОбработчиковПКО.Вставить("ПоследовательностьПолейПоиска");
- //Обработчики ПКС
+ // Обработчики ПКС.
ИменаОбработчиковПКС = Новый Структура;
ИменаОбработчиковПКС.Вставить("ПередВыгрузкой");
ИменаОбработчиковПКС.Вставить("ПриВыгрузке");
ИменаОбработчиковПКС.Вставить("ПослеВыгрузки");
- //Обработчики ПКГС
+ // Обработчики ПКГС.
ИменаОбработчиковПКГС = Новый Структура;
ИменаОбработчиковПКГС.Вставить("ПередВыгрузкой");
ИменаОбработчиковПКГС.Вставить("ПриВыгрузке");
@@ -13657,14 +13672,14 @@
ИменаОбработчиковПКГС.Вставить("ПередОбработкойВыгрузки");
ИменаОбработчиковПКГС.Вставить("ПослеОбработкиВыгрузки");
- //Обработчики ПВД
+ // Обработчики ПВД.
ИменаОбработчиковПВД = Новый Структура;
ИменаОбработчиковПВД.Вставить("ПередОбработкой");
ИменаОбработчиковПВД.Вставить("ПослеОбработки");
ИменаОбработчиковПВД.Вставить("ПередВыгрузкой");
ИменаОбработчиковПВД.Вставить("ПослеВыгрузки");
- //Обработчики ПОД
+ // Обработчики ПОД.
ИменаОбработчиковПОД = Новый Структура;
ИменаОбработчиковПОД.Вставить("ПередОбработкой");
ИменаОбработчиковПОД.Вставить("ПослеОбработки");
@@ -13743,6 +13758,32 @@
КонецФункции
+// Проверить, что значение имеет ссылочный тип данных.
+//
+// Параметры:
+// Значение - Произвольный - проверяемое значение.
+//
+// Возвращаемое значение:
+// Булево - Истина, если тип значения ссылочный.
+//
+Функция ЗначениеСсылочногоТипа(Значение)
+
+ Тип = ТипЗнч(Значение);
+
+ Возврат Тип <> Тип("Неопределено")
+ И (Справочники.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ Документы.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ Перечисления.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ ПланыСчетов.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ БизнесПроцессы.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ БизнесПроцессы.ТипВсеСсылкиТочекМаршрутаБизнесПроцессов().СодержитТип(Тип)
+ ИЛИ Задачи.ТипВсеСсылки().СодержитТип(Тип)
+ ИЛИ ПланыОбмена.ТипВсеСсылки().СодержитТип(Тип));
+
+КонецФункции
+
#КонецОбласти
////////////////////////////////////////////////////////////////////////////////
diff --git a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl
index 660df8da3..61d19fea8 100644
--- a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl
+++ b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl
@@ -13,7 +13,7 @@
ПутьКОбъектуМетаданных = РеквизитФормыВЗначение("Объект").Метаданные().ПолноеИмя();
- Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда
+ Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
СтандартнаяОбработка = Ложь;
Возврат;
КонецЕсли;
@@ -101,28 +101,12 @@
ПараметрыИтогов.Вставить("Значение2", ВыбранноеЗначение.МинимальныйЭффект);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка перестроения агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
ИначеЕсли КонтекстВыбора = "АгрегатыОптимальные" Тогда
ОптимальныйОтносительныйРазмер = ВыбранноеЗначение.ОтносительныйРазмер;
- ПутьКОптимальнымАгрегатам = ВыборПутиККаталогу(ПутьКОптимальнымАгрегатам);
-
- Если ПустаяСтрока(ПутьКОптимальнымАгрегатам) Тогда
- Возврат;
- КонецЕсли;
-
- ПараметрыИтогов = Новый Структура;
- ПараметрыИтогов.Вставить("ОбрабатыватьЗаголовок", НСтр("ru='Получение списка оптимальных агрегатов ...'"));
- ПараметрыИтогов.Вставить("ПослеПроцесса", НСтр("ru='Получение списка оптимальных агрегатов завершено'"));
- ПараметрыИтогов.Вставить("Действие", "ПолучитьОптимальныеАгрегаты");
- ПараметрыИтогов.Вставить("МассивСтрок", Элементы.АгрегатыПоРегистрам.ВыделенныеСтроки);
- ПараметрыИтогов.Вставить("Поле", "Наименование");
- ПараметрыИтогов.Вставить("Значение1", ВыбранноеЗначение.ОтносительныйРазмер);
- ПараметрыИтогов.Вставить("Значение2", Неопределено);
- ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка получения списка оптимальных агрегатов.'"));
-
- УправлениеАгрегатом(ПараметрыИтогов);
+ ПолучитьОптимальныеАгрегатКлиент();
КонецЕсли;
@@ -138,7 +122,7 @@
Процедура ГиперссылкаСТекстомНажатие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
- ПолныеВозможности = НЕ ПолныеВозможности;
+ ПолныеВозможности = Не ПолныеВозможности;
УстановитьРасширенныйРежим();
КонецПроцедуры
@@ -269,8 +253,8 @@
Для Каждого Индекс Из Элементы.СписокИтогов.ВыделенныеСтроки Цикл
ИнформацияПоРегистру = СписокИтогов.НайтиПоИдентификатору(Индекс);
- ПараметрыФормы.РегНакопления = ПараметрыФормы.РегНакопления ИЛИ ИнформацияПоРегистру.Тип = 0;
- ПараметрыФормы.РегБухгалтерии = ПараметрыФормы.РегБухгалтерии ИЛИ ИнформацияПоРегистру.Тип = 1;
+ ПараметрыФормы.РегНакопления = ПараметрыФормы.РегНакопления Или ИнформацияПоРегистру.Тип = 0;
+ ПараметрыФормы.РегБухгалтерии = ПараметрыФормы.РегБухгалтерии Или ИнформацияПоРегистру.Тип = 1;
КонецЦикла;
ОткрытьФорму("Обработка.УправлениеИтогамиИАгрегатами.Форма.ФормаВыбораПериода", ПараметрыФормы, ЭтотОбъект);
@@ -355,7 +339,7 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка включения режима агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
@@ -372,7 +356,7 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка включения режима итогов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
@@ -389,7 +373,7 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка включения использования агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
@@ -406,7 +390,7 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка выключения использования агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
@@ -451,13 +435,12 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка заполнения агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
&НаКлиенте
Процедура АгрегатыОптимальные(Команда)
-
КонтекстВыбора = "АгрегатыОптимальные";
ПараметрыФормы = Новый Структура;
@@ -466,7 +449,6 @@
ПараметрыФормы.Вставить("РежимПерестроения", Ложь);
ОткрытьФорму("Обработка.УправлениеИтогамиИАгрегатами.Форма.ФормаПараметровПерестроения", ПараметрыФормы, ЭтотОбъект);
-
КонецПроцедуры
&НаКлиенте
@@ -550,7 +532,7 @@
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка перестроения агрегатов.'"));
ПараметрыИтогов.Вставить("ГрупповаяОбработка", Истина);
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
ПараметрыИтогов = Новый Структура;
ПараметрыИтогов.Вставить("ОбрабатыватьЗаголовок", НСтр("ru='Заполнение агрегатов ...'"));
@@ -562,37 +544,13 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка заполнения агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецПроцедуры
&НаКлиенте
Процедура ПолучитьОптимальныеАгрегаты(Команда)
-
- Если АгрегатыПоРегистрам.Количество() = 0 Тогда
- ПоказатьПредупреждение(, НСтр("ru='Отсутствуют регистры, для которых можно выполнить данную операцию.'"));
- Возврат;
- КонецЕсли;
-
- ПутьКОптимальнымАгрегатам = ВыборПутиККаталогу(ПутьКОптимальнымАгрегатам);
- Если ПустаяСтрока(ПутьКОптимальнымАгрегатам) Тогда
-
- Возврат;
- КонецЕсли;
-
- ПараметрыИтогов = Новый Структура;
- ПараметрыИтогов.Вставить("ОбрабатыватьЗаголовок", НСтр("ru='Получение списка оптимальных агрегатов ...'"));
- ПараметрыИтогов.Вставить("ПослеПроцесса", НСтр("ru='Получение списка оптимальных агрегатов завершено'"));
- ПараметрыИтогов.Вставить("Действие", "ПолучитьОптимальныеАгрегаты");
- ПараметрыИтогов.Вставить("МассивСтрок", АгрегатыПоРегистрам);
- ПараметрыИтогов.Вставить("Поле", "");
- ПараметрыИтогов.Вставить("Значение1", 0);
- ПараметрыИтогов.Вставить("Значение2", Неопределено);
- ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка получения списка оптимальных агрегатов.'"));
- ПараметрыИтогов.Вставить("ГрупповаяОбработка", Истина);
-
- УправлениеАгрегатом(ПараметрыИтогов);
-
+ ПолучитьОптимальныеАгрегатКлиент();
КонецПроцедуры
&НаКлиенте
@@ -771,7 +729,7 @@
ПараметрыИтогов.Вставить("Значение2", Неопределено);
ПараметрыИтогов.Вставить("ТекстСообщенияОбОшибке", НСтр("ru='Ошибка очистки агрегатов.'"));
- УправлениеАгрегатом(ПараметрыИтогов);
+ ИзменитьАгрегатыКлиент(ПараметрыИтогов);
КонецЕсли;
КонецПроцедуры
@@ -822,7 +780,12 @@
КонецПроцедуры
&НаКлиенте
-Процедура УправлениеАгрегатом(Знач ПараметрыИтогов)
+Процедура ПоказатьРезультатВыполнения(Результат, ПараметрыВыполнения) Экспорт
+ СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(ЭтотОбъект, ПараметрыВыполнения);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ИзменитьАгрегатыКлиент(Знач ПараметрыИтогов)
Результат = Истина;
ОчиститьСообщения();
@@ -833,7 +796,6 @@
КонецЕсли;
ШагПроцесса = 100/Выбранные.Количество();
- Действие = НРег(ПараметрыИтогов.Действие);
Если ПараметрыИтогов.Свойство("ГрупповаяОбработка") Тогда
ТребуетсяПрерватьПослеОшибки = ?(ПараметрыИтогов.ГрупповаяОбработка, Ложь, ПрерыватьПриОшибке);
@@ -842,22 +804,19 @@
КонецЕсли;
Для Счетчик = 1 По Выбранные.Количество() Цикл
-
Если ТипЗнч(Выбранные[Счетчик - 1]) = Тип("Число") Тогда
ВыбраннаяСтрока = АгрегатыПоРегистрам.НайтиПоИдентификатору(Выбранные[Счетчик-1]);
Иначе
ВыбраннаяСтрока = Выбранные[Счетчик-1];
КонецЕсли;
- ПолеСообщенияОбОшибке = ?(
- ПустаяСтрока(ПараметрыИтогов.Поле),
- "",
- "АгрегатыПоРегистрам[" + Выбранные[Счетчик-1] + "]."+ПараметрыИтогов.Поле);
+ ПолеСообщенияОбОшибке = "";
+ Если Не ПустаяСтрока(ПараметрыИтогов.Поле) Тогда
+ ПолеСообщенияОбОшибке = "АгрегатыПоРегистрам[" + Выбранные[Счетчик-1] + "]." + ПараметрыИтогов.Поле;
+ КонецЕсли;
- Если НЕ ВыбраннаяСтрока.РежимАгрегатов
- И НЕ ( ВРег(Действие) = ВРег("УстановитьРежимАгрегатов")
- ИЛИ ВРег(Действие) = ВРег("ПолучитьОптимальныеАгрегаты") ) Тогда
-
+ Если Не ВыбраннаяСтрока.РежимАгрегатов
+ И ВРег(ПараметрыИтогов.Действие) <> ВРег("УстановитьРежимАгрегатов") Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Операция невозможна в режиме итогов'"),
,
@@ -865,44 +824,28 @@
Продолжить;
КонецЕсли;
- Состояние(ПараметрыИтогов.ОбрабатыватьЗаголовок,
- Счетчик * ШагПроцесса,
- ВыбраннаяСтрока.Наименование);
+ Состояние(ПараметрыИтогов.ОбрабатыватьЗаголовок, Счетчик * ШагПроцесса, ВыбраннаяСтрока.Наименование);
- АдресФайлаВоВременномХранилище = "";
- Значение1 = ПараметрыИтогов.Значение1;
- Значение2 = ПараметрыИтогов.Значение2;
-
- Результат = УстановитьПараметрыАгрегатаНаСервере(
- ВыбраннаяСтрока.ИмяМетаданного,
- ПараметрыИтогов.Действие,
- Значение1,
- Значение2,
- ПолеСообщенияОбОшибке,
- ПараметрыИтогов.ТекстСообщенияОбОшибке,
- АдресФайлаВоВременномХранилище);
-
- Если Результат И ВРег(Действие) = ВРег("ПолучитьОптимальныеАгрегаты") Тогда
-
- СохранитьОптимальныеНастройкиАгрегатов(
- ВыбраннаяСтрока.ИмяМетаданного,
- АдресФайлаВоВременномХранилище,
- "АгрегатыПоРегистрам[" + Выбранные[Счетчик - 1] + "]." + ПараметрыИтогов.Поле);
-
- ВыбраннаяСтрока.ПостроениеОптимально = Значение1;
- КонецЕсли;
+ ПараметрыСервера = Новый Структура;
+ ПараметрыСервера.Вставить("ИмяРегистра", ВыбраннаяСтрока.ИмяМетаданного);
+ ПараметрыСервера.Вставить("Действие", ПараметрыИтогов.Действие);
+ ПараметрыСервера.Вставить("ЗначениеДействия1", ПараметрыИтогов.Значение1);
+ ПараметрыСервера.Вставить("ЗначениеДействия2", ПараметрыИтогов.Значение2);
+ ПараметрыСервера.Вставить("СообщениеОбОшибке", ПараметрыИтогов.ТекстСообщенияОбОшибке);
+ ПараметрыСервера.Вставить("ПолеФормы", ПолеСообщенияОбОшибке);
+ ПараметрыСервера.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
+ Результат = ИзменитьАгрегатыСервер(ПараметрыСервера);
ОбработкаПрерыванияПользователя();
- Если НЕ Результат И ТребуетсяПрерватьПослеОшибки Тогда
+ Если Не Результат.Успешно И ТребуетсяПрерватьПослеОшибки Тогда
Прервать;
КонецЕсли;
КонецЦикла;
- Если ВРег(Действие) = ВРег("УстановитьРежимАгрегатов")
- ИЛИ ВРег(Действие) = ВРег("УстановитьИспользованиеАгрегатов") Тогда
-
+ Если ВРег(ПараметрыИтогов.Действие) = ВРег("УстановитьРежимАгрегатов")
+ Или ВРег(ПараметрыИтогов.Действие) = ВРег("УстановитьИспользованиеАгрегатов") Тогда
ОбновитьСписокИтоговНаСервере();
КонецЕсли;
@@ -933,36 +876,32 @@
ТребуетсяПрерватьПослеОшибки = ПрерыватьПриОшибке;
КонецЕсли;
- Для Счетчик=1 По Выбранные.Количество() Цикл
-
+ Для Счетчик = 1 По Выбранные.Количество() Цикл
Если ТипЗнч(Выбранные[Счетчик-1]) = Тип("Число") Тогда
-
ВыбраннаяСтрока = СписокИтогов.НайтиПоИдентификатору(Выбранные[Счетчик-1]);
Иначе
ВыбраннаяСтрока = Выбранные[Счетчик-1];
КонецЕсли;
- Состояние(ПараметрыИтогов.ОбрабатыватьЗаголовок,
- Счетчик * ШагПроцесса,
- ВыбраннаяСтрока.Наименование);
+ Состояние(ПараметрыИтогов.ОбрабатыватьЗаголовок, Счетчик * ШагПроцесса, ВыбраннаяСтрока.Наименование);
- Если ВРег(Действие) = ВРег("УстановитьИспользованиеИтогов") Тогда
+ Если ВРег(Действие) = ВРег("УстановитьИспользованиеИтогов") Тогда
Если ВыбраннаяСтрока.АгрегатыИтоги = 1 Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ВРег(Действие) = ВРег("ИспользоватьТекущиеИтоги") Тогда
- Если ВыбраннаяСтрока.АгрегатыИтоги = 1 ИЛИ НЕ ВыбраннаяСтрока.ОстаткиИОбороты Тогда
+ Если ВыбраннаяСтрока.АгрегатыИтоги = 1 Или Не ВыбраннаяСтрока.ОстаткиИОбороты Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ВРег(Действие) = ВРег("УстановитьПериодИтогов") Тогда
- Если ВыбраннаяСтрока.АгрегатыИтоги = 1 ИЛИ НЕ ВыбраннаяСтрока.ОстаткиИОбороты Тогда
+ Если ВыбраннаяСтрока.АгрегатыИтоги = 1 Или Не ВыбраннаяСтрока.ОстаткиИОбороты Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ВРег(Действие) = ВРег("УстановитьРазделениеИтогов") Тогда
- Если НЕ ВыбраннаяСтрока.РазрешитьРазделениеИтогов Тогда
+ Если Не ВыбраннаяСтрока.РазрешитьРазделениеИтогов Тогда
Продолжить;
КонецЕсли;
@@ -972,34 +911,37 @@
КонецЕсли;
ИначеЕсли ВРег(Действие) = ВРег("ПересчитатьИтогиЗаПериод") Тогда
- Если ВыбраннаяСтрока.АгрегатыИтоги = 1 ИЛИ НЕ ВыбраннаяСтрока.ОстаткиИОбороты Тогда
+ Если ВыбраннаяСтрока.АгрегатыИтоги = 1 Или Не ВыбраннаяСтрока.ОстаткиИОбороты Тогда
Продолжить;
КонецЕсли;
ИначеЕсли ВРег(Действие) = ВРег("ПересчитатьТекущиеИтоги") Тогда
- Если НЕ ВыбраннаяСтрока.ОстаткиИОбороты Тогда
+ Если Не ВыбраннаяСтрока.ОстаткиИОбороты Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
+ ПолеСообщенияОбОшибке = "";
+ Если Не ПустаяСтрока(ПараметрыИтогов.Поле) Тогда
+ ПолеСообщенияОбОшибке = "СписокИтогов[" + Выбранные[Счетчик - 1] + "]." + ПараметрыИтогов.Поле;
+ КонецЕсли;
+
Результат = УстановитьПараметрыРегистраНаСервере(
ВыбраннаяСтрока.Тип,
ВыбраннаяСтрока.ИмяМетаданного,
ПараметрыИтогов.Действие,
ПараметрыИтогов.Значение1,
ПараметрыИтогов.Значение2,
- ?(ПустаяСтрока(ПараметрыИтогов.Поле),
- "",
- "СписокИтогов[" + Выбранные[Счетчик - 1] + "]." + ПараметрыИтогов.Поле),
+ ПолеСообщенияОбОшибке,
ПараметрыИтогов.ТекстСообщенияОбОшибке);
ОбработкаПрерыванияПользователя();
- Если НЕ Результат И ТребуетсяПрерватьПослеОшибки Тогда
+ Если Не Результат И ТребуетсяПрерватьПослеОшибки Тогда
Прервать;
КонецЕсли;
КонецЦикла;
-
+
ОбновитьСписокИтоговНаСервере();
Состояние(ПараметрыИтогов.ПослеПроцесса);
@@ -1007,58 +949,47 @@
КонецПроцедуры
&НаКлиенте
-Функция СохранитьОптимальныеНастройкиАгрегатов(Знач ИмяМетаданного, Знач АдресФайлаВоВременномХранилище, Знач Поле)
-
- Попытка
- Если ПутьКОптимальнымАгрегатам = "web" Тогда
- ПолноеИмяФайла = ИмяМетаданного + ".xml";
- Иначе
- ПолноеИмяФайла = ПутьКОптимальнымАгрегатам + "\" + ИмяМетаданного + ".xml";
- КонецЕсли;
-#Если ВебКлиент Тогда
- ПолучитьФайл(АдресФайлаВоВременномХранилище, ПолноеИмяФайла, Истина);
-#Иначе
- ПолучитьФайл(АдресФайлаВоВременномХранилище, ПолноеИмяФайла, Ложь);
-#КонецЕсли
- УдалитьИзВременногоХранилища(АдресФайлаВоВременномХранилище);
-
- Возврат Истина;
- Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
-
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru='Ошибка записи файла оптимальных агрегатов:
- |""%1"".'"),
- КраткоеПредставлениеОшибки(ИнформацияОбОшибке) ));
-
- УдалитьИзВременногоХранилища(АдресФайлаВоВременномХранилище);
- Возврат Ложь;
- КонецПопытки;
-
-КонецФункции
-
-&НаКлиенте
-Функция ВыборПутиККаталогу(Знач ТекущийКаталог)
-
- Каталог = "";
-
- Если ПодключитьРасширениеРаботыСФайлами() Тогда
-
- ВыборКаталога = Новый ДиалогВыбораФайла (РежимДиалогаВыбораФайла.ВыборКаталога);
- ВыборКаталога.Каталог = ТекущийКаталог;
- ВыборКаталога.Заголовок = НСтр("ru = 'Выберите каталог для размещения файлов с оптимальными агрегатами'");
-
- Если ВыборКаталога.Выбрать() Тогда
- Каталог = ВыборКаталога.Каталог;
+Процедура ПолучитьОптимальныеАгрегатКлиент()
+ Если ПолныеВозможности Тогда
+ Если Элементы.АгрегатыПоРегистрам.ВыделенныеСтроки.Количество() = 0 Тогда
+ Возврат;
КонецЕсли;
Иначе
- Каталог = "web";
+ Если АгрегатыПоРегистрам.Количество() = 0 Тогда
+ ПоказатьПредупреждение(, НСтр("ru='Отсутствуют регистры, для которых можно выполнить данную операцию.'"));
+ Возврат;
+ КонецЕсли;
КонецЕсли;
- Возврат Каталог;
+ Результат = ПолучитьОптимальныеАгрегатыСервер();
+ Обработчик = Новый ОписаниеОповещения("ПоказатьРезультатВыполнения", ЭтотОбъект, Результат);
+ Если Результат.МожноПолучить Тогда
+ #Если ВебКлиент Тогда
+ ПолучитьФайл(Результат.АдресФайла, Результат.ИмяФайла, Истина);
+ ВыполнитьОбработкуОповещения(Обработчик, Истина);
+ #Иначе
+ ПолучаемыеФайлы = Новый Массив;
+ ПолучаемыеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла(Результат.ИмяФайла, Результат.АдресФайла));
+ Расширение = НРег(Сред(Результат.ИмяФайла, Найти(Результат.ИмяФайла, ".") + 1));
+ Если Расширение = "zip" Тогда
+ Фильтр = НСтр("ru = 'Архив ZIP (*.%1)|*.%1'");
+ ИначеЕсли Расширение = "xml" Тогда
+ Фильтр = НСтр("ru = 'Документ XML (*.%1)|*.%1'");
+ Иначе
+ Фильтр = "";
+ КонецЕсли;
+ Фильтр = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Фильтр, Расширение);
+ ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
+ ДиалогСохраненияФайла.ПолноеИмяФайла = Результат.ИмяФайла;
+ ДиалогСохраненияФайла.Фильтр = Фильтр;
+ ДиалогСохраненияФайла.МножественныйВыбор = Ложь;
+ НачатьПолучениеФайлов(Обработчик, ПолучаемыеФайлы, ДиалогСохраненияФайла, Истина);
+ #КонецЕсли
+ Иначе
+ ВыполнитьОбработкуОповещения(Обработчик, Истина);
+ КонецЕсли;
-КонецФункции
+КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Клиент, Сервер
@@ -1080,6 +1011,145 @@
////////////////////////////////////////////////////////////////////////////////
// Вызов сервера, Сервер
+&НаСервере
+Функция ПолучитьОптимальныеАгрегатыСервер()
+ Результат = Новый Структура;
+ Результат.Вставить("МожноПолучить", Ложь);
+ Результат.Вставить("АдресФайла", "");
+ Результат.Вставить("ИмяФайла", "");
+
+ Если ПолныеВозможности Тогда
+ Коллекция = ВыделенныеСтроки("АгрегатыПоРегистрам");
+ МаксимальныйОтносительныйРазмер = ОптимальныйОтносительныйРазмер;
+ Иначе
+ Коллекция = АгрегатыПоРегистрам;
+ МаксимальныйОтносительныйРазмер = 0;
+ КонецЕсли;
+ Всего = Коллекция.Количество();
+ Успешно = 0;
+ ЕстьОшибки = Ложь;
+ ПодробныйТекстОшибок = "";
+
+ КаталогВременныхФайлов = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(
+ ПолучитьИмяВременногоФайла(".TAM")); // Totals & Aggregates Management.
+ СоздатьКаталог(КаталогВременныхФайлов);
+
+ ФайлыДляАрхивации = Новый СписокЗначений;
+
+ // Получение агрегатов.
+ Для НомерСтроки = 1 По Всего Цикл
+ ИмяРегистраНакопления = Коллекция[НомерСтроки - 1].ИмяМетаданного;
+
+ МенеджерРегистра = РегистрыНакопления[ИмяРегистраНакопления];
+ ИнформацияОбОшибке = Неопределено;
+ Попытка
+ ОптимальныеАгрегаты = МенеджерРегистра.ОпределитьОптимальныеАгрегаты(МаксимальныйОтносительныйРазмер);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ КонецПопытки;
+ Если ИнформацияОбОшибке <> Неопределено Тогда
+ ЕстьОшибки = Истина;
+ ЗаголовокОшибки = НСтр("ru = 'Не удалось получить оптимальные агрегаты регистра ""%1"":'");
+ ПодробныйТекстОшибок = ПодробныйТекстОшибок
+ + ?(ПодробныйТекстОшибок = "", "", Символы.ПС + Символы.ПС)
+ + СтрЗаменить(ЗаголовокОшибки, "%1", ИмяРегистраНакопления)
+ + Символы.ПС
+ + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+ Продолжить;
+ КонецЕсли;
+
+ ПолноеИмяФайла = КаталогВременныхФайлов + ИмяРегистраНакопления + ".xml";
+
+ ЗаписьXML = Новый ЗаписьXML();
+ ЗаписьXML.ОткрытьФайл(ПолноеИмяФайла);
+ ЗаписьXML.ЗаписатьОбъявлениеXML();
+ СериализаторXDTO.ЗаписатьXML(ЗаписьXML, ОптимальныеАгрегаты);
+ ЗаписьXML.Закрыть();
+
+ ФайлыДляАрхивации.Добавить(ПолноеИмяФайла, ИмяРегистраНакопления);
+ Успешно = Успешно + 1;
+ КонецЦикла;
+
+ // Подготовка результата к передаче на клиент.
+ Если Успешно > 0 Тогда
+ Если Успешно = 1 Тогда
+ ЭлементСписка = ФайлыДляАрхивации[0];
+ ПолноеИмяФайла = ЭлементСписка.Значение;
+ КраткоеИмяФайла = ЭлементСписка.Представление + ".xml";
+ Иначе
+ КраткоеИмяФайла = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Оптимальные агрегаты регистров накопления %1.zip'"),
+ Формат(ТекущаяДатаСеанса(), "ДФ=yyyy-MM-dd"));
+ ПолноеИмяФайла = КаталогВременныхФайлов + КраткоеИмяФайла;
+ РежимСохранения = РежимСохраненияПутейZIP.СохранятьОтносительныеПути;
+ РежимОбработки = РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно;
+ ЗаписьZipФайла = Новый ЗаписьZipФайла(ПолноеИмяФайла);
+ Для Каждого ЭлементСписка Из ФайлыДляАрхивации Цикл
+ ЗаписьZipФайла.Добавить(ЭлементСписка.Значение, РежимСохранения, РежимОбработки);
+ КонецЦикла;
+ ЗаписьZipФайла.Записать();
+ КонецЕсли;
+ ДвоичныеДанные = Новый ДвоичныеДанные(ПолноеИмяФайла);
+ Результат.МожноПолучить = Истина;
+ Результат.ИмяФайла = КраткоеИмяФайла;
+ Результат.АдресФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор);
+ КонецЕсли;
+
+ // Очистка мусора.
+ УдалитьФайлы(КаталогВременныхФайлов);
+
+ // Подготовка текстов сообщений.
+ Если Всего = 1 Тогда
+ // Когда 1 регистр.
+ ЭлементСписка = ФайлыДляАрхивации[0];
+ ИмяРегистра = ЭлементСписка.Представление;
+ Если ЕстьОшибки Тогда
+ СтандартныеПодсистемыКлиентСервер.ВывестиПредупреждение(
+ Результат,
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Не удалось получить оптимальные агрегаты регистра накопления ""%1"".'"),
+ ИмяРегистра),
+ ПодробныйТекстОшибок);
+ Иначе
+ СтандартныеПодсистемыКлиентСервер.ВывестиОповещение(
+ Результат,
+ НСтр("ru = 'Оптимальные агрегаты успешно получены.'"),
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (регистр накопления)'"),
+ ИмяРегистра),
+ БиблиотекаКартинок.Успешно32);
+ КонецЕсли;
+ ИначеЕсли Успешно = 0 Тогда
+ // Ничего не получилось.
+ СтандартныеПодсистемыКлиентСервер.ВывестиПредупреждение(
+ Результат,
+ НСтр("ru = 'Не удалось получить оптимальные агрегаты регистров накопления.'"),
+ ПодробныйТекстОшибок);
+ ИначеЕсли ЕстьОшибки Тогда
+ // Частично успешно.
+ СтандартныеПодсистемыКлиентСервер.ВывестиПредупреждение(
+ Результат,
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Агрегаты успешно получены для %1 из %2 регистров.
+ |Не получены: %3.'"),
+ Успешно,
+ Всего,
+ Всего - Успешно),
+ ПодробныйТекстОшибок);
+ Иначе
+ // Полностью успешно.
+ СтандартныеПодсистемыКлиентСервер.ВывестиОповещение(
+ Результат,
+ НСтр("ru = 'Агрегаты успешно получены.'"),
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Регистры накопления (%1)'"),
+ Успешно),
+ БиблиотекаКартинок.Успешно32);
+ КонецЕсли;
+
+ Возврат Результат;
+КонецФункции
+
&НаСервере
Процедура ОбновитьСписокИтоговНаСервере()
@@ -1189,7 +1259,7 @@
Попытка
- Если ВРег(Действие) = ВРег("УстановитьИспользованиеИтогов") Тогда
+ Если ВРег(Действие) = ВРег("УстановитьИспользованиеИтогов") Тогда
Менеджер.УстановитьИспользованиеИтогов(Значение1);
ИначеЕсли ВРег(Действие) = ВРег("ИспользоватьТекущиеИтоги") Тогда
@@ -1237,110 +1307,47 @@
КонецФункции
&НаСервереБезКонтекста
-Функция УстановитьПараметрыАгрегатаНаСервере(Знач ИмяРегистра,
- Знач Действие,
- ЗначениеДействия1, // Значение по умолчанию: Истина.
- Знач ЗначениеДействия2, // Значение по умолчанию: Неопределено.
- Знач ПолеФормы,
- Знач СообщениеОбОшибке = "",
- АдресФайлаВоВременномХранилище = "")
+Функция ИзменитьАгрегатыСервер(Знач ПараметрыСервера)
+ Результат = Новый Структура;
+ Результат.Вставить("Успешно", Истина);
+ Результат.Вставить("ЗначениеДействия1", ПараметрыСервера.ЗначениеДействия1);
+ Результат.Вставить("АдресФайлаВоВременномХранилище", "");
- МенеджерРегистра = РегистрыНакопления[ИмяРегистра];
- МетаданныеРегистра = Метаданные.РегистрыНакопления[ИмяРегистра];
- Действие = НРег(Действие);
- ОК = Истина;
+ МенеджерРегистра = РегистрыНакопления[ПараметрыСервера.ИмяРегистра];
+ МетаданныеРегистра = Метаданные.РегистрыНакопления[ПараметрыСервера.ИмяРегистра];
Попытка
- Если ВРег(Действие) = ВРег("УстановитьРежимАгрегатов") Тогда
- МенеджерРегистра.УстановитьРежимАгрегатов(ЗначениеДействия1);
+ Если ВРег(ПараметрыСервера.Действие) = ВРег("УстановитьРежимАгрегатов") Тогда
+ МенеджерРегистра.УстановитьРежимАгрегатов(ПараметрыСервера.ЗначениеДействия1);
- ИначеЕсли ВРег(Действие) = ВРег("УстановитьИспользованиеАгрегатов") Тогда
- МенеджерРегистра.УстановитьИспользованиеАгрегатов(ЗначениеДействия1);
+ ИначеЕсли ВРег(ПараметрыСервера.Действие) = ВРег("УстановитьИспользованиеАгрегатов") Тогда
+ МенеджерРегистра.УстановитьИспользованиеАгрегатов(ПараметрыСервера.ЗначениеДействия1);
- ИначеЕсли ВРег(Действие) = ВРег("ЗаполнитьАгрегаты") Тогда
+ ИначеЕсли ВРег(ПараметрыСервера.Действие) = ВРег("ЗаполнитьАгрегаты") Тогда
МенеджерРегистра.ОбновитьАгрегаты(Ложь);
- ИначеЕсли ВРег(Действие) = ВРег("ПерестроитьАгрегаты") Тогда
- МенеджерРегистра.ПерестроитьИспользованиеАгрегатов(ЗначениеДействия1, ЗначениеДействия2);
+ ИначеЕсли ВРег(ПараметрыСервера.Действие) = ВРег("ПерестроитьАгрегаты") Тогда
+ МенеджерРегистра.ПерестроитьИспользованиеАгрегатов(ПараметрыСервера.ЗначениеДействия1, ПараметрыСервера.ЗначениеДействия2);
- ИначеЕсли ВРег(Действие) = ВРег("ОчиститьАгрегаты") Тогда
+ ИначеЕсли ВРег(ПараметрыСервера.Действие) = ВРег("ОчиститьАгрегаты") Тогда
МенеджерРегистра.ОчиститьАгрегаты();
- ИначеЕсли ВРег(Действие) = ВРег("ПолучитьОптимальныеАгрегаты") Тогда
-
- ОптимальныеАгрегаты = МенеджерРегистра.ОпределитьОптимальныеАгрегаты(ЗначениеДействия1);
- ЗначениеДействия1 = Ложь;
- НайденныеАгрегаты = Новый Соответствие;
- МетаданныеАгрегаты = МетаданныеРегистра.Агрегаты;
-
- Для Индекс1=0 По ОптимальныеАгрегаты.Агрегаты.ВГраница() Цикл
-
- ЗначениеДействия1 = Ложь;
- Для Индекс2=0 По МетаданныеАгрегаты.Количество() - 1 Цикл
-
- Если ОптимальныеАгрегаты.Агрегаты[Индекс1].Периодичность
- = МетаданныеАгрегаты[Индекс2].Периодичность
- И НайденныеАгрегаты[Индекс2] = Неопределено
- И ИзмеренияАгрегатовРавны(ОптимальныеАгрегаты.Агрегаты[Индекс1],
- МетаданныеАгрегаты[Индекс2]) Тогда
-
- НайденныеАгрегаты.Вставить(Индекс2, Истина);
- ЗначениеДействия1 = Истина;
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
- Если ЗначениеДействия1 Тогда
-
- Продолжить;
- КонецЕсли;
-
- Для Индекс2=0 По МетаданныеАгрегаты.Количество() - 1 Цикл
-
- Если ОптимальныеАгрегаты.Агрегаты[Индекс1].Периодичность
- = ПериодичностьАгрегатаРегистраНакопления.Авто
- И НайденныеАгрегаты[Индекс2] = Неопределено
- И ИзмеренияАгрегатовРавны(ОптимальныеАгрегаты.Агрегаты[Индекс1],
- МетаданныеАгрегаты[Индекс2]) Тогда
-
- НайденныеАгрегаты.Вставить(Индекс2, Истина);
- ЗначениеДействия1 = Истина;
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
- Если НЕ ЗначениеДействия1 Тогда
-
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
- ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
-
- ЗаписьXML = Новый ЗаписьXML();
- ЗаписьXML.ОткрытьФайл(ИмяВременногоФайла);
- ЗаписьXML.ЗаписатьОбъявлениеXML();
- СериализаторXDTO.ЗаписатьXML(ЗаписьXML, ОптимальныеАгрегаты);
- ЗаписьXML.Закрыть();
-
- АдресФайлаВоВременномХранилище = ПоместитьВоВременноеХранилище(
- Новый ДвоичныеДанные(ИмяВременногоФайла));
-
- УдалитьФайлы(ИмяВременногоФайла);
Иначе
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Неправильное имя параметра: %1'"),
- Действие);
+ ПараметрыСервера.Действие);
КонецЕсли;
Исключение
- СообщениеОбОшибке = СообщениеОбОшибке + " (" + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()) + ")";
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеОбОшибке, , ПолеФормы);
- ОК = Ложь;
+
+ СообщениеОбОшибке = ПараметрыСервера.СообщениеОбОшибке + " (" + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()) + ")";
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеОбОшибке, , ПараметрыСервера.ПолеФормы);
+ Результат.Успешно = Ложь;
+
КонецПопытки;
- Возврат ОК;
+ Возврат Результат;
КонецФункции
@@ -1366,6 +1373,17 @@
////////////////////////////////////////////////////////////////////////////////
// Сервер
+&НаСервере
+Функция ВыделенныеСтроки(ИмяТаблицы)
+ Результат = Новый Массив;
+ ВыделенныеСтроки = Элементы[ИмяТаблицы].ВыделенныеСтроки;
+ Таблица = ЭтотОбъект[ИмяТаблицы];
+ Для Каждого Идентификатор Из ВыделенныеСтроки Цикл
+ Результат.Добавить(Таблица.НайтиПоИдентификатору(Идентификатор));
+ КонецЦикла;
+ Возврат Результат;
+КонецФункции
+
&НаСервере
Процедура ПрочитатьИнформациюПоРегистрам()
@@ -1375,7 +1393,7 @@
Для Каждого Регистр Из Метаданные.РегистрыБухгалтерии Цикл
- Если НЕ ПравоДоступа("УправлениеИтогами", Регистр) Тогда
+ Если Не ПравоДоступа("УправлениеИтогами", Регистр) Тогда
Продолжить;
КонецЕсли;
@@ -1403,7 +1421,7 @@
Постфикс = НСтр("ru = 'регистр накопления'");
КонецЕсли;
- Если НЕ ПравоДоступа("УправлениеИтогами", Регистр) Тогда
+ Если Не ПравоДоступа("УправлениеИтогами", Регистр) Тогда
Продолжить;
КонецЕсли;
@@ -1426,7 +1444,7 @@
Продолжить;
КонецЕсли;
- Если НЕ ПравоДоступа("УправлениеИтогами", Регистр) Тогда
+ Если Не ПравоДоступа("УправлениеИтогами", Регистр) Тогда
Продолжить;
КонецЕсли;
@@ -1452,31 +1470,4 @@
КонецПроцедуры
-&НаСервереБезКонтекста
-Функция ИзмеренияАгрегатовРавны(Знач ОптимальныйАгрегат, Знач КонфАгрегат)
-
- Если ОптимальныйАгрегат.Измерения.ВГраница() <> КонфАгрегат.Измерения.ВГраница() Тогда
- Возврат Ложь;
- КонецЕсли;
-
- Для Индекс1 = 0 По ОптимальныйАгрегат.Измерения.ВГраница() Цикл
-
- Найдено = Ложь;
- Для Индекс2 = 0 По КонфАгрегат.Измерения.ВГраница() Цикл
-
- Если ОптимальныйАгрегат.Измерения[Индекс1] = КонфАгрегат.Измерения[Индекс2].Имя Тогда
- Найдено = Истина;
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
- Если НЕ Найдено Тогда
- Возврат Ложь;
- КонецЕсли;
- КонецЦикла;
-
- Возврат Истина;
-
-КонецФункции
-
#КонецОбласти
diff --git a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Help/ru.html b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Help/ru.html
index 7a59f12c6..97791a2a0 100644
--- a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Help/ru.html
+++ b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Help/ru.html
@@ -1,4 +1,4 @@
-
+
В данном диалоге можно ввести границы периода рассчитанных итогов для регистров накопления или бухгалтерии.
По умолчанию предлагаются следующие даты для установки границы рассчитанных итогов:
Предназначена для задания параметров перестроения использования агрегатов и получения списка оптимальных агрегатов.
Максимальный относительный размер - максимальная сумма размеров агрегатов в процентах от таблицы движений. Если параметр не указан или равен нулю, то нет ограничения размера агрегатов.
Предназначена для администрирования итогов регистров накопления и бухгалтерии, агрегатов оборотных регистров накопления.
Регистры программы предназначены для хранения и обработки информации, отражающей деятельность предприятия. В регистрах обычно хранится информация об изменении состояний объектов предметной области (документов, справочников) или другая информация, не отражающаяся непосредственно в этих объектах. Например, в регистрах может храниться информация о курсах валют.
Агрегаты - это специальный механизм, реализованный в оборотных регистрах накопления. Для любого регистра может быть создано несколько агрегатов. Каждый агрегат - это специализированное хранилище, содержащее агрегированные данные регистра в различных разрезах, удобных для формирования отчетов в конкретной информационной базе. Использование агрегатов позволяет значительно сократить время формирования отчетов, что важно для больших информационных баз.
Перед тем как начать работать с почтовыми сообщениями, в программе необходимо настроить работу с почтой. Для этого в списке взаимодействий выполните команду Еще- Персональные настройки.
Предназначен для работы с документами взаимодействий.
-
Бизнес-процессы помимо обычного делопроизводства в настоящее время включают и общение партнеров между собой, т.е. их взаимодействие: между партнерами проходят различные встречи, переговоры, электронная переписка. В процессе общения принимаются важные решения, заключаются различные договоры, составляются другие документы, поэтому необходимо это взаимодействие также задокументировать.
-
Программа позволяет планировать, регистрировать, упорядочивать и работать с результатами взаимодействия - общения пользователей программы с кем-либо по поводу предмета взаимодействия. Например, один сотрудник может взаимодействовать с другим сотрудником (контактом) по поводу заказа клиента (предмета).
-
Программа позволяет выстраивать различные взаимодействия, возникшие на основании одного и того же предмета, в цепочку. В цепочке взаимодействий в качестве предмета у всех взаимодействий указывается одно, как правило, первое по времени взаимодействие. При этом в любой момент времени в любом взаимодействии из цепочки можно указать другой предмет, не являющийся взаимодействием, например, один из документов программы, программа после этого в автоматическом режиме поменяет предмет у всей цепочки. Например, переговоры с потенциальным клиентом, состоявшие из встреч, телефонных звонков и переписки (цепочки взаимодействий) закончились заказом клиента. В этом случае программа позволяет изменить предмет во всех взаимодействиях, предшествовавших заказу, на итоговый заказ клиента.
-
Кроме этого, для удобства работы с контактами программа формирует единую адресную книгу на основании контактной информации.
-
Список взаимодействий состоит из двух частей: в левой части списка обычно отображается панель навигации, в правой части - документы взаимодействий.
Предназначен для работы с документами взаимодействий.
+
Бизнес-процессы помимо обычного делопроизводства в настоящее время включают и общение партнеров между собой, т.е. их взаимодействие: между партнерами проходят различные встречи, переговоры, электронная переписка. В процессе общения принимаются важные решения, заключаются различные договоры, составляются другие документы, поэтому необходимо это взаимодействие также задокументировать.
+
Программа позволяет планировать, регистрировать, упорядочивать и работать с результатами взаимодействия - общения пользователей программы с кем-либо по поводу предмета взаимодействия. Например, один сотрудник может взаимодействовать с другим сотрудником (контактом) по поводу заказа клиента (предмета).
+
Программа позволяет выстраивать различные взаимодействия, возникшие на основании одного и того же предмета, в цепочку. В цепочке взаимодействий в качестве предмета у всех взаимодействий указывается одно, как правило, первое по времени взаимодействие. При этом в любой момент времени в любом взаимодействии из цепочки можно указать другой предмет, не являющийся взаимодействием, например, один из документов программы, программа после этого в автоматическом режиме поменяет предмет у всей цепочки. Например, переговоры с потенциальным клиентом, состоявшие из встреч, телефонных звонков и переписки (цепочки взаимодействий) закончились заказом клиента. В этом случае программа позволяет изменить предмет во всех взаимодействиях, предшествовавших заказу, на итоговый заказ клиента.
+
Кроме этого, для удобства работы с контактами программа формирует единую адресную книгу на основании контактной информации.
+
Список взаимодействий состоит из двух частей: в левой части списка обычно отображается панель навигации, в правой части - документы взаимодействий.
Важность - признак необходимости акцентировать внимание на данном взаимодействии, или наоборот, признак несущественности. Может принимать значения: Низкая, Обычная (значение по умолчанию), Высокая. Отображается в списке взаимодействий специальными значками.
Важность - признак необходимости акцентировать внимание на данном взаимодействии, или наоборот, признак несущественности. Может принимать значения: Низкая, Обычная (значение по умолчанию), Высокая. Отображается в списке взаимодействий специальными значками.
+
+
Участники - контакты, с которыми были взаимодействия;
Тема - краткое содержание взаимодействия.
-
-
Дата - дата создания документа;
-
-
+
+
Дата - дата создания документа;
+
+
Наличие вложений - к письмам можно приложить различные файлы.
-
В нижней части списка (в зависимости от настроек) может отображаться описание, текст выделенного в списке взаимодействия или тело письма.
-
Жирным шрифтом в списке выделяются документы к рассмотрению, письма и сообщения SMS с установленным признаком На контроле. Программа ведет подсчет нерассмотренных документов и писем с флажком На контроле в каждой группе списка. Группы, которые содержат такие документы, выделяются жирным шрифтом.
В нижней части списка (в зависимости от настроек) может отображаться описание, текст выделенного в списке взаимодействия или тело письма.
+
Жирным шрифтом в списке выделяются документы к рассмотрению, письма и сообщения SMS с установленным признаком На контроле. Программа ведет подсчет нерассмотренных документов и писем с флажком На контроле в каждой группе списка. Группы, которые содержат такие документы, выделяются жирным шрифтом.
В левой части списка отображается панель, с помощью которой можно удобно группировать взаимодействия:
По предметам - панель навигации заполняется предметами взаимодействий. Все взаимодействия в списке группируются по предметам.
При позиционировании на предмете в списке отображаются взаимодействия по данному предмету.
В панели группировки можно открывать предметы, по которым сгруппированы взаимодействия (двойным щелчком мыши в панели группировки).
diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl
index f20c184a4..b3a360e33 100644
--- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl
@@ -1881,11 +1881,11 @@
| Документ.ТелефонныйЗвонок КАК ДокументВзаимодействий
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПредметыПапкиВзаимодействий КАК ПредметыПапкиВзаимодействий
| ПО ДокументВзаимодействий.Ссылка = ПредметыПапкиВзаимодействий.Взаимодействие
- | ЛЕВОЕ СОЕДИНЕНИЕ Документ.ТелефонныйЗвонок.ДополнительныеРеквизиты КАК ДокументВзаимодействийДополнительныеРеквизиты
+ | ЛЕВОЕ СОЕДИНЕНИЕ Документ.СообщениеSMS.ДополнительныеРеквизиты КАК ДокументВзаимодействийДополнительныеРеквизиты
| ПО (ДокументВзаимодействийДополнительныеРеквизиты.Ссылка = ДокументВзаимодействий.Ссылка)
| И (ДокументВзаимодействийДополнительныеРеквизиты.Свойство = &Свойство)
| " + ТекстУсловия + "
- |
+ |
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ
diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Help/ru.html b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Help/ru.html
index 754f37e48..7dfd605c9 100644
--- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Help/ru.html
+++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Help/ru.html
@@ -1,35 +1,35 @@
-
+
Предназначен для отражения взаимодействий по предмету или по контакту.
В панели навигации различных документов и элементов некоторых списков, например, списка пользователей, доступна команда Взаимодействия, которая открывает списки взаимодействий по предмету или контакту.
Например, если вызов произошел из карточки контактного лица партнера, то выводятся все взаимодействия с участием данного контактного лица. А если вызов произошел из какого-либо документа, то отображаются все взаимодействия по данному предмету.
Все Взаимодействия без исключения можно посмотреть в списке взаимодействий, который открывается по соответствующей команде раздела Органайзер.
Участники - контакты, с которыми были взаимодействия;
-
Дата - дата создания документа;
+
Дата - дата создания документа;
-
Тема - краткое содержание взаимодействия.
Жирным шрифтом в списке выделяются документы к рассмотрению, письма и сообщения SMS с установленным признаком На контроле. После установки флажка Рассмотрено выделение снимается.
+
Тема - краткое содержание взаимодействия.
Жирным шрифтом в списке выделяются документы к рассмотрению, письма и сообщения SMS с установленным признаком На контроле. После установки флажка Рассмотрено выделение снимается.
Сотрудник, ответственный за проведение опроса, имеет возможность в реальном времени отслеживать и контролировать ход анкетирования. Заполненные респондентами анкеты попадают в список.
Список открывается по команде Анкеты раздела Анкетирование.
diff --git a/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form
index 59775f7be..458217c75 100644
--- a/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form
+++ b/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form
@@ -271,10 +271,10 @@
Left
Документ предназначен для регистрации информации о прошедших встречах, для планирования и отражения факта встреч - совещаний, семинаров и т.п. Например, в этом документе можно отразить результаты обсуждения с клиентом нового коммерческого предложения.
Предназначен для выбора документа Запланированное взаимодействие. Документ предназначен для планирования взаимодействия с одним или несколькими контактами. Документ вводится в том случае, если необходимо запланировать взаимодействие, однако как именно будет производиться взаимодействие (телефонный звонок, встреча, электронное письмо, сообщение SMS), еще не известно.
Открывается по кнопке после выбора типа данных Запланированное взаимодействие (например, при заполнении поля Предмет в каком-либо документе взаимодействий).
Документ предназначен для планирования взаимодействия с одним или несколькими контактами. Вводится в том случае, если необходимо запланировать взаимодействие, однако как именно будет производиться взаимодействие (телефонный звонок, встреча, электронное письмо, сообщение SMS), еще не известно.
Предмет - то, чему посвящено взаимодействие, например, претензии клиента. Предметом могут быть документы программы, а также документы взаимодействий. Если предмет взаимодействия не определен, то в качестве предмета выступает текущий документ (т.е. такой документ начинает цепочку взаимодействий).
Для заполнения поля нажмите Выбрать, выберите тип данных, затем из соответствующего списка выберите конкретный документ.
Тема - краткое описание того, чему будет посвящено запланированное взаимодействие.
diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl
index 4fe711355..2cfdd67dd 100644
--- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl
+++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl
@@ -21,7 +21,9 @@
Взаимодействия.ПодготовитьОповещения(ЭтотОбъект,Параметры);
// СтандартныеПодсистемы.Свойства
- УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, , "СтраницаДополнительныеРеквизиты");
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ИмяЭлементаДляРазмещения", "СтраницаДополнительныеРеквизиты");
+ УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
// Конец СтандартныеПодсистемы.Свойства
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВерсионированиеОбъектов") Тогда
diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Help/ru.html b/SSL/src/Documents/ЗапланированноеВзаимодействие/Help/ru.html
index 58d20ac63..3a42de587 100644
--- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Help/ru.html
+++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Запланированное взаимодействие
Документ предназначен для планирования взаимодействия с одним или несколькими контактами. Документ вводится в том случае, если необходимо запланировать взаимодействие, однако как именно будет производиться взаимодействие (телефонный звонок, встреча, электронное письмо, сообщение SMS), еще не известно.
Для того чтобы респондент приступил к заполнению анкеты по составленному шаблону, необходимо выполнить ряд подготовительных действий. Сначала необходимо организовать проведение опроса, в рамках которого определить сроки его проведения, состав респондентов и шаблон анкеты, на основании которого будут сформированы анкеты респондентов.
Для того чтобы респондент приступил к заполнению анкеты по составленному шаблону, необходимо выполнить ряд подготовительных действий. Сначала необходимо организовать проведение опроса, в рамках которого определить сроки его проведения, состав респондентов и шаблон анкеты, на основании которого будут сформированы анкеты респондентов.
Открывается по команде Назначения опросов раздела Анкетирование.
diff --git a/SSL/src/Documents/НазначениеОпросов/НазначениеОпросов.mdo b/SSL/src/Documents/НазначениеОпросов/НазначениеОпросов.mdo
index 09a1b9ec3..bea2bd886 100644
--- a/SSL/src/Documents/НазначениеОпросов/НазначениеОпросов.mdo
+++ b/SSL/src/Documents/НазначениеОпросов/НазначениеОпросов.mdo
@@ -10,7 +10,7 @@
НазначениеОпросовru
- Назначение опросов
+ Проведение опросовtrueDocument.НазначениеОпросов.StandardAttribute.Number
@@ -59,10 +59,10 @@
UseManagedUse
-
+ ru
- Назначения опросов
-
+ Проведение опроса
+
String11Variable
diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html
index 981e9b11a..26b976e03 100644
--- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html
+++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html
@@ -1,12 +1,12 @@
-
+
Документ предназначен для отправки сообщения SMS одному или нескольким адресатам, проведения SMS-рассылки и последующего отражения факта отправки сообщений.
Документ позволяет создавать, редактировать и отправлять сообщения SMS, помимо их документирования и хранения. Возможна отправка нескольких сообщений с одинаковым текстом разным адресатам посредством одного документа. При этом отслеживается как состояние документа в целом, так и состояния отдельного сообщения каждому из различных адресатов в рамках документа.
Предмет - то, чему посвящено взаимодействие, например, претензии клиента. Предметом могут быть документы программы, а также документы взаимодействий. Если предмет взаимодействия не определен, то в качестве предмета выступает текущий документ (т.е. такой документ начинает цепочку взаимодействий).
Для заполнения поля нажмите Выбрать, выберите тип данных, затем из соответствующего списка выберите конкретный документ.
diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl
index bbbed3e91..795e724c4 100644
--- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl
+++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl
@@ -33,7 +33,9 @@
Взаимодействия.ПодготовитьОповещения(ЭтотОбъект, Параметры);
// СтандартныеПодсистемы.Свойства
- УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, , "СтраницаДополнительныеРеквизиты");
+ ДополнительныеПараметры = Новый Структура;
+ ДополнительныеПараметры.Вставить("ИмяЭлементаДляРазмещения", "СтраницаДополнительныеРеквизиты");
+ УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
// Конец СтандартныеПодсистемы.Свойства
КонецПроцедуры
@@ -121,7 +123,10 @@
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
- ВзаимодействияКлиент.ПроверкаЗаполненностиРеквизитовОтложеннойОтправки(Объект, Отказ);
+ Если Объект.Состояние = ПредопределенноеЗначение("Перечисление.СостоянияДокументаСообщениеSMS.Черновик")
+ ИЛИ Объект.Состояние = ПредопределенноеЗначение("Перечисление.СостоянияДокументаСообщениеSMS.Исходящее") Тогда
+ ВзаимодействияКлиент.ПроверкаЗаполненностиРеквизитовОтложеннойОтправки(Объект, Отказ);
+ КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Documents/СообщениеSMS/Help/ru.html b/SSL/src/Documents/СообщениеSMS/Help/ru.html
index 416a2324c..91e8f1697 100644
--- a/SSL/src/Documents/СообщениеSMS/Help/ru.html
+++ b/SSL/src/Documents/СообщениеSMS/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Предназначен для выбора документа Сообщение SMS. Документ используется для отправки сообщения SMS одному или нескольким адресатам.
Открывается по кнопке после выбора типа данных Сообщение SMS (например, при заполнении поля Предмет в каком-либо документе взаимодействий).
В списке выводится:
diff --git a/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl b/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl
index 4d76aae1a..2dcc3aa08 100644
--- a/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl
+++ b/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl
@@ -13,6 +13,8 @@
КонецПроцедуры
+#КонецОбласти
+
#Область ОбработчикиСобытий
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
@@ -54,8 +56,6 @@
-#КонецОбласти
-
#КонецОбласти
#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Help/ru.html b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Help/ru.html
index 3c558bb23..188dada0e 100644
--- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Help/ru.html
+++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Help/ru.html
@@ -1,9 +1,9 @@
-
+
Документ предназначен для регистрации входящих и исходящих телефонных звонков.
Предмет - то, чему посвящен телефонный звонок, например, претензии клиента. Предметом могут быть документы программы и документы взаимодействий. Если предмет взаимодействия не определен, то в качестве предмета автоматически проставляется значение текущего документа, т.е. такой документ начинает цепочку взаимодействий. При выполнении команды Взаимодействия из документа предметом взаимодействия во вновь созданном документе будет предмет, указанный в исходном документе, при этом основные поля будут также скопированы.
Открывается по кнопке после выбора типа данных Телефонный звонок (например, при заполнении поля Предмет в каком-либо документе взаимодействий).
-
В списке выводится:
-
Дата регистрации - дата создания документа;
-
Номер - присваивается автоматически;
-
Описание - в поле указывается, какие действия необходимо выполнить в рамках взаимодействия;
-
Предмет - то, чему посвящен документ взаимодействий, например претензии клиента. Предметом могут быть документы программы и документы взаимодействий. Если предмет взаимодействия не определен, то в качестве предмета автоматически проставляется значение текущего документа, т.е. такой документ взаимодействия начинает цепочку взаимодействий;
-
Абонент - контакт, который указан в телефонном звонке.
Выбор документа
-
-
Выделите документ, нажмите Выбрать.
-
-
Также можно использовать двойной щелчок мыши.
Отбор по периоду
-
С помощью соответствующей команды меню Еще можно Установить интервал дат.
Ввод документа Телефонный звонок
-
Нажмите Создать. Заполните нужные поля.
Создание взаимодействий на основании телефонного звонка
-
-
Выделите нужный документ Телефонный звонок. Нажмите Взаимодействия, для того чтобы:
Предназначен для выбора документа Входящее электронное письмо. Этот документ можно только получить, ввести его невозможно.
Открывается по кнопке после выбора типа данных Входящее электронное письмо (например, при заполнении поля Предмет в каком-либо документе взаимодействий).
Открывается по кнопке после выбора типа данных Исходящее электронное письмо (например, при заполнении поля Предмет в каком-либо документе взаимодействий).
выберите поле документа взаимодействий, по которому будет происходить отбор. Для этого в списке укажите нужное поле, затем нажмите Выбрать. Также можно использовать двойной щелчок мыши. diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html index 56b34feb0..dc7278660 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Help/ru.html @@ -1,4 +1,4 @@ - +
.
Написать письмо или Отправить для отправки электронных сообщений из различных объектов программы, например, из окна пользователя программы и т.п.
Печать.
Создать начальный образ из Помощника создания синхронизации данных при настройке синхронизации РИБ (внешние файлы). Также можно в списке Синхронизация данных с помощью кнопки
открыть настройку синхронизации РИБ (внешние файлы), нажать кнопку
Электронные подписи и шифрование - Сохранить вместе с электронной подписью, например, из списка файлов (присоединенных файлов объекта), списка присоединенных файлов или карточки файла (карточки присоединенного файла), если персональная настройка действий При сохранении с электронной подписью установлена в "Спрашивать". Команду можно найти в панели навигации или в меню Еще, а также в контекстном меню по правой кнопке мыши.
Карта маршрута.
