Если выключен, то отчет не будет размещаться в группе раздела.
+
Раздел, Группа
+
+
Подсистема, в которой необходимо разместить вариант отчета. Подсистемы верхнего уровня - разделы, остальные - группы. При размещении в разделе вариант отчета будет выводиться без группы.
+
Важность
+
Способ выделения варианта отчета в группе: Важный – вариант отчета будет выделен жирным шрифтом. См. также – вариант отчета будет выведен в отдельной группе внизу панели отчетов.
Сбросить пользовательские настройки в панелях отчетов по данному варианту отчета.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
index 29cc5d0c3..58ff17aed 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
@@ -3,253 +3,179 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
- СписокПользователей = "";
- СписокПодсистем = "";
-
- Для каждого Подсистема из Метаданные.Подсистемы Цикл
-
- Если Не Подсистема.ВключатьВКомандныйИнтерфейс тогда
- Продолжить;
- КонецЕсли;
-
- СтрокаПодсистемы = ДеревоПодсистем.ПолучитьЭлементы().Добавить();
-
- СтрокаПодсистемы.ПутьКПодсистеме = Подсистема.Имя;
- СтрокаПодсистемы.Название = Подсистема.Синоним;
-
- МассивСтрок = Объект.Подсистемы.НайтиСтроки(Новый Структура("Подсистема", Подсистема.Имя));
- СтрокаПодсистемы.Использование = МассивСтрок.Количество() > 0;
- Если СтрокаПодсистемы.Использование тогда
- СписокПодсистем = СписокПодсистем + Подсистема.Синоним + ", ";
- СтрокаПодсистемы.Предопределенная = МассивСтрок[0].Предопределенная;
- КонецЕсли;
-
- ДобавитьДеревоПодсистем(Подсистема, СтрокаПодсистемы, СписокПодсистем);
-
- КонецЦикла;
-
- ВиртуальныеПодсистемы = ВариантыОтчетов.ПолучитьВиртуальныеПодсистемы("");
-
- Для каждого Подсистема из ВиртуальныеПодсистемы Цикл
-
- СтрокаПодсистемы = ДеревоПодсистем.Строки.Добавить();
-
- СтрокаПодсистемы.ПутьКПодсистеме = Подсистема.Значение;
- СтрокаПодсистемы.Название = Подсистема.Представлени;
-
- МассивСтрок = Объект.Подсистемы.НайтиСтроки(Новый Структура("Подсистема", Подсистема.Значение));
- СтрокаПодсистемы.Использование = МассивСтрок.Количество() > 0;
- Если СтрокаПодсистемы.Использование тогда
- СписокПодсистем = СписокПодсистем + Подсистема.Синоним + ", ";
- СтрокаПодсистемы.Предопределенная = МассивСтрок[0].Предопределенная;
- КонецЕсли;
-
- ДобавитьДеревоВиртуальныхПодсистем(Подсистема.Значение, СтрокаПодсистемы, СписокПодсистем);
-
- КонецЦикла;
-
- БыстрыйДоступ = ПредставлениеНастроекБыстрогоДоступа(ЭтаФорма);
- Разделы = ПредставлениеРазделов(ЭтаФорма);
-
- Если Объект.ТипВариантаОтчета = Перечисления.ТипыВариантовОтчетов.Отчет
- ИЛИ Объект.ТипВариантаОтчета = Перечисления.ТипыВариантовОтчетов.Предопределенный Тогда
-
- Элементы.Администратор.АвтоОтметкаНезаполненного = Ложь;
- Элементы.Администратор.ТолькоПросмотр = Истина;
- Элементы.Описание.ТолькоПросмотр = Истина;
-
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+ Если Объект.Ссылка.Пустая() Тогда
+ ОшибкаОткрытия = НСтр("ru = 'Новый вариант отчета можно создать только из формы отчета'");
+ Возврат;
КонецЕсли;
+ ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты();
+
+ Если Объект.ПометкаУдаления Тогда
+ ТолькоПросмотр = Истина;
+ Элементы.ДеревоПодсистем.ТолькоПросмотр = Истина;
+ КонецЕсли;
+
+ Если НЕ ПолныеПраваНаВарианты Тогда
+ Элементы.Автор.ТолькоПросмотр = Истина;
+ КонецЕсли;
+
+ Если НЕ Объект.Пользовательский Тогда
+ Элементы.Наименование.ТолькоПросмотр = Истина;
+ Элементы.Доступен.ТолькоПросмотр = Истина;
+ Элементы.Автор.ТолькоПросмотр = Истина;
+ Элементы.Автор.АвтоОтметкаНезаполненного = Ложь;
+ КонецЕсли;
+
+ ЭтоВнешний = (Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внешний);
+ Если ЭтоВнешний Тогда
+ Элементы.ВидимостьПоУмолчанию.ТолькоПросмотр = Истина;
+ Элементы.ДеревоПодсистем.ТолькоПросмотр = Истина;
+ КонецЕсли;
+
+ Элементы.ВосстановитьИсходныеНастройки.Видимость = (
+ ПолныеПраваНаВарианты
+ И Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний
+ И НЕ Объект.Пользовательский
+ );
+
+ // Заполнение имени отчета для команды "Просмотр"
+ Если Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний Тогда
+ ИмяОтчета = Объект.Отчет.Имя;
+ ИначеЕсли Объект.ТипОтчета = Перечисления.ТипыОтчетов.Дополнительный Тогда
+ ИмяОтчета = Объект.Отчет.ИмяОбъекта;
+ Иначе
+ ИмяОтчета = Объект.Отчет;
+ КонецЕсли;
+
+ ПерезаполнитьДерево();
+
+ ВариантыОтчетов.ДеревоПодсистемДобавитьУсловноеОформление(ЭтаФорма);
+
+ Доступен = ?(Объект.ТолькоДляАвтора, "1", "2");
+
+ ВидимостьДоступность(ЭтаФорма);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+ Если НЕ ПустаяСтрока(ОшибкаОткрытия) Тогда
+ Если Объект.Ссылка.Пустая() Тогда
+ Отказ = Истина;
+ Иначе
+ ТолькоПросмотр = Истина;
+ КонецЕсли;
+
+ Предупреждение(ОшибкаОткрытия);
+ КонецЕсли;
+КонецПроцедуры
+
+&НаСервере
+Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
+ ВариантыОтчетов.ДеревоПодсистемЗаписать(ЭтаФорма, ТекущийОбъект);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПослеЗаписи(ПараметрыЗаписи)
+ ПараметрОповещения = Новый Структура("Ссылка, Наименование, Автор, Описание, ВидимостьПоУмолчанию");
+ ЗаполнитьЗначенияСвойств(ПараметрОповещения, Объект);
+ Оповестить(ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеВарианта(), ПараметрОповещения, ИмяФормы);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ШАПКИ ФОРМЫ
&НаКлиенте
-Процедура БыстрыйДоступНажатие(Элемент, СтандартнаяОбработка)
+Процедура ОписаниеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
-
- ИсключенияБыстрогоДоступа = Новый СписокЗначений;
- Для каждого СтрокаПользователь из Объект.ИсключенияБыстрогоДоступа Цикл
- ИсключенияБыстрогоДоступа.Добавить(СтрокаПользователь.Пользователь);
- КонецЦикла;
- ПараметрыФормы = Новый Структура("БыстрыйДоступ, ИсключенияБыстрогоДоступа", Объект.БыстрыйДоступ, ИсключенияБыстрогоДоступа);
-
- Структура = ОткрытьФормуМодально("Справочник.ВариантыОтчетов.Форма.НастройкаБыстрогоДоступа", ПараметрыФормы, ЭтаФорма);
- Если Структура = Неопределено тогда
- Возврат;
- КонецЕсли;
-
- Объект.БыстрыйДоступ = Структура.БыстрыйДоступ;
-
- Объект.ИсключенияБыстрогоДоступа.Очистить();
- Для Каждого ЭлементСписка Из Структура.ИсключенияБыстрогоДоступа Цикл
- Объект.ИсключенияБыстрогоДоступа.Добавить().Пользователь = ЭлементСписка.Значение;
- КонецЦикла;
-
- БыстрыйДоступ = ПредставлениеНастроекБыстрогоДоступа(ЭтаФорма);
- Модифицированность = Истина;
+ ОбщегоНазначенияКлиент.ОткрытьФормуРедактированияМногострочногоТекста(
+ Объект.Описание,
+ Объект.Описание,
+ Модифицированность,
+ НСтр("ru = 'Описание'")
+ );
КонецПроцедуры
&НаКлиенте
-Процедура РазделыНажатие(Элемент, СтандартнаяОбработка)
- СтандартнаяОбработка = Ложь;
-
- ПараметрыФормы = Новый Структура("АдресДереваПодсистем, Подсистемы, НовыйЭлементСправочника");
- ПараметрыФормы.Подсистемы = Объект.Подсистемы;
- ПараметрыФормы.НовыйЭлементСправочника = Объект.Ссылка.Пустая();
-
- ПодготовитьПараметрыНастройкиПодсистем(ПараметрыФормы);
-
- ВозвращаемыеПараметры = ОткрытьФормуМодально("Справочник.ВариантыОтчетов.Форма.НастройкаПодсистем", ПараметрыФормы, ЭтаФорма);
-
- Если ВозвращаемыеПараметры <> Неопределено тогда
- Объект.Подсистемы.Очистить();
- Для каждого ОписаниеПодсистема из ВозвращаемыеПараметры.СписокПодсистем Цикл
- СтрокаПодсистемы = Объект.Подсистемы.Добавить();
- СтрокаПодсистемы.Подсистема = ОписаниеПодсистема.Подсистема;
- СтрокаПодсистемы.Название = ОписаниеПодсистема.Название;
- СтрокаПодсистемы.Предопределенная = ОписаниеПодсистема.Предопределенная;
- КонецЦикла;
-
- ЗафиксироватьРезультатНастройкиПодсистем(ВозвращаемыеПараметры);
-
- Разделы = ПредставлениеРазделов(ЭтаФорма);
-
- Модифицированность = Истина;
-
- КонецЕсли;
+Процедура ДоступенПриИзменении(Элемент)
+ Объект.ТолькоДляАвтора = (ЭтаФорма.Доступен = "1");
+ ВидимостьДоступность(ЭтаФорма, "ТолькоДляАвтора");
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ ДеревоПодсистем
+
+&НаКлиенте
+Процедура ДеревоПодсистемИспользованиеПриИзменении(Элемент)
+ ВариантыОтчетовКлиент.ДеревоПодсистемИспользованиеПриИзменении(ЭтаФорма, Элемент);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДеревоПодсистемВажностьПриИзменении(Элемент)
+ ВариантыОтчетовКлиент.ДеревоПодсистемВажностьПриИзменении(ЭтаФорма, Элемент);
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
+
+&НаКлиенте
+Процедура ВосстановитьИсходныеНастройки(Команда)
+ РезультатРаботыСерверера = ВосстановитьИсходныеНастройкиСервер();
+ Элементы.ДеревоПодсистем.Развернуть(ДеревоПодсистем.ПолучитьЭлементы()[0].ПолучитьИдентификатор(), Истина);
+ ВариантыОтчетовКлиент.ПоказатьРезультат(РезультатРаботыСерверера);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
&НаКлиентеНаСервереБезКонтекста
-Функция ПредставлениеНастроекБыстрогоДоступа(ЭтаФорма)
- ВариантБыстрыйДоступ = ЭтаФорма.Объект.БыстрыйДоступ;
- ВариантИсключенияБыстрогоДоступа = ЭтаФорма.Объект.ИсключенияБыстрогоДоступа;
-
- Результат = "";
- Для Каждого СтрокаТаблицы Из ВариантИсключенияБыстрогоДоступа Цикл
- ПредставлениеСтроки = СокрЛП(Строка(СтрокаТаблицы.Пользователь));
- Если ПредставлениеСтроки <> "" Тогда
- Если Результат = "" Тогда
- Результат = ?(ВариантБыстрыйДоступ, НСтр("ru = 'Все кроме:'") +" ", "");
- Результат = Результат + ПредставлениеСтроки;
- Иначе
- Результат = Результат +", "+ ПредставлениеСтроки;
- КонецЕсли;
- КонецЕсли;
- КонецЦикла;
-
- Если Результат = "" Тогда
- Результат = ?(ВариантБыстрыйДоступ, НСтр("ru = 'Все'"), НСтр("ru = 'Пользователи не выбраны'"));
+Процедура ВидимостьДоступность(ЭтаФорма, Изменения = "")
+ Если ЭтаФорма.ТолькоПросмотр Тогда
+ Возврат;
КонецЕсли;
+ Объект = ЭтаФорма.Объект;
+ Элементы = ЭтаФорма.Элементы;
+
+ Если Изменения = "" ИЛИ Изменения = "ТолькоДляАвтора" Тогда
+ Если НЕ ЭтаФорма.ЭтоВнешний Тогда
+ Элементы.ВидимостьПоУмолчанию.Доступность = НЕ Объект.ТолькоДляАвтора;
+ КонецЕсли;
+ КонецЕсли;
+КонецПроцедуры
+
+&НаСервере
+Функция ПерезаполнитьДерево()
+ ДеревоПриемник = ВариантыОтчетов.ДеревоПодсистемСформировать(ЭтаФорма, Объект);
+ ЗначениеВРеквизитФормы(ДеревоПриемник, "ДеревоПодсистем");
+ Возврат Истина;
+КонецФункции
+
+&НаСервере
+Функция ВосстановитьИсходныеНастройкиСервер()
+ Результат = Новый Структура("Оповестить, Заголовок, Текст, ТекстОшибок, Ссылка", Ложь, "", "", "", "", "");
+
+ ДеревоНастроек = ВариантыОтчетов.ДеревоНастроекВариантовОтчетовКонфигурации();
+
+ ОписаниеВарианта = ВариантыОтчетов.ОписаниеВарианта(ДеревоНастроек, Объект.Отчет, Объект.КлючВарианта);
+
+ Объект.Наименование = ОписаниеВарианта.Наименование;
+ Объект.Описание = ОписаниеВарианта.Описание;
+
+ Объект.Размещение.Очистить();
+ ВариантыОтчетов.ВосстановитьРазмещениеПредопределенногоВариантаОтчета(Объект, ОписаниеВарианта);
+
+ ПерезаполнитьДерево();
+
+ Модифицированность = Истина;
+
+ Результат.Заголовок = НСтр("ru = 'Восстановлены настройки варианта отчета'");
+ Результат.Оповестить = Истина;
+ Результат.Текст = Строка(Объект.Ссылка);
+ Результат.Ссылка = ПолучитьНавигационнуюСсылку(Объект.Ссылка);
+
Возврат Результат;
КонецФункции
-&НаКлиентеНаСервереБезКонтекста
-Функция ПредставлениеРазделов(ЭтаФорма)
- ВариантПодсистемы = ЭтаФорма.Объект.Подсистемы;
-
- Результат = "";
- Для Каждого СтрокаТаблицы Из ВариантПодсистемы Цикл
- ПредставлениеСтроки = СокрЛП(СтрокаТаблицы.Название);
- Если ПредставлениеСтроки <> "" Тогда
- Результат = Результат + ПредставлениеСтроки + ", ";
- КонецЕсли;
- КонецЦикла;
-
- Если Результат = "" Тогда
- Результат = НСтр("ru = 'Разделы не выбраны'");
- Иначе
- Результат = Лев(Результат, СтрДлина(Результат)-2);
- КонецЕсли;
-
- Возврат Результат;
-КонецФункции
-
-&НаСервере
-Процедура ДобавитьДеревоПодсистем(Подсистема, СтрокаПодсистемы, СписокПодсистем)
-
- Для каждого ПодсистемаПодчиненная из Подсистема.Подсистемы Цикл
-
- Если Не ПодсистемаПодчиненная.ВключатьВКомандныйИнтерфейс тогда
- Продолжить;
- КонецЕсли;
-
- СтрокаПодсистемыПодчиненой = СтрокаПодсистемы.ПолучитьЭлементы().Добавить();
- СтрокаПодсистемыПодчиненой.Название = ПодсистемаПодчиненная.Синоним;
- МассивСтрок = Объект.Подсистемы.НайтиСтроки(
- Новый Структура("Подсистема", СтрокаПодсистемы.ПутьКПодсистеме + "\" + ПодсистемаПодчиненная.Имя));
- СтрокаПодсистемыПодчиненой.Использование = МассивСтрок.Количество() > 0;
- Если СтрокаПодсистемыПодчиненой.Использование тогда
- СписокПодсистем = СписокПодсистем + ПодсистемаПодчиненная.Синоним + ", ";
- СтрокаПодсистемыПодчиненой.Предопределенная = МассивСтрок[0].Предопределенная;
- КонецЕсли;
- СтрокаПодсистемыПодчиненой.ПутьКПодсистеме = СтрокаПодсистемы.ПутьКПодсистеме + "\" + ПодсистемаПодчиненная.Имя;
- ДобавитьДеревоПодсистем(ПодсистемаПодчиненная, СтрокаПодсистемыПодчиненой, СписокПодсистем);
-
- КонецЦикла;
-
- ВиртуальныеПодсистемы = ВариантыОтчетов.ПолучитьВиртуальныеПодсистемы(СтрокаПодсистемы.ПутьКПодсистеме);
-
- Для каждого ПодсистемаПодчиненная из ВиртуальныеПодсистемы Цикл
-
- СтрокаПодсистемыПодчиненой = СтрокаПодсистемы.ПолучитьЭлементы().Добавить();
- СтрокаПодсистемыПодчиненой.Название = ПодсистемаПодчиненная.Представление;
- МассивСтрок = Объект.Подсистемы.НайтиСтроки(
- Новый Структура("Подсистема", ПодсистемаПодчиненная.Значение));
- СтрокаПодсистемыПодчиненой.Использование = МассивСтрок.Количество() > 0;
- Если СтрокаПодсистемыПодчиненой.Использование тогда
- СписокПодсистем = СписокПодсистем + ПодсистемаПодчиненная.Представление + ", ";
- СтрокаПодсистемыПодчиненой.Предопределенная = МассивСтрок[0].Предопределенная;
- КонецЕсли;
- СтрокаПодсистемыПодчиненой.ПутьКПодсистеме = ПодсистемаПодчиненная.Значение;
- ДобавитьДеревоВиртуальныхПодсистем(ПодсистемаПодчиненная.Значение, СтрокаПодсистемыПодчиненой, СписокПодсистем);
-
- КонецЦикла;
-КонецПроцедуры
-
-&НаСервере
-Процедура ДобавитьДеревоВиртуальныхПодсистем(Подсистема, СтрокаПодсистемы, СписокПодсистем)
-
- ВиртуальныеПодсистемы = ВариантыОтчетов.ПолучитьВиртуальныеПодсистемы(Подсистема);
-
- Для каждого ПодсистемаПодчиненная из ВиртуальныеПодсистемы Цикл
-
- СтрокаПодсистемыПодчиненой = СтрокаПодсистемы.ПолучитьЭлементы().Добавить();
- СтрокаПодсистемыПодчиненой.Название = ПодсистемаПодчиненная.Представление;
- МассивСтрок = Объект.Подсистемы.НайтиСтроки(
- Новый Структура("Подсистема", ПодсистемаПодчиненная.Значение));
- СтрокаПодсистемыПодчиненой.Использование = МассивСтрок.Количество() > 0;
- Если СтрокаПодсистемыПодчиненой.Использование тогда
- СписокПодсистем = СписокПодсистем + ПодсистемаПодчиненная.Представление + ", ";
- СтрокаПодсистемыПодчиненой.Предопределенная = МассивСтрок[0].Предопределенная;
- КонецЕсли;
- СтрокаПодсистемыПодчиненой.ПутьКПодсистеме = ПодсистемаПодчиненная.Значение;
- ДобавитьДеревоВиртуальныхПодсистем(ПодсистемаПодчиненная.Значение, СтрокаПодсистемыПодчиненой, СписокПодсистем);
-
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ПодготовитьПараметрыНастройкиПодсистем(ПараметрыФормы)
-
- ДеревоЗначений = ДанныеФормыВЗначение(ДеревоПодсистем, Тип("ДеревоЗначений"));
- ПараметрыФормы.АдресДереваПодсистем = ПоместитьВоВременноеХранилище(ДеревоЗначений, ЭтаФорма.УникальныйИдентификатор);
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ЗафиксироватьРезультатНастройкиПодсистем(ВозвращаемыеПараметры)
-
- ДеревоЗначений = ПолучитьИзВременногоХранилища(ВозвращаемыеПараметры.АдресДереваПодсистем);
- ЗначениеВРеквизитФормы(ДеревоЗначений, "ДеревоПодсистем");
- УдалитьИзВременногоХранилища(ВозвращаемыеПараметры.АдресДереваПодсистем);
-
-КонецПроцедуры
-
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
index 1e7b63b52..0d1ad9f8e 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
+++ b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
@@ -1,10 +1,31 @@
-
-
-
Вариант отчета представляет собой сохраненную настройку, которая содержит описание группировок, отборов, условные оформления и т.п.
-
Для создания нового или изменения существующего варианта отчета можно воспользоваться командой "Сохранить вариант" из формы отчета.
-
Удаление отчета можно производить непосредственно из формы сохранения настроек варианта отчета, а также пометить вариант отчета на удаление непосредственно из списка вариантов отчета.
-
Для получения информация по настройке вариантов отчета обратитесь к документации по конфигурированию и администрированию 1С:Предприятие 8.
Редактирование, открытие и выбор вариантов отчетов.
+
Перемещаясь по списку "Раздел, Группа" список "Варианты отчетов" автоматически фильтруется по выбранному разделу или группе. Варианты отчетов можно перетаскивать или добавлять (с зажатой клавишей Ctrl) в другие разделы или группы.
Внутренний, Дополнительный или Внешний. Варианты внешних отчетов не могут размещаться в панели отчетов.
+
Ключ варианта
+
Ключ варианта отчета.
+
Пользовательский
+
Да - Варианты отчетов, которые были сохранены сохранен пользователями в режиме Предприятия, Нет - Варианты отчетов, которые были созданы на этапе разработки отчета в конфигураторе.
+
По умолчанию виден в панелях отчетов всех пользователей
+
Значение по умолчанию флажка "Видимость" для всех пользователей в панелях отчетов.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl
index 25af3b43b..8e0f586f4 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl
@@ -1,13 +1,98 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
+ Если Отказ ИЛИ ОбменДанными.Загрузка Тогда
+ Возврат;
+ КонецЕсли;
+
ИсключаемыеРеквизиты = Новый Массив;
- Если ТипВариантаОтчета = Перечисления.ТипыВариантовОтчетов.Отчет
- ИЛИ ТипВариантаОтчета = Перечисления.ТипыВариантовОтчетов.Предопределенный Тогда
- ИсключаемыеРеквизиты.Добавить("Администратор");
+ Если НЕ Пользовательский Тогда
+ ИсключаемыеРеквизиты.Добавить("Автор");
КонецЕсли;
ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, ИсключаемыеРеквизиты);
+
+ Если Наименование <> "" И ВариантыОтчетов.НаименованиеЗанято(Отчет, Ссылка, Наименование) Тогда
+ Отказ = Истина;
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '""%1"" занято, необходимо указать другое наименование.'"),
+ Наименование
+ ),
+ ,
+ "Наименование"
+ );
+ КонецЕсли;
КонецПроцедуры
+
+Процедура ПередЗаписью(Отказ)
+ Если Отказ ИЛИ ОбменДанными.Загрузка Тогда
+ Возврат;
+ КонецЕсли;
+
+ ПользователемИзмененаПометкаУдаления = (
+ НЕ ЭтоНовый()
+ И ПометкаУдаления <> Ссылка.ПометкаУдаления
+ И НЕ ДополнительныеСвойства.Свойство("ЗаполнениеПредопределенных")
+ );
+
+ Если НЕ Пользовательский И ПользователемИзмененаПометкаУдаления Тогда
+ Если ПометкаУдаления Тогда
+ ТекстОшибки = НСтр("ru = 'Пометка на удаление предопределенного варианта отчета запрещена.'");
+ Иначе
+ ТекстОшибки = НСтр("ru = 'Снятие пометки удаления предопределенного варианта отчета запрещена.'");
+ КонецЕсли;
+ ВариантыОтчетов.ОшибкаПоВарианту(Ссылка, ТекстОшибки);
+ ВызватьИсключение ТекстОшибки;
+ КонецЕсли;
+
+ Если НЕ ПометкаУдаления И ПользователемИзмененаПометкаУдаления Тогда
+ НаименованиеЗанято = ВариантыОтчетов.НаименованиеЗанято(Отчет, Ссылка, Наименование);
+ КлючВариантаЗанят = ВариантыОтчетов.КлючВариантаЗанят(Отчет, Ссылка, КлючВарианта);
+ Если НаименованиеЗанято ИЛИ КлючВариантаЗанят Тогда
+ ТекстОшибки = НСтр("ru = 'Ошибка снятия пометки удаления варианта отчета:'");
+ Если НаименованиеЗанято Тогда
+ ТекстОшибки = ТекстОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Наименование ""%1"" уже занято другим вариантом этого отчета.'"),
+ Наименование
+ );
+ Иначе
+ ТекстОшибки = ТекстОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ключ варианта ""%1"" уже занят другим вариантом этого отчета.'"),
+ КлючВарианта
+ );
+ КонецЕсли;
+ ТекстОшибки = ТекстОшибки + НСтр("ru = 'Перед снятием пометки удаления варианта отчета
+ |необходимо установить пометку удаления конфликтующего варианта отчета.'");
+ ВариантыОтчетов.ОшибкаПоВарианту(Ссылка, ТекстОшибки);
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки);
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ПриЗаписи(Отказ)
+ Если Отказ ИЛИ ОбменДанными.Загрузка Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Удаление из табличной части подсистем, помеченных на удаление.
+ МассивУдаляемыхСтрок = Новый Массив;
+ Для Каждого СтрокаРазмещения Из Размещение Цикл
+ Если СтрокаРазмещения.РазделИлиГруппа.ПометкаУдаления = Истина Тогда
+ МассивУдаляемыхСтрок.Добавить(СтрокаРазмещения);
+ КонецЕсли;
+ КонецЦикла;
+ Для Каждого СтрокаРазмещения Из МассивУдаляемыхСтрок Цикл
+ Размещение.Удалить(СтрокаРазмещения);
+ КонецЦикла;
+КонецПроцедуры
+
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo b/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo
index 5a3c55490..8b3544a34 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo
+++ b/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo
@@ -77,10 +77,6 @@
UseDescription
-
- ru
- Вариант отчета
- ShowErrorUse
@@ -119,15 +115,17 @@
BothWaysCatalog.ВариантыОтчетов.Form.ФормаЭлементаCatalog.ВариантыОтчетов.Form.ФормаСписка
- Catalog.ВариантыОтчетов.Form.ФормаВыбора
-
- КлючОбъекта
+ Catalog.ВариантыОтчетов.Form.ФормаСписка
+
+ Отчетru
- Ключ объекта
+ ОтчетString
+ CatalogRef.ДополнительныеОтчетыИОбработки
+ CatalogRef.ИдентификаторыОбъектовМетаданных150
@@ -143,63 +141,14 @@
IndexUse
-
- Администратор
-
- ru
- Автор
-
-
- CatalogRef.Пользователи
-
-
-
- ShowError
-
- Catalog.Пользователи.EmptyRef
-
- Index
- Use
- Use
-
-
- Описание
-
- ru
- Описание
-
-
- String
-
-
-
-
-
- Use
- Use
-
-
- ХранилищеЗначений
-
- ru
- Хранилище значений
-
-
- ValueStorage
-
-
-
-
- Use
-
- ТипВариантаОтчета
+ ТипОтчетаru
- Тип варианта отчета
+ Тип отчета
- EnumRef.ТипыВариантовОтчетов
+ EnumRef.ТипыОтчетовru
@@ -235,11 +184,72 @@
IndexUse
-
- БыстрыйДоступ
+
+ Пользовательскийru
- Быстрый доступ
+ Пользовательский
+
+
+ Boolean
+
+
+ ru
+ Тип варианта отчета:
+Да - Пользовательский,
+Нет - Предопределенный.
+
+
+
+
+ Use
+ Use
+
+
+ Автор
+
+ ru
+ Автор
+
+
+ CatalogRef.Пользователи
+
+
+
+ ShowError
+
+ Catalog.Пользователи.EmptyRef
+
+ Index
+ Use
+ Use
+
+
+ ТолькоДляАвтора
+
+ ru
+ Только для автора:
+
+
+ Boolean
+
+
+ ru
+ Влияет на доступность варианта из панели отчетов:
+Флажок снят - вариант доступен всем пользователям.
+Флажок установлен - вариант доступен только автору.
+
+
+
+
+ Use
+ Use
+
+
+ ВидимостьПоУмолчанию
+
+ ru
+ По умолчанию виден в панели отчетовBoolean
@@ -252,11 +262,58 @@
IndexUse
-
- ПредставлениеОбъекта
+
+ Настройкиru
- Представление объекта
+ Настройки
+
+
+ ValueStorage
+
+
+
+
+ Use
+
+
+ Описание
+
+ ru
+ Описание
+
+
+ String
+
+
+
+
+
+ Use
+ Use
+
+
+ УдалитьКлючОбъекта
+
+ ru
+ Удалить ключ объекта
+
+
+ String
+
+ 150
+
+
+
+
+
+ Use
+
+
+ УдалитьПредставлениеОбъекта
+
+ ru
+ Удалить представление объектаString
@@ -264,14 +321,9 @@
256
-
- ru
- Отчет
-
- UseUse
@@ -279,10 +331,10 @@
- Подсистемы
+ Размещениеru
- Подсистемы
+ РазмещениеUse
@@ -292,47 +344,64 @@
-
- Подсистема
+
+ Использованиеru
- Подсистема
+ Использование
- String
-
- 500
-
+ Boolean
-
+
+
+ Use
+ Use
+
+
+ РазделИлиГруппа
+ ru
- Раздел интерфейса
-
+ Раздел, Группа
+
+
+ CatalogRef.ИдентификаторыОбъектовМетаданных
+ UseIndexUse
-
- Название
+
+ Важныйru
- Название
+ Важный
- String
-
- 200
-
+ Boolean
-
- ru
- Раздел интерфейса
- Use
+ Index
+ Use
+
+
+ СмТакже
+
+ ru
+ См также
+
+ Вариант находится в группе "См. также"
+
+ Boolean
+
+
+
+ Use
+ IndexUse
@@ -353,16 +422,48 @@
UseUse
+
+ УдалитьНазвание
+
+ ru
+ Удалить название
+
+
+ String
+
+ 200
+
+
+
+
+ Use
+
+
+ УдалитьПодсистема
+
+ ru
+ Удалить подсистема
+
+
+ String
+
+ 500
+
+
+
+
+ Use
+
- ИсключенияБыстрогоДоступа
+ УдалитьИсключенияБыстрогоДоступаru
- Исключения быстрого доступа
+ Удалить исключения быстрого доступаUse
@@ -381,17 +482,26 @@
CatalogRef.Пользователи
-
- ru
- Пользователь отчета
- Use
- Index
- Use
+
+ РазмещениеВРазделах
+
+ ru
+ Размещение в разделах
+
+ Размещение нескольких вариантов отчетов в разделах
+
+
+ ru
+
+
+ PersonalComputer
+ MobileDevice
+ ФормаСписка
@@ -405,63 +515,60 @@
ФормаЭлементаru
- Форма элемента
+ Вариант отчета
+
+
+ ru
+
+ PersonalComputerMobileDevice
-
- НастройкаБыстрогоДоступа
+
+ Открытьru
- Настройка быстрого доступа
+ Открыть...
- PersonalComputer
- MobileDevice
-
-
- НастройкаПодсистем
+ FormCommandBarImportant
+
+ CatalogRef.ВариантыОтчетов
+
+ PictureAndText
+
+ StdPicture.Report
+
+ F3
+
+
+ РазместитьВРазделахru
- Настройка подсистем
+ Разместить в разделах...
- PersonalComputer
- MobileDevice
-
-
- НастройкаГруппировкиПоРазделам
+ FormCommandBarImportant
+
+ CatalogRef.ВариантыОтчетов
+
+ Multiple
+ true
+ Auto
+
+
+ СброситьНастройкиПользователейru
- Настройка группировки по разделам
+ Сбросить настройки пользователей
- PersonalComputer
- MobileDevice
-
-
- ПереместитьВариантВРаздел
-
- ru
- Переместить вариант в раздел
-
- PersonalComputer
- MobileDevice
-
-
- СкопироватьВариантВРаздел
-
- ru
- Скопировать вариант в раздел
-
- PersonalComputer
- MobileDevice
-
-
- ФормаВыбора
-
- ru
- Форма выбора
-
- PersonalComputer
- MobileDevice
-
+ FormCommandBarImportant
+
+ CatalogRef.ВариантыОтчетов
+
+ Multiple
+ Auto
+
+ StdPicture.User
+
+
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСпискаВерсийФайла/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСпискаВерсийФайла/Module.bsl
index a3ee822d4..0ba8437e0 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСпискаВерсийФайла/Module.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСпискаВерсийФайла/Module.bsl
@@ -337,7 +337,7 @@
КонецЕсли;
Если СпособСравненияВерсийФайлов = Неопределено Тогда
- СпособСравненияВерсийФайлов = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().СпособСравненияВерсийФайлов;
+ СпособСравненияВерсийФайлов = ФайловыеФункцииСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами().СпособСравненияВерсийФайлов;
КонецЕсли;
Если СпособСравненияВерсийФайлов = Неопределено Тогда // первый вызов - еще не инициализирована настройка
@@ -347,7 +347,7 @@
Возврат;
КонецЕсли;
- СпособСравненияВерсийФайлов = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().СпособСравненияВерсийФайлов;
+ СпособСравненияВерсийФайлов = ФайловыеФункцииСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами().СпособСравненияВерсийФайлов;
КонецЕсли;
Если СпособСравненияВерсийФайлов = Неопределено Тогда
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl
index d23add294..32a12755c 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl
@@ -26,10 +26,10 @@
Элементы.ГруппаХранение.Видимость = Ложь;
КонецЕсли;
- ТомПолныйПуть = ФайловыеФункции.ПолныйПутьТома(Объект.Том);
+ ТомПолныйПуть = ФайловыеФункцииСлужебный.ПолныйПутьТома(Объект.Том);
- СписокРасширенийТекстовыхФайлов = ФайловыеФункции.ПолучитьСписокРасширенийТекстовыхФайлов();
- Если ФайловыеФункцииКлиентСервер.РасширениеФайлаВСписке(СписокРасширенийТекстовыхФайлов, Объект.Расширение) Тогда
+ СписокРасширенийТекстовыхФайлов = ФайловыеФункцииСлужебный.ПолучитьСписокРасширенийТекстовыхФайлов();
+ Если ФайловыеФункцииСлужебныйКлиентСервер.РасширениеФайлаВСписке(СписокРасширенийТекстовыхФайлов, Объект.Расширение) Тогда
Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html b/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html
index df6474dc6..5b06614f2 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html
+++ b/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Для просмотра списка всех версий файла откройте его карточку (F2 или команда "Открыть карточку") и перейдите в раздел "Версии файлов".
В списке версий можно:
открыть файл версии соответствующим приложением для просмотра (команда "Открыть карточку");
diff --git a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
index f10d180f9..46c5cd5d0 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
Процедура ПередЗаписью(Отказ)
@@ -49,7 +51,7 @@
КонецЕсли;
// Выполним установку индекса пиктограммы при записи объекта
- ИндексКартинки = ФайловыеФункцииКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение);
+ ИндексКартинки = ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение);
Если СтатусИзвлеченияТекста.Пустая() Тогда
СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
@@ -102,7 +104,7 @@
Если ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда
Если НЕ Том.Пустая() Тогда
- ПолныйПуть = ФайловыеФункции.ПолныйПутьТома(Том) + ПутьКФайлу;
+ ПолныйПуть = ФайловыеФункцииСлужебный.ПолныйПутьТома(Том) + ПутьКФайлу;
Попытка
Файл = Новый Файл(ПолныйПуть);
Файл.УстановитьТолькоЧтение(Ложь);
@@ -119,6 +121,8 @@
КонецЕсли;
КонецЕсли;
+ // Проверку ОбменДанными.Загрузка следует выполнять начиная с этой строки.
+
КонецПроцедуры
// Возвращает текущее значение пометки удаления в информационной базе
@@ -146,3 +150,5 @@
Возврат Неопределено;
КонецФункции
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВидыДокументовФизическихЛиц/Help/ru.html b/SSL/src/Catalogs/ВидыДокументовФизическихЛиц/Help/ru.html
index 4780922ad..ed30b0785 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 492488f7f..3c13e29ce 100644
--- a/SSL/src/Catalogs/ВидыДокументовФизическихЛиц/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ВидыДокументовФизическихЛиц/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -6,3 +8,5 @@
Параметры.Отбор.Вставить("ПометкаУдаления",Ложь);
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
index 5ad2ac925..1df4c93d8 100644
--- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html
@@ -1,4 +1,4 @@
-
+
Конфигурация позволяет хранить следующие типы контактной информации:
Адрес — реквизит с таким типом контактной информации предназначен для хранения адреса в виде произвольной строки или в виде шаблона адреса. Позволяет заполнять адрес, используя адресный классификатор, из формы‑шаблона ввода адреса. Если адрес заполняется с помощью адресного классификатора, то индекс адреса устанавливается из классификатора автоматически, после окончания ввода адреса. Предопределенные фактический и юридический адреса используются в печатных формах документов.
Справочник Виды контактной информации имеет двухуровневую иерархию. Группы справочника соответствуют справочникам-носителям контактной информации, а элементы внутри этих групп определяют состав контактной информации этих справочников. Добавление новых групп в этот справочник запрещено. Поставка конфигурации осуществляется c предопределенными группами и элементами справочника. Для добавления произвольного реквизита в один из этих справочников, необходимо добавить в справочник Виды контактной информации в соответствующую группу новый элемент.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl
index 9e8584172..66c9bd0aa 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl
@@ -2,19 +2,24 @@
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
- НайденныйВнешнийПользователь = Неопределено;
ПараметрыФормы = Новый Структура;
- ЕстьПравоДобавленияВнешнегоПользователя = Ложь;
+ ПараметрыФормы.Вставить("ОбъектАвторизации", ПараметрКоманды);
- Если ВнешниеПользователи.ОбъектАвторизацииИспользуется(ПараметрКоманды, , НайденныйВнешнийПользователь, ЕстьПравоДобавленияВнешнегоПользователя) Тогда
- ПараметрыФормы.Вставить("Ключ", НайденныйВнешнийПользователь);
- ИначеЕсли ЕстьПравоДобавленияВнешнегоПользователя Тогда
- ПараметрыФормы.Вставить("ОбъектАвторизацииНовогоВнешнегоПользователя", ПараметрКоманды);
- Иначе
- Предупреждение(НСтр("ru = 'Доступ к информационной базе запрещен и не предоставлялся.'"));
- Возврат;
- КонецЕсли;
-
- ОткрытьФорму("Справочник.ВнешниеПользователи.ФормаОбъекта", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);
+ Попытка
+ ОткрытьФорму(
+ "Справочник.ВнешниеПользователи.ФормаОбъекта",
+ ПараметрыФормы,
+ ПараметрыВыполненияКоманды.Источник,
+ ПараметрыВыполненияКоманды.Уникальность,
+ ПараметрыВыполненияКоманды.Окно);
+ Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ Если Найти(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке),
+ "ВызватьИсключение ОписаниеОшибкиКакПредупреждения") > 0 Тогда
+ Предупреждение(КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
+ Иначе
+ ВызватьИсключение;
+ КонецЕсли;
+ КонецПопытки;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Attributes/ВнешниеПользователиСписок/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Attributes/ВнешниеПользователиСписок/ExtInfo/ListSettings.dcss
index eb1c1dd72..c8ebe3063 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Attributes/ВнешниеПользователиСписок/ExtInfo/ListSettings.dcss
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Attributes/ВнешниеПользователиСписок/ExtInfo/ListSettings.dcss
@@ -1,6 +1,11 @@
+
+ Недействителен
+ Equal
+ false
+ ПометкаУдаления
@@ -23,7 +28,7 @@
- Ссылка.Недействителен
+ НедействителенEqualtrue
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form
index 3e884a6fc..9e1d76744 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form
@@ -166,6 +166,7 @@
truetruetrue
+ MultiRowRow11
@@ -828,10 +829,6 @@
NotificationProcessingОбработкаОповещения
-
- OnOpen
- ПриОткрытии
- OnCreateAtServerПриСозданииНаСервере
@@ -876,6 +873,7 @@
ВнешниеПользователи.Ссылка,
ВнешниеПользователи.ПометкаУдаления,
ВнешниеПользователи.Предопределенный,
+ ВнешниеПользователи.Недействителен,
ВнешниеПользователи.Наименование,
ВЫБОР
КОГДА ВнешниеПользователи.ПометкаУдаления
@@ -898,7 +896,7 @@
ГДЕ
СоставыГруппПользователей.Пользователь = ВнешниеПользователи.Ссылка
И СоставыГруппПользователей.ГруппаПользователей = &ГруппаВнешнихПользователей)
- ИЛИ (НЕ &ВыбиратьИерархически)
+ ИЛИ НЕ &ВыбиратьИерархически
И ИСТИНА В
(ВЫБРАТЬ
ИСТИНА
@@ -931,7 +929,6 @@
true
- FunctionalOption.ИспользоватьГруппыПользователейГруппыВнешнихПользователей.Parent
@@ -989,73 +986,6 @@
ВыбиратьИерархически
-
- ОтборОбъектАвторизации
-
- <key>ru</key>
- <value>Отбор объект авторизации</value>
-
- 4
-
-
- true
-
-
- true
-
-
-
- ТипОбъектовАвторизации
-
- <key>ru</key>
- <value>Тип объектов авторизации</value>
-
- 5
-
-
- true
-
-
- true
-
-
-
- ГруппаВнешнихПользователейВсеПользователи
-
- <key>ru</key>
- <value>Группа внешних пользователей все пользователи</value>
-
- 6
-
- CatalogRef.ГруппыВнешнихПользователей
-
-
- true
-
-
- true
-
-
-
- ПредставлениеТиповОбъектовАвторизации
-
- <key>ru</key>
- <value>Представление типов объектов авторизации</value>
-
- 7
-
- ValueList
-
-
- true
-
-
- true
-
-
-
-
- ОписаниеОтображаемыхВнешнихПользователей
@@ -1075,32 +1005,13 @@
</edit>
</attributes>
<attributes>
- <name>ИспользоватьГруппы</name>
+ <name>ХранимыеПараметры</name>
<title>
<key>ru</key>
- <value>Использовать группы</value>
+ <value>Хранимые параметры</value>
- 9
-
- Boolean
-
-
- true
-
-
- true
-
-
-
- ПоказыватьНедействительныхПользователей
-
- <key>ru</key>
- <value>Показывать недействительных пользователей</value>
-
- 10
-
- Boolean
-
+ 11
+ true
@@ -1165,6 +1076,12 @@
ЗакрыватьПриВыборе
+
+ ДоступКИнформационнойБазеРазрешен
+
+ Boolean
+
+
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
index d2814ce19..9bc453798 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl
@@ -4,59 +4,35 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
- ПоказыватьНедействительныхПользователей = Ложь;
+ // Начальное значение настройки до загрузки данных из настроек.
+ ВыбиратьИерархически = Истина;
- Если Не Параметры.РежимВыбора Тогда
+ ЗаполнитьХранимыеПараметры();
+ ЗаполнитьПараметрыДинамическихСписков();
+
+ Если Параметры.РежимВыбора Тогда
+ РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
+ КонецЕсли;
+
+ ОбновитьОтборНедействительныхПользователей(ЭтаФорма);
+
+ // Скрытие пользователей с пустым идентификатором, если значение параметра Истина.
+ Если Параметры.ДоступКИнформационнойБазеРазрешен Тогда
- // только если не режим выбора, делаем фильтрацию
- Если ПоказыватьНедействительныхПользователей Тогда
- ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(ВнешниеПользователиСписок.Отбор, "Недействителен");
- Иначе
- ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
- ВнешниеПользователиСписок.Отбор,
- "Недействителен",
- Ложь);
- КонецЕсли;
-
- КонецЕсли;
-
- ИспользоватьГруппы = ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей");
-
- Если ТипЗнч(Параметры.ТекущаяСтрока) = Тип("СправочникСсылка.ГруппыВнешнихПользователей") Тогда
- Если ИспользоватьГруппы Тогда
- Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока = Параметры.ТекущаяСтрока;
+ Если Параметры.ДоступКИнформационнойБазеРазрешен = Ложь Тогда
+ ВидСравненияКД = ВидСравненияКомпоновкиДанных.Равно;
Иначе
- Параметры.ТекущаяСтрока = Неопределено;
+ ВидСравненияКД = ВидСравненияКомпоновкиДанных.НеРавно;
КонецЕсли;
- Иначе
- ТекущийЭлемент = Элементы.ВнешниеПользователиСписок;
- Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока = Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ГруппаВнешнихПользователей", Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи);
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ВыбиратьИерархически", Истина);
+
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ ВнешниеПользователиСписок.Отбор,
+ "ИдентификаторПользователяИБ",
+ Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"),
+ ВидСравненияКД);
+
КонецЕсли;
- Если НЕ ИспользоватьГруппы Тогда
- Параметры.ВыборГруппВнешнихПользователей = Ложь;
- Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.Видимость = Ложь;
- Элементы.СоздатьГруппуВнешнихПользователей.Видимость = Ложь;
- КонецЕсли;
-
- Если Параметры.Свойство("Отбор") И Параметры.Отбор.Свойство("ОбъектАвторизации") Тогда
- ОтборОбъектАвторизации = Параметры.Отбор.ОбъектАвторизации;
- КонецЕсли;
-
- // Настройка постоянных данных для списка пользователей
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ПустойУникальныйИдентификатор", Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"));
- ГруппаВнешнихПользователейВсеПользователи = Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи;
-
- // Подготовка представлений типов объектов авторизации.
- Для каждого ТекущийТипОбъектовАвторизации Из Метаданные.Справочники.ВнешниеПользователи.Реквизиты.ОбъектАвторизации.Тип.Типы() Цикл
- МассивТипов = Новый Массив;
- МассивТипов.Добавить(ТекущийТипОбъектовАвторизации);
- ОписаниеТипа = Новый ОписаниеТипов(МассивТипов);
- ПредставлениеТиповОбъектовАвторизации.Добавить(ОписаниеТипа.ПривестиЗначение(Неопределено), Метаданные.НайтиПоТипу(ТекущийТипОбъектовАвторизации).Синоним);
- КонецЦикла;
-
Если НЕ ПравоДоступа("Добавление", Метаданные.Справочники.ГруппыВнешнихПользователей) Тогда
Элементы.СоздатьГруппуВнешнихПользователей.Видимость = Ложь;
КонецЕсли;
@@ -70,37 +46,19 @@
Элементы.ПользователиИБ.Видимость = Ложь;
КонецЕсли;
- Параметры.Свойство("ТипОбъектовАвторизации", ТипОбъектовАвторизации);
-
- // Отбор не помеченных на удаление
+ // Отбор не помеченных на удаление.
ВнешниеПользователиСписок.Отбор.Элементы[0].Использование = Истина;
- Элементы.ВнешниеПользователиСписок.РежимВыбора = Истина;
- Элементы.ВыбратьГруппуВнешнихПользователей.Видимость = Параметры.ВыборГруппВнешнихПользователей;
- Элементы.ГруппыВнешнихПользователей.РежимВыбора = Параметры.ВыборГруппВнешнихПользователей;
- Элементы.ВыбратьВнешнегоПользователя.КнопкаПоУмолчанию = НЕ Параметры.ВыборГруппВнешнихПользователей;
+ Элементы.ВнешниеПользователиСписок.РежимВыбора = Истина;
+ Элементы.ГруппыВнешнихПользователей.РежимВыбора =
+ ХранимыеПараметры.ВыборГруппВнешнихПользователей;
Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
- // Режим подбора
+ // Режим подбора.
Элементы.ВнешниеПользователиСписок.МножественныйВыбор = Истина;
- Если Параметры.ВыборГруппВнешнихПользователей Тогда
- Заголовок = НСтр("ru = 'Подбор внешних пользователей и групп'");
- Элементы.ВыбратьВнешнегоПользователя.Заголовок = НСтр("ru = 'Выбрать внешних пользователей'");
- Элементы.ВыбратьГруппуВнешнихПользователей.Заголовок = НСтр("ru = 'Выбрать группы'");
-
+ Если ХранимыеПараметры.ВыборГруппВнешнихПользователей Тогда
Элементы.ГруппыВнешнихПользователей.МножественныйВыбор = Истина;
- Элементы.ГруппыВнешнихПользователей.РежимВыделения = РежимВыделенияТаблицы.Множественный;
- Иначе
- Заголовок = НСтр("ru = 'Подбор внешних пользователей'");
- КонецЕсли;
- Иначе
- // Режим выбора
- Если Параметры.ВыборГруппВнешнихПользователей Тогда
- Заголовок = НСтр("ru = 'Выбор внешнего пользователя или группы'");
- Элементы.ВыбратьВнешнегоПользователя.Заголовок = НСтр("ru = 'Выбрать внешнего пользователя'");
- Иначе
- Заголовок = НСтр("ru = 'Выбор внешнего пользователя'");
КонецЕсли;
КонецЕсли;
Иначе
@@ -108,18 +66,9 @@
Элементы.ВыбратьГруппуВнешнихПользователей.Видимость = Ложь;
КонецЕсли;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ГруппыВнешнихПользователей, "ЛюбойТипОбъектовАвторизации", ТипОбъектовАвторизации = Неопределено);
- ОбновитьЗначениеПараметраКомпоновкиДанных(ГруппыВнешнихПользователей, "ТипОбъектовАвторизации", ТипЗнч(ТипОбъектовАвторизации));
-
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ЛюбойТипОбъектовАвторизации", ТипОбъектовАвторизации = Неопределено);
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ТипОбъектовАвторизации", ТипЗнч(ТипОбъектовАвторизации));
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПриОткрытии(Отказ)
-
- ОбновитьСодержимоеФормыПриИзмененииГруппы(Элементы.ГруппыВнешнихПользователей.ТекущиеДанные);
+ ХранимыеПараметры.Вставить("ТекущаяСтрока", Параметры.ТекущаяСтрока);
+ НастроитьФормуПоИспользованиюГруппПользователей();
+ ХранимыеПараметры.Удалить("ТекущаяСтрока");
КонецПроцедуры
@@ -131,7 +80,11 @@
Элементы.ГруппыВнешнихПользователей.Обновить();
Элементы.ВнешниеПользователиСписок.Обновить();
- ОбновитьСодержимоеФормыПриИзмененииГруппы(Элементы.ГруппыВнешнихПользователей.ТекущиеДанные);
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
+
+ ИначеЕсли ВРег(ИмяСобытия) = ВРег("Запись_ИспользоватьГруппыПользователей") Тогда
+
+ ПодключитьОбработчикОжидания("ПриИзмененииИспользованияГруппПользователей", 0.1, Истина);
КонецЕсли;
КонецПроцедуры
@@ -139,8 +92,12 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
- Если Настройки[ВыбиратьИерархически] = Неопределено Тогда
- ВыбиратьИерархически = Истина;
+ Если ТипЗнч(Настройки["ВыбиратьИерархически"]) = Тип("Булево") Тогда
+ ВыбиратьИерархически = Настройки["ВыбиратьИерархически"];
+ КонецЕсли;
+
+ Если НЕ ВыбиратьИерархически Тогда
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
КонецЕсли;
КонецПроцедуры
@@ -151,7 +108,7 @@
&НаКлиенте
Процедура ВыбиратьИерархическиПриИзменении(Элемент)
- ОбновитьСодержимоеФормыПриИзмененииГруппы();
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
КонецПроцедуры
@@ -161,7 +118,7 @@
&НаКлиенте
Процедура ГруппыВнешнихПользователейПриАктивизацииСтроки(Элемент)
- ОбновитьСодержимоеФормыПриИзмененииГруппы(Элементы.ГруппыВнешнихПользователей.ТекущиеДанные);
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
КонецПроцедуры
@@ -183,10 +140,15 @@
Если ЗначениеЗаполнено(Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока) Тогда
- ПараметрыФормы.Вставить("ЗначенияЗаполнения", Новый Структура("Родитель", Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока));
+ ПараметрыФормы.Вставить(
+ "ЗначенияЗаполнения",
+ Новый Структура("Родитель", Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока));
КонецЕсли;
- ОткрытьФорму("Справочник.ГруппыВнешнихПользователей.ФормаОбъекта", ПараметрыФормы, Элементы.ГруппыВнешнихПользователей);
+ ОткрытьФорму(
+ "Справочник.ГруппыВнешнихПользователей.ФормаОбъекта",
+ ПараметрыФормы,
+ Элементы.ГруппыВнешнихПользователей);
КонецЕсли;
КонецПроцедуры
@@ -208,17 +170,24 @@
Отказ = Истина;
- ПараметрыФормы = Новый Структура("ГруппаНовогоВнешнегоПользователя", Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока);
+ ПараметрыФормы = Новый Структура(
+ "ГруппаНовогоВнешнегоПользователя", Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока);
- Если ОтборОбъектАвторизации <> Неопределено Тогда
- ПараметрыФормы.Вставить("ОбъектАвторизацииНовогоВнешнегоПользователя", ОтборОбъектАвторизации);
+ Если ЗначениеЗаполнено(ХранимыеПараметры.ОтборОбъектАвторизации) Тогда
+
+ ПараметрыФормы.Вставить(
+ "ОбъектАвторизацииНовогоВнешнегоПользователя",
+ ХранимыеПараметры.ОтборОбъектАвторизации);
КонецЕсли;
Если Копирование И Элемент.ТекущиеДанные <> Неопределено Тогда
ПараметрыФормы.Вставить("ЗначениеКопирования", Элемент.ТекущаяСтрока);
КонецЕсли;
- ОткрытьФорму("Справочник.ВнешниеПользователи.ФормаОбъекта", ПараметрыФормы, Элементы.ВнешниеПользователиСписок);
+ ОткрытьФорму(
+ "Справочник.ВнешниеПользователи.ФормаОбъекта",
+ ПараметрыФормы,
+ Элементы.ВнешниеПользователиСписок);
КонецПроцедуры
@@ -235,66 +204,273 @@
&НаКлиенте
Процедура ПоказыватьНедействительныхПользователей(Команда)
- ПоказыватьНедействительныхПользователей = Не ПоказыватьНедействительныхПользователей;
-
- Элементы.ПоказыватьНедействительныхПользователей.Пометка = ПоказыватьНедействительныхПользователей;
-
- Если ПоказыватьНедействительныхПользователей Тогда
- ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(ВнешниеПользователиСписок.Отбор, "Недействителен");
- Иначе
- ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
- ВнешниеПользователиСписок.Отбор,
- "Недействителен",
- Ложь);
- КонецЕсли;
+ ОбновитьОтборНедействительныхПользователей(ЭтаФорма, Истина);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
-&НаКлиенте
-Процедура ОбновитьСодержимоеФормыПриИзмененииГруппы(Знач ТекущиеДанные = Неопределено)
+&НаСервере
+Процедура ЗаполнитьХранимыеПараметры()
- Если НЕ ИспользоватьГруппы
- ИЛИ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока = ГруппаВнешнихПользователейВсеПользователи Тогда
-
- ОписаниеОтображаемыхВнешнихПользователей = НСтр("ru = 'Все внешние пользователи'");
-
- Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница = Элементы.ГруппаНельзяУстановитьСвойство;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ВыбиратьИерархически", Истина);
-
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ГруппаВнешнихПользователей", ГруппаВнешнихПользователейВсеПользователи);
+ ХранимыеПараметры = Новый Структура;
+ ХранимыеПараметры.Вставить("ВыборГруппВнешнихПользователей", Параметры.ВыборГруппВнешнихПользователей);
+
+ Если Параметры.Отбор.Свойство("ОбъектАвторизации") Тогда
+ ХранимыеПараметры.Вставить("ОтборОбъектАвторизации", Параметры.Отбор.ОбъектАвторизации);
Иначе
- Если Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока <> Неопределено И
- ТекущиеДанные <> Неопределено И
- ТекущиеДанные.ВсеОбъектыАвторизации Тогда
- //
- ЭлементПредставленияТипаОбъектаАвторизации = ПредставлениеТиповОбъектовАвторизации.НайтиПоЗначению(ТекущиеДанные.ТипОбъектовАвторизации);
- ОписаниеОтображаемыхВнешнихПользователей = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Все %1'"),
- НРег(?(ЭлементПредставленияТипаОбъектаАвторизации = Неопределено, НСтр("ru = '<Недопустимый тип>'"), ЭлементПредставленияТипаОбъектаАвторизации.Представление)) );
- //
- Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница = Элементы.ГруппаНельзяУстановитьСвойство;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ВыбиратьИерархически", Истина);
+ ХранимыеПараметры.Вставить("ОтборОбъектАвторизации", Неопределено);
+ КонецЕсли;
+
+ // Подготовка представлений типов объектов авторизации.
+ ХранимыеПараметры.Вставить("ПредставлениеТиповОбъектовАвторизации", Новый СписокЗначений);
+ ТипыОбъектовАвторизации = Метаданные.Справочники.ВнешниеПользователи.Реквизиты.ОбъектАвторизации.Тип.Типы();
+
+ Для каждого ТекущийТипОбъектовАвторизации Из ТипыОбъектовАвторизации Цикл
+ МассивТипов = Новый Массив;
+ МассивТипов.Добавить(ТекущийТипОбъектовАвторизации);
+ ОписаниеТипа = Новый ОписаниеТипов(МассивТипов);
+
+ ХранимыеПараметры.ПредставлениеТиповОбъектовАвторизации.Добавить(
+ ОписаниеТипа.ПривестиЗначение(Неопределено),
+ Метаданные.НайтиПоТипу(ТекущийТипОбъектовАвторизации).Синоним);
+ КонецЦикла;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаполнитьПараметрыДинамическихСписков()
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ВнешниеПользователиСписок,
+ "ПустойУникальныйИдентификатор",
+ Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"));
+
+ ТипОбъектовАвторизации = Неопределено;
+ Параметры.Свойство("ТипОбъектовАвторизации", ТипОбъектовАвторизации);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ГруппыВнешнихПользователей,
+ "ЛюбойТипОбъектовАвторизации",
+ ТипОбъектовАвторизации = Неопределено);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ГруппыВнешнихПользователей,
+ "ТипОбъектовАвторизации",
+ ТипЗнч(ТипОбъектовАвторизации));
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ВнешниеПользователиСписок,
+ "ЛюбойТипОбъектовАвторизации",
+ ТипОбъектовАвторизации = Неопределено);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ВнешниеПользователиСписок,
+ "ТипОбъектовАвторизации",
+ ТипЗнч(ТипОбъектовАвторизации));
+
+КонецПроцедуры
+
+&НаКлиентеНаСервереБезКонтекста
+Процедура ОбновитьОтборНедействительныхПользователей(Форма, ИзменитьОтбор = Ложь)
+
+ Элементы = Форма.Элементы;
+
+ Если ИзменитьОтбор Тогда
+
+ Элементы.ПоказыватьНедействительныхПользователей.Пометка =
+ НЕ Элементы.ПоказыватьНедействительныхПользователей.Пометка;
+
+ ИначеЕсли Форма.Параметры.Отбор.Свойство("Недействителен") Тогда
+
+ Элементы.ПоказыватьНедействительныхПользователей.Пометка =
+ Форма.Параметры.Отбор.Недействителен;
+
+ КонецЕсли;
+
+ Если Элементы.ПоказыватьНедействительныхПользователей.Пометка Тогда
+
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ Форма.ВнешниеПользователиСписок.Отбор, "Недействителен", Ложь, , , Ложь);
+ Иначе
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ Форма.ВнешниеПользователиСписок.Отбор, "Недействителен", Ложь, , , Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриИзмененииИспользованияГруппПользователей()
+
+ НастроитьФормуПоИспользованиюГруппПользователей();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура НастроитьФормуПоИспользованиюГруппПользователей()
+
+ ХранимыеПараметры.Вставить(
+ "ИспользоватьГруппы", ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей"));
+
+ Если ХранимыеПараметры.Свойство("ТекущаяСтрока") Тогда
+
+ Если ТипЗнч(Параметры.ТекущаяСтрока) = Тип("СправочникСсылка.ГруппыВнешнихПользователей") Тогда
+
+ Если ХранимыеПараметры.ИспользоватьГруппы Тогда
+ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока = ХранимыеПараметры.ТекущаяСтрока;
+ Иначе
+ Параметры.ТекущаяСтрока = Неопределено;
+ КонецЕсли;
Иначе
- Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница = Элементы.ГруппаУстановитьСвойство;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ВыбиратьИерархически", ВыбиратьИерархически);
+ ТекущийЭлемент = Элементы.ВнешниеПользователиСписок;
+
+ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока =
+ Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи;
КонецЕсли;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ГруппаВнешнихПользователей", Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока);
+ Иначе
+ Если НЕ ХранимыеПараметры.ИспользоватьГруппы
+ И Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока
+ <> Справочники.ГруппыПользователей.ВсеПользователи Тогда
+
+ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока =
+ Справочники.ГруппыПользователей.ВсеПользователи;
+ КонецЕсли;
+ КонецЕсли;
+
+ Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.Видимость =
+ ХранимыеПараметры.ИспользоватьГруппы;
+
+ Элементы.СоздатьГруппуВнешнихПользователей.Видимость =
+ ХранимыеПараметры.ИспользоватьГруппы;
+
+ ВыборГруппВнешнихПользователей = ХранимыеПараметры.ВыборГруппВнешнихПользователей
+ И ХранимыеПараметры.ИспользоватьГруппы
+ И Параметры.РежимВыбора;
+
+ Если Параметры.РежимВыбора Тогда
+
+ Элементы.ВыбратьГруппуВнешнихПользователей.Видимость = ВыборГруппВнешнихПользователей;
+ Элементы.ВыбратьВнешнегоПользователя.КнопкаПоУмолчанию = НЕ ВыборГруппВнешнихПользователей;
+ АвтоЗаголовок = Ложь;
+
+ Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
+ // Режим подбора.
+
+ Если ВыборГруппВнешнихПользователей Тогда
+
+ Заголовок = НСтр("ru = 'Подбор внешних пользователей и групп'");
+
+ Элементы.ВыбратьВнешнегоПользователя.Заголовок =
+ НСтр("ru = 'Выбрать внешних пользователей'");
+
+ Элементы.ВыбратьГруппуВнешнихПользователей.Заголовок =
+ НСтр("ru = 'Выбрать группы'");
+
+ Иначе
+ Заголовок = НСтр("ru = 'Подбор внешних пользователей'");
+ КонецЕсли;
+ Иначе
+ // Режим выбора.
+ Если ВыборГруппВнешнихПользователей Тогда
+ Заголовок = НСтр("ru = 'Выбор внешнего пользователя или группы'");
+
+ Элементы.ВыбратьВнешнегоПользователя.Заголовок =
+ НСтр("ru = 'Выбрать внешнего пользователя'");
+ Иначе
+ Заголовок = НСтр("ru = 'Выбор внешнего пользователя'");
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
+
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
+
+КонецПроцедуры
+
+&НаКлиентеНаСервереБезКонтекста
+Процедура ОбновитьСодержимоеФормыПриИзмененииГруппы(Форма)
+
+ Элементы = Форма.Элементы;
+
+ Если НЕ Форма.ХранимыеПараметры.ИспользоватьГруппы
+ ИЛИ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока = ПредопределенноеЗначение(
+ "Справочник.ГруппыВнешнихПользователей.ВсеВнешниеПользователи") Тогда
+
+ Форма.ОписаниеОтображаемыхВнешнихПользователей = НСтр("ru = 'Все внешние пользователи'");
+
+ Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница =
+ Элементы.ГруппаНельзяУстановитьСвойство;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ВнешниеПользователиСписок, "ВыбиратьИерархически", Истина);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ВнешниеПользователиСписок,
+ "ГруппаВнешнихПользователей",
+ ПредопределенноеЗначение("Справочник.ГруппыВнешнихПользователей.ВсеВнешниеПользователи"));
+ Иначе
+ #Если Сервер Тогда
+ Если ЗначениеЗаполнено(Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока) Тогда
+ ТекущиеДанные = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(
+ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока, "ВсеОбъектыАвторизации");
+ Иначе
+ ТекущиеДанные = Неопределено;
+ КонецЕсли;
+ #Иначе
+ ТекущиеДанные = Элементы.ГруппыВнешнихПользователей.ТекущиеДанные;
+ #КонецЕсли
+
+ Если ТекущиеДанные <> Неопределено
+ И ТекущиеДанные.ВсеОбъектыАвторизации Тогда
+
+ ЭлементПредставленияТипаОбъектаАвторизации =
+ Форма.ХранимыеПараметры.ПредставлениеТиповОбъектовАвторизации.НайтиПоЗначению(
+ ТекущиеДанные.ТипОбъектовАвторизации);
+
+ Форма.ОписаниеОтображаемыхВнешнихПользователей =
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Все %1'"),
+ НРег(?(
+ ЭлементПредставленияТипаОбъектаАвторизации = Неопределено,
+ НСтр("ru = '<Недопустимый тип>'"),
+ ЭлементПредставленияТипаОбъектаАвторизации.Представление)) );
+
+ Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница =
+ Элементы.ГруппаНельзяУстановитьСвойство;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ВнешниеПользователиСписок, "ВыбиратьИерархически", Истина);
+ Иначе
+ Элементы.ГруппаПоказыватьВнешнихПользователейДочернихГрупп.ТекущаяСтраница =
+ Элементы.ГруппаУстановитьСвойство;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ВнешниеПользователиСписок, "ВыбиратьИерархически", Форма.ВыбиратьИерархически);
+ КонецЕсли;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ВнешниеПользователиСписок,
+ "ГруппаВнешнихПользователей",
+ Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока);
КонецЕсли;
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
-Процедура ОбновитьЗначениеПараметраКомпоновкиДанных(Знач ВладелецПараметров, Знач ИмяПараметра, Знач ЗначениеПараметра)
+Процедура ОбновитьЗначениеПараметраКомпоновкиДанных(Знач ВладелецПараметров,
+ Знач ИмяПараметра,
+ Знач ЗначениеПараметра)
Для каждого Параметр Из ВладелецПараметров.Параметры.Элементы Цикл
Если Строка(Параметр.Параметр) = ИмяПараметра Тогда
- Если Параметр.Использование И Параметр.Значение = ЗначениеПараметра Тогда
+
+ Если Параметр.Использование
+ И Параметр.Значение = ЗначениеПараметра Тогда
+
Возврат;
КонецЕсли;
Прервать;
+
КонецЕсли;
КонецЦикла;
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form
index 4f29f4ceb..c0efd2fbe 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form
@@ -17,7 +17,7 @@
СвязьКартинкаПредупрежденияРасширеннаяПодсказка
- 201
+ 200Labeltruetrue
@@ -58,7 +58,7 @@
СвязьПояснениеНесоответствияРасширеннаяПодсказка
- 202
+ 201Labeltruetrue
@@ -96,7 +96,7 @@
trueСвязьОбработкаНесоответствияРасширеннаяПодсказка
- 200
+ 199Labeltruetrue
@@ -131,7 +131,7 @@
ОбъектАвторизацииРасширеннаяПодсказка
- 203
+ 202Labeltruetrue
@@ -167,112 +167,181 @@
truetrue
+ true
- Role.РаботаСПапкамиФайлов
+ true
+ Role.АдминистраторСистемы
+ trueRole.Администрирование
+ trueRole.БазовыеПрава
+ trueRole.ВыводНаПринтерФайлБуферОбмена
+ trueRole.ВыполнениеОбменовДанными
+ trueRole.ДобавлениеИзменениеБазовойНСИ
+ trueRole.ДобавлениеИзменениеВариантовОтчетов
+ trueRole.ДобавлениеИзменениеВзаимодействий
+ trueRole.ДобавлениеИзменениеВнешнихПользователей
+ trueRole.ДобавлениеИзменениеДополнительныхОтчетовИОбработок
+ trueRole.ДобавлениеИзменениеЗаданий
+ trueRole.ДобавлениеИзменениеОбменовДанными
+ true
+ Role.ДобавлениеИзменениеОбщейБазовойНСИ
+
+
+ trueRole.ДобавлениеИзменениеОпросов
+ trueRole.ДобавлениеИзменениеОтветовНаВопросыАнкет
+ trueRole.ДобавлениеИзменениеПерсональныхДанныхФизическихЛиц
+ trueRole.ДобавлениеИзменениеПользователей
+ true
+ Role.ДобавлениеИзменениеРассылокОтчетов
+
+
+ trueRole.ДобавлениеИзменениеРолейИсполнителей
+ trueRole.ДобавлениеИзменениеФизическихЛиц
+ trueRole.ДобавлениеИзменениеШаблоновАнкет
+ trueRole.ЗапускAutomation
+ trueRole.ЗапускВебКлиента
+ trueRole.ЗапускВнешнегоСоединения
+ trueRole.ЗапускТолстогоКлиента
+ trueRole.ЗапускТонкогоКлиента
+ trueRole.ИзменениеВыполнениеЗадач
+ trueRole.ИзменениеДополнительныхСведений
+ trueRole.ИзменениеМакетовПечатныхФорм
+ trueRole.ИзменениеТекущегоВнешнегоПользователя
+ trueRole.ИзменениеТекущегоПользователя
+ trueRole.ИзменениеУчастниковГруппДоступа
+ trueRole.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок
+ trueRole.ИспользованиеДополнительныхОтчетовИОбработок
+ true
+ Role.ИспользованиеЗаметок
+
+
+ true
+ Role.ИспользованиеИнформационногоЦентра
+
+
+ true
+ Role.ИспользованиеИнтеграцииСДокументооборот
+
+
+ true
+ Role.ИспользованиеНапоминаний
+
+
+ true
+ Role.ИспользованиеСтруктурыПодчиненности
+
+
+ trueRole.ИспользованиеУчетныхЗаписейЭлектроннойПочты
+ true
+ Role.ИспользованиеЭЦП
+
+
+ trueRole.НастройкаИОценкаПроизводительности
+ trueRole.ОбновлениеКонфигурацииБазыДанных
+ trueRole.ПодготовкаСогласияНаОбработкуПерсональныхДанных
@@ -280,39 +349,83 @@
Role.ПолныеПрава
+ trueRole.ПроверкаДоступныхОбновленийКонфигурации
+ trueRole.ПросмотрЖурналаРегистрации
+ trueRole.РаботаСБиблиотекойФайлов
+ true
+ Role.РаботаСПапкамиФайлов
+
+
+ trueRole.РедактированиеРеквизитовОбъектов
+ true
+ Role.РежимВсеФункции
+
+
+ true
+ Role.СохранениеДанныхПользователя
+
+
+ true
+ Role.УдаленныйДоступБазоваяФункциональность
+
+
+ true
+ Role.УдаленныйДоступОбменДаннымиВМоделиСервиса
+
+
+ true
+ Role.УдаленныйДоступОбменСообщениями
+
+
+ trueRole.ЧтениеБазовойНСИ
+ true
+ Role.ИспользованиеВариантовОтчетов
+
+
+ true
+ Role.ЧтениеВерсийОбъектов
+
+
+ trueRole.ЧтениеВнешнихПользователей
+ trueRole.ЧтениеДополнительныхСведений
+ trueRole.ЧтениеЗаданий
+ trueRole.ЧтениеЗадач
+ trueRole.ЧтениеОтветовНаВопросыАнкет
+ trueRole.ЧтениеПерсональныхДанныхФизическихЛиц
+ trueRole.ЧтениеФизическихЛиц
@@ -326,7 +439,7 @@
НедействителенРасширеннаяПодсказка
- 205
+ 204Labeltruetrue
@@ -364,7 +477,7 @@
ДоступКИнформационнойБазеРазрешенРасширеннаяПодсказка
- 207
+ 206Labeltruetrue
@@ -403,7 +516,7 @@
ПользовательИнфБазыИмяРасширеннаяПодсказка
- 211
+ 210Labeltruetrue
@@ -422,6 +535,7 @@
Lefttrue
+ 14truetruetrue
@@ -433,10 +547,10 @@
СвойстваАутентификации1СПредприятия
- 196
+ 193ПользовательИнфБазыАутентификацияСтандартная
- 197
+ 194truetrue
@@ -452,7 +566,7 @@
ПользовательИнфБазыАутентификацияСтандартнаяРасширеннаяПодсказка
- 214
+ 213Labeltruetrue
@@ -462,7 +576,7 @@
ПользовательИнфБазыАутентификацияСтандартнаяКонтекстноеМеню
- 198
+ 195trueCheckBoxField
@@ -475,7 +589,7 @@
СвойстваПараметрыАутентификации1СПредприятия
- 199
+ 196Пароль21
@@ -493,7 +607,7 @@
ПарольРасширеннаяПодсказка
- 217
+ 216Labeltruetrue
@@ -544,7 +658,7 @@
ПодтверждениеПароляРасширеннаяПодсказка
- 219
+ 218Labeltruetrue
@@ -592,7 +706,7 @@
RightПользовательИнфБазыЗапрещеноИзменятьПарольРасширеннаяПодсказка
- 221
+ 220Labeltruetrue
@@ -624,7 +738,7 @@
trueСвойстваПараметрыАутентификации1СПредприятияРасширеннаяПодсказка
- 216
+ 215Labeltruetrue
@@ -650,7 +764,7 @@
СвойстваАутентификации1СПредприятияРасширеннаяПодсказка
- 213
+ 212Labeltruetrue
@@ -662,7 +776,6 @@
VerticalAuto
- NormalSeparationtruetrueAuto
@@ -671,7 +784,7 @@
ПользовательИнфБазыАутентификацияOpenID
- 193
+ 197truetrue
@@ -683,7 +796,7 @@
RightПользовательИнфБазыАутентификацияOpenIDРасширеннаяПодсказка
- 223
+ 222Labeltruetrue
@@ -693,7 +806,7 @@
ПользовательИнфБазыАутентификацияOpenIDКонтекстноеМеню
- 194
+ 198trueCheckBoxField
@@ -707,7 +820,7 @@
ГруппаПредставлениеЯзыка192
- ПредставлениеЯзыка
+ ПользовательИнфБазыЯзык33truetrue
@@ -715,11 +828,11 @@
true
- ПредставлениеЯзыка
+ ПользовательИнфБазыЯзык
- ПредставлениеЯзыкаРасширеннаяПодсказка
- 226
+ ПользовательИнфБазыЯзыкРасширеннаяПодсказка
+ 225Labeltruetrue
@@ -728,7 +841,7 @@
- ПредставлениеЯзыкаКонтекстноеМеню
+ ПользовательИнфБазыЯзыкКонтекстноеМеню34true
@@ -759,7 +872,7 @@
ГруппаПредставлениеЯзыкаРасширеннаяПодсказка
- 225
+ 224Labeltruetrue
@@ -803,7 +916,7 @@
trueОсновныеСвойстваРасширеннаяПодсказка
- 210
+ 209Labeltruetrue
@@ -842,7 +955,7 @@
УстановитьРолиНепосредственноРасширеннаяПодсказка
- 229
+ 228Labeltruetrue
@@ -915,7 +1028,7 @@
РолиПометкаРасширеннаяПодсказка
- 247
+ 246Labeltruetrue
@@ -946,7 +1059,7 @@
РолиСинонимРасширеннаяПодсказка
- 249
+ 248Labeltruetrue
@@ -990,7 +1103,7 @@
РолиКолонокРасширеннаяПодсказка
- 246
+ 245Labeltruetrue
@@ -1019,7 +1132,7 @@
falseРолиУстановитьФлажкиРасширеннаяПодсказка
- 232
+ 231Labeltruetrue
@@ -1027,7 +1140,7 @@
Left
- Form.Command.УстановитьФлажки
+ Form.Command.ВключитьРолиNormalAutotrue
@@ -1046,7 +1159,7 @@
falseРолиСнятьФлажкиРасширеннаяПодсказка
- 233
+ 232Labeltruetrue
@@ -1054,7 +1167,7 @@
Left
- Form.Command.СнятьФлажки
+ Form.Command.ИсключитьРолиNormalAutotrue
@@ -1073,7 +1186,7 @@
falseРолиПоказатьТолькоВыбранныеРолиРасширеннаяПодсказка
- 234
+ 233Labeltruetrue
@@ -1099,7 +1212,7 @@
РолиПоказатьПодсистемыРолейРасширеннаяПодсказка
- 235
+ 234Labeltruetrue
@@ -1107,7 +1220,7 @@
Left
- Form.Command.ГруппировкаПоПодсистемам
+ Form.Command.ГруппировкаРолейПоПодсистемамNormalAutotrue
@@ -1119,10 +1232,10 @@
РолиСтрокаПоиска
- 237
+ 236РолиСтрокаПоискаРасширеннаяПодсказка
- 239
+ 238Labeltruetrue
@@ -1132,7 +1245,7 @@
РолиСтрокаПоискаКонтекстноеМеню
- 238
+ 237trueРоли
@@ -1142,10 +1255,10 @@
РолиСостояниеПросмотра
- 240
+ 239РолиСостояниеПросмотраРасширеннаяПодсказка
- 242
+ 241Labeltruetrue
@@ -1155,7 +1268,7 @@
РолиСостояниеПросмотраКонтекстноеМеню
- 241
+ 240trueViewStatusAddition
@@ -1166,10 +1279,10 @@
РолиУправлениеПоиском
- 243
+ 242РолиУправлениеПоискомРасширеннаяПодсказка
- 245
+ 244Labeltruetrue
@@ -1179,7 +1292,7 @@
РолиУправлениеПоискомКонтекстноеМеню
- 244
+ 243trueSearchControlAddition
@@ -1190,7 +1303,7 @@
РолиРасширеннаяПодсказка
- 236
+ 235Labeltruetrue
@@ -1242,7 +1355,7 @@
ОтображениеРолейРасширеннаяПодсказка
- 231
+ 230Labeltruetrue
@@ -1275,7 +1388,7 @@
РедактированиеИлиПросмотрРолейРасширеннаяПодсказка
- 228
+ 227Labeltruetrue
@@ -1305,7 +1418,7 @@
trueСвойстваПользователяИБРасширеннаяПодсказка
- 209
+ 208Labeltruetrue
@@ -1408,7 +1521,7 @@
true
- ПредставлениеЯзыка
+ ПользовательИнфБазыЯзык
<key>ru</key>
<value>Язык интерфейса программы</value>
@@ -1499,23 +1612,6 @@
</edit>
<savedData>true</savedData>
</attributes>
- <attributes>
- <name>ПоказатьТолькоВыбранныеРоли</name>
- <title>
- <key>ru</key>
- <value>Показать только выбранные роли</value>
-
- 26
-
- Boolean
-
-
- true
-
-
- true
-
- ГруппаНовогоВнешнегоПользователя
@@ -1851,14 +1947,14 @@
</edit>
</attributes>
<attributes>
- <name>СкрытьРольПолныеПрава</name>
+ <name>ЗначениеКопирования</name>
<title>
<key>ru</key>
- <value>Скрыть роль полные права</value>
+ <value>Значение копирования</value>
20
- Boolean
+ CatalogRef.ВнешниеПользователиtrue
@@ -1891,7 +1987,7 @@
ruАутентификация 1С:Предприятия
- 24
+ 22Boolean
@@ -1930,15 +2026,15 @@
Auto
- СнятьФлажки
+ ИсключитьРоли
<key>ru</key>
- <value>Снять флажки</value>
+ <value>Исключить роли</value>
5ru
- Снять флажки
+ Исключить роли
- УстановитьФлажки
+ ВключитьРоли
<key>ru</key>
- <value>Установить флажки</value>
+ <value>Включить роли</value>
6ru
- Установить флажки
+ Включить роли
- ГруппировкаПоПодсистемам
+ ГруппировкаРолейПоПодсистемам
<key>ru</key>
<value>По подсистемам</value>
@@ -1990,7 +2086,7 @@
<id>1</id>
<toolTip>
<key>ru</key>
- <value>Показать группировку по подсистемам</value>
+ <value>Группировать список ролей по подсистемам</value>
</toolTip>
<use>
<common>true</common>
@@ -2000,7 +2096,7 @@
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
- <name>ПоказатьПодсистемыРолей</name>
+ <name>ГруппировкаРолейПоПодсистемам</name>
</handler>
</action>
<representation>TextPicture</representation>
@@ -2038,9 +2134,5 @@
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
</handlers>
- <handlers>
- <event>OnWriteAtServer</event>
- <name>ПриЗаписиНаСервере</name>
- </handlers>
</extInfo>
</form:Form>
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Help/ru.html
index 6f87b89a1..8251dfe61 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>Для редактирования сведений о внешнем ользователе необходимы права администрирования или права ответственного за внешних пользователей. В остальных случаях, доступен только просмотр сведений о себе, а также возможность изменить свой пароль, язык программы и контактную информацию.</p>
<p>Внешний пользователь связан с каким-то объектом программы (например, контрагентом, сотрудником и т.п.), указанным в поле <strong>Объект</strong>.</p>
<p>Флажок <strong>Недействителен</strong> по умолчанию снят для всех внешних пользователей. Но если пользователь по каким-либо причинам более не работает с программой, и в то же время его нельзя удалить из-за наличия ссылок на него из других объектов программы, то рекомендуется установить флажок <strong>Недействителен</strong>. Такого внешнего пользователя нельзя выбрать, и он не отображается в списке внешних пользователей.</p>
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
index 4935b63eb..8fbb64ff3 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
@@ -4,83 +4,106 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
- //** Установка начальных значений
- // перед загрузкой данных из настроек на сервере
- // для случая, когда данные ещё не были записаны и не загружаются
- ПоказатьПодсистемыРолей = Истина;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
- // Для нового элемента показать все роли, иначе только выбранные
- ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ЗначениеЗаполнено(Объект.Ссылка);
- //
- СкрытьРольПолныеПрава = Истина;
- ОбновитьДеревоРолей();
+ // Заполнение вспомогательных данных.
-
- //** Заполнение постоянных данных
ЗапретРедактированияРолей = ПользователиПереопределяемый.ЗапретРедактированияРолей();
АвторизованПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь();
- // Заполнение списка выбора языка
- Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
- Элементы.ПредставлениеЯзыка.СписокВыбора.Добавить(МетаданныеЯзыка.Синоним);
- КонецЦикла;
+ // Заполнение списка выбора языка.
+ Если Метаданные.Языки.Количество() < 2 Тогда
+ Элементы.ПользовательИнфБазыЯзык.Видимость = Ложь;
+ Иначе
+ Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
+
+ Элементы.ПользовательИнфБазыЯзык.СписокВыбора.Добавить(
+ МетаданныеЯзыка.Имя, МетаданныеЯзыка.Синоним);
+ КонецЦикла;
+ КонецЕсли;
- //** Подготовка к интерактивным действиям с учетом сценариев открытия формы
+ // Подготовка к интерактивным действиям с учетом сценариев открытия формы.
УстановитьПривилегированныйРежим(Истина);
Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
- // Создание нового элемента
- Если Параметры.ГруппаНовогоВнешнегоПользователя <> Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи Тогда
+
+ // Создание нового элемента.
+ Если Параметры.ГруппаНовогоВнешнегоПользователя
+ <> Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи Тогда
+
ГруппаНовогоВнешнегоПользователя = Параметры.ГруппаНовогоВнешнегоПользователя;
КонецЕсли;
+
Если ЗначениеЗаполнено(Параметры.ЗначениеКопирования) Тогда
- // Копирование элемента
+ // Копирование элемента.
+ ЗначениеКопирования = Параметры.ЗначениеКопирования;
Объект.ОбъектАвторизации = Неопределено;
Объект.Наименование = "";
Объект.Код = "";
Объект.УдалитьПароль = "";
- ПрочитатьПользователяИБ(ЗначениеЗаполнено(Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ));
+ ПрочитатьПользователяИБ(ЗначениеЗаполнено(
+ Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ));
Иначе
- // Добавление элемента
+ // Добавление элемента.
Если Параметры.Свойство("ОбъектАвторизацииНовогоВнешнегоПользователя") Тогда
+
Объект.ОбъектАвторизации = Параметры.ОбъектАвторизацииНовогоВнешнегоПользователя;
ОбъектАвторизацииЗаданПриОткрытии = ЗначениеЗаполнено(Объект.ОбъектАвторизации);
ОбъектАвторизацииПриИзмененииНаКлиентеНаСервере(ЭтаФорма, Объект);
+
ИначеЕсли ЗначениеЗаполнено(ГруппаНовогоВнешнегоПользователя) Тогда
- ТипОбъектовАвторизации = ОбщегоНазначения.ПолучитьЗначениеРеквизита(ГруппаНовогоВнешнегоПользователя, "ТипОбъектовАвторизации");
+
+ ТипОбъектовАвторизации = ОбщегоНазначения.ПолучитьЗначениеРеквизита(
+ ГруппаНовогоВнешнегоПользователя, "ТипОбъектовАвторизации");
+
Объект.ОбъектАвторизации = ТипОбъектовАвторизации;
Элементы.ОбъектАвторизации.ВыбиратьТип = ТипОбъектовАвторизации = Неопределено;
КонецЕсли;
- // Чтение начальных значений свойств пользователя ИБ
+
+ // Чтение начальных значений свойств пользователя ИБ.
ПрочитатьПользователяИБ();
КонецЕсли;
Иначе
- // Открытие существующего элемента
+ // Открытие существующего элемента.
ПрочитатьПользователяИБ();
КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);
+ ОбработатьИнтерфейсРолей("НастроитьИнтерфейсРолейПриСозданииФормы", Истина);
+
ОпределитьДействияВФорме();
ОпределитьНесоответствияПользователяСПользователемИБ();
- //** Установка постоянной доступности свойств
- Элементы.СвойстваПользователяИБ.Видимость = ЗначениеЗаполнено(ДействияВФорме.СвойстваПользователяИБ);
- Элементы.ОтображениеРолей.Видимость = ЗначениеЗаполнено(ДействияВФорме.Роли);
- Элементы.УстановитьРолиНепосредственно.Видимость = ЗначениеЗаполнено(ДействияВФорме.Роли) И НЕ ПользователиПереопределяемый.ЗапретРедактированияРолей();
+ // Установка постоянной доступности свойств.
+ Элементы.СвойстваПользователяИБ.Видимость =
+ ЗначениеЗаполнено(ДействияВФорме.СвойстваПользователяИБ);
+
+ Элементы.ОтображениеРолей.Видимость =
+ ЗначениеЗаполнено(ДействияВФорме.Роли);
+
+ Элементы.УстановитьРолиНепосредственно.Видимость =
+ ЗначениеЗаполнено(ДействияВФорме.Роли) И НЕ ПользователиПереопределяемый.ЗапретРедактированияРолей();
Элементы.УстановитьРолиНепосредственно.Доступность = ДействияВФорме.Роли = "Редактирование";
- ТолькоПросмотр = ТолькоПросмотр ИЛИ
- ДействияВФорме.Роли <> "Редактирование" И
- НЕ ( ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" ИЛИ
- ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" ) И
- ДействияВФорме.СвойстваЭлемента <> "Редактирование";
+ Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда
+ Элементы.Недействителен.ТолькоПросмотр = Истина;
+ КонецЕсли;
- Если НЕ ПользователиСерверПовтИсп.АутентификацияOpenIDНастраивается() Тогда
+ Если ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех" Тогда
+ Элементы.ПользовательИнфБазыАутентификацияOpenID.Доступность = Ложь;
+ Элементы.ПользовательИнфБазыАутентификацияСтандартная.Доступность = Ложь;
+ КонецЕсли;
+
+ ТолькоПросмотр
+ = ТолькоПросмотр
+ ИЛИ ДействияВФорме.Роли <> "Редактирование"
+ И НЕ ( ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех"
+ ИЛИ ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих")
+ И ДействияВФорме.СвойстваЭлемента <> "Редактирование";
+
+ Если НЕ ПользователиСлужебныйПовтИсп.АутентификацияOpenIDНастраивается() Тогда
Элементы.ПользовательИнфБазыАутентификацияOpenID.Видимость = Ложь;
Элементы.ПользовательИнфБазыАутентификацияСтандартная.Видимость = Ложь;
Элементы.СвойстваПараметрыАутентификации1СПредприятия.Отображение = ОтображениеОбычнойГруппы.Нет;
@@ -107,10 +130,17 @@
ОчиститьСообщения();
- Если ДействияВФорме.Роли = "Редактирование" И Объект.УстановитьРолиНепосредственно И ПользовательИнфБазыРоли.Количество() = 0 Тогда
+ Если ДействияВФорме.Роли = "Редактирование"
+ И Объект.УстановитьРолиНепосредственно
+ И ПользовательИнфБазыРоли.Количество() = 0 Тогда
+
+ Ответ = Вопрос(
+ НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"),
+ РежимДиалогаВопрос.ДаНет,
+ ,
+ ,
+ НСтр("ru = 'Запись пользователя информационной базы'"));
- Ответ = Вопрос(НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"),
- РежимДиалогаВопрос.ДаНет, , , НСтр("ru = 'Запись пользователя информационной базы'"));
Если Ответ = КодВозвратаДиалога.Нет Тогда
Отказ = Истина;
КонецЕсли;
@@ -121,60 +151,54 @@
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
- Если ДействияВФорме.СвойстваЭлемента <> "Редактирование" Тогда
- ЗаполнитьЗначенияСвойств(ТекущийОбъект, ОбщегоНазначения.ПолучитьЗначенияРеквизитов(ТекущийОбъект.Ссылка, "Наименование, ПометкаУдаления"));
- КонецЕсли;
-
- Если ВнешниеПользователи.ОбъектАвторизацииИспользуется(Объект.ОбъектАвторизации, Объект.Ссылка) Тогда
-
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- НСтр("ru = 'Объект информационной базы уже используется для другого внешнего пользователя.'"), ,
- "Объект.ОбъектАвторизации", ,
- Отказ);
- Возврат;
- КонецЕсли;
-
- ТекущийОбъект.ДополнительныеСвойства.Вставить("ГруппаНовогоВнешнегоПользователя", ГруппаНовогоВнешнегоПользователя);
-
- Если ДоступКИнформационнойБазеРазрешен Тогда
-
- ЗаписатьПользователяИБ(ТекущийОбъект, Отказ);
- Если НЕ Отказ Тогда
- Если ТекущийОбъект.ИдентификаторПользователяИБ <> СтарыйИдентификаторПользователяИБ Тогда
- ПараметрыЗаписи.Вставить("ДобавленПользовательИБ", ТекущийОбъект.ИдентификаторПользователяИБ);
- Иначе
- ПараметрыЗаписи.Вставить("ИзмененПользовательИБ", ТекущийОбъект.ИдентификаторПользователяИБ);
- КонецЕсли
- КонецЕсли;
-
- ИначеЕсли НЕ ЕстьСвязьСНесуществующимПользователемИБ ИЛИ
- ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" Тогда
-
- ТекущийОбъект.ИдентификаторПользователяИБ = Неопределено;
- КонецЕсли;
-
- УстановитьПривилегированныйРежим(Истина);
+ ТекущийОбъект.ДополнительныеСвойства.Вставить("ЗначениеКопирования", ЗначениеКопирования);
+ // Автообновление наименования внешнего пользователя.
ТекущееПредставлениеОбъектаАвторизации = Строка(ТекущийОбъект.ОбъектАвторизации);
+ Объект.Наименование = ТекущееПредставлениеОбъектаАвторизации;
ТекущийОбъект.Наименование = ТекущееПредставлениеОбъектаАвторизации;
-КонецПроцедуры
-
-&НаСервере
-Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
+ // Восстановление действий в форме, если они изменены на клиенте.
+ ОпределитьДействияВФорме();
- Если НЕ ДоступКИнформационнойБазеРазрешен И ПользовательИБСуществует Тогда
- УдалитьПользователяИБ(Отказ);
- Если НЕ Отказ Тогда
- ПараметрыЗаписи.Вставить("УдаленПользовательИБ", СтарыйИдентификаторПользователяИБ);
+ Если ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех"
+ ИЛИ ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" Тогда
+
+ ОписаниеПользователяИБ = ОписаниеПользователяИБ();
+ ОписаниеПользователяИБ.Удалить("ПодтверждениеПароля");
+
+ Если ДоступКИнформационнойБазеРазрешен Тогда
+ ОписаниеПользователяИБ.Вставить("Действие", "Записать");
+ Иначе
+ ОписаниеПользователяИБ.Вставить("Действие", "Удалить");
КонецЕсли;
+
+ ТекущийОбъект.ДополнительныеСвойства.Вставить(
+ "ОписаниеПользователяИБ", ОписаниеПользователяИБ);
КонецЕсли;
+ Если ДействияВФорме.СвойстваЭлемента <> "Редактирование" Тогда
+
+ ЗаполнитьЗначенияСвойств(
+ ТекущийОбъект,
+ ОбщегоНазначения.ПолучитьЗначенияРеквизитов(
+ ТекущийОбъект.Ссылка,
+ "ПометкаУдаления"));
+ КонецЕсли;
+
+ ТекущийОбъект.ДополнительныеСвойства.Вставить(
+ "ГруппаНовогоВнешнегоПользователя", ГруппаНовогоВнешнегоПользователя);
+
+ УстановитьПривилегированныйРежим(Истина);
+
КонецПроцедуры
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
+ ПараметрыЗаписи.Вставить(
+ ТекущийОбъект.ДополнительныеСвойства.ОписаниеПользователяИБ.РезультатДействия);
+
ПрочитатьПользователяИБ();
ОпределитьНесоответствияПользователяСПользователемИБ(ПараметрыЗаписи);
@@ -196,53 +220,50 @@
Оповестить("УдаленПользовательИБ", ПараметрыЗаписи.УдаленПользовательИБ, ЭтаФорма);
ИначеЕсли ПараметрыЗаписи.Свойство("ОчищенаСвязьСНесуществущимПользователемИБ") Тогда
- Оповестить("ОчищенаСвязьСНесуществущимПользователемИБ", ПараметрыЗаписи.ОчищенаСвязьСНесуществущимПользователемИБ, ЭтаФорма);
+
+ Оповестить(
+ "ОчищенаСвязьСНесуществущимПользователемИБ",
+ ПараметрыЗаписи.ОчищенаСвязьСНесуществущимПользователемИБ, ЭтаФорма);
КонецЕсли;
Если ЗначениеЗаполнено(ГруппаНовогоВнешнегоПользователя) Тогда
ОповеститьОбИзменении(ГруппаНовогоВнешнегоПользователя);
- Оповестить("Запись_ГруппыВнешнихПользователей", Новый Структура, ГруппаНовогоВнешнегоПользователя);
+
+ Оповестить(
+ "Запись_ГруппыВнешнихПользователей",
+ Новый Структура,
+ ГруппаНовогоВнешнегоПользователя);
+
ГруппаНовогоВнешнегоПользователя = Неопределено;
КонецЕсли;
УстановитьДоступностьСвойств();
- РазвернутьПодсистемыРолей();
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
+ ТекстОшибки = "";
+ Если ПользователиСлужебный.ОбъектАвторизацииИспользуется(
+ Объект.ОбъектАвторизации, Объект.Ссылка, , , ТекстОшибки) Тогда
+
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+ ТекстОшибки, , "Объект.ОбъектАвторизации", , Отказ);
+ КонецЕсли;
+
Если ДоступКИнформационнойБазеРазрешен Тогда
- Если НЕ Отказ И ПустаяСтрока(ПользовательИнфБазыИмя) Тогда
+ ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(
+ ОписаниеПользователяИБ(), Отказ);
+
+ ТекстСообщения = "";
+ Если ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора( , ТекстСообщения) Тогда
+
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- НСтр("ru = 'Не заполнено имя пользователя информационной базы.'"),
- ,
- "ПользовательИнфБазыИмя",
- ,
- Отказ);
- КонецЕсли;
-
- Если НЕ Отказ И ПользовательИнфБазыПароль <> Неопределено И Пароль <> ПодтверждениеПароля Тогда
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- НСтр("ru = 'Пароль и подтверждение пароля не совпадают.'"),
- ,
- "Пароль",
- ,
- Отказ);
- КонецЕсли;
-
- Если ТребуетсяСоздатьПервогоАдминистратора() Тогда
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- НСтр("ru = 'Первый пользователь информационной базы должен иметь полные права.
- |Внешний пользователь не может быть полноправным.
- |Сначала создайте обычного пользователя-администратора.'"),
- ,
- "ДоступКИнформационнойБазеРазрешен",
- ,
- Отказ);
+ ТекстСообщения, , "ДоступКИнформационнойБазеРазрешен", , Отказ);
КонецЕсли;
КонецЕсли;
@@ -251,16 +272,7 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
- Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
- ПоказатьПодсистемыРолей = Ложь;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
- Иначе
- ПоказатьПодсистемыРолей = Истина;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
- КонецЕсли;
-
- СкрытьРольПолныеПрава = Истина;
- ОбновитьДеревоРолей();
+ ОбработатьИнтерфейсРолей("НастроитьИнтерфейсРолейПриЗагрузкеНастроек", Настройки);
КонецПроцедуры
@@ -277,8 +289,12 @@
&НаКлиенте
Процедура ДоступКИнформационнойБазеРазрешенПриИзменении(Элемент)
- Если НЕ ПользовательИБСуществует И ДоступКИнформационнойБазеРазрешен Тогда
- ПользовательИнфБазыИмя = ПолучитьКраткоеИмяПользователяИБ(ТекущееПредставлениеОбъектаАвторизации);
+ Если НЕ ПользовательИБСуществует
+ И ДоступКИнформационнойБазеРазрешен Тогда
+
+ ПользовательИнфБазыИмя =
+ ПользователиСлужебныйКлиентСервер.ПолучитьКраткоеИмяПользователяИБ(
+ ТекущееПредставлениеОбъектаАвторизации);
КонецЕсли;
УстановитьДоступностьСвойств();
@@ -303,8 +319,8 @@
Процедура УстановитьРолиНепосредственноПриИзменении(Элемент)
Если НЕ Объект.УстановитьРолиНепосредственно Тогда
- ПрочитатьПользователяИБ(, Истина);
- РазвернутьПодсистемыРолей();
+ ПрочитатьРолиПользователяИБ();
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецЕсли;
УстановитьДоступностьСвойств();
@@ -321,7 +337,7 @@
Процедура РолиПометкаПриИзменении(Элемент)
Если Элементы.Роли.ТекущиеДанные <> Неопределено Тогда
- ОбновитьСоставРолей(Элементы.Роли.ТекущаяСтрока, Элементы.Роли.ТекущиеДанные.Пометка);
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей");
КонецЕсли;
КонецПроцедуры
@@ -335,78 +351,67 @@
&НаКлиенте
Процедура ПоказатьТолькоВыбранныеРоли(Команда)
- ПоказатьТолькоВыбранныеРоли = НЕ ПоказатьТолькоВыбранныеРоли;
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ПоказатьТолькоВыбранныеРоли;
-
- ОбновитьДеревоРолей();
- РазвернутьПодсистемыРолей();
+ ОбработатьИнтерфейсРолей("ТолькоВыбранныеРоли");
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
-Процедура ПоказатьПодсистемыРолей(Команда)
+Процедура ГруппировкаРолейПоПодсистемам(Команда)
- ПоказатьПодсистемыРолей = НЕ ПоказатьПодсистемыРолей;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = ПоказатьПодсистемыРолей;
-
- ОбновитьДеревоРолей();
- РазвернутьПодсистемыРолей();
+ ОбработатьИнтерфейсРолей("ГруппировкаПоПодсистемам");
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
-Процедура УстановитьФлажки(Команда)
+Процедура ВключитьРоли(Команда)
- ОбновитьСоставРолей(Неопределено, Истина);
- Если ПоказатьТолькоВыбранныеРоли Тогда
- РазвернутьПодсистемыРолей();
- КонецЕсли;
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей", "ВключитьВсе");
+
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма, Ложь);
КонецПроцедуры
&НаКлиенте
-Процедура СнятьФлажки(Команда)
+Процедура ИсключитьРоли(Команда)
- ОбновитьСоставРолей(Неопределено, Ложь);
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей", "ИсключитьВсе");
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
-&НаСервере
-Функция ТребуетсяСоздатьПервогоАдминистратора()
-
- УстановитьПривилегированныйРежим(Истина);
-
- Возврат ПользователиИнформационнойБазы.ПолучитьПользователей().Количество() = 0;
-
-КонецФункции
-
&НаСервере
Процедура ОпределитьДействияВФорме()
ДействияВФорме = Новый Структура;
- ДействияВФорме.Вставить("Роли", ""); // "", "Просмотр", "Редактирование"
- ДействияВФорме.Вставить("СвойстваПользователяИБ", ""); // "", "ПросмотрВсех", "РедактированиеВсех", "РедактированиеСвоих"
- ДействияВФорме.Вставить("СвойстваЭлемента", ""); // "", "Просмотр", "Редактирование"
- Если Пользователи.ЭтоПолноправныйПользователь() ИЛИ
- ПравоДоступа("Добавление", Метаданные.Справочники.Пользователи) Тогда
- // Администратор
+ // "", "Просмотр", "Редактирование".
+ ДействияВФорме.Вставить("Роли", "");
+
+ // "", "ПросмотрВсех", "РедактированиеВсех", "РедактированиеСвоих".
+ ДействияВФорме.Вставить("СвойстваПользователяИБ", "");
+
+ // "", "Просмотр", "Редактирование".
+ ДействияВФорме.Вставить("СвойстваЭлемента", "");
+
+ Если Пользователи.ЭтоПолноправныйПользователь()
+ ИЛИ ПравоДоступа("Добавление", Метаданные.Справочники.Пользователи) Тогда
+ // Администратор.
ДействияВФорме.Роли = "Редактирование";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех";
ДействияВФорме.СвойстваЭлемента = "Редактирование";
ИначеЕсли РольДоступна("ДобавлениеИзменениеВнешнихПользователей") Тогда
- // Менеджер внешних пользователей
+ // Менеджер внешних пользователей.
ДействияВФорме.Роли = "";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех";
ДействияВФорме.СвойстваЭлемента = "Просмотр";
- ИначеЕсли ЗначениеЗаполнено(ВнешниеПользователи.ТекущийВнешнийПользователь()) И
- Объект.Ссылка = ВнешниеПользователи.ТекущийВнешнийПользователь() Тогда
- // Свои свойства
+ ИначеЕсли Объект.Ссылка = ПользователиКлиентСервер.АвторизованныйПользователь() Тогда
+ // Свои свойства.
ДействияВФорме.Роли = "";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих";
ДействияВФорме.СвойстваЭлемента = "Просмотр";
@@ -417,235 +422,197 @@
ДействияВФорме.СвойстваЭлемента = "Просмотр";
КонецЕсли;
- Если НЕ ЗначениеЗаполнено(Объект.Ссылка) И НЕ ЗначениеЗаполнено(Объект.ОбъектАвторизации) Тогда
+ Если НЕ ЗначениеЗаполнено(Объект.Ссылка)
+ И НЕ ЗначениеЗаполнено(Объект.ОбъектАвторизации) Тогда
+
ДействияВФорме.СвойстваЭлемента = "Редактирование";
КонецЕсли;
ПользователиПереопределяемый.ИзменитьДействияВФорме(Объект.Ссылка, ДействияВФорме);
- // Проверка имен действий в форме
+ // Проверка имен действий в форме.
Если Найти(", Просмотр, Редактирование,", ", " + ДействияВФорме.Роли + ",") = 0 Тогда
ДействияВФорме.Роли = "";
+
ИначеЕсли ПользователиПереопределяемый.ЗапретРедактированияРолей() Тогда
ДействияВФорме.Роли = "Просмотр";
КонецЕсли;
- Если Найти(", ПросмотрВсех, РедактированиеВсех, РедактированиеСвоих,", ", " + ДействияВФорме.СвойстваПользователяИБ + ",") = 0 Тогда
+
+ Если Найти(", ПросмотрВсех, РедактированиеВсех, РедактированиеСвоих,",
+ ", " + ДействияВФорме.СвойстваПользователяИБ + ",") = 0 Тогда
+
ДействияВФорме.СвойстваПользователяИБ = "";
КонецЕсли;
+
Если Найти(", Просмотр, Редактирование,", ", " + ДействияВФорме.СвойстваЭлемента + ",") = 0 Тогда
ДействияВФорме.СвойстваЭлемента = "";
КонецЕсли;
КонецПроцедуры
-&НаКлиентеНаСервереБезКонтекста
-Процедура ОбъектАвторизацииПриИзмененииНаКлиентеНаСервере(Контекст, Объект)
+&НаСервере
+Функция ОписаниеПользователяИБ()
- Если Объект.ОбъектАвторизации = Неопределено Тогда
- Объект.ОбъектАвторизации = Контекст.ТипОбъектовАвторизации;
+ ПользовательИнфБазыПолноеИмя = Объект.Наименование;
+
+ Если ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" Тогда
+ Результат = Пользователи.НовоеОписаниеПользователяИБ();
+ Пользователи.СкопироватьСвойстваПользователяИБ(
+ Результат,
+ ЭтаФорма,
+ ,
+ "УникальныйИдентификатор,
+ |Роли",
+ "ПользовательИнфБазы");
+
+ Иначе
+ // РедактированиеСвоих.
+ Результат = Новый Структура;
+ Результат.Вставить("Пароль", ПользовательИнфБазыПароль);
+ Результат.Вставить("Язык", ПользовательИнфБазыЯзык);
+ КонецЕсли;
+ Результат.Вставить("ПодтверждениеПароля", ПодтверждениеПароля);
+
+ Если ДействияВФорме.Роли = "Редактирование"
+ И Объект.УстановитьРолиНепосредственно Тогда
+
+ ТекущиеРоли = ПользовательИнфБазыРоли.Выгрузить(, "Роль").ВыгрузитьКолонку("Роль");
+ Результат.Вставить("Роли", ТекущиеРоли);
КонецЕсли;
- Если Контекст.ТекущееПредставлениеОбъектаАвторизации <> Строка(Объект.ОбъектАвторизации) Тогда
+ УровеньДоступа = ПользователиСлужебный.УровеньДоступаКСвойствамПользователяИБ(Истина);
+
+ Если УровеньДоступа = "ПолныйДоступ"
+ ИЛИ УровеньДоступа = "УправлениеСписком" Тогда
- Контекст.ТекущееПредставлениеОбъектаАвторизации = Строка(Объект.ОбъектАвторизации);
-
- Если НЕ Контекст.ПользовательИБСуществует И Контекст.ДоступКИнформационнойБазеРазрешен Тогда
- Контекст.ПользовательИнфБазыИмя = ПолучитьКраткоеИмяПользователяИБ(Контекст.ТекущееПредставлениеОбъектаАвторизации);
+ Если НЕ ПользователиСлужебныйПовтИсп.АутентификацияOpenIDНастраивается() Тогда
+ Результат.Вставить("АутентификацияСтандартная", Истина);
КонецЕсли;
+ Результат.Вставить("ПоказыватьВСпискеВыбора", Ложь);
+ Результат.Вставить("РежимЗапуска", "Авто");
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+&НаКлиентеНаСервереБезКонтекста
+Процедура ОбъектАвторизацииПриИзмененииНаКлиентеНаСервере(Форма, Объект)
+
+ Если Объект.ОбъектАвторизации = Неопределено Тогда
+ Объект.ОбъектАвторизации = Форма.ТипОбъектовАвторизации;
+ КонецЕсли;
+
+ Если Форма.ТекущееПредставлениеОбъектаАвторизации <> Строка(Объект.ОбъектАвторизации) Тогда
+
+ Форма.ТекущееПредставлениеОбъектаАвторизации = Строка(Объект.ОбъектАвторизации);
+
+ Если НЕ Форма.ПользовательИБСуществует
+ И Форма.ДоступКИнформационнойБазеРазрешен Тогда
+
+ Форма.ПользовательИнфБазыИмя =
+ ПользователиСлужебныйКлиентСервер.ПолучитьКраткоеИмяПользователяИБ(
+ Форма.ТекущееПредставлениеОбъектаАвторизации);
+ КонецЕсли;
КонецЕсли;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
-// Чтение, запись, удаление, расчет краткого имени пользователя ИБ, проверка несоответствия
+// Обработка пользователя ИБ.
&НаСервере
-Процедура ПрочитатьПользователяИБ(ПриКопированииЭлемента = Ложь, ТолькоРоли = Ложь)
+Процедура ПрочитатьРолиПользователяИБ()
+
+ СвойстваПользователяИБ = Неопределено;
+
+ Пользователи.ПрочитатьПользователяИБ(
+ Объект.ИдентификаторПользователяИБ, СвойстваПользователяИБ);
+
+ ОбработатьИнтерфейсРолей("ЗаполнитьРоли", СвойстваПользователяИБ.Роли);
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ПрочитатьПользователяИБ(ПриКопированииЭлемента = Ложь)
УстановитьПривилегированныйРежим(Истина);
- ПрочитанныеРоли = Неопределено;
-
- Если ТолькоРоли Тогда
- Пользователи.ПрочитатьПользователяИБ(Объект.ИдентификаторПользователяИБ, , ПрочитанныеРоли);
- ЗаполнитьРоли(ПрочитанныеРоли);
- Возврат;
- КонецЕсли;
-
Пароль = "";
ПодтверждениеПароля = "";
ПрочитанныеСвойства = Неопределено;
- СтарыйИдентификаторПользователяИБ = Неопределено;
+ ОписаниеПользователяИБ = Пользователи.НовоеОписаниеПользователяИБ();
ПользовательИБСуществует = Ложь;
ДоступКИнформационнойБазеРазрешен = Ложь;
- // Заполнение начальных значений свойств пользователяИБ у пользователя.
- Пользователи.ПрочитатьПользователяИБ(Неопределено, ПрочитанныеСвойства, ПрочитанныеРоли);
- ЗаполнитьЗначенияСвойств(ЭтаФорма, ПрочитанныеСвойства);
- ПользовательИнфБазыАутентификацияСтандартная = Истина;
+ // Заполнение начальных значений свойств пользователяИБ.
+ ОписаниеПользователяИБ.Роли = Новый Массив;
+ ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;
Если ПриКопированииЭлемента Тогда
- Если Пользователи.ПрочитатьПользователяИБ(Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ, ПрочитанныеСвойства, ПрочитанныеРоли) Тогда
- // Т.к. у скопированного пользователя есть связь с пользователемИБ,
- // то устанавливается будущая связь и у нового пользователя.
+ Если Пользователи.ПрочитатьПользователяИБ(
+ Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ,
+ ПрочитанныеСвойства) Тогда
+
+ // Установка связи пользователем ИБ.
ДоступКИнформационнойБазеРазрешен = Истина;
- // Т.к. пользовательИБ скопированного пользователя прочитан,
- // то копируются свойства и роли пользователяИБ.
- ЗаполнитьЗначенияСвойств(ЭтаФорма,
- ПрочитанныеСвойства,
- "ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыЗапрещеноИзменятьПароль");
+
+ // Копирование свойств и ролей пользователяИБ.
+ ЗаполнитьЗначенияСвойств(
+ ОписаниеПользователяИБ,
+ ПрочитанныеСвойства,
+ "АутентификацияOpenID,
+ |АутентификацияСтандартная,
+ |ЗапрещеноИзменятьПароль,
+ |Язык,
+ |Роли");
КонецЕсли;
Объект.ИдентификаторПользователяИБ = Неопределено;
Иначе
- Если Пользователи.ПрочитатьПользователяИБ(Объект.ИдентификаторПользователяИБ, ПрочитанныеСвойства, ПрочитанныеРоли) Тогда
-
+ Если Пользователи.ПрочитатьПользователяИБ(
+ Объект.ИдентификаторПользователяИБ, ПрочитанныеСвойства) Тогда
+
ПользовательИБСуществует = Истина;
ДоступКИнформационнойБазеРазрешен = Истина;
- СтарыйИдентификаторПользователяИБ = Объект.ИдентификаторПользователяИБ;
- ЗаполнитьЗначенияСвойств(ЭтаФорма,
- ПрочитанныеСвойства,
- "ПользовательИнфБазыИмя,
- |ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыЗапрещеноИзменятьПароль");
+ ЗаполнитьЗначенияСвойств(
+ ОписаниеПользователяИБ,
+ ПрочитанныеСвойства,
+ "Имя,
+ |АутентификацияOpenID,
+ |АутентификацияСтандартная,
+ |ЗапрещеноИзменятьПароль,
+ |Язык,
+ |Роли");
- Если ПрочитанныеСвойства.ПользовательИнфБазыПарольУстановлен Тогда
+ Если ПрочитанныеСвойства.ПарольУстановлен Тогда
Пароль = "**********";
ПодтверждениеПароля = "**********";
КонецЕсли;
КонецЕсли;
КонецЕсли;
- ЗаполнитьПредставлениеЯзыка(ПрочитанныеСвойства.ПользовательИнфБазыЯзык);
- ЗаполнитьРоли(ПрочитанныеРоли);
+ Пользователи.СкопироватьСвойстваПользователяИБ(
+ ЭтаФорма,
+ ОписаниеПользователяИБ,
+ ,
+ "УникальныйИдентификатор,
+ |Роли",
+ "ПользовательИнфБазы");
+
+ ОбработатьИнтерфейсРолей("ЗаполнитьРоли", ОписаниеПользователяИБ.Роли);
КонецПроцедуры
-&НаСервере
-Процедура ЗаписатьПользователяИБ(ТекущийОбъект, Отказ)
-
- // Восстановление действий в форме, если они изменены на клиенте
- ОпределитьДействияВФорме();
-
- Если НЕ (ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" ИЛИ
- ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" )Тогда
- Возврат;
- КонецЕсли;
-
- УстановитьПривилегированныйРежим(Истина);
-
- НачальныеСвойства = Неопределено;
- НовыеСвойства = Неопределено;
- НовыеРоли = Неопределено;
-
- // Чтение старых свойств/заполнение начальных свойств пользователяИБ у пользователя.
- Пользователи.ПрочитатьПользователяИБ(ТекущийОбъект.ИдентификаторПользователяИБ, НовыеСвойства);
- НовыеСвойства.ПользовательИнфБазыПолноеИмя = Строка(ТекущийОбъект.ОбъектАвторизации);
-
- Пользователи.ПрочитатьПользователяИБ(Неопределено, НачальныеСвойства);
- ЗаполнитьЗначенияСвойств(НовыеСвойства,
- НачальныеСвойства,
- "ПользовательИнфБазыПоказыватьВСпискеВыбора,
- |ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыАутентификацияОС,
- |ПользовательИнфБазыОсновнойИнтерфейс,
- |ПользовательИнфБазыРежимЗапуска");
-
- Если ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" Тогда
- ЗаполнитьЗначенияСвойств(НовыеСвойства,
- ЭтаФорма,
- "ПользовательИнфБазыИмя,
- |ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыПароль,
- |ПользовательИнфБазыЗапрещеноИзменятьПароль");
- Иначе
- ЗаполнитьЗначенияСвойств(НовыеСвойства,
- ЭтаФорма,
- "ПользовательИнфБазыИмя,
- |ПользовательИнфБазыПароль");
- КонецЕсли;
-
- Если НЕ ПользователиСерверПовтИсп.АутентификацияOpenIDНастраивается() Тогда
- НовыеСвойства.ПользовательИнфБазыАутентификацияСтандартная = Истина;
- КонецЕсли;
-
- НовыеСвойства.ПользовательИнфБазыЯзык = ПолучитьВыбранныйЯзык();
-
- Если ДействияВФорме.Роли = "Редактирование" И Объект.УстановитьРолиНепосредственно Тогда
- НовыеРоли = ПользовательИнфБазыРоли.Выгрузить(, "Роль").ВыгрузитьКолонку("Роль");
- КонецЕсли;
-
- // Попытка записи пользователя ИБ
- ОписаниеОшибки = "";
- Если Пользователи.ЗаписатьПользователяИБ(ТекущийОбъект.ИдентификаторПользователяИБ, НовыеСвойства, НовыеРоли, НЕ ПользовательИБСуществует, ОписаниеОшибки) Тогда
- Если НЕ ПользовательИБСуществует Тогда
- ТекущийОбъект.ИдентификаторПользователяИБ = НовыеСвойства.ПользовательИнфБазыУникальныйИдентификатор;
- ПользовательИБСуществует = Истина;
- КонецЕсли;
- Иначе
- Отказ = Истина;
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки);
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаСервере
-Функция УдалитьПользователяИБ(Отказ)
-
- УстановитьПривилегированныйРежим(Истина);
-
- ОписаниеОшибки = "";
- Если НЕ Пользователи.УдалитьПользователяИБ(СтарыйИдентификаторПользователяИБ, ОписаниеОшибки) Тогда
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки, , , , Отказ);
- КонецЕсли;
-
-КонецФункции
-
-&НаКлиентеНаСервереБезКонтекста
-Функция ПолучитьКраткоеИмяПользователяИБ(Знач ПолноеИмя)
-
- КраткоеИмя = "";
- ПервыйПроходЦикла = Истина;
-
- Пока Истина Цикл
- Если НЕ ПервыйПроходЦикла Тогда
- КраткоеИмя = КраткоеИмя + ВРег(Лев(ПолноеИмя, 1));
- КонецЕсли;
- ПозицияПробела = Найти(ПолноеИмя, " ");
- Если ПозицияПробела = 0 Тогда
- Если ПервыйПроходЦикла Тогда
- КраткоеИмя = ПолноеИмя;
- КонецЕсли;
- Прервать;
- КонецЕсли;
-
- Если ПервыйПроходЦикла Тогда
- КраткоеИмя = Лев(ПолноеИмя, ПозицияПробела - 1);
- КонецЕсли;
-
- ПолноеИмя = Прав(ПолноеИмя, СтрДлина(ПолноеИмя) - ПозицияПробела);
-
- ПервыйПроходЦикла = Ложь;
- КонецЦикла;
-
- КраткоеИмя = СтрЗаменить(КраткоеИмя, " ", "");
-
- Возврат КраткоеИмя;
-
-КонецФункции
-
&НаСервере
Процедура ОпределитьНесоответствияПользователяСПользователемИБ(ПараметрыЗаписи = Неопределено)
- //** Определение связи с несуществующим пользователем ИБ
- ЕстьНоваяСвязьСНесуществующимПользователемИБ = НЕ ПользовательИБСуществует И ЗначениеЗаполнено(Объект.ИдентификаторПользователяИБ);
+ // Определение связи с несуществующим пользователем ИБ.
+ ЕстьНоваяСвязьСНесуществующимПользователемИБ =
+ НЕ ПользовательИБСуществует И ЗначениеЗаполнено(Объект.ИдентификаторПользователяИБ);
+
Если ПараметрыЗаписи <> Неопределено
И ЕстьСвязьСНесуществующимПользователемИБ
И НЕ ЕстьНоваяСвязьСНесуществующимПользователемИБ Тогда
@@ -655,7 +622,7 @@
ЕстьСвязьСНесуществующимПользователемИБ = ЕстьНоваяСвязьСНесуществующимПользователемИБ;
Если ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех" Тогда
- // Связь не может быть изменена
+ // Связь не может быть изменена.
Элементы.СвязьОбработкаНесоответствия.Видимость = Ложь;
Иначе
Элементы.СвязьОбработкаНесоответствия.Видимость = ЕстьСвязьСНесуществующимПользователемИБ;
@@ -666,67 +633,38 @@
////////////////////////////////////////////////////////////////////////////////
// Начальное заполнение, проверка заполнения, доступность свойств
-&НаСервере
-Процедура ЗаполнитьПредставлениеЯзыка(Язык)
-
- ПредставлениеЯзыка = "";
-
- Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
-
- Если МетаданныеЯзыка.Имя = Язык Тогда
- ПредставлениеЯзыка = МетаданныеЯзыка.Синоним;
- Прервать;
- КонецЕсли;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Функция ПолучитьВыбранныйЯзык()
-
- Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
-
- Если МетаданныеЯзыка.Синоним = ПредставлениеЯзыка Тогда
- Возврат МетаданныеЯзыка.Имя;
- КонецЕсли;
- КонецЦикла;
-
- Возврат "";
-
-КонецФункции
-
-&НаСервере
-Процедура ЗаполнитьРоли(ПрочитанныеРоли)
-
- ПользовательИнфБазыРоли.Очистить();
-
- Для каждого Роль Из ПрочитанныеРоли Цикл
- ПользовательИнфБазыРоли.Добавить().Роль = Роль;
- КонецЦикла;
-
- Если ПоказатьТолькоВыбранныеРоли Тогда
- ОбновитьДеревоРолей();
- Иначе
- ОбновитьПометкуВыбранныхРолей(Роли.ПолучитьЭлементы());
- КонецЕсли;
-
-КонецПроцедуры
-
&НаКлиенте
Процедура УстановитьДоступностьСвойств()
- Элементы.ОбъектАвторизации.ТолькоПросмотр = ДействияВФорме.СвойстваЭлемента <> "Редактирование" ИЛИ
- ОбъектАвторизацииЗаданПриОткрытии ИЛИ
- ЗначениеЗаполнено(Объект.Ссылка) И
- ЗначениеЗаполнено(Объект.ОбъектАвторизации);
- Элементы.ДоступКИнформационнойБазеРазрешен.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.СвойстваПользователяИБ.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ = "ПросмотрВсех";
- Элементы.Пароль.ТолькоПросмотр = ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ АвторизованПолноправныйПользователь;
- Элементы.ПодтверждениеПароля.ТолькоПросмотр = ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ АвторизованПолноправныйПользователь;
- Элементы.ПользовательИнфБазыИмя.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+ Элементы.ОбъектАвторизации.ТолькоПросмотр
+ = ДействияВФорме.СвойстваЭлемента <> "Редактирование"
+ ИЛИ ОбъектАвторизацииЗаданПриОткрытии
+ ИЛИ ЗначениеЗаполнено(Объект.Ссылка)
+ И ЗначениеЗаполнено(Объект.ОбъектАвторизации);
- УстановитьТолькоПросмотрРолей(ЗапретРедактированияРолей ИЛИ ДействияВФорме.Роли <> "Редактирование" ИЛИ НЕ Объект.УстановитьРолиНепосредственно);
+ Элементы.ДоступКИнформационнойБазеРазрешен.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.СвойстваПользователяИБ.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ = "ПросмотрВсех";
+
+ Элементы.Пароль.ТолькоПросмотр =
+ ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ АвторизованПолноправныйПользователь;
+
+ Элементы.ПодтверждениеПароля.ТолькоПросмотр =
+ ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ АвторизованПолноправныйПользователь;
+
+ Элементы.ПользовательИнфБазыИмя.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ ОбработатьИнтерфейсРолей(
+ "УстановитьТолькоПросмотрРолей",
+ ЗапретРедактированияРолей
+ ИЛИ ДействияВФорме.Роли <> "Редактирование"
+ ИЛИ НЕ Объект.УстановитьРолиНепосредственно);
Элементы.ОсновныеСвойства.Доступность = ДоступКИнформационнойБазеРазрешен;
Элементы.РедактированиеИлиПросмотрРолей.Доступность = ДоступКИнформационнойБазеРазрешен;
@@ -740,275 +678,30 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// Для работы интерфейса ролей
-
-&НаСервере
-Функция КоллекцияРолей(ТаблицаЗначенийДляЧтения = Ложь)
-
- Если ТаблицаЗначенийДляЧтения Тогда
- Возврат РеквизитФормыВЗначение("ПользовательИнфБазыРоли");
- КонецЕсли;
-
- Возврат ПользовательИнфБазыРоли;
-
-КонецФункции
-
-&НаКлиенте
-Процедура УстановитьТолькоПросмотрРолей(Знач ТолькоПросмотрРолей = Неопределено, Знач РазрешитьПросмотрТолькоВыбранных = Ложь)
-
- Если ТолькоПросмотрРолей <> Неопределено Тогда
- Элементы.Роли.ТолькоПросмотр = ТолькоПросмотрРолей;
- Элементы.РолиУстановитьФлажки.Доступность = НЕ ТолькоПросмотрРолей;
- Элементы.РолиСнятьФлажки.Доступность = НЕ ТолькоПросмотрРолей;
- КонецЕсли;
-
- Если РазрешитьПросмотрТолькоВыбранных Тогда
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Доступность = Ложь;
- КонецЕсли;
-
-КонецПроцедуры
-
-
-&НаКлиенте
-Процедура РазвернутьПодсистемыРолей(Коллекция = Неопределено);
-
- Если Коллекция = Неопределено Тогда
- Коллекция = Роли.ПолучитьЭлементы();
- КонецЕсли;
-
- // Развернуть все
- Для каждого Строка ИЗ Коллекция Цикл
- Элементы.Роли.Развернуть(Строка.ПолучитьИдентификатор());
- Если НЕ Строка.ЭтоРоль Тогда
- РазвернутьПодсистемыРолей(Строка.ПолучитьЭлементы());
- КонецЕсли;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ОбновитьДеревоРолей()
-
- Если НЕ Элементы.РолиПоказатьТолькоВыбранныеРоли.Доступность Тогда
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
- ПоказатьТолькоВыбранныеРоли = Истина;
- КонецЕсли;
-
- // Запоминание текущей строки
- ТекущаяПодсистема = "";
- ТекущаяРоль = "";
- //
- Если Элементы.Роли.ТекущаяСтрока <> Неопределено Тогда
- ТекущиеДанные = Роли.НайтиПоИдентификатору(Элементы.Роли.ТекущаяСтрока);
- Если ТекущиеДанные.ЭтоРоль Тогда
- ТекущаяПодсистема = ?(ТекущиеДанные.ПолучитьРодителя() = Неопределено, "", ТекущиеДанные.ПолучитьРодителя().Имя);
- ТекущаяРоль = ТекущиеДанные.Имя;
- Иначе
- ТекущаяПодсистема = ТекущиеДанные.Имя;
- ТекущаяРоль = "";
- КонецЕсли;
- КонецЕсли;
-
- ТипПользователя = Перечисления.ТипыПользователей.ВнешнийПользователь;
- ДеревоРолей = ПользователиСерверПовтИсп.ДеревоРолей(ПоказатьПодсистемыРолей, ТипПользователя).Скопировать();
- ДеревоРолей.Колонки.Добавить("Пометка", Новый ОписаниеТипов("Булево"));
- ДеревоРолей.Колонки.Добавить("НомерКартинки", Новый ОписаниеТипов("Число"));
- ПодготовитьДеревоРолей(ДеревоРолей.Строки, СкрытьРольПолныеПрава, ПоказатьТолькоВыбранныеРоли);
-
- ЗначениеВРеквизитФормы(ДеревоРолей, "Роли");
-
- Элементы.Роли.Отображение = ?(ДеревоРолей.Строки.Найти(Ложь, "ЭтоРоль") = Неопределено, ОтображениеТаблицы.Список, ОтображениеТаблицы.Дерево);
-
- // Восстановление текущей строки
- НайденныеСтроки = ДеревоРолей.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Ложь, ТекущаяПодсистема), Истина);
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеПодсистемы = НайденныеСтроки[0];
- ИндексПодсистемы = ?(ОписаниеПодсистемы.Родитель = Неопределено, ДеревоРолей.Строки, ОписаниеПодсистемы.Родитель.Строки).Индекс(ОписаниеПодсистемы);
- СтрокаПодсистемы = ДанныеФормыКоллекцияЭлементовДерева(Роли, ОписаниеПодсистемы).Получить(ИндексПодсистемы);
- Если ЗначениеЗаполнено(ТекущаяРоль) Тогда
- НайденныеСтроки = ОписаниеПодсистемы.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Истина, ТекущаяРоль));
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеРоли = НайденныеСтроки[0];
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьЭлементы().Получить(ОписаниеПодсистемы.Строки.Индекс(ОписаниеРоли)).ПолучитьИдентификатор();
- Иначе
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьИдентификатор();
- КонецЕсли;
- Иначе
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьИдентификатор();
- КонецЕсли;
- Иначе
- НайденныеСтроки = ДеревоРолей.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Истина, ТекущаяРоль), Истина);
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеРоли = НайденныеСтроки[0];
- ИндексРоли = ?(ОписаниеРоли.Родитель = Неопределено, ДеревоРолей.Строки, ОписаниеРоли.Родитель.Строки).Индекс(ОписаниеРоли);
- СтрокаРоли = ДанныеФормыКоллекцияЭлементовДерева(Роли, ОписаниеРоли).Получить(ИндексРоли);
- Элементы.Роли.ТекущаяСтрока = СтрокаРоли.ПолучитьИдентификатор();
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ПодготовитьДеревоРолей(Знач Коллекция, Знач СкрытьРольПолныеПрава, Знач ПоказатьТолькоВыбранныеРоли)
-
- Индекс = Коллекция.Количество()-1;
-
- Пока Индекс >= 0 Цикл
- Строка = Коллекция[Индекс];
-
- ПодготовитьДеревоРолей(Строка.Строки, СкрытьРольПолныеПрава, ПоказатьТолькоВыбранныеРоли);
-
- Если Строка.ЭтоРоль Тогда
- Если СкрытьРольПолныеПрава И
- (ВРег(Строка.Имя) = ВРег("ПолныеПрава") ИЛИ ВРег(Строка.Имя) = ВРег("АдминистраторСистемы")) Тогда
- Коллекция.Удалить(Индекс);
- Иначе
- Строка.НомерКартинки = 6;
- Строка.Пометка = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Строка.Имя)).Количество() > 0;
- Если ПоказатьТолькоВыбранныеРоли И НЕ Строка.Пометка Тогда
- Коллекция.Удалить(Индекс);
- КонецЕсли;
- КонецЕсли;
- Иначе
- Если Строка.Строки.Количество() = 0 Тогда
- Коллекция.Удалить(Индекс);
- Иначе
- Строка.НомерКартинки = 5;
- Строка.Пометка = Строка.Строки.НайтиСтроки(Новый Структура("Пометка", Ложь)).Количество() = 0;
- КонецЕсли;
- КонецЕсли;
-
- Индекс = Индекс-1;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Функция ДанныеФормыКоллекцияЭлементовДерева(Знач ДанныеФормыДерево, Знач СтрокаДереваЗначений)
-
- Если СтрокаДереваЗначений.Родитель = Неопределено Тогда
- ДанныеФормыКоллекцияЭлементовДерева = ДанныеФормыДерево.ПолучитьЭлементы();
- Иначе
- ИндексРодителя = ?(СтрокаДереваЗначений.Родитель.Родитель = Неопределено, СтрокаДереваЗначений.Владелец().Строки, СтрокаДереваЗначений.Родитель.Родитель.Строки).Индекс(СтрокаДереваЗначений.Родитель);
- ДанныеФормыКоллекцияЭлементовДерева = ДанныеФормыКоллекцияЭлементовДерева(ДанныеФормыДерево, СтрокаДереваЗначений.Родитель).Получить(ИндексРодителя).ПолучитьЭлементы();
- КонецЕсли;
-
- Возврат ДанныеФормыКоллекцияЭлементовДерева;
-
-КонецФункции
-
-
-&НаСервере
-Процедура ОбновитьСоставРолей(ИдентификаторСтроки, Добавить);
-
- Если ИдентификаторСтроки = Неопределено Тогда
- // Обработка всех
- КоллекцияРолей = КоллекцияРолей();
- КоллекцияРолей.Очистить();
- Если Добавить Тогда
- ВсеРоли = ПользователиСерверПовтИсп.ВсеРоли();
- Для каждого ОписаниеРоли Из ВсеРоли Цикл
- Если ОписаниеРоли.Имя <> "ПолныеПрава" И ОписаниеРоли.Имя <> "АдминистраторСистемы" Тогда
- КоллекцияРолей.Добавить().Роль = ОписаниеРоли.Имя;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
- Если ПоказатьТолькоВыбранныеРоли Тогда
- Если КоллекцияРолей.Количество() > 0 Тогда
- ОбновитьДеревоРолей();
- Иначе
- Роли.ПолучитьЭлементы().Очистить();
- КонецЕсли;
- // Возврат
- Возврат;
- // Возврат
- КонецЕсли;
- Иначе
- ТекущиеДанные = Роли.НайтиПоИдентификатору(ИдентификаторСтроки);
- Если ТекущиеДанные.ЭтоРоль Тогда
- ДобавитьУдалитьРоль(ТекущиеДанные.Имя, Добавить);
- Иначе
- ДобавитьУдалитьРолиПодсистемы(ТекущиеДанные.ПолучитьЭлементы(), Добавить);
- КонецЕсли;
- КонецЕсли;
-
- ОбновитьПометкуВыбранныхРолей(Роли.ПолучитьЭлементы());
-
- Модифицированность = Истина;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ДобавитьУдалитьРоль(Знач Роль, Знач Добавить)
-
- НайденныеРоли = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Роль));
-
- Если Добавить Тогда
- Если НайденныеРоли.Количество() = 0 Тогда
- КоллекцияРолей().Добавить().Роль = Роль;
- КонецЕсли;
- Иначе
- Если НайденныеРоли.Количество() > 0 Тогда
- КоллекцияРолей().Удалить(НайденныеРоли[0]);
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ДобавитьУдалитьРолиПодсистемы(Знач Коллекция, Знач Добавить)
-
- Для каждого Строка Из Коллекция Цикл
- Если Строка.ЭтоРоль Тогда
- ДобавитьУдалитьРоль(Строка.Имя, Добавить);
- Иначе
- ДобавитьУдалитьРолиПодсистемы(Строка.ПолучитьЭлементы(), Добавить);
- КонецЕсли;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ОбновитьПометкуВыбранныхРолей(Знач Коллекция)
-
- Индекс = Коллекция.Количество()-1;
-
- Пока Индекс >= 0 Цикл
- Строка = Коллекция[Индекс];
-
- Если Строка.ЭтоРоль Тогда
- Строка.Пометка = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Строка.Имя)).Количество() > 0;
- Если ПоказатьТолькоВыбранныеРоли И НЕ Строка.Пометка Тогда
- Коллекция.Удалить(Индекс);
- КонецЕсли;
- Иначе
- ОбновитьПометкуВыбранныхРолей(Строка.ПолучитьЭлементы());
- Если Строка.ПолучитьЭлементы().Количество() = 0 Тогда
- Коллекция.Удалить(Индекс);
- Иначе
- Строка.Пометка = Истина;
- Для каждого Элемент Из Строка.ПолучитьЭлементы() Цикл
- Если НЕ Элемент.Пометка Тогда
- Строка.Пометка = Ложь;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
- КонецЕсли;
-
- Индекс = Индекс-1;
- КонецЦикла;
-
-КонецПроцедуры
-
&НаКлиенте
Процедура НедействителенПриИзменении(Элемент)
Если Объект.Недействителен Тогда
ДоступКИнформационнойБазеРазрешен = Ложь;
- КонецЕсли;
+ КонецЕсли;
УстановитьДоступностьСвойств();
КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// Для работы интерфейса ролей
+
+&НаСервере
+Процедура ОбработатьИнтерфейсРолей(Действие, ОсновнойПараметр = Неопределено)
+
+ ПараметрыДействия = Новый Структура;
+ ПараметрыДействия.Вставить("ОсновнойПараметр", ОсновнойПараметр);
+ ПараметрыДействия.Вставить("Форма", ЭтаФорма);
+ ПараметрыДействия.Вставить("КоллекцияРолей", ПользовательИнфБазыРоли);
+ ПараметрыДействия.Вставить("ТипПользователя", Перечисления.ТипыПользователей.ВнешнийПользователь);
+ ПараметрыДействия.Вставить("СкрытьРольПолныеПрава", Истина);
+
+ ПользователиСлужебный.ОбработатьИнтерфейсРолей(Действие, ПараметрыДействия);
+
+КонецПроцедуры
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html b/SSL/src/Catalogs/ВнешниеПользователи/Help/ru.html
index 958331596..a19da741f 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>В этом списке ведется учет пользователей, которые работают с программой "извне". Их доступ, как правило, сильно ограничен, они не принимают активного участия в процессах учета, работают обособленно, не взаимодействуют между собой.</p>
<p>Основной способ создания и редактирования внешних пользователей через команду <strong>Внешний доступ</strong>, которая размещается в командной панели формы объектов, например, в карточке контрагента, физического лица. При выполнении команды сразу создается внешний пользователь, связанный с объектом, или открывается существующий внешний пользователь.</p>
<p>В случае большого количества внешних пользователей список может быть сгруппирован, например, по видам отношений с ними: партнеры, контрагенты и т.д. Для того чтобы увидеть всех внешних пользователей, включенных в дочерние группы с учетом иерархии, необходимо установить флажок <strong>Показывать внешних пользователей дочерних групп</strong> в нижней части списка. Для добавления новых групп внешних пользователей воспользуйтесь командами в левой части списка. Для добавления в группу большого числа внешних пользователей можно открыть форму группы и воспользоваться командой <strong>Подобрать</strong>. Один и тот же внешний пользователь может одновременно входить в разные группы внешних пользователей.</p>
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl
index 325d44621..c34684cd2 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -18,6 +20,7 @@
Если Не Параметры.Свойство("Отбор") Тогда
Параметры.Вставить("Отбор", Новый Структура("Недействителен", Ложь));
ПараметрИзменен = Истина;
+
ИначеЕсли Не Параметры.Отбор.Свойство("Недействителен") Тогда
Параметры.Отбор.Вставить("Недействителен", Ложь);
ПараметрИзменен = Истина;
@@ -28,6 +31,37 @@
ВыбраннаяФорма = "ФормаСписка";
КонецЕсли;
+ ИначеЕсли ВидФормы = "ФормаОбъекта" И Параметры.Свойство("ОбъектАвторизации") Тогда
+
+ СтандартнаяОбработка = Ложь;
+ ВыбраннаяФорма = "ФормаЭлемента";
+
+ НайденныйВнешнийПользователь = Неопределено;
+ ЕстьПравоДобавленияВнешнегоПользователя = Ложь;
+
+ ОбъектАвторизацииИспользуется = ПользователиСлужебный.ОбъектАвторизацииИспользуется(
+ Параметры.ОбъектАвторизации,
+ ,
+ НайденныйВнешнийПользователь,
+ ЕстьПравоДобавленияВнешнегоПользователя);
+
+ Если ОбъектАвторизацииИспользуется Тогда
+ Параметры.Вставить("Ключ", НайденныйВнешнийПользователь);
+
+ ИначеЕсли ЕстьПравоДобавленияВнешнегоПользователя Тогда
+
+ Параметры.Вставить(
+ "ОбъектАвторизацииНовогоВнешнегоПользователя", Параметры.ОбъектАвторизации);
+ Иначе
+ ОписаниеОшибкиКакПредупреждения =
+ НСтр("ru = 'Доступ к информационной базе запрещен и не предоставлялся.'");
+
+ ВызватьИсключение ОписаниеОшибкиКакПредупреждения;
+ КонецЕсли;
+
+ Параметры.Удалить("ОбъектАвторизации");
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl
index 6e0729be8..ce985518f 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl
@@ -1,3 +1,16 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+
+Перем ПараметрыОбработкиПользователяИБ; // Параметры, заполняемые при обработке пользователя ИБ.
+ // Используются в обработчике события ПриЗаписи.
+
+////////////////////////////////////////////////////////////////////////////////
+// ПРОГРАММНЫЙ ИНТЕРФЕЙС
+
+// Программный интерфейс объекта реализован через ДополнительныеСвойства:
+//
+// ОписаниеПользователяИБ - Структура, как и в модуле объекта справочника Пользователи.
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -7,28 +20,32 @@
Возврат;
КонецЕсли;
- Если ИдентификаторПользователяИБ <> Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000") И
- Пользователи.ПользовательПоИдентификаторуСуществует(ИдентификаторПользователяИБ, Ссылка) Тогда
- ВызватьИсключение НСтр("ru = 'Один пользователь информационной базы
- |может быть связан только с одним пользователем или внешним пользователем.'");
- КонецЕсли;
-
Если НЕ ЗначениеЗаполнено(ОбъектАвторизации) Тогда
- ВызватьИсключение НСтр("ru = 'Для внешнего пользователя не установлен объект авторизации.'");
+ ВызватьИсключение НСтр("ru = 'Для внешнего пользователя не установлен
+ |объект информационной базы.'");
Иначе
- Если ВнешниеПользователи.ОбъектАвторизацииИспользуется(ОбъектАвторизации, Ссылка) Тогда
- ВызватьИсключение НСтр("ru = 'Объект авторизации уже используется для другого внешнего пользователя.'");
+ ТекстОшибки = "";
+ Если ПользователиСлужебный.ОбъектАвторизацииИспользуется(
+ ОбъектАвторизации, Ссылка, , , ТекстОшибки) Тогда
+
+ ВызватьИсключение ТекстОшибки;
КонецЕсли;
КонецЕсли;
// Проверка, что объект авторизации не изменен.
Если НЕ ЭтоНовый() Тогда
СтарыйОбъектАвторизации = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Ссылка, "ОбъектАвторизации");
- Если ЗначениеЗаполнено(СтарыйОбъектАвторизации) И СтарыйОбъектАвторизации <> ОбъектАвторизации Тогда
- ВызватьИсключение НСтр("ru = 'Объект информационной базы нельзя изменять.'");
+
+ Если ЗначениеЗаполнено(СтарыйОбъектАвторизации)
+ И СтарыйОбъектАвторизации <> ОбъектАвторизации Тогда
+
+ ВызватьИсключение НСтр("ru = 'У внешнего пользователя нельзя изменять
+ |объект информационной базы.'");
КонецЕсли;
КонецЕсли;
+ ПользователиСлужебный.НачатьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
+
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
@@ -37,40 +54,32 @@
Возврат;
КонецЕсли;
- // Обновление состава автоматической группы "Все внешние пользователи".
- ИзмененныеВнешниеПользователи = Неопределено;
- ВнешниеПользователи.ОбновитьСоставГруппВнешнихПользователей(Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи, ИзмененныеВнешниеПользователи);
- ИзмененныеВнешниеПользователи.Добавить(Ссылка);
- ВнешниеПользователи.ОбновитьРолиВнешнихПользователей(ИзмененныеВнешниеПользователи);
-
- // Обновление состава автоматической группы <все объекты авторизации одного типа> (если есть).
- Если ЗначениеЗаполнено(ОбъектАвторизации) Тогда
- Запрос = Новый Запрос(
- "ВЫБРАТЬ
- | ГруппыВнешнихПользователей.Ссылка
- |ИЗ
- | Справочник.ГруппыВнешнихПользователей КАК ГруппыВнешнихПользователей
- |ГДЕ
- | ГруппыВнешнихПользователей.ВсеОбъектыАвторизации
- | И ТИПЗНАЧЕНИЯ(ГруппыВнешнихПользователей.ТипОбъектовАвторизации) = &ТипОбъектовАвторизации");
- Запрос.УстановитьПараметр("ТипОбъектовАвторизации", ТипЗнч(ОбъектАвторизации));
- Выборка = Запрос.Выполнить().Выбрать();
-
- Если Выборка.Следующий() Тогда
- ВнешниеПользователи.ОбновитьСоставГруппВнешнихПользователей(Выборка.Ссылка, ИзмененныеВнешниеПользователи);
- ВнешниеПользователи.ОбновитьРолиВнешнихПользователей(ИзмененныеВнешниеПользователи);
- КонецЕсли;
- КонецЕсли;
-
// Обновление состава группы нового внешнего пользователя (если задана).
Если ДополнительныеСвойства.Свойство("ГруппаНовогоВнешнегоПользователя") И
ЗначениеЗаполнено(ДополнительныеСвойства.ГруппаНовогоВнешнегоПользователя) Тогда
+ Блокировка = Новый БлокировкаДанных;
+ ЭлементБлокировки = Блокировка.Добавить("Справочник.ГруппыВнешнихПользователей");
+ ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
+ Блокировка.Заблокировать();
+
ОбъектГруппы = ДополнительныеСвойства.ГруппаНовогоВнешнегоПользователя.ПолучитьОбъект();
ОбъектГруппы.Состав.Добавить().ВнешнийПользователь = Ссылка;
ОбъектГруппы.Записать();
- ВнешниеПользователи.ОбновитьСоставГруппВнешнихПользователей(ОбъектГруппы.Ссылка, ИзмененныеВнешниеПользователи);
- ВнешниеПользователи.ОбновитьРолиВнешнихПользователей(ИзмененныеВнешниеПользователи);
+ КонецЕсли;
+
+ // Обновление состава автоматической группы "Все внешние пользователи".
+ ПользователиСлужебный.ОбновитьСоставыГруппВнешнихПользователей(
+ Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи, Ссылка);
+
+ ПользователиСлужебный.ЗавершитьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
+
+ Если НЕ УстановитьРолиНепосредственно
+ И НЕ ПользователиПереопределяемый.ЗапретРедактированияРолей() Тогда
+
+ Массив = Новый Массив;
+ Массив.Добавить(Ссылка);
+ ПользователиСлужебный.ОбновитьРолиВнешнихПользователей(Массив);
КонецЕсли;
КонецПроцедуры
@@ -79,12 +88,25 @@
// Требуется удалить пользователя ИБ, иначе он попадет в список ошибок в форме ПользователиИБ,
// кроме того, вход под этим пользователем ИБ приведет к ошибке.
- Если Пользователи.ПользовательИБСуществует(ИдентификаторПользователяИБ) Тогда
-
- Отказ = НЕ Пользователи.УдалитьПользователяИБ(ИдентификаторПользователяИБ);
- КонецЕсли;
+
+ ОписаниеПользователяИБ = Новый Структура;
+ ОписаниеПользователяИБ.Вставить("Действие", "Удалить");
+ ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователяИБ);
+
+ ПользователиСлужебный.НачатьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ, Истина);
+ ПользователиСлужебный.ЗавершитьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
// Проверку ОбменДанными.Загрузка следует выполнять начиная с этой строки.
КонецПроцедуры
+Процедура ПриКопировании(ОбъектКопирования)
+
+ ДополнительныеСвойства.Вставить("ЗначениеКопирования", ОбъектКопирования.Ссылка);
+
+ ИдентификаторПользователяИБ = Неопределено;
+ ИдентификаторПользователяСервиса = Неопределено;
+
+КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo b/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo
index c8de89fcb..d194cf4f8 100644
--- a/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo
+++ b/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo
@@ -132,26 +132,38 @@
<defaultObjectForm>Catalog.ВнешниеПользователи.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.ВнешниеПользователи.Form.ФормаСписка</defaultListForm>
<defaultChoiceForm>Catalog.ВнешниеПользователи.Form.ФормаСписка</defaultChoiceForm>
- <attributes uuid="bbfd9834-12b4-49ca-bdae-5c94efa80482">
- <name>УдалитьПароль</name>
+ <attributes uuid="433a114f-3198-4ef6-bbf8-ce9b54fdb736">
+ <name>ИдентификаторПользователяИБ</name>
<synonym>
<key>ru</key>
- <value>Удалить Пароль</value>
+ <value>Идентификатор пользователя ИБ</value>
</synonym>
+ <comment>Требуется для сопоставления элемента справочника ВнешниеПользователи пользователю ИБ</comment>
<type>
- <types>String</types>
- <stringQualifiers>
- <length>30</length>
- </stringQualifiers>
+ <types>UUID</types>
</type>
<toolTip>
<key>ru</key>
- <value>Это реквизит, который использовался в старой версии подсистемы для хранения паролей (используется для установки паролей пользователям информационной базы при конвертации данных)</value>
+ <value>Уникальный идентификатор пользователя информационной базы, через который установлена связь элемента справочника с пользователем информационной базы</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
- <fillValue xsi:type="core:StringValue"/>
- <fullTextSearch>Use</fullTextSearch>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="02ac711c-e38e-422e-ac28-ba1b298df9cc">
+ <name>ИдентификаторПользователяСервиса</name>
+ <synonym>
+ <key>ru</key>
+ <value>Идентификатор пользователя сервиса</value>
+ </synonym>
+ <type>
+ <types>UUID</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="b729d739-5249-4765-85ee-fd792bb22911">
@@ -194,23 +206,26 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
- <attributes uuid="433a114f-3198-4ef6-bbf8-ce9b54fdb736">
- <name>ИдентификаторПользователяИБ</name>
+ <attributes uuid="bbfd9834-12b4-49ca-bdae-5c94efa80482">
+ <name>УдалитьПароль</name>
<synonym>
<key>ru</key>
- <value>Идентификатор пользователя ИБ</value>
+ <value>Удалить Пароль</value>
</synonym>
- <comment>Требуется для сопоставления элемента справочника ВнешниеПользователи пользователю ИБ</comment>
<type>
- <types>UUID</types>
+ <types>String</types>
+ <stringQualifiers>
+ <length>30</length>
+ </stringQualifiers>
</type>
<toolTip>
<key>ru</key>
- <value>Уникальный идентификатор пользователя информационной базы, через который установлена связь элемента справочника с пользователем информационной базы</value>
+ <value>Это реквизит, который использовался в старой версии подсистемы для хранения паролей (используется для установки паролей пользователям информационной базы при конвертации данных)</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
- <fillValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:StringValue"/>
+ <fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="d431d1e2-13dc-495c-9de1-b5ec872eceed">
diff --git a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl
index 8b1378917..dc862d04c 100644
--- a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl
@@ -1 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl
index e71a3e8fa..25b2b0267 100644
--- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl
@@ -7,12 +7,12 @@
Если Параметры.РежимВыбора Тогда
Элементы.Список.РежимВыбора = Истина;
- // Отбор не помеченных на удаление
+ // Отбор не помеченных на удаление.
Список.Отбор.Элементы[0].Использование = Истина;
Список.Отбор.Элементы[1].Использование = Параметры.Свойство("ВыборРодителя");
Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
- // Режим подбора
+ // Режим подбора.
Заголовок = НСтр("ru = 'Подбор групп внешних пользователей'");
Элементы.Список.МножественныйВыбор = Истина;
Элементы.Список.РежимВыделения = РежимВыделенияТаблицы.Множественный;
diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Form.form
index 36eb701fa..a63d36435 100644
--- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Form.form
@@ -930,7 +930,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.УстановитьФлажки</commandName>
+ <commandName>Form.Command.ВключитьРоли</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -957,7 +957,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.СнятьФлажки</commandName>
+ <commandName>Form.Command.ИсключитьРоли</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -1010,7 +1010,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.ПоказатьПодсистемыРолей</commandName>
+ <commandName>Form.Command.ГруппировкаРолейПоПодсистемам</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -1272,10 +1272,6 @@
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
- <handlers>
- <event>OnOpen</event>
- <name>ПриОткрытии</name>
- </handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
@@ -1320,23 +1316,6 @@
</tablePath>
</additionalColumns>
</attributes>
- <attributes>
- <name>ПоказатьТолькоВыбранныеРоли</name>
- <title>
- <key>ru</key>
- <value>Показать только выбранные роли</value>
-
- 1
-
- Boolean
-
-
- true
-
-
- true
-
-
ДействияВФорме
@@ -1519,23 +1498,6 @@
<segments>ПоказатьПодсистемыРолей</segments>
</settingsSavedData>
</attributes>
- <attributes>
- <name>СкрытьРольПолныеПрава</name>
- <title>
- <key>ru</key>
- <value>Скрыть роль полные права</value>
-
- 8
-
- Boolean
-
-
- true
-
-
- true
-
- ПодобратьВнешнихПользователей
@@ -1586,15 +1548,15 @@
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
- <name>СнятьФлажки</name>
+ <name>ИсключитьРоли</name>
<title>
<key>ru</key>
- <value>Снять флажки</value>
+ <value>Исключить роли</value>
5ru
- Снять флажки
+ Исключить роли
- УстановитьФлажки
+ ВключитьРоли
<key>ru</key>
- <value>Установить флажки</value>
+ <value>Включить роли</value>
6ru
- Установить флажки
+ Включить роли
- ПоказатьПодсистемыРолей
+ ГруппировкаРолейПоПодсистемам
<key>ru</key>
- <value>Группировка по подсистемам</value>
+ <value>По подсистемам</value>
2ru
- Показать группировку по подсистемам
+ Группировать список ролей по подсистемам
+
+ ВариантыДополнительногоОтчетаОткрыть
+
+ <key>ru</key>
+ <value>Открыть...</value>
+
+ 7
+
+ ru
+ Открыть вариант дополнительного отчета
+
+
+
+ StdPicture.Report
+
+
+
+ ВариантыДополнительногоОтчетаОткрыть
+
+
+ TextPicture
+ Auto
+ Auto
+
+
+ РазместитьВРазделах
+
+ <key>ru</key>
+ <value>Разместить в разделах...</value>
+
+ 8
+
+ ru
+ Разместить в разделах
+
+
+
+
+ РазместитьВРазделах
+
+
+ Auto
+ Auto
+
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Help/ru.html
index 86d5844a8..696751116 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 c71113e1d..33e810064 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
@@ -4,6 +4,21 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+ ПравоДобавления = ДополнительныеОтчетыИОбработки.ПравоДобавления();
+
+ Если ЭтоНовый И НЕ ПравоДобавления Тогда
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+
+ Если НЕ ПравоДобавления Тогда
+ Элементы.ЗагрузитьФайлОбработкиОтчета.Видимость = Ложь;
+ КонецЕсли;
+
+ ВидДополнительнаяОбработка = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка;
+ ВидДополнительныйОтчет = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет;
+ ВидОтчет = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет;
+
РегистрацияОбработки = Ложь;
Если Объект.Ссылка = Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка() Тогда
@@ -20,9 +35,6 @@
УстановитьЭлементыФормы();
- ВидДополнительныйОтчет = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет;
- ВидОтчет = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет;
-
КонецПроцедуры
&НаКлиенте
@@ -77,8 +89,7 @@
РегистрацияОбработки = Ложь;
КонецЕсли;
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка
- ИЛИ Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет Тогда
+ Если Объект.Вид = ВидДополнительнаяОбработка ИЛИ Объект.Вид = ВидДополнительныйОтчет Тогда
ТекущийОбъект.ДополнительныеСвойства.Вставить("КомандыОбработки", РеквизитФормыВЗначение("КомандыОбработки"));
@@ -89,6 +100,7 @@
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ЭтоНовый = Ложь;
+ УстановитьЭлементыФормы();
КонецПроцедуры
&НаСервере
@@ -105,34 +117,92 @@
КонецПроцедуры
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ШАПКИ ФОРМЫ
+
+&НаКлиенте
+Процедура КомментарийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+ СтандартнаяОбработка = Ложь;
+ ОбщегоНазначенияКлиент.ОткрытьФормуРедактированияКомментария(
+ Объект.Комментарий,
+ Объект.Комментарий,
+ Модифицированность
+ );
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВариантыДополнительногоОтчетаПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
+ Отказ = Истина;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВариантыДополнительногоОтчетаПередНачаломИзменения(Элемент, Отказ)
+ Отказ = Истина;
+ ОткрытьВариант();
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВариантыДополнительногоОтчетаПередУдалением(Элемент, Отказ)
+ Вариант = Элементы.ВариантыДополнительногоОтчета.ТекущиеДанные;
+ Если Вариант = Неопределено Тогда
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+
+ Если НЕ Вариант.Пользовательский Тогда
+ Предупреждение(НСтр("ru = 'Пометка на удаление предопределенного варианта отчета запрещена.'"));
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+
+ ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Пометить ""%1"" на удаление?'"),
+ Вариант.Наименование
+ );
+
+ Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да);
+ Если Ответ <> КодВозвратаДиалога.Да Тогда
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+
+ УдалитьВариантДополнительногоОтчета("ВнешнийОтчет." + Объект.ИмяОбъекта, Вариант.КлючВарианта);
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ КомандыОбработки
&НаКлиенте
Процедура КомандыОбработкиПередНачаломИзменения(Элемент, Отказ)
- Если Элемент.ТекущийЭлемент = Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыИспользование Тогда
+ ТекущиеДанные = Элемент.ТекущиеДанные;
+ Если ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ ИмяТекущегоЭлемента = Элемент.ТекущийЭлемент.Имя;
+
+ Если ИмяТекущегоЭлемента = "КомандыИспользование" ИЛИ ИмяТекущегоЭлемента = "КомандыРасписание" Тогда
- Если НЕ Элемент.ТекущиеДанные.Разрешено Тогда
+ Если НЕ ТекущиеДанные.Разрешено Тогда
- Отказ = Истина;
Предупреждение(
НСтр("ru = 'Команда используется только на клиенте.
|Регламентное задание можно настраивать только для команд исполняемых в серверном контексте.'")
);
- ИначеЕсли Элемент.ТекущиеДанные.РасписаниеПредставление = стрРасписаниеНеЗадано()Тогда
-
- УстановитьРасписание(Элементы.КомандыОбработки.ТекущиеДанные, Отказ);
-
+ Отказ = Истина;
+ Возврат;
КонецЕсли;
- ИначеЕсли Элемент.ТекущийЭлемент = Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыРасписание Тогда
-
- Если НЕ Элемент.ТекущиеДанные.Разрешено Тогда
+ Если ИмяТекущегоЭлемента = "КомандыРасписание" Тогда
Отказ = Истина;
КонецЕсли;
- ИначеЕсли Элемент.ТекущийЭлемент = Элементы.КомандыОбработки.ПодчиненныеЭлементы.БыстрыйДоступПредставление Тогда
+ Если НЕ ТекущиеДанные.Использование ИЛИ ИмяТекущегоЭлемента = "КомандыРасписание" Тогда
+ УстановитьРасписание(ТекущиеДанные);
+ КонецЕсли;
+
+ ИначеЕсли ИмяТекущегоЭлемента = "БыстрыйДоступПредставление" Тогда
НастроитьБыстрыйДоступОбщийОбработчик(Элемент.ТекущиеДанные);
Отказ = Истина;
@@ -141,21 +211,6 @@
КонецПроцедуры
-&НаКлиенте
-Процедура КомандыРасписаниеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
-
- СтандартнаяОбработка = Ложь;
-
- ТекущиеДанные = Элементы.КомандыОбработки.ТекущиеДанные;
-
- Если НЕ ТекущиеДанные.Разрешено Тогда
- Возврат;
- КонецЕсли;
-
- УстановитьРасписание(ТекущиеДанные);
-
-КонецПроцедуры
-
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
@@ -179,7 +234,7 @@
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогСохраненияФайла.ПолноеИмяФайла = Объект.ИмяФайла;
ДиалогСохраненияФайла.Фильтр = ДополнительныеОтчетыИОбработкиКлиентСервер.ФильтрДиалоговВыбораИСохранения();
- ДиалогСохраненияФайла.ИндексФильтра = ?(Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет, 0, 1);
+ ДиалогСохраненияФайла.ИндексФильтра = ?(Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет, 1, 2);
ДиалогСохраненияФайла.МножественныйВыбор = Ложь;
ДиалогСохраненияФайла.Заголовок = НСтр("ru = 'Укажите файл'");
@@ -213,6 +268,7 @@
ПараметрыФормы.Вставить("ФильтрПоОбъектамМетаданных", ФильтрПоОбъектамМетаданных);
ПараметрыФормы.Вставить("ВыбранныеОбъектыМетаданных", ВыбранныеОбъектыМетаданных);
+ ПараметрыФормы.Вставить("Заголовок", НСтр("ru = 'Назначение дополнительной обработки'"));
ОткрытьФорму("ОбщаяФорма.ВыборОбъектовМетаданных", ПараметрыФормы);
@@ -228,11 +284,7 @@
КонецЕсли;
Если ТекущиеДанные.Разрешено Тогда
- Отказ = Ложь;
- УстановитьРасписание(ТекущиеДанные, Отказ);
- Если НЕ Отказ Тогда
- Модифицированность = Истина;
- КонецЕсли;
+ УстановитьРасписание(ТекущиеДанные);
Иначе
Предупреждение(НСтр("ru = 'Команда используется только на клиенте.
|Регламентное задание можно настраивать только для команд исполняемых в серверном контексте.'"));
@@ -265,7 +317,7 @@
КонецПроцедуры
&НаКлиенте
-Процедура НастроитьБыстрыйДоступ(Команда)
+Процедура НастроитьБыстрыйДоступККоманде(Команда)
ТекущиеДанные = Элементы.КомандыОбработки.ТекущиеДанные;
@@ -277,6 +329,29 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ВариантыДополнительногоОтчетаОткрыть(Команда)
+ Вариант = ЭтаФорма.Элементы.ВариантыДополнительногоОтчета.ТекущиеДанные;
+ Если Вариант = Неопределено Тогда
+ Предупреждение(НСтр("ru = 'Выберите вариант отчета.'"));
+ Возврат;
+ КонецЕсли;
+
+ ДополнительныеОтчетыИОбработкиКлиент.ОткрытьВариантДополнительногоОтчета(Объект.Ссылка, Вариант.КлючВарианта);
+КонецПроцедуры
+
+&НаКлиенте
+Процедура РазместитьВРазделах(Команда)
+ МассивВариантов = Новый Массив;
+ Для Каждого ИдентификаторСтроки Из Элементы.ВариантыДополнительногоОтчета.ВыделенныеСтроки Цикл
+ Вариант = ВариантыДополнительногоОтчета.НайтиПоИдентификатору(ИдентификаторСтроки);
+ Если ЗначениеЗаполнено(Вариант.Ссылка) Тогда
+ МассивВариантов.Добавить(Вариант.Ссылка);
+ КонецЕсли;
+ КонецЦикла;
+ СтандартныеПодсистемыКлиентПереопределяемый.ОткрытьДиалогРамещенияВариантовДопольнительныхОтчетовВРазделах(МассивВариантов);
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
@@ -301,6 +376,11 @@
Возврат ФильтрПоОбъектамМетаданных;
КонецФункции
+&НаСервереБезКонтекста
+Процедура УдалитьВариантДополнительногоОтчета(КлючОбъекта, КлючВарианта)
+ ХранилищаНастроек["ХранилищеВариантовОтчетов"].Удалить(КлючОбъекта, КлючВарианта, Неопределено);
+КонецПроцедуры
+
&НаСервере
Функция ЗарегистрироватьОбработку(ПараметрыРегистрации)
// Получает файл обработки из временного хранилища, пытается создать объект
@@ -372,25 +452,25 @@
КонецЕсли;
// Получение сведений о внешней обработке
- ВнешняяОбработка = Менеджер.Создать(Результат.ИмяОбъекта);
+ ВнешнийОбъект = Менеджер.Создать(Результат.ИмяОбъекта);
Попытка
- РегистрационныеДанные = ВнешняяОбработка.СведенияОВнешнейОбработке();
+ РегистрационныеДанные = ВнешнийОбъект.СведенияОВнешнейОбработке();
Исключение
Префикс = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Ошибка получения сведений о внешней обработке ""%1"" при ее загрузке:'"),
ПараметрыРегистрации.ИмяФайла
- ) + Символы.ПС;
+ );
Если Не ЭтоНовый Тогда
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Дополнительные отчеты и обработки'"),
УровеньЖурналаРегистрации.Ошибка,
Метаданные.Справочники.ДополнительныеОтчетыИОбработки,
Объект.Ссылка,
- Префикс + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())
+ Префикс + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())
);
КонецЕсли;
- Результат.КраткоеПредставлениеОшибки = Префикс + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
+ Результат.КраткоеПредставлениеОшибки = Префикс + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
Возврат Результат;
КонецПопытки;
@@ -403,43 +483,52 @@
КонецЕсли;
Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок[РегистрационныеДанные.Вид];
- Если ПараметрыРегистрации.ЭтоОтчет <> (Вид = ВидДополнительныйОтчет ИЛИ Вид = ВидОтчет) Тогда
+ Если НЕ ЭтоНовый И Вид <> Объект.Вид Тогда
+ Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Невозможно сменить вид существующего дополнительного отчета или обработки.'");
+ Возврат Результат;
+ ИначеЕсли ПараметрыРегистрации.ЭтоОтчет <> (Вид = ВидДополнительныйОтчет ИЛИ Вид = ВидОтчет) Тогда
Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Вид обработки, указанный в сведениях о внешней обработке, не соответствует её расширению.'");
Возврат Результат;
КонецЕсли;
// Инициализация сведений об обработке
- ОбъектЗначение = РеквизитФормыВЗначение("Объект");
- ОбъектЗначение.Наименование = РегистрационныеДанные.Наименование;
- ОбъектЗначение.Версия = РегистрационныеДанные.Версия;
- ОбъектЗначение.БезопасныйРежим = РегистрационныеДанные.БезопасныйРежим;
- ОбъектЗначение.Информация = РегистрационныеДанные.Информация;
- ОбъектЗначение.ИмяФайла = ПараметрыРегистрации.ИмяФайла;
- ОбъектЗначение.ИмяОбъекта = Результат.ИмяОбъекта;
+ ТекущийОбъект = РеквизитФормыВЗначение("Объект");
+ ТекущийОбъект.Наименование = РегистрационныеДанные.Наименование;
+ ТекущийОбъект.Версия = РегистрационныеДанные.Версия;
+ ТекущийОбъект.БезопасныйРежим = РегистрационныеДанные.БезопасныйРежим;
+ ТекущийОбъект.Информация = РегистрационныеДанные.Информация;
+ ТекущийОбъект.ИмяФайла = ПараметрыРегистрации.ИмяФайла;
+ ТекущийОбъект.ИмяОбъекта = Результат.ИмяОбъекта;
+
+ ТекущийОбъект.ИспользуетХранилищеВариантов = Ложь;
+ Если Вид = ВидДополнительныйОтчет Тогда
+ Если Метаданные.ХранилищеВариантовОтчетов <> Неопределено
+ И Метаданные.ХранилищеВариантовОтчетов.Имя = "ХранилищеВариантовОтчетов" Тогда
+ ТекущийОбъект.ИспользуетХранилищеВариантов = Истина;
+ Иначе
+ ВнешнийОбъектМетаданные = ВнешнийОбъект.Метаданные();
+ Если ВнешнийОбъектМетаданные.ХранилищеВариантов <> Неопределено
+ И ВнешнийОбъектМетаданные.ХранилищеВариантов.Имя = "ХранилищеВариантовОтчетов" Тогда
+ ТекущийОбъект.ИспользуетХранилищеВариантов = Истина;
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
// Загружена другая обработка (изменилось имя объекта или вид обработки)
- Если Объект.ИмяОбъекта <> Результат.ИмяОбъекта ИЛИ Объект.Вид <> Вид Тогда
- ОбъектЗначение.Назначение.Очистить();
- ОбъектЗначение.Вид = Вид;
+ Если ЭтоНовый ИЛИ ТекущийОбъект.ИмяОбъекта <> Результат.ИмяОбъекта ИЛИ ТекущийОбъект.Вид <> Вид Тогда
+ ТекущийОбъект.Назначение.Очистить();
+ ТекущийОбъект.Вид = Вид;
КонецЕсли;
// Если не заполнено назначение - устанавливаем назначение из обработки
- Если
- (
- ЭтоНовый
- ИЛИ ОбъектЗначение.Назначение.Количество() = 0
- )
- И (
- ОбъектЗначение.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ЗаполнениеОбъекта
- ИЛИ ОбъектЗначение.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет
- ИЛИ ОбъектЗначение.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма
- ИЛИ ОбъектЗначение.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.СозданиеСвязанныхОбъектов
- ) Тогда
+ Если ТекущийОбъект.Назначение.Количество() = 0
+ И Вид <> ВидДополнительныйОтчет
+ И Вид <> ВидДополнительнаяОбработка Тогда
- ОбъектЗначение.ИспользоватьДляФормыОбъекта = Истина;
- ОбъектЗначение.ИспользоватьДляФормыСписка = Истина;
+ ТекущийОбъект.ИспользоватьДляФормыОбъекта = Истина;
+ ТекущийОбъект.ИспользоватьДляФормыСписка = Истина;
- ПолноеНазначениеЗначение = ДополнительныеОтчетыИОбработки.ПолучитьПолноеНазначениеПоВидуДополнительнойВнешнейОбработки(ОбъектЗначение.Вид);
+ ПолноеНазначениеЗначение = ДополнительныеОтчетыИОбработки.ПолучитьПолноеНазначениеПоВидуДополнительнойВнешнейОбработки(ТекущийОбъект.Вид);
Если РегистрационныеДанные.Свойство("Назначение") Тогда
@@ -452,14 +541,14 @@
НайденныеНазначения = ПолноеНазначениеЗначение.НайтиСтроки(Новый Структура("Класс", РазделеннаяСтрока[0]));
Для Каждого ЭлементНайденноеНазначение Из НайденныеНазначения Цикл
- НоваяСтрока = ОбъектЗначение.Назначение.Добавить();
+ НоваяСтрока = ТекущийОбъект.Назначение.Добавить();
НоваяСтрока.ПолноеИмяОбъектаМетаданных = ЭлементНайденноеНазначение.ПолноеИмяОбъектаМетаданных;
КонецЦикла;
Иначе
Если ПолноеНазначениеЗначение.НайтиСтроки(Новый Структура("ПолноеИмяОбъектаМетаданных", ЭлементЗаданноеНазначение)).Количество() > 0 Тогда
- НоваяСтрока = ОбъектЗначение.Назначение.Добавить();
+ НоваяСтрока = ТекущийОбъект.Назначение.Добавить();
НоваяСтрока.ПолноеИмяОбъектаМетаданных = ЭлементЗаданноеНазначение;
КонецЕсли;
@@ -468,24 +557,24 @@
КонецЦикла;
КонецЕсли;
- ОбъектЗначение.Назначение.Свернуть("ПолноеИмяОбъектаМетаданных", "");
+ ТекущийОбъект.Назначение.Свернуть("ПолноеИмяОбъектаМетаданных", "");
ЗначениеВРеквизитФормы(ПолноеНазначениеЗначение, "ПолноеНазначение");
КонецЕсли;
- КомандыСохраненные = ОбъектЗначение.Команды.Выгрузить();
+ КомандыСохраненные = ТекущийОбъект.Команды.Выгрузить();
- ОбъектЗначение.Команды.Очистить();
+ ТекущийОбъект.Команды.Очистить();
// Инициализация команд
Для Каждого ЭлементОписаниеКоманды Из РегистрационныеДанные.Команды Цикл
- НоваяСтрока = ОбъектЗначение.Команды.Добавить();
- НоваяСтрока.Идентификатор = ЭлементОписаниеКоманды.Идентификатор;
- НоваяСтрока.Представление = ЭлементОписаниеКоманды.Представление;
- НоваяСтрока.Модификатор = ЭлементОписаниеКоманды.Модификатор;
+ НоваяСтрока = ТекущийОбъект.Команды.Добавить();
+ НоваяСтрока.Идентификатор = ЭлементОписаниеКоманды.Идентификатор;
+ НоваяСтрока.Представление = ЭлементОписаниеКоманды.Представление;
+ НоваяСтрока.Модификатор = ЭлементОписаниеКоманды.Модификатор;
НоваяСтрока.ПоказыватьОповещение = ЭлементОписаниеКоманды.ПоказыватьОповещение;
Если ЭлементОписаниеКоманды.Использование = "ОткрытиеФормы" Тогда
@@ -502,15 +591,16 @@
КонецЦикла;
- ОбъектЗначение.Ответственный = Пользователи.ТекущийПользователь();
+ ТекущийОбъект.Ответственный = Пользователи.ТекущийПользователь();
- ЗначениеВРеквизитФормы(ОбъектЗначение, "Объект");
+ ЗначениеВРеквизитФормы(ТекущийОбъект, "Объект");
УстановитьЭлементыФормы(Истина);
ЗаполнитьКоманды(КомандыСохраненные);
Результат.Успешно = Истина;
+ РегистрацияОбработки = Истина;
Возврат Результат;
КонецФункции
@@ -527,8 +617,7 @@
НоваяКоманда.Представление = ЭлементКоманда.Представление;
НоваяКоманда.Идентификатор = ЭлементКоманда.Идентификатор;
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка
- ИЛИ Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет Тогда
+ Если Объект.Вид = ВидДополнительнаяОбработка ИЛИ Объект.Вид = ВидДополнительныйОтчет Тогда
ТекстЗапроса =
"ВЫБРАТЬ
@@ -556,7 +645,11 @@
УстановитьПривилегированныйРежим(Ложь);
КонецЕсли;
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка
+ Если НЕ ПравоДобавления Тогда
+ Продолжить;
+ КонецЕсли;
+
+ Если Объект.Вид = ВидДополнительнаяОбработка
И ЭлементКоманда.ВариантЗапуска = Перечисления.СпособыВызоваДополнительныхОбработок.ВызовСерверногоМетода Тогда
// Можно задавать расписание и указывать использование
@@ -582,34 +675,31 @@
Если ЗначениеЗаполнено(РегламентноеЗаданиеGUID) Тогда
- РегламентноеЗадание = ДополнительныеОтчетыИОбработки.НайтиРегламентноеЗадание(РегламентноеЗаданиеGUID);
+ РегламентноеЗадание = ДополнительныеОтчетыИОбработки.НайтиРегламентноеЗадание(РегламентноеЗаданиеGUID, Истина);
- Если РегламентноеЗадание = Неопределено Тогда
-
- ЭлементКоманда.РегламентноеЗаданиеGUID = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000");
-
- Иначе
+ Если РегламентноеЗадание <> Неопределено Тогда
ЭлементКоманда.РегламентноеЗаданиеGUID = РегламентноеЗаданиеGUID;
НоваяКоманда.РасписаниеПредставление = Строка(РегламентноеЗадание.Расписание);
- НоваяКоманда.Использование = РегламентноеЗадание.Использование;
+ НоваяКоманда.Использование = РегламентноеЗадание.Использование;
НоваяКоманда.Расписание.Добавить(РегламентноеЗадание.Расписание);
РегламентноеЗаданиеЗадано = Истина;
+
КонецЕсли;
КонецЕсли;
Если НЕ РегламентноеЗаданиеЗадано Тогда
НоваяКоманда.РасписаниеПредставление = стрРасписаниеНеЗадано();
- НоваяКоманда.Использование = Ложь;
+ НоваяКоманда.Использование = Ложь;
КонецЕсли;
Иначе
НоваяКоманда.РасписаниеПредставление = НСтр("ru = 'Не применимо - команда используется только на клиенте'");
- НоваяКоманда.Использование = Ложь;
- НоваяКоманда.Разрешено = Ложь;
+ НоваяКоманда.Использование = Ложь;
+ НоваяКоманда.Разрешено = Ложь;
КонецЕсли;
КонецЦикла;
@@ -619,25 +709,63 @@
&НаСервере
Процедура УстановитьЭлементыФормы(Регистрация = Ложь)
+ Если НЕ Регистрация И НЕ ЭтоНовый И (Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет) Тогда
+ ВариантыДополнительногоОтчетаЗаполнить();
+ Иначе
+ ВариантыДополнительногоОтчета.Очистить();
+ КонецЕсли;
+
+ Если Объект.Вид = ВидДополнительныйОтчет И Объект.ИспользуетХранилищеВариантов Тогда
+ // Выводить закладки
+ Элементы.СтраницыВариантыКоманды.ОтображениеСтраниц = ОтображениеСтраницФормы.ЗакладкиСверху;
+ Элементы.СтраницыВариантыКоманды.ТекущаяСтраница = Элементы.СтраницаВарианты;
+
+ КоличествоВариантов = ВариантыДополнительногоОтчета.Количество();
+ Если Регистрация ИЛИ КоличествоВариантов = 0 Тогда
+ Элементы.СтраницыВарианты.ТекущаяСтраница = Элементы.ВариантыСкрытьДоЗаписи;
+ Элементы.СтраницаВарианты.Заголовок = НСтр("ru = 'Варианты отчета'");
+ Иначе
+ Элементы.СтраницыВарианты.ТекущаяСтраница = Элементы.ВариантыПоказать;
+ Элементы.СтраницаВарианты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Варианты отчета (%1)'"),
+ Формат(КоличествоВариантов, "ЧГ=")
+ );
+ КонецЕсли;
+
+ КоличествоКоманд = Объект.Команды.Количество();
+ Если КоличествоКоманд = 0 Тогда
+ Элементы.СтраницаКоманды.Заголовок = НСтр("ru = 'Команды'");
+ Иначе
+ Элементы.СтраницаКоманды.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Команды (%1)'"),
+ Формат(КоличествоКоманд, "ЧГ=")
+ );
+ КонецЕсли;
+
+ Иначе
+ // Без закладок
+ Элементы.СтраницыВариантыКоманды.ОтображениеСтраниц = ОтображениеСтраницФормы.Нет;
+ Элементы.СтраницыВариантыКоманды.ТекущаяСтраница = Элементы.СтраницаКоманды;
+
+ КонецЕсли;
+
+
Если Регистрация ИЛИ ЗначениеЗаполнено(Объект.Ссылка)Тогда
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка
- ИЛИ Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет Тогда
-
- Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыРасписание.Видимость = Истина;
- Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыИспользование.Видимость = Истина;
+ Если Объект.Вид = ВидДополнительнаяОбработка ИЛИ Объект.Вид = ВидДополнительныйОтчет Тогда
- Элементы.СтраницыРазделыНазначение.ТекущаяСтраница =
- Элементы.СтраницаРазделы;
+ Элементы.КомандыРасписание.Видимость = ПравоДобавления;
+ Элементы.КомандыИспользование.Видимость = ПравоДобавления;
+
+ Элементы.СтраницыРазделыНазначение.ТекущаяСтраница = Элементы.СтраницаРазделы;
ИначеЕсли ДополнительныеОтчетыИОбработки.ПроверитьНазначаемаяОбработка(Объект.Вид) Тогда
- Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыРасписание.Видимость = Ложь;
- Элементы.КомандыОбработки.ПодчиненныеЭлементы.КомандыИспользование.Видимость = Ложь;
+ Элементы.КомандыРасписание.Видимость = Ложь;
+ Элементы.КомандыИспользование.Видимость = Ложь;
+
+ Элементы.СтраницыРазделыНазначение.ТекущаяСтраница = Элементы.СтраницаНазначение;
- Элементы.СтраницыРазделыНазначение.ТекущаяСтраница =
- Элементы.СтраницаНазначение;
-
Элементы.КомандыОбработкиНастроитьБыстрыйДоступККоманде.Видимость = Ложь;
Элементы.КомандыОбработкиНастроитьРасписаниеКоманды.Видимость = Ложь;
@@ -646,23 +774,27 @@
КонецЕсли;
Если Объект.БезопасныйРежим Тогда
- Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница =
- Элементы.ГруппаИнформация;
+ Если Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет Тогда
+ Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница = Элементы.ГруппаИнформацияОтчета;
+ Иначе
+ Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница = Элементы.ГруппаИнформацияОбработки;
+ КонецЕсли;
Иначе
- Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница =
- Элементы.ГруппаПредупреждение;
+ Если Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет Тогда
+ Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница = Элементы.ГруппаПредупреждениеОтчета;
+ Иначе
+ Элементы.ГруппаДополнительнаяИнформация.ТекущаяСтраница = Элементы.ГруппаПредупреждениеОбработки;
+ КонецЕсли;
КонецЕсли;
Если ЭтоНовый Тогда
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет
- ИЛИ Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет Тогда
+ Если Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет Тогда
Заголовок = НСтр("ru = 'Дополнительный отчет (создание)'");
Иначе
Заголовок = НСтр("ru = 'Дополнительная обработка (создание)'");
КонецЕсли;
Иначе
- Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет
- ИЛИ Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.Отчет Тогда
+ Если Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет Тогда
Заголовок = Объект.Наименование + " " + НСтр("ru = '(Дополнительный отчет)'");
Иначе
Заголовок = Объект.Наименование + " " + НСтр("ru = '(Дополнительная обработка)'");
@@ -673,6 +805,62 @@
КонецПроцедуры
+&НаСервере
+Процедура ВариантыДополнительногоОтчетаЗаполнить()
+ ВариантыДополнительногоОтчета.Очистить();
+
+ ВнешнийОбъект = ДополнительныеОтчетыИОбработки.ПолучитьОбъектВнешнейОбработки(Объект.Ссылка);
+ ОтчетМетаданные = ВнешнийОбъект.Метаданные();
+ СхемаКДМетаданные = ОтчетМетаданные.ОсновнаяСхемаКомпоновкиДанных;
+ Если СхемаКДМетаданные <> Неопределено Тогда
+ СхемаКД = ВнешнийОбъект.ПолучитьМакет(СхемаКДМетаданные.Имя);
+ Для Каждого ВариантНастроекКД Из СхемаКД.ВариантыНастроек Цикл
+ ВариантСсылка = Неопределено;
+ КлючВарианта = ВариантНастроекКД.Имя;
+ СтандартныеПодсистемыПереопределяемый.СсылкаВариантаДополнительногоОтчета(Объект.Ссылка, КлючВарианта, ВариантСсылка);
+ Если ВариантСсылка <> Неопределено Тогда
+ Вариант = ВариантыДополнительногоОтчета.Добавить();
+ Вариант.КлючВарианта = КлючВарианта;
+ Вариант.Наименование = ВариантНастроекКД.Представление;
+ Вариант.Пользовательский = Ложь;
+ Вариант.ИндексКартинки = 4;
+ Вариант.Ссылка = ВариантСсылка;
+ КонецЕсли;
+ КонецЦикла;
+ Иначе
+ ВариантСсылка = Неопределено;
+ КлючВарианта = "";
+ СтандартныеПодсистемыПереопределяемый.СсылкаВариантаДополнительногоОтчета(Объект.Ссылка, КлючВарианта, ВариантСсылка);
+ Если ВариантСсылка <> Неопределено Тогда
+ Вариант = ВариантыДополнительногоОтчета.Добавить();
+ Вариант.КлючВарианта = КлючВарианта;
+ Вариант.Наименование = ОтчетМетаданные.Представление();
+ Вариант.Пользовательский = Ложь;
+ Вариант.ИндексКартинки = 4;
+ Вариант.Ссылка = ВариантСсылка;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если Объект.ИспользуетХранилищеВариантов Тогда
+ Хранилище = ХранилищаНастроек["ХранилищеВариантовОтчетов"];
+ КлючОбъекта = Объект.Ссылка;
+ Иначе
+ Хранилище = ХранилищеВариантовОтчетов;
+ КлючОбъекта = "ВнешнийОтчет." + Объект.ИмяОбъекта;
+ КонецЕсли;
+
+ СписокНастроек = Хранилище.ПолучитьСписок(КлючОбъекта);
+
+ Для Каждого ЭлементСписка Из СписокНастроек Цикл
+ Вариант = ВариантыДополнительногоОтчета.Добавить();
+ Вариант.КлючВарианта = ЭлементСписка.Значение;
+ Вариант.Наименование = ЭлементСписка.Представление;
+ Вариант.Пользовательский = Истина;
+ Вариант.ИндексКартинки = 2;
+ СтандартныеПодсистемыПереопределяемый.СсылкаВариантаДополнительногоОтчета(Объект.Ссылка, Вариант.КлючВарианта, Вариант.Ссылка);
+ КонецЦикла;
+КонецПроцедуры
+
&НаКлиенте
Процедура НастроитьБыстрыйДоступОбщийОбработчик(ТекущиеДанные)
@@ -702,6 +890,10 @@
&НаКлиенте
Функция ОткрытьДиалогЗагрузкиФайлаОбработкиОтчета(ФлагДобавить, ПараметрыРегистрации = Неопределено)
+ Если НЕ ПравоДобавления Тогда
+ ВызватьИсключение НСтр("ru = 'Недостаточно прав доступа.'");
+ КонецЕсли;
+
// Выбор файла
Если ПараметрыРегистрации = Неопределено Тогда
ПараметрыРегистрации = Новый Структура("ИмяФайла, ЭтоОтчет, ОтключатьКонфликтующие, Конфликтующие");
@@ -719,7 +911,7 @@
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.ПолноеИмяФайла = Объект.ИмяФайла;
ДиалогОткрытияФайла.Фильтр = ДополнительныеОтчетыИОбработкиКлиентСервер.ФильтрДиалоговВыбораИСохранения();
- ДиалогОткрытияФайла.ИндексФильтра = ?(Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет, 0, 1);
+ ДиалогОткрытияФайла.ИндексФильтра = ?(Объект.Ссылка.Пустая(), 0, ?(Объект.Вид = ВидДополнительныйОтчет ИЛИ Объект.Вид = ВидОтчет, 1, 2));
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = НСтр("ru = 'Выберите дополнительный отчет или обработку'");
@@ -761,7 +953,6 @@
// Обработка результата работы сервера
Если РезультатРегистрации.Успешно = Истина Тогда
- РегистрацияОбработки = Истина;
Модифицированность = Истина;
ПоказатьОповещениеПользователя(
НСтр("ru = 'Файл обработки успешно загружен'"),
@@ -901,7 +1092,7 @@
КонецФункции
&НаКлиенте
-Процедура УстановитьРасписание(ТекущиеДанные, Отказ = Ложь)
+Процедура УстановитьРасписание(ТекущиеДанные)
Если ТекущиеДанные.Расписание.Количество() > 0 Тогда
Расписание = ТекущиеДанные.Расписание.Получить(0).Значение;
@@ -919,13 +1110,32 @@
Если ТекущиеДанные.РасписаниеПредставление = ПредставлениеПустогоРасписания() Тогда
ТекущиеДанные.РасписаниеПредставление = стрРасписаниеНеЗадано();
ТекущиеДанные.Использование = Ложь;
- Отказ = Истина;
+ Модифицированность = Истина;
Иначе
ТекущиеДанные.Использование = Истина;
КонецЕсли;
КонецПроцедуры
+&НаКлиенте
+Процедура ОткрытьВариант()
+ Вариант = Элементы.ВариантыДополнительногоОтчета.ТекущиеДанные;
+ Если Вариант = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если НЕ ЗначениеЗаполнено(Вариант.Ссылка) Тогда
+ Предупреждение(
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Вариант отчета ""%1"" не зарегистрирован.'"),
+ Вариант.Наименование
+ )
+ );
+ Иначе
+ ОткрытьЗначение(Вариант.Ссылка);
+ КонецЕсли;
+КонецПроцедуры
+
&НаКлиентеНаСервереБезКонтекста
Функция ПредставлениеПустогоРасписания()
@@ -964,4 +1174,3 @@
Возврат БыстрыйДоступПредставление;
КонецФункции
-
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
index a42bc1b93..9bc1033f4 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Help/ru.html
@@ -1,2 +1,2 @@
-
+
Для хранения в ИБ дополнительных отчетов и обработок служит справочник Дополнительные отчеты и обработки. По команде Создать система предложит выбрать файл внешней обработки или отчета, и настроить его параметры.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
index aebf99e78..8d74c613e 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -32,7 +34,7 @@
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ИмяОбъекта", ИмяОбъекта);
Запрос.УстановитьПараметр("ВидыДопОтчетов", ВидыДопОтчетов);
- Запрос.УстановитьПараметр("Ссылка", Ссылка);
+ Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.Текст = ТекстЗапроса;
УстановитьПривилегированныйРежим(Истина);
@@ -49,7 +51,7 @@
ИмяОбъекта,
Строка(Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Используется),
Строка(Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.РежимОтладки),
- Строка(Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.НеИспользуется)
+ Строка(Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена)
),
,
"Объект.Публикация"
@@ -60,33 +62,277 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
-
- Если ОбменДанными.Загрузка Тогда
+ // Вызывается непосредственно до записи объекта в базу данных
+ Если Отказ ИЛИ ОбменДанными.Загрузка ИЛИ ЭтоГруппа Тогда
Возврат;
КонецЕсли;
- Если ЭтоГруппа Тогда
- Возврат; // группы не обрабатываем
+ Если НЕ ЭтоНовый() И Вид <> ОбщегоНазначения.ПолучитьЗначениеРеквизита(Ссылка, "Вид") Тогда
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+ НСтр("ru = 'Невозможно сменить вид существующего дополнительного отчета или обработки.'"),,,,
+ Отказ
+ );
+ Возврат;
КонецЕсли;
- Если НЕ ЭтоНовый() Тогда
- Если Вид <> ОбщегоНазначения.ПолучитьЗначениеРеквизита(Ссылка, "Вид") Тогда
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
- НСтр("ru = 'Невозможно сменить вид у существующего дополнительного отчета или обработки.'"),,,,
- Отказ);
+ Если ПометкаУдаления Тогда
+ Публикация = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена;
+ КонецЕсли;
+
+ Если ДополнительныеОтчетыИОбработки.ПроверитьГлобальнаяОбработка(Вид) Тогда
+ Если ДополнительныеОтчетыИОбработки.ПравоДобавления() Тогда
+ ПередЗаписьюГлобальнойОбработки(Отказ);
КонецЕсли;
- КонецЕсли;
-
- Если ПометкаУдаления Тогда
- Публикация = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.НеИспользуется;
- КонецЕсли;
-
- Если ДополнительныеОтчетыИОбработки.ПроверитьНазначаемаяОбработка(Вид) Тогда
+ Иначе
ПередЗаписьюНазначаемойОбработки(Отказ);
КонецЕсли;
КонецПроцедуры
+Процедура ПриЗаписи(Отказ)
+ // Вызывается непосредственно после записи объекта в базу данных
+ Если Отказ ИЛИ ОбменДанными.Загрузка ИЛИ ЭтоГруппа Тогда
+ Возврат;
+ КонецЕсли;
+
+ ТаблицаКоманд = Неопределено;
+ Если ДополнительныеСвойства.Свойство("КомандыОбработки", ТаблицаКоманд) Тогда
+ ДополнительныеОтчетыИОбработки.ЗаписатьНастройкиБыстрогоДоступа(Ссылка, ТаблицаКоманд);
+ КонецЕсли;
+
+ Если ДополнительныеОтчетыИОбработки.ПроверитьГлобальнаяОбработка(Вид) Тогда
+ Если ДополнительныеОтчетыИОбработки.ПравоДобавления() Тогда
+ ПриЗаписиГлобальнойОбработки(Отказ);
+ КонецЕсли;
+ КонецЕсли;
+
+ СтандартныеПодсистемыПереопределяемый.ОбработкаВариантовДополнительногоОтчета(ЭтотОбъект, Отказ);
+
+КонецПроцедуры
+
+Процедура ПередУдалением(Отказ)
+ // Вызывается непосредственно перед удалением объекта из базы данных
+ Если Отказ ИЛИ ОбменДанными.Загрузка ИЛИ ЭтоГруппа Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ДополнительныеОтчетыИОбработки.ПроверитьГлобальнаяОбработка(Вид) Тогда
+ ПередУдалениемГлобальнойОбработки(Отказ);
+ Иначе
+ ПередУдалениемНазначаемойОбработки(Отказ);
+ КонецЕсли;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+////////////////////////////////////////////////////////////////////////////////
+// Глобальные обработки
+
+Процедура ПередЗаписьюГлобальнойОбработки(Отказ)
+ Если НЕ ДополнительныеСвойства.Свойство("КомандыОбработки") Тогда
+ Возврат;
+ КонецЕсли;
+
+ ТаблицаКоманд = ДополнительныеСвойства.КомандыОбработки;
+
+ ЗаданияДляОбновления = Новый Соответствие;
+
+ ПубликацияВключена = (Публикация <> Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена);
+
+ // Регламентные задание необходимо изменять в неразделенном режиме.
+ РазделениеВключено = РазделениеВключено();
+ УстанавливатьПривилегированныйРежим = РазделениеВключено ИЛИ УстанавливатьПривилегированныйРежим();
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Истина);
+ КонецЕсли;
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Ложь);
+ КонецЕсли;
+
+ // Актуализация набора регламентных заданий для записи их идентификаторов в табличную часть.
+ Для Каждого СтрокаТаблицы Из ТаблицаКоманд Цикл
+
+ Если ПубликацияВключена И СтрокаТаблицы.Расписание.Количество() > 0 Тогда
+ Расписание = СтрокаТаблицы.Расписание[0].Значение;
+ Использование = СтрокаТаблицы.Использование И РасписаниеЗадано(Расписание);
+ Иначе
+ Использование = Ложь;
+ КонецЕсли;
+
+ Команда = Команды.НайтиСтроки(Новый Структура("Идентификатор", СтрокаТаблицы.Идентификатор))[0];
+
+ Задание = ДополнительныеОтчетыИОбработки.НайтиРегламентноеЗадание(Команда.РегламентноеЗаданиеGUID);
+
+ Если Задание = Неопределено Тогда // Не найдено
+
+ Если Использование Тогда
+ // Создать и зарегистрировать
+ Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание("ЗапускДополнительныхОбработок");
+ Задание.Использование = Ложь;
+ Задание.Наименование = ПредставлениеЗадания(Команда);
+ Задание.Записать();
+
+ Команда.РегламентноеЗаданиеGUID = Задание.УникальныйИдентификатор;
+
+ ЗаданияДляОбновления.Вставить(Команда, Расписание);
+ Иначе
+ // Действие не требуется
+ КонецЕсли;
+
+ Иначе // Найдено
+
+ Если Использование Тогда
+ // Зарегистрировать
+ ЗаданияДляОбновления.Вставить(Команда, Расписание);
+ Иначе
+ // Удалить
+ Задание.Удалить();
+ Команда.РегламентноеЗаданиеGUID = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000");
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ ДополнительныеСвойства.Вставить("ЗаданияДляОбновления", ЗаданияДляОбновления);
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Истина);
+ КонецЕсли;
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Ложь);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ПриЗаписиГлобальнойОбработки(Отказ)
+ Если НЕ ДополнительныеСвойства.Свойство("КомандыОбработки") Тогда
+ Возврат;
+ КонецЕсли;
+
+ ЗаданияДляПостановкиВОчередь = Новый Массив;
+
+ // Регламентные задание необходимо изменять в неразделенном режиме.
+ РазделениеВключено = РазделениеВключено();
+ УстанавливатьПривилегированныйРежим = РазделениеВключено ИЛИ УстанавливатьПривилегированныйРежим();
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Истина);
+ КонецЕсли;
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Ложь);
+ КонецЕсли;
+
+ Для Каждого КлючИЗначение Из ДополнительныеСвойства.ЗаданияДляОбновления Цикл
+ Команда = КлючИЗначение.Ключ;
+ Расписание = КлючИЗначение.Значение;
+
+ Задание = ДополнительныеОтчетыИОбработки.НайтиРегламентноеЗадание(Команда.РегламентноеЗаданиеGUID);
+
+ // При включенном разделении использование задания определяется очередью
+ Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
+ ЗаданияДляПостановкиВОчередь.Добавить(Задание);
+ Иначе
+ Задание.Использование = Истина;
+ КонецЕсли;
+
+ ПараметрыЗадания = Новый Массив;
+ ПараметрыЗадания.Добавить(Ссылка);
+ ПараметрыЗадания.Добавить(Команда.Идентификатор);
+
+ Задание.Наименование = Лев(ПредставлениеЗадания(Команда), 120);
+ Задание.Параметры = ПараметрыЗадания;
+ Задание.Расписание = Расписание;
+
+ Задание.Записать();
+ КонецЦикла;
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Истина);
+ КонецЕсли;
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Ложь);
+ КонецЕсли;
+
+ Для Каждого Задание Из ЗаданияДляПостановкиВОчередь Цикл
+ СтандартныеПодсистемыПереопределяемый.ПриЗаписиЗаданияДополнительнойОбработки(Задание, РазделениеВключено);
+ КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ПередУдалениемГлобальнойОбработки(Отказ)
+ // Регламентные задание необходимо изменять в неразделенном режиме.
+ РазделениеВключено = РазделениеВключено();
+ УстанавливатьПривилегированныйРежим = РазделениеВключено ИЛИ УстанавливатьПривилегированныйРежим();
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Истина);
+ КонецЕсли;
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Ложь);
+ КонецЕсли;
+
+ Для Каждого Команда Из Команды Цикл
+ Задание = ДополнительныеОтчетыИОбработки.НайтиРегламентноеЗадание(Команда.РегламентноеЗаданиеGUID);
+ Если Задание <> Неопределено Тогда
+ Задание.Удалить();
+ КонецЕсли;
+ КонецЦикла;
+
+ Если РазделениеВключено Тогда
+ ОбщегоНазначения.УстановитьРазделениеСеанса(Истина);
+ КонецЕсли;
+
+ Если УстанавливатьПривилегированныйРежим Тогда
+ УстановитьПривилегированныйРежим(Ложь);
+ КонецЕсли;
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// Работа с регламентными заданиями
+
+Функция ПредставлениеЗадания(Команда)
+ // '%1: %2 / Команда: %3'
+ Возврат (
+ СокрЛП(Вид)
+ + ": "
+ + СокрЛП(Наименование)
+ + " / "
+ + НСтр("ru = 'Команда'")
+ + ": "
+ + СокрЛП(Команда.Представление)
+ );
+КонецФункции
+
+Функция РасписаниеЗадано(Расписание)
+
+ Возврат Строка(Расписание) <> Строка(Новый РасписаниеРегламентногоЗадания);
+
+КонецФункции
+
+Функция РазделениеВключено()
+
+ Возврат ОбщегоНазначенияПовтИсп.РазделениеВключено() И ОбщегоНазначения.ИспользованиеРазделителяСеанса() = Истина;
+
+КонецФункции
+
+Функция УстанавливатьПривилегированныйРежим()
+
+ Возврат РольДоступна(Метаданные.Роли.ДобавлениеИзменениеДополнительныхОтчетовИОбработок) И НЕ ПравоДоступа("Администрирование", Метаданные);
+
+КонецФункции
+
+////////////////////////////////////////////////////////////////////////////////
+// Назначаемые обработки
+
Процедура ПередЗаписьюНазначаемойОбработки(Отказ)
ИмяРесурса = ПолучитьИмяРесурсаПоВидуОбработки(Вид);
@@ -168,103 +414,26 @@
КонецПроцедуры
-Процедура ПриЗаписиГлобальнойОбработки(Отказ)
+Процедура ПередУдалениемНазначаемойОбработки(Отказ)
- ТаблицаКоманд = Неопределено;
- Если Не ДополнительныеСвойства.Свойство("КомандыОбработки", ТаблицаКоманд) Тогда
- Возврат;
+ ИмяРесурса = ПолучитьИмяРесурсаПоВидуОбработки(Вид);
+ МассивУдаляемых = Новый Массив;
+ Для Каждого ЭлементНазначение ИЗ Назначение Цикл
+ МассивУдаляемых.Добавить(ЭлементНазначение.ПолноеИмяОбъектаМетаданных);
+ КонецЦикла;
+
+ Если ИспользоватьДляФормыОбъекта Тогда
+ СвернутьРегистрДоступностиОтчетовИОбработок(МассивУдаляемых, Ссылка, Вид, ИмяРесурса, "ФормаОбъекта");
КонецЕсли;
- // переносим данные о регламентных заданиях в командах в объект
- // и обновляем регламентные задания, если требуется
- Для Каждого ЭлементКоманда Из ТаблицаКоманд Цикл
-
- Если ЭлементКоманда.Расписание.Количество() > 0 Тогда
- Расписание = ЭлементКоманда.Расписание.Получить(0).Значение;
- Иначе
- Расписание = ПредставлениеПустогоРасписания();
- КонецЕсли;
-
- КомандаВОбъекте = Команды.НайтиСтроки(Новый Структура("Идентификатор", ЭлементКоманда.Идентификатор))[0];
-
- Если Строка(Расписание) = ПредставлениеПустогоРасписания() Тогда // возможно было удалено регламентное задание
- Если ЗначениеЗаполнено(КомандаВОбъекте.РегламентноеЗаданиеGUID) Тогда
- ДополнительныеОтчетыИОбработки.УдалитьРегламентноеЗадание(КомандаВОбъекте.РегламентноеЗаданиеGUID);
- КомандаВОбъекте.РегламентноеЗаданиеGUID = "";
- КонецЕсли;
- Иначе
- ДополнительныеОтчетыИОбработки.ОбновитьСведенияПоРасписанию(
- ЭтотОбъект, КомандаВОбъекте, Расписание, ЭлементКоманда.Использование, Отказ);
- КонецЕсли;
-
- КонецЦикла;
-
-КонецПроцедуры
-
-Процедура ПриЗаписи(Отказ)
-
- Если ОбменДанными.Загрузка Тогда
- Возврат;
+ Если ИспользоватьДляФормыСписка Тогда
+ СвернутьРегистрДоступностиОтчетовИОбработок(МассивУдаляемых, Ссылка, Вид, ИмяРесурса, "ФормаСписка");
КонецЕсли;
- ТаблицаКоманд = Неопределено;
- Если ДополнительныеСвойства.Свойство("КомандыОбработки", ТаблицаКоманд) Тогда
- ДополнительныеОтчетыИОбработки.ЗаписатьНастройкиБыстрогоДоступа(Ссылка, ТаблицаКоманд);
- КонецЕсли;
-
- Если Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка
- ИЛИ Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет Тогда
- ПриЗаписиГлобальнойОбработки(Отказ);
- КонецЕсли;
-
-КонецПроцедуры
-
-Процедура ПередУдалением(Отказ)
-
- Если ЭтоГруппа Тогда
- Возврат; // группы не обрабатываем
- КонецЕсли;
-
- Если ДополнительныеОтчетыИОбработки.ПроверитьНазначаемаяОбработка(Вид) Тогда
-
- ИмяРесурса = ПолучитьИмяРесурсаПоВидуОбработки(Вид);
- МассивУдаляемых = Новый Массив;
- Для Каждого ЭлементНазначение ИЗ Назначение Цикл
- МассивУдаляемых.Добавить(ЭлементНазначение.ПолноеИмяОбъектаМетаданных);
- КонецЦикла;
-
- Если ИспользоватьДляФормыОбъекта Тогда
- СвернутьРегистрДоступностиОтчетовИОбработок(МассивУдаляемых, Ссылка, Вид, ИмяРесурса, "ФормаОбъекта");
- КонецЕсли;
-
- Если ИспользоватьДляФормыСписка Тогда
- СвернутьРегистрДоступностиОтчетовИОбработок(МассивУдаляемых, Ссылка, Вид, ИмяРесурса, "ФормаСписка");
- КонецЕсли;
-
- Иначе
- Если Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка Тогда
- Для Каждого ЭлементКоманда Из Команды Цикл
- ДополнительныеОтчетыИОбработки.УдалитьРегламентноеЗадание(ЭлементКоманда.РегламентноеЗаданиеGUID);
- КонецЦикла;
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-Процедура ПриКопировании(ОбъектКопирования)
-
- РегламентноеЗаданиеGUID = "";
-
-КонецПроцедуры
-
-Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
-
- РегламентноеЗаданиеGUID = "";
-
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
-// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+// Другое
Функция СверткаПоПолю(Таблица1, Таблица2, ИмяПоля, ИмяТипаПоля)
@@ -366,9 +535,5 @@
КонецФункции
-Функция ПредставлениеПустогоРасписания()
-
- Возврат Строка(Новый РасписаниеРегламентногоЗадания);
-
-КонецФункции
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ДополнительныеОтчетыИОбработки.mdo b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ДополнительныеОтчетыИОбработки.mdo
index d699a549b..a03fe64ec 100644
--- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ДополнительныеОтчетыИОбработки.mdo
+++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ДополнительныеОтчетыИОбработки.mdo
@@ -194,7 +194,7 @@
String
- 260
+ 256
@@ -244,7 +244,7 @@
ru
- Краткая информация
+ Краткая информация о внешней обработке
@@ -389,6 +389,22 @@
Use
+
+ ИспользуетХранилищеВариантов
+
+ ru
+ Использует хранилище вариантов
+
+
+ Boolean
+
+
+
+
+ Index
+ Use
+ Use
+
@@ -647,7 +663,7 @@
ФормаЭлементаru
- Форма элемента
+ Дополнительный отчет или обработка
diff --git a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form
index c6319f4e9..c0ca4d958 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form
+++ b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form
@@ -22,6 +22,10 @@
ВыбранныйЦвет
+
+ ru
+ Отбор заметок по цвету значка
+ OnChangeФильтрПоЦветуПриИзменении
@@ -111,6 +115,10 @@
ВыбранныйПредмет
+
+ ru
+ Отбор заметок по предмету
+ OnChangeФильтрПоПредметуПриИзменении
@@ -165,6 +173,10 @@
ПоказыватьУдаленныеRight
+
+ ru
+ Отображать в списке заметки, помеченные на удаление
+ OnChangeПоказыватьУдаленныеПриИзменении
diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form
index d01dcb611..4d5124332 100644
--- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form
+++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form
@@ -64,10 +64,12 @@
LabelFieldEnter
+ truetrueLefttrue
+ 5truetrue
@@ -104,6 +106,7 @@
Lefttrue
+ 5truetrue
@@ -121,6 +124,8 @@
ruСодержание
+ 5
+ falseСодержаниеРасширеннаяПодсказка21
diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form
index 45ba45603..5b1f50f84 100644
--- a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form
@@ -52,6 +52,10 @@
true
+
+ ru
+ Предмет, по которому сделана заметка
+ ПредметРасширеннаяПодсказка111
@@ -405,6 +409,10 @@
true
+
+ ru
+ Автор заметки
+ АвторРасширеннаяПодсказка123
diff --git a/SSL/src/Catalogs/Заметки/ObjectModule.bsl b/SSL/src/Catalogs/Заметки/ObjectModule.bsl
index 6d9209893..a91950f2b 100644
--- a/SSL/src/Catalogs/Заметки/ObjectModule.bsl
+++ b/SSL/src/Catalogs/Заметки/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -29,3 +31,5 @@
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Заметки/Заметки.mdo b/SSL/src/Catalogs/Заметки/Заметки.mdo
index 67a3a4e1d..011df259d 100644
--- a/SSL/src/Catalogs/Заметки/Заметки.mdo
+++ b/SSL/src/Catalogs/Заметки/Заметки.mdo
@@ -72,6 +72,10 @@
ruГруппа заметок
+
+ ru
+ Группа, в которой находится заметка
+ trueCatalog.Заметки.EmptyRef
@@ -122,6 +126,10 @@
CatalogRef.Пользователи
+
+ ru
+ Автор заметки
+
@@ -146,6 +154,10 @@
ChartOfAccountsRefCatalogRef
+
+ ru
+ Предмет заметки
+ true
@@ -163,6 +175,10 @@
ValueStorage
+
+ ru
+ Текст заметки
+
@@ -194,6 +210,10 @@
Boolean
+
+ ru
+ Разместить заметку в списке на рабочем столе
+
@@ -212,6 +232,10 @@
EnumRef.ЦветаЗаметок
+
+ ru
+ Цвет значка заметки
+ true
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Attributes/Список/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Attributes/Список/ExtInfo/ListSettings.dcss
deleted file mode 100644
index 91027f589..000000000
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Attributes/Список/ExtInfo/ListSettings.dcss
+++ /dev/null
@@ -1,15 +0,0 @@
-
-
-
- Normal
- dfcece9d-5077-440b-b6b3-45a5cb4538eb
-
-
- Normal
- 88619765-ccb3-46c6-ac52-38e9c992ebd4
-
-
- Normal
- b75fecce-942b-4aed-abc9-e6a02e460fb3
-
-
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Module.bsl
deleted file mode 100644
index 6a49a2e3e..000000000
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбора/Module.bsl
+++ /dev/null
@@ -1,71 +0,0 @@
-////////////////////////////////////////////////////////////////////////////////
-// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
-
-&НаСервере
-Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
- // Пропуск инициализации, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
- Если ЭтаФорма.Параметры.Свойство("АвтоТест") Тогда
- Возврат;
- КонецЕсли;
-
- Владелец = Неопределено;
-
- Если Параметры.Отбор.Свойство("_Владелец", Владелец)
- И ЗначениеЗаполнено(Владелец) Тогда
-
- Параметры.Отбор.Удалить("_Владелец");
- Параметры.Отбор.Вставить("Владелец", Владелец);
-
- ИначеЕсли Параметры.Отбор.Свойство("Владелец")
- И ЗначениеЗаполнено(Параметры.Отбор.Владелец) Тогда
-
- Владелец = Параметры.Отбор.Владелец;
- КонецЕсли;
-
- Если Владелец = Неопределено Тогда
- ЗаголовокСтрока = "";
- Иначе
- ЗаголовокСтрока = СтрПолучитьСтроку(Владелец.СклоненияПредмета, 2);
- КонецЕсли;
-
- Если ПустаяСтрока(ЗаголовокСтрока) Тогда
- Заголовок = НСтр("ru = 'Выберите значение'");
- Иначе
- Заголовок = ЗаголовокСтрока;
- КонецЕсли;
-
-КонецПроцедуры
-
-////////////////////////////////////////////////////////////////////////////////
-// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ Список
-
-&НаКлиенте
-Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
-
- ПроверитьВозможностьВыбора(Элемент, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура СписокВыборЗначения(Элемент, Значение, СтандартнаяОбработка)
-
- ПроверитьВозможностьВыбора(Элемент, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-////////////////////////////////////////////////////////////////////////////////
-// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
-
-&НаКлиенте
-Процедура ПроверитьВозможностьВыбора(Элемент, СтандартнаяОбработка)
-
- Если Элемент.ТекущиеДанные <> Неопределено
- И Элемент.ТекущиеДанные.ЭтоГруппа Тогда
-
- СтандартнаяОбработка = Ложь;
- Предупреждение(НСтр("ru = 'Выбор групп значений не поддерживается.'"));
- КонецЕсли;
-
-КонецПроцедуры
-
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбораГруппы/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбораГруппы/Form.form
deleted file mode 100644
index 203c6189e..000000000
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаВыбораГруппы/Form.form
+++ /dev/null
@@ -1,239 +0,0 @@
-
-
-
- Список
- 1
- true
- true
-
- true
-
-
- Список
-
- true
- false
- None
- Copy
- Create
- CreateFolder
-
- Наименование
- 4
- true
- true
-
- true
-
-
- Список.Description
-
- true
-
- НаименованиеРасширеннаяПодсказка
- 16
- Label
- true
- true
-
- Left
-
-
-
- НаименованиеКонтекстноеМеню
- 5
- true
-
- LabelField
- Enter
- true
- Left
- true
-
- true
- true
-
-
- None
-
- СписокКоманднаяПанель
- 3
- Left
-
-
- СписокСтрокаПоиска
- 7
-
- СписокСтрокаПоискаРасширеннаяПодсказка
- 9
- Label
- true
- true
-
- Left
-
-
-
- СписокСтрокаПоискаКонтекстноеМеню
- 8
- true
-
- Список
-
- true
-
-
-
- СписокСостояниеПросмотра
- 10
-
- СписокСостояниеПросмотраРасширеннаяПодсказка
- 12
- Label
- true
- true
-
- Left
-
-
-
- СписокСостояниеПросмотраКонтекстноеМеню
- 11
- true
-
- ViewStatusAddition
- Список
-
- true
-
-
-
- СписокУправлениеПоиском
- 13
-
- СписокУправлениеПоискомРасширеннаяПодсказка
- 15
- Label
- true
- true
-
- Left
-
-
-
- СписокУправлениеПоискомКонтекстноеМеню
- 14
- true
-
- SearchControlAddition
- Список
-
- true
-
-
-
- СписокРасширеннаяПодсказка
- 6
- Label
- true
- true
-
- Left
-
-
-
- СписокКонтекстноеМеню
- 2
- true
-
- Tree
- true
- true
- true
- true
- true
- true
- MultiRow
- 1
- 1
- AutoUse
- AutoUse
- true
- true
- false
- false
- false
- Auto
- Auto
- ExpandTopLevel
- true
- true
- true
- true
-
- Список.DefaultPicture
-
- None
- None
- None
- true
-
- 60
-
- 0001-01-01T00:00:00
- 0001-01-01T00:00:00
-
- Folders
-
- true
- true
- true
-
-
-
- ФормаКоманднаяПанель
- -1
- Left
- true
-
- Copy
- Create
- CreateFolder
- LockOwner
- true
- true
- true
- Vertical
- true
- true
- true
- UseIfNecessary
- auto
- true
-
- Список
- 1
-
- DynamicList
-
-
- true
-
-
- true
-
- true
-
- Catalog.ЗначенияСвойствОбъектов
- true
- true
- true
- true
-
-
-
-
-
-
-
-
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Form.form
new file mode 100644
index 000000000..117f4bdc0
--- /dev/null
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Form.form
@@ -0,0 +1,185 @@
+
+
+
+ Наименование
+ 1
+
+ <key>ru</key>
+ <value>Группа</value>
+
+ true
+ true
+
+ true
+
+
+ Объект.Description
+
+
+ ru
+ Группа значений свойства объектов.
+
+
+ НаименованиеРасширеннаяПодсказка
+ 7
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НаименованиеКонтекстноеМеню
+ 2
+ true
+
+ InputField
+ Auto
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+
+ Родитель
+ 5
+ true
+ true
+
+ true
+
+
+ Объект.Parent
+
+
+ ru
+ Вышестоящая группа значений свойства объектов.
+
+
+ РодительРасширеннаяПодсказка
+ 9
+ Label
+ true
+ true
+
+ Left
+
+
+
+ РодительКонтекстноеМеню
+ 6
+ true
+
+ InputField
+ Auto
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+
+ Владелец
+ 3
+ true
+ true
+
+ true
+
+
+ Объект.Owner
+
+
+ ВладелецРасширеннаяПодсказка
+ 11
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ВладелецКонтекстноеМеню
+ 4
+ true
+
+ InputField
+ true
+ Auto
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+
+
+ ФормаКоманднаяПанель
+ -1
+ Left
+ true
+
+
+ OnCreateAtServer
+ ПриСозданииНаСервере
+
+ LockOwner
+ true
+ true
+ Vertical
+ true
+ true
+ true
+ UseIfNecessary
+ auto
+ true
+
+ Объект
+ 1
+
+ CatalogObject.ЗначенияСвойствОбъектов
+
+
+ true
+
+
+ true
+
+ true
+ true
+
+
+
+
+
+
+
+ AfterWriteAtServer
+ ПослеЗаписиНаСервере
+
+ Folders
+
+
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl
new file mode 100644
index 000000000..d6873dd3f
--- /dev/null
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl
@@ -0,0 +1,61 @@
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропуск инициализации, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если НЕ ЗначениеЗаполнено(Объект.Ссылка)
+ И Параметры.ЗначенияЗаполнения.Свойство("Наименование") Тогда
+
+ Объект.Наименование = Параметры.ЗначенияЗаполнения.Наименование;
+ КонецЕсли;
+
+ УстановитьЗаголовок();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
+
+ УстановитьЗаголовок();
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+Процедура УстановитьЗаголовок()
+
+ ИмяСвойства = СокрЛП(СтрПолучитьСтроку(Объект.Владелец.СклоненияПредмета, 1));
+
+ Если НЕ ПустаяСтрока(ИмяСвойства) Тогда
+ Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (%2)'"),
+ Объект.Наименование,
+ ИмяСвойства);
+ Иначе
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (Создание)'"), ИмяСвойства);
+ КонецЕсли;
+ Иначе
+ ИмяСвойства = Строка(Объект.Владелец);
+
+ Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (Группа значений свойства %2)'"),
+ Объект.Наименование,
+ ИмяСвойства);
+ Иначе
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Группа значений свойства %1 (Создание)'"), ИмяСвойства);
+ КонецЕсли;
+ КонецЕсли;
+
+КонецПроцедуры
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
index 91027f589..089b27984 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
@@ -5,6 +5,18 @@
dfcece9d-5077-440b-b6b3-45a5cb4538eb
+
+ Владелец
+ Asc
+
+
+ ЭтоПапка
+ Desc
+
+
+ Ссылка
+ Asc
+ Normal88619765-ccb3-46c6-ac52-38e9c992ebd4
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form
index 36fe7b35a..bf598e3af 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form
@@ -1,5 +1,50 @@
+
+ Свойство
+ 6
+ true
+
+ true
+
+
+ Свойство
+
+
+ OnChange
+ СвойствоПриИзменении
+
+
+ СвойствоРасширеннаяПодсказка
+ 31
+ Label
+ true
+ true
+
+ Left
+
+
+
+ СвойствоКонтекстноеМеню
+ 7
+ true
+
+ InputField
+ Enter
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+ Список1
@@ -11,7 +56,6 @@
Список
- truefalseNone
@@ -32,7 +76,7 @@
trueНаименованиеРасширеннаяПодсказка
- 16
+ 43Labeltruetrue
@@ -59,6 +103,41 @@
Normal
+
+ Владелец
+ 8
+ true
+
+ true
+
+
+ Список.Owner
+
+
+ ВладелецРасширеннаяПодсказка
+ 45
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ВладелецКонтекстноеМеню
+ 9
+ true
+
+ LabelField
+ Enter
+ true
+ Left
+ true
+
+ true
+ true
+
+ NoneСписокКоманднаяПанель
@@ -66,12 +145,16 @@
Lefttrue
+
+ BeforeAddRow
+ СписокПередНачаломДобавления
+ СписокСтрокаПоиска
- 7
+ 34СписокСтрокаПоискаРасширеннаяПодсказка
- 9
+ 36Labeltruetrue
@@ -81,7 +164,7 @@
СписокСтрокаПоискаКонтекстноеМеню
- 8
+ 35trueСписок
@@ -91,10 +174,10 @@
СписокСостояниеПросмотра
- 10
+ 37СписокСостояниеПросмотраРасширеннаяПодсказка
- 12
+ 39Labeltruetrue
@@ -104,7 +187,7 @@
СписокСостояниеПросмотраКонтекстноеМеню
- 11
+ 38trueViewStatusAddition
@@ -115,10 +198,10 @@
СписокУправлениеПоиском
- 13
+ 40СписокУправлениеПоискомРасширеннаяПодсказка
- 15
+ 42Labeltruetrue
@@ -128,7 +211,7 @@
СписокУправлениеПоискомКонтекстноеМеню
- 14
+ 41trueSearchControlAddition
@@ -139,7 +222,7 @@
СписокРасширеннаяПодсказка
- 6
+ 33Labeltruetrue
@@ -158,6 +241,7 @@
truetruetrue
+ trueMultiRow11
@@ -169,6 +253,8 @@
Autotruetrue
+ true
+ trueСписок.DefaultPicture
@@ -189,13 +275,204 @@
ФормаКоманднаяПанель-1
+
+ ФормаВыбрать
+ 17
+ true
+ true
+
+ true
+
+ true
+
+ ФормаВыбратьРасширеннаяПодсказка
+ 24
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Choose
+ Auto
+ true
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ФормаСоздать
+ 10
+ true
+ true
+
+ true
+
+
+ ФормаСоздатьРасширеннаяПодсказка
+ 25
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Create
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ФормаСоздатьГруппу
+ 18
+ true
+ true
+
+ true
+
+
+ ФормаСоздатьГруппуРасширеннаяПодсказка
+ 26
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.CreateFolder
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ФормаСкопировать
+ 21
+ true
+ true
+
+ true
+
+
+ ФормаСкопироватьРасширеннаяПодсказка
+ 27
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Copy
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ ФормаИзменить
+ 23
+ true
+ true
+
+ true
+
+
+ ФормаИзменитьРасширеннаяПодсказка
+ 28
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Change
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+
+
+ КомандыФормы
+ 12
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Команды формы</value>
+
+
+ ru
+ Команды формы
+
+
+ КомандыФормыРасширеннаяПодсказка
+ 29
+ Label
+ true
+ true
+
+ Left
+
+
+
+ Form
+
+
+
+ ФормаСправка
+ 13
+ true
+ true
+
+ true
+
+
+ ФормаСправкаРасширеннаяПодсказка
+ 30
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.StandardCommand.Help
+ Normal
+ Auto
+ true
+ true
+ UserCmds
+ Auto
+ Left
- true
+
+ NotificationProcessing
+ ОбработкаОповещения
+ OnCreateAtServerПриСозданииНаСервере
+ 62DontBlocktruetrue
@@ -219,6 +496,18 @@
true
+
+ Список.РодительЭтоПапка
+
+
+ Список.ЭтоПапка
+
+
+ Список.Parent
+
+
+ Список.Ref
+ trueCatalog.ЗначенияСвойствОбъектов
@@ -228,6 +517,40 @@
true
+
+ Свойство
+
+ <key>ru</key>
+ <value>Свойство</value>
+
+ 2
+
+ ChartOfCharacteristicTypesRef.ДополнительныеРеквизитыИСведения
+
+
+ true
+
+
+ true
+
+
+
+ ВыборГрупп
+
+ <key>ru</key>
+ <value>Выбор групп</value>
+
+ 4
+
+ Boolean
+
+
+ true
+
+
+ true
+
+
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl
index 5336f2c4c..d3e15303b 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl
@@ -1,18 +1,181 @@
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
- Владелец = Неопределено;
- СодержитЗначения = Ложь;
-
- Если Параметры.Отбор.Свойство("Владелец", Владелец) Тогда
- СодержитЗначения = Владелец.ТипЗначения.СодержитТип(Тип("СправочникСсылка.ЗначенияСвойствОбъектов"));
+ // Пропуск инициализации, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
КонецЕсли;
- Если Не СодержитЗначения Тогда
- Элементы.Список.ТолькоПросмотр = Истина;
+ Если Параметры.Отбор.Свойство("_Владелец", Свойство)
+ И ЗначениеЗаполнено(Свойство) Тогда
+
+ Параметры.Отбор.Удалить("_Владелец");
+ Параметры.Отбор.Вставить("Владелец", Свойство);
+
+ ИначеЕсли Параметры.Отбор.Свойство("Владелец")
+ И ЗначениеЗаполнено(Параметры.Отбор.Владелец) Тогда
+
+ Свойство = Параметры.Отбор.Владелец;
+ КонецЕсли;
+
+ Если НЕ ЗначениеЗаполнено(Свойство) Тогда
+ Элементы.Свойство.Видимость = Истина;
+ КонецЕсли;
+
+ Если Параметры.РежимВыбора Тогда
+
+ Если Параметры.Свойство("ВыборГруппИЭлементов")
+ И Параметры.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Группы Тогда
+
+ ВыборГрупп = Истина;
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(Список.Отбор, "ЭтоГруппа", Истина);
+ Иначе
+ Параметры.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Элементы;
+ КонецЕсли;
+
+ РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
+ Иначе
+ Элементы.Список.РежимВыбора = Ложь;
+ КонецЕсли;
+
+ УстановитьЗаголовок();
+
+ Если ВыборГрупп Тогда
+ Если Элементы.Найти("ФормаСоздать") <> Неопределено Тогда
+ Элементы.ФормаСоздать.Видимость = Ложь;
+ Элементы.СписокКонтекстноеМенюСоздать.Видимость = Ложь;
+ КонецЕсли;
+ КонецЕсли;
+
+ ПриИзмененииСвойства();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "Запись_ДополнительныеРеквизитыИСведения"
+ И Источник = Свойство Тогда
+
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияПриИзмененииСвойства", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ШАПКИ ФОРМЫ
+
+&НаКлиенте
+Процедура СвойствоПриИзменении(Элемент)
+
+ ПриИзмененииСвойства();
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ Список
+
+&НаКлиенте
+Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
+
+ Если НЕ Копирование
+ И Элементы.Список.Отображение = ОтображениеТаблицы.Список Тогда
+
+ Родитель = Неопределено;
+ КонецЕсли;
+
+ Если ВыборГрупп
+ И НЕ Группа Тогда
+
+ Отказ = Истина;
+ КонецЕсли;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+&НаСервере
+Процедура УстановитьЗаголовок()
+
+ СтрокаЗаголовка = "";
+
+ Если ЗначениеЗаполнено(Свойство) Тогда
+ СтрокаЗаголовка = СтрПолучитьСтроку(ОбщегоНазначения.ПолучитьЗначениеРеквизита(
+ Свойство, "СклоненияПредмета"), 2);
+ КонецЕсли;
+
+ Если ПустаяСтрока(СтрокаЗаголовка) Тогда
+
+ Если ЗначениеЗаполнено(Свойство) Тогда
+ Если НЕ Параметры.РежимВыбора Тогда
+ СтрокаЗаголовка = НСтр("ru = 'Значения свойства %1'");
+ ИначеЕсли ВыборГрупп Тогда
+ СтрокаЗаголовка = НСтр("ru = 'Выберите группу значений свойства %1'");
+ Иначе
+ СтрокаЗаголовка = НСтр("ru = 'Выберите значение свойства %1'");
+ КонецЕсли;
+
+ СтрокаЗаголовка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ СтрокаЗаголовка, Строка(Свойство));
+
+ ИначеЕсли Параметры.РежимВыбора Тогда
+
+ Если ВыборГрупп Тогда
+ СтрокаЗаголовка = НСтр("ru = 'Выберите группу значений свойства'");
+ Иначе
+ СтрокаЗаголовка = НСтр("ru = 'Выберите значение свойства'");
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если НЕ ПустаяСтрока(СтрокаЗаголовка) Тогда
+ АвтоЗаголовок = Ложь;
+ Заголовок = СтрокаЗаголовка;
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикОжиданияПриИзмененииСвойства()
+
+ ПриИзмененииСвойства();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ПриИзмененииСвойства()
+
+ Если ЗначениеЗаполнено(Свойство) Тогда
+
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ Список.Отбор, "Владелец", Свойство);
+
+ ТипЗначения = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Свойство, "ТипЗначения");
+
+ Если ТипЗнч(ТипЗначения) = Тип("ОписаниеТипов")
+ И ТипЗначения.СодержитТип(Тип("СправочникСсылка.ЗначенияСвойствОбъектов")) Тогда
+
+ Элементы.Список.ИзменятьСоставСтрок = Истина;
+ Иначе
+ Элементы.Список.ИзменятьСоставСтрок = Ложь;
+ КонецЕсли;
+
+ Элементы.Список.Отображение = ОтображениеТаблицы.ИерархическийСписок;
+ Элементы.Владелец.Видимость = Ложь;
+ Элементы.Список.Шапка = Ложь;
+ Иначе
+ ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(
+ Список.Отбор, "Владелец");
+
+ Элементы.Список.Отображение = ОтображениеТаблицы.Список;
+ Элементы.Список.ИзменятьСоставСтрок = Ложь;
+ Элементы.Владелец.Видимость = Истина;
+ Элементы.Список.Шапка = Истина;
КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form
index 0bcb4ebc9..a78b4b07c 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form
@@ -1,48 +1,7 @@
-
- Владелец
- 3
- true
- true
-
- true
-
-
- Объект.Owner
-
-
- ВладелецРасширеннаяПодсказка
- 10
- Label
- true
- true
-
- Left
-
-
-
- ВладелецКонтекстноеМеню
- 4
- true
-
- InputField
- true
- Enter
- true
- Left
- true
-
- true
- true
- true
- true
- true
- Normal
-
-
- Группа1
+ ГоризонтальнаяГруппа9Наименование
@@ -57,7 +16,7 @@
НаименованиеРасширеннаяПодсказка
- 13
+ 11Labeltruetrue
@@ -97,7 +56,7 @@
ВесРасширеннаяПодсказка
- 15
+ 13Labeltruetrue
@@ -119,7 +78,7 @@
truetruetrue
- true
+ truetruetrueNormal
@@ -130,9 +89,17 @@
true
+
+ <key>ru</key>
+ <value>Горизонтальная группа</value>
+
+
+ ru
+ Горизонтальная группа
+
- Группа1РасширеннаяПодсказка
- 12
+ ГоризонтальнаяГруппаРасширеннаяПодсказка
+ 10Labeltruetrue
@@ -162,7 +129,7 @@
РодительРасширеннаяПодсказка
- 17
+ 15Labeltruetrue
@@ -189,6 +156,47 @@
Normal
+
+ Владелец
+ 3
+ true
+ true
+
+ true
+
+
+ Объект.Owner
+
+
+ ВладелецРасширеннаяПодсказка
+ 17
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ВладелецКонтекстноеМеню
+ 4
+ true
+
+ InputField
+ true
+ Enter
+ true
+ Left
+ true
+
+ true
+ true
+ true
+ true
+ true
+ Normal
+
+ ФормаКоманднаяПанель-1
@@ -199,6 +207,7 @@
OnCreateAtServerПриСозданииНаСервере
+ 50LockOwnertruetrue
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Help/ru.html
deleted file mode 100644
index 6096be4b3..000000000
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Help/ru.html
+++ /dev/null
@@ -1 +0,0 @@
-При формировании списка значений можно указать не только наименование в поле Значение, но и указать Вес значения (числовое поле). Это поле в дальнейшем можно использовать для анализа в отчетах. Логику использования этого поля пользователю необходимо продумывать самостоятельно. Например, для значений свойства Надежность представленных на рисунке можно задать вес следующим образом: для значений от единицы до тройки поставить вес равным нулю, а для значений четыре и пять равным единице. При таких весах в отчет можно быстро вывести надежных клиентов (у которых вес значения больше нуля).
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl
index 4a188c117..1412cb4cb 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl
@@ -1,3 +1,4 @@
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
@@ -9,41 +10,52 @@
Возврат;
КонецЕсли;
- ВладелецЗначенияСвойства = Справочники.ЗначенияСвойствОбъектов.ПустаяСсылка();
-
- Если Объект.Ссылка = Справочники.ЗначенияСвойствОбъектов.ПустаяСсылка() Тогда
- Если Параметры.ЗначениеКопирования = Справочники.ЗначенияСвойствОбъектов.ПустаяСсылка() Тогда
- ВладелецЗначенияСвойства = Параметры.ЗначенияЗаполнения.Владелец;
- Иначе
- ВладелецЗначенияСвойства = Параметры.ЗначениеКопирования.Владелец;
- КонецЕсли;
- Иначе
- ВладелецЗначенияСвойства = Объект.Ссылка.Владелец;
+ Если НЕ ЗначениеЗаполнено(Объект.Ссылка)
+ И Параметры.ЗначенияЗаполнения.Свойство("Наименование") Тогда
+
+ Объект.Наименование = Параметры.ЗначенияЗаполнения.Наименование;
КонецЕсли;
- ИмяСвойства = СокрЛП(СтрПолучитьСтроку(ВладелецЗначенияСвойства.СклоненияПредмета, 1));
-
- Если ПустаяСтрока(ИмяСвойства) Тогда
- ИмяСвойства = ВладелецЗначенияСвойства.Наименование;
- КонецЕсли;
-
- Если Объект.Ссылка = Справочники.ЗначенияСвойствОбъектов.ПустаяСсылка() Тогда // Создание нового.
- Заголовок = ИмяСвойства + " (" + НСтр("ru = 'создание'") + ")";
- Иначе
- Заголовок = Объект.Наименование + " (" + ИмяСвойства + ")";
- КонецЕсли;
+ УстановитьЗаголовок();
КонецПроцедуры
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
+ УстановитьЗаголовок();
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+Процедура УстановитьЗаголовок()
+
ИмяСвойства = СокрЛП(СтрПолучитьСтроку(Объект.Владелец.СклоненияПредмета, 1));
- Если ПустаяСтрока(ИмяСвойства) Тогда
- ИмяСвойства = Объект.Владелец.Наименование;
+ Если НЕ ПустаяСтрока(ИмяСвойства) Тогда
+ Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (%2)'"),
+ Объект.Наименование,
+ ИмяСвойства);
+ Иначе
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (Создание)'"), ИмяСвойства);
+ КонецЕсли;
+ Иначе
+ ИмяСвойства = Строка(Объект.Владелец);
+
+ Если ЗначениеЗаполнено(Объект.Ссылка) Тогда
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = '%1 (Значение свойства %2)'"),
+ Объект.Наименование,
+ ИмяСвойства);
+ Иначе
+ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Значение свойства %1 (Создание)'"), ИмяСвойства);
+ КонецЕсли;
КонецЕсли;
-
- Заголовок = Объект.Наименование + " (" + ИмяСвойства + ")";
КонецПроцедуры
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Help/ru.html b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Help/ru.html
index 5185315de..ed971b8ff 100644
--- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Help/ru.html
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Help/ru.html
@@ -1,3 +1,4 @@
-
-
При этом для каждого дополнительного реквизита или сведения список значений будет свой. Если список значений большой, то может быть удобно создать группы и разнести значения по ним.
\ No newline at end of file
+
+
В списке Значения свойств объектов задаются значения дополнительных реквизитов и сведений. При этом для каждого дополнительного реквизита или сведения список значений будет свой. Если список значений большой, то может быть удобно создать группы и разнести значения по ним.
+
При формировании списка значений можно указать не только наименование в поле Значение, но и указать Вес значения (числовое поле). Это поле в дальнейшем можно использовать для анализа в отчетах. Логику использования этого поля пользователю необходимо продумывать самостоятельно. Например, для значений свойства Надежность можно задать вес следующим образом: для значений от единицы до тройки поставить вес равным нулю, а для значений четыре и пять равным единице. При таких весах в отчет можно быстро вывести надежных клиентов (у которых вес значения больше нуля).
В списке Значения свойств объектов (иерархия) задаются значения дополнительных реквизитов и сведений. При этом для каждого дополнительного реквизита или сведения список значений будет свой. В списке можено использовать иерархию значений.
+
При формировании списка значений можно указать не только наименование в поле Значение, но и указать Вес значения (числовое поле). Это поле в дальнейшем можно использовать для анализа в отчетах. Логику использования этого поля пользователю необходимо продумывать самостоятельно. Например, для значений свойства Надежность можно задать вес следующим образом: для значений от единицы до тройки поставить вес равным нулю, а для значений четыре и пять равным единице. При таких весах в отчет можно быстро вывести надежных клиентов (у которых вес значения больше нуля).
+
\ No newline at end of file
diff --git a/SSL/src/Catalogs/КлассификаторВалют/ManagerModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl
similarity index 100%
rename from SSL/src/Catalogs/КлассификаторВалют/ManagerModule.bsl
rename to SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo
new file mode 100644
index 000000000..25f2cfa70
--- /dev/null
+++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo
@@ -0,0 +1,193 @@
+
+
+
+
+
+
+
+
+
+ ЗначенияСвойствОбъектовИерархия
+
+ ru
+ Значения свойств объектов (иерархия)
+
+ Catalog.ЗначенияСвойствОбъектовИерархия.StandardAttribute.Description
+ DontUse
+
+ Use
+ PredefinedDataName
+
+ Use
+
+
+
+
+ Use
+ Predefined
+
+ Use
+
+
+
+
+ Use
+ Ref
+
+ Use
+
+
+
+
+ Use
+ DeletionMark
+
+ Use
+
+
+
+
+ Use
+ IsFolder
+
+ Use
+
+
+
+
+ Use
+ Owner
+
+ ru
+ Свойство
+
+
+ ru
+ Дополнительный реквизит или дополнительное сведение.
+
+ true
+
+ ChartOfCharacteristicTypes.ДополнительныеРеквизитыИСведения.EmptyRef
+
+ ShowError
+ Use
+
+
+
+
+ Use
+ Parent
+
+ ru
+ Родитель
+
+
+ ru
+ Вышестоящее значение свойства объектов.
+
+ true
+
+ Catalog.ЗначенияСвойствОбъектовИерархия.EmptyRef
+
+
+ Отбор.Владелец
+ Catalog.ЗначенияСвойствОбъектовИерархия.StandardAttribute.Owner
+
+ Use
+
+
+
+
+ Use
+ Description
+
+ ru
+ Значение
+
+
+ ru
+ Значение свойства объектов.
+
+
+ ShowError
+ Use
+
+
+
+
+ Use
+ Code
+
+ Use
+
+
+
+ Use
+
+
+ ru
+
+
+ Managed
+ Use
+
+ ru
+ Значение свойства объектов (иерархия)
+
+ true
+ HierarchyOfItems
+ 2
+ true
+ ChartOfCharacteristicTypes.ДополнительныеРеквизитыИСведения
+ 100
+ String
+ AsDescription
+ InDialog
+ BothWays
+ Catalog.ЗначенияСвойствОбъектовИерархия.Form.ФормаЭлемента
+ Catalog.ЗначенияСвойствОбъектовИерархия.Form.ФормаСписка
+ Catalog.ЗначенияСвойствОбъектовИерархия.Form.ФормаСписка
+
+ Вес
+
+ ru
+ Вес
+
+
+ Number
+
+ 10
+ 2
+
+
+
+ ru
+ Относительный вес значения (значимость)
+
+
+
+
+ 0
+
+ Use
+ Use
+
+
+ ФормаЭлемента
+
+ ru
+ Форма элемента
+
+ PersonalComputer
+ MobileDevice
+
+
+ ФормаСписка
+
+ ru
+ Форма списка
+
+ PersonalComputer
+ MobileDevice
+
+
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаВыбора/Form.form
deleted file mode 100644
index 08a73b7cb..000000000
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаВыбора/Form.form
+++ /dev/null
@@ -1,230 +0,0 @@
-
-
-
- Список
- 1
- true
- true
-
- true
-
-
- Список
-
- true
- None
-
- Синоним
- 4
- true
- true
-
- true
-
-
- Список.Синоним
-
- true
-
- ru
- Представление объекта метаданных
-
-
- СинонимРасширеннаяПодсказка
- 16
- Label
- true
- true
-
- Left
-
-
-
- СинонимКонтекстноеМеню
- 5
- true
-
- LabelField
- Enter
- true
- Left
- true
-
- true
- true
-
-
- None
-
- СписокКоманднаяПанель
- 3
- Left
-
-
- СписокСтрокаПоиска
- 7
-
- СписокСтрокаПоискаРасширеннаяПодсказка
- 9
- Label
- true
- true
-
- Left
-
-
-
- СписокСтрокаПоискаКонтекстноеМеню
- 8
- true
-
- Список
-
- true
-
-
-
- СписокСостояниеПросмотра
- 10
-
- СписокСостояниеПросмотраРасширеннаяПодсказка
- 12
- Label
- true
- true
-
- Left
-
-
-
- СписокСостояниеПросмотраКонтекстноеМеню
- 11
- true
-
- ViewStatusAddition
- Список
-
- true
-
-
-
- СписокУправлениеПоиском
- 13
-
- СписокУправлениеПоискомРасширеннаяПодсказка
- 15
- Label
- true
- true
-
- Left
-
-
-
- СписокУправлениеПоискомКонтекстноеМеню
- 14
- true
-
- SearchControlAddition
- Список
-
- true
-
-
-
- СписокРасширеннаяПодсказка
- 6
- Label
- true
- true
-
- Left
-
-
-
- СписокКонтекстноеМеню
- 2
- true
-
- HierarchicalList
- true
- true
- true
- true
- true
- true
- MultiRow
- true
- 1
- 1
- AutoUse
- AutoUse
- true
- true
- Auto
- Auto
- ExpandTopLevel
- true
- true
- true
-
- Список.DefaultPicture
-
- None
- None
- None
- true
-
- 60
-
- 0001-01-01T00:00:00
- 0001-01-01T00:00:00
-
-
- true
-
-
-
- ФормаКоманднаяПанель
- -1
- Left
- true
-
- LockOwner
- true
- true
- true
- Vertical
- true
- true
- true
- UseIfNecessary
- auto
- true
-
- Список
- 1
-
- DynamicList
-
-
- true
-
-
- true
-
- true
-
- Catalog.ИдентификаторыОбъектовМетаданных
- true
- true
- true
- true
-
-
-
-
-
-
-
-
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
index c53358399..48fc28884 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
@@ -6,8 +6,8 @@
- Используется
- Asc
+ ПометкаУдаления
+ DescПорядокКоллекции
@@ -26,23 +26,25 @@
-
+
+
+ Синоним
+
+
+ ПолноеИмя
+
+
- Родитель
- Equal
- Справочник.ИдентификаторыОбъектовМетаданных.ПустаяСсылка
-
-
- Предопределенный
+ ПометкаБудущегоУдаленияEqualtrue
- Шрифт
-
+ ЦветТекста
+ web:DarkGray
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form
index f8f09aa61..3ddc0793f 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form
@@ -31,7 +31,7 @@
trueСинонимРасширеннаяПодсказка
- 28
+ 26Labeltruetrue
@@ -65,7 +65,7 @@
ПолноеИмяРасширеннаяПодсказка
- 30
+ 28Labeltruetrue
@@ -88,49 +88,22 @@
true
-
- Используется
- 15
- true
- true
-
-
- Список.Используется
-
-
- ИспользуетсяРасширеннаяПодсказка
- 32
- Label
- true
- true
-
- Left
-
-
-
- ИспользуетсяКонтекстноеМеню
- 16
- true
-
- CheckBoxField
- Enter
- true
- Left
- true
-
- NoneСписокКоманднаяПанель3Left
+
+ ValueChoice
+ СписокВыборЗначения
+ СписокСтрокаПоиска
- 19
+ 17СписокСтрокаПоискаРасширеннаяПодсказка
- 21
+ 19Labeltruetrue
@@ -140,7 +113,7 @@
СписокСтрокаПоискаКонтекстноеМеню
- 20
+ 18trueСписок
@@ -150,10 +123,10 @@
СписокСостояниеПросмотра
- 22
+ 20СписокСостояниеПросмотраРасширеннаяПодсказка
- 24
+ 22Labeltruetrue
@@ -163,7 +136,7 @@
СписокСостояниеПросмотраКонтекстноеМеню
- 23
+ 21trueViewStatusAddition
@@ -174,10 +147,10 @@
СписокУправлениеПоиском
- 25
+ 23СписокУправлениеПоискомРасширеннаяПодсказка
- 27
+ 25Labeltruetrue
@@ -187,7 +160,7 @@
СписокУправлениеПоискомКонтекстноеМеню
- 26
+ 24trueSearchControlAddition
@@ -198,7 +171,7 @@
СписокРасширеннаяПодсказка
- 18
+ 16Labeltruetrue
@@ -218,7 +191,6 @@
truetrueMultiRow
- true11AutoUse
@@ -261,7 +233,7 @@
ОбновитьДанныеСправочникаРасширеннаяПодсказка
- 17
+ 15Labeltruetrue
@@ -280,6 +252,10 @@
Lefttrue
+
+ OnCreateAtServer
+ ПриСозданииНаСервере
+ DontBlocktruetrue
@@ -303,6 +279,9 @@
true
+
+ Список.Используется
+ Список.КоллекцияПорядок
@@ -310,17 +289,57 @@
Список.Description
- Список.Используется
+ Список.Parenttrue
+ ВЫБРАТЬ
+ Идентификаторы.Ссылка,
+ Идентификаторы.ВерсияДанных,
+ Идентификаторы.ПометкаУдаления,
+ ВЫБОР
+ КОГДА ПОДСТРОКА(Идентификаторы.Имя, 0, 7) = "Удалить"
+ ТОГДА ИСТИНА
+ ИНАЧЕ ЛОЖЬ
+ КОНЕЦ КАК ПометкаБудущегоУдаления,
+ Идентификаторы.Предопределенный,
+ Идентификаторы.Родитель,
+ Идентификаторы.Наименование,
+ Идентификаторы.ПорядокКоллекции,
+ Идентификаторы.Имя,
+ Идентификаторы.Синоним,
+ Идентификаторы.ПолноеИмя,
+ Идентификаторы.ПолныйСиноним,
+ Идентификаторы.БезДанных,
+ Идентификаторы.ЗначениеПустойСсылки,
+ Идентификаторы.КлючОбъектаМетаданных
+ИЗ
+ Справочник.ИдентификаторыОбъектовМетаданных КАК ИдентификаторыCatalog.ИдентификаторыОбъектовМетаданныхtruetrue
+ truetruetrue
+
+ ВыбиратьГруппыОбъектовМетаданных
+
+ <key>ru</key>
+ <value>Выбирать группы объектов метаданных</value>
+
+ 2
+
+ Boolean
+
+
+ true
+
+
+ true
+
+ ОбновитьДанныеСправочника
@@ -343,6 +362,12 @@
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
+ <parameters>
+ <name>ВыбиратьГруппыОбъектовМетаданных</name>
+ <valueType>
+ <types>Boolean</types>
+ </valueType>
+ </parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl
index 46d883bec..1694d0938 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl
@@ -1,3 +1,62 @@
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ Если НЕ Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
+ Элементы.ОбновитьДанныеСправочника.Видимость = Ложь;
+ КонецЕсли;
+
+ Если Параметры.РежимВыбора Тогда
+ Элементы.Список.РежимВыбора = Истина;
+ Элементы.ОбновитьДанныеСправочника.ТолькоВоВсехДействиях = Истина;
+ Параметры.Отбор.Вставить("ПометкаУдаления", Ложь);
+ Параметры.Отбор.Вставить("ПометкаБудущегоУдаления", Ложь);
+ КонецЕсли;
+
+ Параметры.Свойство("ВыбиратьГруппыОбъектовМетаданных", ВыбиратьГруппыОбъектовМетаданных);
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ Список
+
+&НаКлиенте
+Процедура СписокВыборЗначения(Элемент, Значение, СтандартнаяОбработка)
+
+ Если НЕ ВыбиратьГруппыОбъектовМетаданных
+ И Элемент.ТекущиеДанные <> Неопределено
+ И НЕ ЗначениеЗаполнено(Элемент.ТекущиеДанные.Родитель) Тогда
+
+ СтандартнаяОбработка = Ложь;
+
+ Если Элемент.Отображение = ОтображениеТаблицы.Дерево Тогда
+ Если Элемент.Развернут(Элемент.ТекущаяСтрока) Тогда
+ Элемент.Свернуть(Элемент.ТекущаяСтрока);
+ Иначе
+ Элемент.Развернуть(Элемент.ТекущаяСтрока);
+ КонецЕсли;
+
+ ИначеЕсли Элемент.Отображение = ОтображениеТаблицы.ИерархическийСписок Тогда
+
+ Если Элемент.ТекущийРодитель <> Элемент.ТекущаяСтрока Тогда
+ Элемент.ТекущийРодитель = Элемент.ТекущаяСтрока;
+ Иначе
+ ТекущаяСтрока = Элемент.ТекущаяСтрока;
+ Элемент.ТекущийРодитель = Неопределено;
+ Элемент.ТекущаяСтрока = ТекущаяСтрока;
+ КонецЕсли;
+ Иначе
+ Предупреждение(НСтр("ru = 'Невозможно выбрать группу объектов метаданных.
+ |Выберите объект метаданных.'"));
+ КонецЕсли;
+ КонецЕсли;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
&НаКлиенте
Процедура ОбновитьДанныеСправочника(Команда)
@@ -25,6 +84,9 @@
КонецПроцедуры
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
&НаСервере
Процедура ОбновитьДанныеСправочникаНаСервере(ЕстьИзменения, ЕстьУдаленные)
@@ -36,3 +98,5 @@
КонецПроцедуры
+
+
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form
index 922efb0d7..dfb749c49 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form
@@ -13,7 +13,7 @@
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
- <id>29</id>
+ <id>31</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -27,6 +27,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -57,7 +58,7 @@
</dataPath>
<extendedTooltip>
<name>ИмяРасширеннаяПодсказка</name>
- <id>32</id>
+ <id>34</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -71,6 +72,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -98,7 +100,7 @@
</dataPath>
<extendedTooltip>
<name>СинонимРасширеннаяПодсказка</name>
- <id>34</id>
+ <id>36</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -112,6 +114,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -141,7 +144,7 @@
</toolTip>
<extendedTooltip>
<name>ИмяИСинонимОбъектаМетаданныхРасширеннаяПодсказка</name>
- <id>31</id>
+ <id>33</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -175,9 +178,13 @@
<dataPath xsi:type="form:DataPath">
<segments>Объект.ПолноеИмя</segments>
</dataPath>
+ <handlers>
+ <event>OnChange</event>
+ <name>ПолноеИмяПриИзменении</name>
+ </handlers>
<extendedTooltip>
<name>ПолноеИмяРасширеннаяПодсказка</name>
- <id>37</id>
+ <id>39</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -222,7 +229,7 @@
</dataPath>
<extendedTooltip>
<name>ПолныйСинонимРасширеннаяПодсказка</name>
- <id>39</id>
+ <id>41</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -236,6 +243,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -265,7 +273,7 @@
</toolTip>
<extendedTooltip>
<name>ПолноеИмяИПолныйСинонимОбъектаМетаданныхРасширеннаяПодсказка</name>
- <id>36</id>
+ <id>38</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -299,7 +307,7 @@
</dataPath>
<extendedTooltip>
<name>ПорядокКоллекцииРасширеннаяПодсказка</name>
- <id>42</id>
+ <id>44</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -313,6 +321,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
+ <readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -341,7 +350,7 @@
<titleLocation>Right</titleLocation>
<extendedTooltip>
<name>БезДанныхРасширеннаяПодсказка</name>
- <id>44</id>
+ <id>46</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -355,6 +364,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
+ <readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
@@ -380,7 +390,7 @@
</toolTip>
<extendedTooltip>
<name>ПустаяСсылкаПредставлениеРасширеннаяПодсказка</name>
- <id>46</id>
+ <id>48</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -409,53 +419,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
- <items xsi:type="form:FormField">
- <name>ИмяПредопределенного</name>
- <id>27</id>
- <visible>true</visible>
- <enabled>true</enabled>
- <userVisible>
- <common>true</common>
- </userVisible>
- <dataPath xsi:type="form:DataPath">
- <segments>ИмяПредопределенного</segments>
- </dataPath>
- <toolTip>
- <key>ru</key>
- <value>Если идентификатор объекта метаданных задан через предопределенный элемент, тогда доступно его имя
-Формат имени: полное имя у которого вместо символа "." используется символ "_"</value>
- </toolTip>
- <extendedTooltip>
- <name>ИмяПредопределенногоРасширеннаяПодсказка</name>
- <id>48</id>
- <type>Label</type>
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <extInfo xsi:type="form:LabelDecorationExtInfo">
- <horizontalAlign>Left</horizontalAlign>
- </extInfo>
- </extendedTooltip>
- <contextMenu>
- <name>ИмяПредопределенногоКонтекстноеМеню</name>
- <id>28</id>
- <autoFill>true</autoFill>
- </contextMenu>
- <type>InputField</type>
- <readOnly>true</readOnly>
- <editMode>Enter</editMode>
- <showInHeader>true</showInHeader>
- <headerHorizontalAlign>Left</headerHorizontalAlign>
- <showInFooter>true</showInFooter>
- <extInfo xsi:type="form:InputFieldExtInfo">
- <autoMaxWidth>true</autoMaxWidth>
- <autoMaxHeight>true</autoMaxHeight>
- <wrap>true</wrap>
- <chooseType>true</chooseType>
- <typeDomainEnabled>true</typeDomainEnabled>
- <textEdit>true</textEdit>
- <textSize>Normal</textSize>
- </extInfo>
- </items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -469,9 +432,10 @@
<key>ru</key>
<value>Прочие свойства</value>
</toolTip>
+ <horizontalStretch>true</horizontalStretch>
<extendedTooltip>
<name>ПрочиеСвойстваРасширеннаяПодсказка</name>
- <id>41</id>
+ <id>43</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -494,6 +458,33 @@
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
+ <items xsi:type="form:Button">
+ <name>ФормаВключитьВозможностьРедактирования</name>
+ <id>29</id>
+ <visible>true</visible>
+ <enabled>true</enabled>
+ <userVisible>
+ <common>true</common>
+ </userVisible>
+ <extendedTooltip>
+ <name>ФормаВключитьВозможностьРедактированияРасширеннаяПодсказка</name>
+ <id>30</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>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
@@ -546,24 +537,28 @@
<common>true</common>
</edit>
</attributes>
- <attributes>
- <name>ИмяПредопределенного</name>
+ <formCommands>
+ <name>ВключитьВозможностьРедактирования</name>
<title>
<key>ru</key>
- <value>Имя предопределенного</value>
+ <value>Включить возможность редактирования</value>
- 3
-
- String
-
-
-
+ 1
+
+ ru
+ Включить возможность редактирования только для целей поиска неисправности (требуется углубленное понимание работы механизма)
+
+
-
- true
-
-
+
+
+
+ ВключитьВозможностьРедактирования
+
+
+ Auto
+ Auto
+
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl
index a8385f3d3..45a2dc579 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl
@@ -1,3 +1,5 @@
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -6,8 +8,39 @@
ПустаяСсылкаПредставление = Строка(ТипЗнч(Объект.ЗначениеПустойСсылки));
- Если Объект.Предопределенный Тогда
- ИмяПредопределенного = Справочники.ИдентификаторыОбъектовМетаданных.ПолучитьИмяПредопределенного(Объект.Ссылка);
+ Если НЕ Пользователи.ЭтоПолноправныйПользователь(, Истина)
+ ИЛИ Справочники.ИдентификаторыОбъектовМетаданных.ЗапрещеноИзменятьПолноеИмя(Объект) Тогда
+
+ Элементы.ФормаВключитьВозможностьРедактирования.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
+
+&НаКлиенте
+Процедура ВключитьВозможностьРедактирования(Команда)
+
+ ТолькоПросмотр = Ложь;
+ Элементы.ФормаВключитьВозможностьРедактирования.Доступность = Ложь;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПолноеИмяПриИзменении(Элемент)
+
+ ОбновитьСвойстваИдентификатора();
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+&НаСервере
+Процедура ОбновитьСвойстваИдентификатора()
+
+ Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьСвойстваИдентификатора(Объект);
+
+КонецПроцедуры
+
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
index adde5cfd1..e023a1dcc 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
@@ -1,18 +1,19 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС
// Процедура обновляет данные справочника по метаданным конфигурации.
-// При работе процедуры может быть вызван обработчик события
-// ОбщегоНазначенияПереопределяемый.ПриИзмененииИдентификатораОбъектаМетаданных().
//
// Параметры:
-// ЕстьИзменения - Булево, в этот параметр возвращается значение Истина,
-// если производилась запись, иначе не изменяется.
-// ЕстьУдаленные - Булево, в этот параметр возвращается значение Истина,
-// если хотя бы один элемент справочника был помечен на удаление,
-// иначе не изменяется.
+// ЕстьИзменения - Булево (возвращаемое значение) - в этот параметр возвращается
+// значение Истина, если производилась запись, иначе не изменяется.
//
-Процедура ОбновитьДанныеСправочника(ЕстьИзменения = Истина, ЕстьУдаленные = Истина) Экспорт
+// ЕстьУдаленные - Булево (возвращаемое значение) - в этот параметр возвращается
+// значение Истина, если хотя бы один элемент справочника был помечен
+// на удаление, иначе не изменяется.
+//
+Процедура ОбновитьДанныеСправочника(ЕстьИзменения = Ложь, ЕстьУдаленные = Ложь) Экспорт
УстановитьПривилегированныйРежим(Истина);
@@ -20,23 +21,17 @@
СвойстваОбъектовМетаданных = СвойстваОбъектовМетаданных(СвойстваКоллекцийОбъектовМетаданных);
СправочникМенеджер = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени("Справочник.ИдентификаторыОбъектовМетаданных");
- СвойстваОбъектовМетаданных.Индексы.Добавить("ПолноеИмя");
+ // Найден - состояние, когда для объекта метаданных найден идентификатор.
+ СвойстваОбъектовМетаданных.Колонки.Добавить("Найден", Новый ОписаниеТипов("Булево"));
- // Обработана - состояние, когда идентификатор соотвествует объекту метаданных и
- // был проверен и обновлен, если его свойства изменились
- СвойстваОбъектовМетаданных.Колонки.Добавить("Обработана", Новый ОписаниеТипов("Булево"));
-
- // Изменение - состояние, когда Обработана = Истина и свойства идентификатора были изменены
- СвойстваОбъектовМетаданных.Колонки.Добавить("Изменение", Новый ОписаниеТипов("Булево"));
-
- // ИзменениеСЗаменой - состояние, когда Изменение = Истина, причем был найден хотя бы один
- // идентификатор с тем же ключом, и выполнялась процедура замены ссылки в информационной базе
- // на новый идентификатор
- СвойстваОбъектовМетаданных.Колонки.Добавить("ИзменениеСЗаменой", Новый ОписаниеТипов("Булево"));
-
- // ПараметрОбработчикаСобытияИзменение - структура свойств, заполняемая
- // при изменении свойств идентификатора
- СвойстваОбъектовМетаданных.Колонки.Добавить("ПараметрОбработчикаСобытияИзменение");
+ // Порядок обновления:
+ // 1. Переименование объектов метаданных (с учетом нижестоящих подсистем).
+ // 2. Обновление предопределенных идентификаторов (коллекций объектов метаданных).
+ // 3. Обновление идентификаторов объектов метаданных, которые имеют ключ объекта метаданных.
+ // 4. Обновление идентификаторов объектов метаданных, которые не имеют ключа объекта метаданных.
+ // 5. В процессе 3 и 4 пометка удаления дублей идентификаторов (по полным именам).
+ // 6. Добавление новых идентификаторов объектов метаданных.
+ // 7. Обновление родителей идентификаторов объектов метаданных и запись обновленных.
НачатьТранзакцию();
Попытка
@@ -61,318 +56,209 @@
| Идентификаторы.ПолныйСиноним,
| Идентификаторы.БезДанных,
| Идентификаторы.ЗначениеПустойСсылки,
- | Идентификаторы.КлючОбъектаМетаданных,
- | Идентификаторы.Используется
+ | Идентификаторы.КлючОбъектаМетаданных КАК ХранилищеКлюча
|ИЗ
- | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы
- |
- |УПОРЯДОЧИТЬ ПО
- | Предопределенный УБЫВ";
- Выборка = Запрос.Выполнить().Выбрать();
+ | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы";
+ Выгрузка = Запрос.Выполнить().Выгрузить();
+ Выгрузка.Колонки.Добавить("КлючОбъектаМетаданных");
+ Выгрузка.Колонки.Добавить("БезКлючаОбъектаМетаданных", Новый ОписаниеТипов("Булево"));
+ Выгрузка.Колонки.Добавить("ЭтоНовый", Новый ОписаниеТипов("Булево"));
+ Выгрузка.Колонки.Добавить("Обновлен", Новый ОписаниеТипов("Булево"));
- Пока Выборка.Следующий() Цикл
- // Проверка и обновление свойств идентификаторов коллекций
- СвойстваКоллекции = СвойстваКоллекцийОбъектовМетаданных.Найти(Выборка.Ссылка, "ИдентификаторКоллекции");
- Если СвойстваКоллекции <> Неопределено Тогда
- ПроверитьОбновитьСвойстваКоллекции(Выборка, СвойстваКоллекции, ЕстьИзменения);
- Продолжить;
- КонецЕсли;
- // Предопределенные элементы имеют приоритет, поэтому обрабатываются в первую очередь
- КлючОбъектаМетаданных = Выборка.КлючОбъектаМетаданных.Получить();
- Если Выборка.Предопределенный Тогда
- ПолноеИмя = "";
- ОбъектМетаданных = НайтиОбъектМетаданныхПредопределенного(Выборка.Ссылка, ПолноеИмя);
- Если ОбъектМетаданных = Неопределено Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'В справочнике Идентификаторы объектов метаданных
- |для предопределенного элемента
- |""%1"",
- |не найден объект метаданных
- |""%2"".
- |
- |Следует задать имя предопределенного элемента,
- |соответствующее существующему объекту метаданных.'"),
- ПолучитьИмяПредопределенного(Выборка.Ссылка),
- ПолноеИмя);
- КонецЕсли;
- // Проверка, что предопределенный элемент относится к коллекции объектов метаданных,
- // для которых существует КлючОбъектаМетаданных
- ИмяКоллецииВЕдЧисле = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПолноеИмя, ".")[0];
- ОписаниеКоллекции = СвойстваКоллекцийОбъектовМетаданных.Найти(ИмяКоллецииВЕдЧисле, "ИмяВЕдЧисле");
- Если ОписаниеКоллекции.БезКлючаОбъектаМетаданных Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'В справочнике Идентификаторы объектов метаданных
- |для предопределенного элемента
- |""%1"",
- |найден объект метаданных
- |""%2"".
- |
- |Но предопределенные элементы не используются для
- |объектов метаданных типа ""%3"".
- |
- |Следуется удалить предопределенный элемент.'"),
- ПолучитьИмяПредопределенного(Выборка.Ссылка),
- ПолноеИмя,
- ИмяКоллецииВЕдЧисле);
+ // Упорядочение иденитификаторов перед обработкой.
+ Для каждого Строка Из Выгрузка Цикл
+ Строка.КлючОбъектаМетаданных = Строка.ХранилищеКлюча.Получить();
+
+ Строка.БезКлючаОбъектаМетаданных = Строка.КлючОбъектаМетаданных = Неопределено
+ ИЛИ Строка.КлючОбъектаМетаданных = Тип("Неопределено");
+ КонецЦикла;
+ Выгрузка.Сортировать("Предопределенный УБЫВ,
+ |ПометкаУдаления ВОЗР,
+ |БезКлючаОбъектаМетаданных ВОЗР");
+ Выгрузка.Индексы.Добавить("ПолноеИмя");
+
+ // Переименование полных имен перед обработкой.
+ ТаблицаПереименования = ТаблицаПереименованияДляТекущейВерсии(СвойстваКоллекцийОбъектовМетаданных);
+
+ Для каждого ОписаниеПереименования Из ТаблицаПереименования Цикл
+ ДлинаСтарогоПолногоИмени = СтрДлина(ОписаниеПереименования.СтароеПолноеИмя);
+
+ Для каждого Строка Из Выгрузка Цикл
+
+ Если Строка.Предопределенный Тогда
+ Продолжить;
КонецЕсли;
- Если КлючОбъектаМетаданных <> Неопределено
- И КлючОбъектаМетаданных <> Тип("Неопределено") Тогда
- // Если ключ объекта метаданных задан, тогда нужно проверить,
- // совпадают ли элементы, найденные по полному имени и по ключу
- ОбъектМетаданныхПоКлючу = ОбъектМетаданныхПоКлючу(КлючОбъектаМетаданных);
- Если ОбъектМетаданных <> ОбъектМетаданныхПоКлючу Тогда
- // Если для предопределеного элемента уже задан ключ объекта метаданных,
- // но не совпадает с именем, заданным в предопределенном элементе, значит
- // объект был переименован на другой существующий объект метаданных
- Если ОбъектМетаданныхПоКлючу = Неопределено Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'В справочнике Идентификаторы объектов метаданных
- |для предопределенного элемента
- |""%1"",
- |задан ключ другого удаленного объекта метаданных.
- |
- |При переименовании предопределенного элемента допущена ошибка:
- |элемент был переименован на существующий объект метаданных
- |""%2"".
- |
- |Повторное использование предопределенного элемента
- |для других объектов метаданных недопустимо.
- |
- |Следует удалить предопределенный элемент удаленного объекта
- |метаданных и создать новый элемент для объекта метаданных
- |""%2"".'"),
- ПолучитьИмяПредопределенного(Выборка.Ссылка),
- ПолноеИмя);
- Иначе
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'В справочнике Идентификаторы объектов метаданных
- |для предопределенного элемента
- |""%1"",
- |задан ключ другого объекта метаданных
- |""%2"".
- |
- |При переименовании предопределенного элемента допущена ошибка:
- |элемент был переименован на существующий объект метаданных
- |""%3"".
- |
- |Повторное использование предопределенного элемента
- |для других объектов метаданных недопустимо.
- |
- |Требуется задать корректное имя
- |""%4""
- |предопределенного элемента
- |""%1"",
- |соответствующее объекту метаданных
- |""%2"".'"),
- ПолучитьИмяПредопределенного(Выборка.Ссылка),
- ОбъектМетаданныхПоКлючу.ПолноеИмя(),
- ПолноеИмя,
- СтрЗаменить(ОбъектМетаданныхПоКлючу.ПолноеИмя(), ".", "_"));
- КонецЕсли;
- КонецЕсли;
+ Если ВРег(Лев(Строка.ПолноеИмя, ДлинаСтарогоПолногоИмени))
+ = ВРег(ОписаниеПереименования.СтароеПолноеИмя) Тогда
+
+ Строка.ПолноеИмя = ОписаниеПереименования.НовоеПолноеИмя
+ + Сред(Строка.ПолноеИмя, ДлинаСтарогоПолногоИмени + 1);
КонецЕсли;
+ КонецЦикла;
+ КонецЦикла;
+
+ // Обработка идентификаторов объектов метаданных.
+ Для каждого Свойства Из Выгрузка Цикл
+
+ // Проверка и обновление свойств идентификаторов коллекций объектов метаданных.
+ СвойстваКоллекции = СвойстваКоллекцийОбъектовМетаданных.Найти(
+ Свойства.Ссылка, "ИдентификаторКоллекции");
+
+ Если СвойстваКоллекции <> Неопределено Тогда
+ ПроверитьОбновитьСвойстваКоллекции(Свойства, СвойстваКоллекции, ЕстьИзменения);
+ Продолжить;
КонецЕсли;
- // Ключ объекта метаданных может быть незаполнен для предопределенных элементов,
- // а может быть равен Тип("Неопределено") для объектов метаданных без ключа, по которому
- // можно найти ОбъектМетаданных
- Если КлючОбъектаМетаданных = Неопределено
- ИЛИ КлючОбъектаМетаданных = Тип("Неопределено") Тогда
- // Если объект метаданных без ключа, то его можно найти
- // через имя предопределенного или через предустановленный идентификатор
- Если Выборка.Предопределенный Тогда
- ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(ПолноеИмя);
- Иначе
- СвойстваОбъектаМетаданных = СвойстваОбъектовМетаданных.Найти(Выборка.Ссылка, "Идентификатор");
- Если СвойстваОбъектаМетаданных = Неопределено Тогда
- ОбъектМетаданных = Неопределено;
- Иначе
- ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(СвойстваОбъектаМетаданных.ПолноеИмя);
- КонецЕсли;
- КонецЕсли;
+ Если Свойства.Предопределенный Тогда
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'В справочнике ""Идентификаторы объектов метаданных""
+ |для предопределенного элемента
+ |с именем ""%1""
+ |и представлением ""%2""
+ |не найдено типа объектов метаданных.
+ |
+ |Следует удалить предопределенный элемент.'"),
+ ПолучитьИмяПредопределенного(Свойства.Ссылка),
+ Строка(Свойства.Ссылка));
+ КонецЕсли;
+
+ КлючОбъектаМетаданных = Свойства.КлючОбъектаМетаданных;
+ ОбъектМетаданных = ОбъектМетаданныхПоКлючу(КлючОбъектаМетаданных);
+
+ Если ОбъектМетаданных = Неопределено Тогда
+ // Если объект метаданных без ключа, то его можно найти только по полному имени.
+ ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(Свойства.ПолноеИмя);
Иначе
- ОбъектМетаданных = ОбъектМетаданныхПоКлючу(КлючОбъектаМетаданных);
+ // Если объект метаданных удалялся с целью реструктуризации, тогда
+ // старый идентификатор нужно использовать для нового объекта метаданных,
+ // а для старых объектов метаданных создать новые идентификаторы.
+ Если ВРег(Лев(ОбъектМетаданных.Имя, СтрДлина("Удалить"))) = ВРег("Удалить")
+ И ВРег(Лев(Свойства.Имя, СтрДлина("Удалить"))) <> ВРег("Удалить") Тогда
+
+ НовыйОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(Свойства.ПолноеИмя);
+ Если НовыйОбъектМетаданных <> Неопределено Тогда
+ ОбъектМетаданных = НовыйОбъектМетаданных;
+ КлючОбъектаМетаданных = Неопределено; // Чтобы выполнить обновление идентификатора.
+ КонецЕсли;
+ КонецЕсли;
КонецЕсли;
- // Если объект метаданных найден по ключу или имени предопределенного,
- // тогда нужно подготовить строку свойств объекта метаданных
+ // Если объект метаданных найден по ключу или полному имени,
+ // тогда нужно подготовить строку свойств объекта метаданных.
Если ОбъектМетаданных <> Неопределено Тогда
- Строка = СвойстваОбъектовМетаданных.Найти(ОбъектМетаданных.ПолноеИмя(), "ПолноеИмя");
- Если ЗначениеЗаполнено(Строка.ПолноеИмяРодителя) Тогда
- // Родитель может быть предустановленным или предопределенным элементом
- СтрокаРодителя = СвойстваОбъектовМетаданных.Найти(Строка.ПолноеИмяРодителя, "ПолноеИмя");
- Если ЗначениеЗаполнено(СтрокаРодителя.Идентификатор) Тогда
- Строка.Родитель = СтрокаРодителя.Идентификатор;
- Иначе
- ИмяПредопределенногоЭлементаРодителя = СтрЗаменить(Строка.ПолноеИмяРодителя, ".", "_");
- Попытка
- Строка.Родитель = СправочникМенеджер[ИмяПредопределенногоЭлементаРодителя];
- Исключение
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'В справочнике Идентификаторы объектов метаданных
- |для предопределенного элемента:
- |""%1"",
- |не найден предопределенный элемент родителя:
- |""%2"".
- |
- |Следует добавить предопределенный элемент родителя.'"),
- ПолучитьИмяПредопределенного(Выборка.Ссылка),
- СтрЗаменить(Строка.ПолноеИмяРодителя, ".", "_"));
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
+ СвойстваОбъекта = СвойстваОбъектовМетаданных.Найти(ОбъектМетаданных.ПолноеИмя(), "ПолноеИмя");
КонецЕсли;
- Если ОбъектМетаданных = Неопределено ИЛИ Строка.Обработана Тогда
+ Если ОбъектМетаданных = Неопределено ИЛИ СвойстваОбъекта.Найден Тогда
// Если объект метаданных не найден или найден повторно
- // тогда дубль идентификатора требуется пометить на удаление
- Если Выборка.Предопределенный = Выборка.ПометкаУдаления
- ИЛИ ЗначениеЗаполнено(Выборка.Родитель)
- ИЛИ Лев(Выборка.Наименование, 1) <> "?"
- ИЛИ Лев(Выборка.Имя, 1) <> "?"
- ИЛИ Лев(Выборка.Синоним, 1) <> "?"
- ИЛИ Лев(Выборка.ПолноеИмя, 1) <> "?"
- ИЛИ Лев(Выборка.ПолныйСиноним, 1) <> "?"
- ИЛИ Выборка.Используется
- ИЛИ Выборка.ЗначениеПустойСсылки <> Неопределено Тогда
- // Сохранения старых свойств для обработчика события ПриИзмененииИдентификатораОбъектаМетаданных
- ТаблицаОбъект = Выборка.Ссылка.ПолучитьОбъект();
- Свойства = ПараметрыОбработчикаСобытия();
- ЗаполнитьЗначенияСвойств(Свойства.Старые, ТаблицаОбъект);
- // Установка новых свойств идентификатора объекта метаданных
- ТаблицаОбъект = Выборка.Ссылка.ПолучитьОбъект();
- Используется = ТаблицаОбъект.Используется;
- ТаблицаОбъект.ПометкаУдаления = НЕ Выборка.Предопределенный;
- ТаблицаОбъект.Родитель = Неопределено;
- ТаблицаОбъект.Наименование = "? " + ТаблицаОбъект.Наименование;
- ТаблицаОбъект.Имя = "? " + ТаблицаОбъект.Имя;
- ТаблицаОбъект.Синоним = "? " + ТаблицаОбъект.Синоним;
- ТаблицаОбъект.ПолноеИмя = "? " + ТаблицаОбъект.ПолноеИмя;
- ТаблицаОбъект.ПолныйСиноним = "? " + ТаблицаОбъект.ПолныйСиноним;
- ТаблицаОбъект.Используется = Ложь;
- ТаблицаОбъект.ЗначениеПустойСсылки = Неопределено;
- ТаблицаОбъект.ДополнительныеСвойства.Вставить("ВыполняетсяАвтоматическоеОбновлениеДанныхСправочника");
- ТаблицаОбъект.Записать();
- ЕстьИзменения = Истина;
- // Обработка преобразования обычного элемента в предопределенный
- // выполняется, если при существовании обычного элемента был добавлен
- // предопределенный элемент
- Если ОбъектМетаданных <> Неопределено И Используется Тогда
- // Поиск предопределенного элемента
- Запрос = Новый Запрос;
- Запрос.УстановитьПараметр("ПолноеИмя", ОбъектМетаданных.ПолноеИмя());
- Запрос.Текст =
- "ВЫБРАТЬ
- | Таблица.Ссылка,
- | Таблица.ПолноеИмя
- |ИЗ
- | Справочник.ИдентификаторыОбъектовМетаданных КАК Таблица
- |ГДЕ
- | Таблица.ПолноеИмя = &ПолноеИмя
- | И Таблица.Предопределенный";
- Выгрузка = Запрос.Выполнить().Выгрузить();
- // Если найдено более одного предопределенного элемента для одного
- // объекта метаданных, значит произошла ошибка при разработке или
- // при установке разным предопределенным элементам ключа одного и
- // того же объекта метаданных
- Если Выгрузка.Количество() > 1 Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Ошибка при обновлении справочника ""Идентификаторы объектов метаданных"".
- |По внутреннему ключу поиска для объекта метаданных ""%1""
- |найдено более одного предопределенного элемента.'"),
- Выгрузка[0].ПолноеИмя);
- ИначеЕсли Выгрузка.Количество() = 1 Тогда
- // Если старый идентификатор использован в базе данных его требуется
- // заменить на новый идентификатор предопределенного элемента
- Строка.ИзменениеСЗаменой = Истина;
- Свойства.СтандартнаяЗаменаСсылок = Истина;
- Свойства.Новые = Строка.ПараметрОбработчикаСобытияИзменение.Новые;
- ОбщегоНазначенияПереопределяемый.ПриИзмененииИдентификатораОбъектаМетаданных("Изменение", Свойства);
- Если Свойства.СтандартнаяЗаменаСсылок = Истина Тогда
- ЗаменитьСсылкуВИнформационнойБазе(ТаблицаОбъект.Ссылка, Выгрузка[0].Ссылка);
- КонецЕсли;
- КонецЕсли;
- Иначе
- ЕстьУдаленные = Истина;
- // Вызов обработчика события ПриИзмененииИдентификатораОбъектаМетаданных
- ОбщегоНазначенияПереопределяемый.ПриИзмененииИдентификатораОбъектаМетаданных("Удаление", Свойства);
- КонецЕсли;
+ // тогда идентификатор требуется пометить на удаление.
+ Если НЕ Свойства.ПометкаУдаления
+ ИЛИ ЗначениеЗаполнено(Свойства.Родитель)
+ ИЛИ Лев(Свойства.Наименование, 1) <> "?"
+ ИЛИ Лев(Свойства.Имя, 1) <> "?"
+ ИЛИ Лев(Свойства.Синоним, 1) <> "?"
+ ИЛИ Лев(Свойства.ПолноеИмя, 1) <> "?"
+ ИЛИ Лев(Свойства.ПолныйСиноним, 1) <> "?"
+ ИЛИ Свойства.ЗначениеПустойСсылки <> Неопределено
+ ИЛИ Свойства.КлючОбъектаМетаданных <> Неопределено Тогда
+
+ // Установка новых свойств идентификатора объекта метаданных.
+ Свойства.ПометкаУдаления = Истина;
+ Свойства.Родитель = ПустаяСсылка();
+ Свойства.Наименование = ВставитьЗнакВопроса(Свойства.Наименование);
+ Свойства.Имя = ВставитьЗнакВопроса(Свойства.Имя);
+ Свойства.Синоним = ВставитьЗнакВопроса(Свойства.Синоним);
+ Свойства.ПолноеИмя = ВставитьЗнакВопроса(Свойства.ПолноеИмя);
+ Свойства.ПолныйСиноним = ВставитьЗнакВопроса(Свойства.ПолныйСиноним);
+ Свойства.ЗначениеПустойСсылки = Неопределено;
+ Свойства.КлючОбъектаМетаданных = Неопределено;
+ Свойства.Обновлен = Истина;
+ ЕстьУдаленные = Истина;
КонецЕсли;
Иначе
- // Обновление свойств существующих объектов метаданных, если изменились
- Строка.Обработана = Истина;
- Если Выборка.Родитель <> Строка.Родитель
- ИЛИ Выборка.Наименование <> Строка.Наименование
- ИЛИ Выборка.ПорядокКоллекции <> Строка.ПорядокКоллекции
- ИЛИ Выборка.Имя <> Строка.Имя
- ИЛИ Выборка.Синоним <> Строка.Синоним
- ИЛИ Выборка.ПолноеИмя <> Строка.ПолноеИмя
- ИЛИ Выборка.ПолныйСиноним <> Строка.ПолныйСиноним
- ИЛИ Выборка.БезДанных <> Строка.БезДанных
- ИЛИ Выборка.ЗначениеПустойСсылки <> Строка.ЗначениеПустойСсылки
- ИЛИ Выборка.ПометкаУдаления
+ // Обновление свойств существующих объектов метаданных, если изменились.
+ СвойстваОбъекта.Найден = Истина;
+ Если Свойства.Наименование <> СвойстваОбъекта.Наименование
+ ИЛИ Свойства.ПорядокКоллекции <> СвойстваОбъекта.ПорядокКоллекции
+ ИЛИ Свойства.Имя <> СвойстваОбъекта.Имя
+ ИЛИ Свойства.Синоним <> СвойстваОбъекта.Синоним
+ ИЛИ Свойства.ПолноеИмя <> СвойстваОбъекта.ПолноеИмя
+ ИЛИ Свойства.ПолныйСиноним <> СвойстваОбъекта.ПолныйСиноним
+ ИЛИ Свойства.БезДанных <> СвойстваОбъекта.БезДанных
+ ИЛИ Свойства.ЗначениеПустойСсылки <> СвойстваОбъекта.ЗначениеПустойСсылки
+ ИЛИ Свойства.ПометкаУдаления
ИЛИ КлючОбъектаМетаданных = Неопределено
- ИЛИ НЕ Выборка.Используется Тогда
- // Сохранения старых свойств для обработчика события ПриИзмененииИдентификатораОбъектаМетаданных
- ТаблицаОбъект = Выборка.Ссылка.ПолучитьОбъект();
- Свойства = ПараметрыОбработчикаСобытия();
- ЗаполнитьЗначенияСвойств(Свойства.Старые, ТаблицаОбъект);
- // Установка новых свойств идентификатора объекта метаданных
- ЗаполнитьЗначенияСвойств(ТаблицаОбъект, Строка);
- Если КлючОбъектаМетаданных = Неопределено Тогда
- ТаблицаОбъект.КлючОбъектаМетаданных = Новый ХранилищеЗначения(КлючОбъектаМетаданных(Строка.ПолноеИмя));
+ ИЛИ СвойстваОбъекта.БезКлючаОбъектаМетаданных
+ И КлючОбъектаМетаданных <> Тип("Неопределено") Тогда
+
+ // Установка новых свойств идентификатора объекта метаданных.
+ ЗаполнитьЗначенияСвойств(Свойства, СвойстваОбъекта);
+
+ Если КлючОбъектаМетаданных = Неопределено
+ ИЛИ СвойстваОбъекта.БезКлючаОбъектаМетаданных
+ И КлючОбъектаМетаданных <> Тип("Неопределено") Тогда
+
+ Свойства.КлючОбъектаМетаданных = КлючОбъектаМетаданных(СвойстваОбъекта.ПолноеИмя);
КонецЕсли;
- ТаблицаОбъект.ПометкаУдаления = Ложь;
- ТаблицаОбъект.Используется = Истина;
- ТаблицаОбъект.ДополнительныеСвойства.Вставить("ВыполняетсяАвтоматическоеОбновлениеДанныхСправочника");
- ТаблицаОбъект.Записать();
- ЕстьИзменения = Истина;
- // Сохранения новых свойств для обработчика события ПриИзмененииИдентификатораОбъектаМетаданных
- ЗаполнитьЗначенияСвойств(Свойства.Новые, ТаблицаОбъект);
- Строка.Изменение = Истина;
- Строка.ПараметрОбработчикаСобытияИзменение = Свойства;
+
+ Свойства.ПометкаУдаления = Ложь;
+ Свойства.Обновлен = Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
- // Добавление идентификаторов новых объектов метаданных
- // Объекты метаданных без ключа объекта метаданных не добавляются,
- // такие объекты метаданных добавляются только вручную в виде предопределенных элементов,
- // например, подсистемы
- Для каждого Строка Из СвойстваОбъектовМетаданных.НайтиСтроки(Новый Структура("Обработана", Ложь)) Цикл
- ТаблицаОбъект = СоздатьЭлемент();
- Если ЗначениеЗаполнено(Строка.Идентификатор) Тогда
- ТаблицаОбъект.УстановитьСсылкуНового(Строка.Идентификатор);
+ // Добавление идентификаторов новых объектов метаданных.
+ Для каждого СвойстваОбъекта Из СвойстваОбъектовМетаданных.НайтиСтроки(Новый Структура("Найден", Ложь)) Цикл
+ Свойства = Выгрузка.Добавить();
+ ЗаполнитьЗначенияСвойств(Свойства, СвойстваОбъекта);
+ Свойства.ЭтоНовый = Истина;
+ Свойства.Ссылка = ПолучитьСсылку();
+ Свойства.Предопределенный = Ложь;
+ Свойства.КлючОбъектаМетаданных = КлючОбъектаМетаданных(Свойства.ПолноеИмя);
+ КонецЦикла;
+
+ // Обновление родителей идентификаторов объектов метаданных.
+ Для каждого Свойства Из Выгрузка Цикл
+
+ Если НЕ Свойства.Предопределенный Тогда
+ СвойстваОбъекта = СвойстваОбъектовМетаданных.Найти(Свойства.ПолноеИмя, "ПолноеИмя");
+ НовыйРодитель = ПустаяСсылка();
+
+ Если СвойстваОбъекта <> Неопределено Тогда
+
+ Если НЕ ЗначениеЗаполнено(СвойстваОбъекта.ПолноеИмяРодителя) Тогда
+ // Коллекция объектов метаданных.
+ НовыйРодитель = СвойстваОбъекта.Родитель;
+ Иначе
+ // Не коллекция объектов метаданных, например, подсистема.
+ ОписаниеРодителя = Выгрузка.Найти(СвойстваОбъекта.ПолноеИмяРодителя, "ПолноеИмя");
+ Если ОписаниеРодителя <> Неопределено Тогда
+ НовыйРодитель = ОписаниеРодителя.Ссылка;
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если Свойства.Родитель <> НовыйРодитель Тогда
+ Свойства.Родитель = НовыйРодитель;
+ Свойства.Обновлен = Истина;
+ КонецЕсли;
КонецЕсли;
- Если ЗначениеЗаполнено(Строка.ПолноеИмяРодителя) Тогда
- Строка.Родитель = СвойстваОбъектовМетаданных.Найти(Строка.ПолноеИмяРодителя, "ПолноеИмя").Идентификатор;
+
+ Если Свойства.ЭтоНовый Тогда
+ ТаблицаОбъект = СоздатьЭлемент();
+ ТаблицаОбъект.УстановитьСсылкуНового(Свойства.Ссылка);
+
+ ИначеЕсли Свойства.Обновлен Тогда
+ ТаблицаОбъект = Свойства.Ссылка.ПолучитьОбъект();
+ Иначе
+ Продолжить;
КонецЕсли;
- ЗаполнитьЗначенияСвойств(ТаблицаОбъект, Строка);
- ТаблицаОбъект.КлючОбъектаМетаданных = Новый ХранилищеЗначения(КлючОбъектаМетаданных(Строка.ПолноеИмя));
- ТаблицаОбъект.Используется = Истина;
+ ЗаполнитьЗначенияСвойств(ТаблицаОбъект, Свойства);
+ ТаблицаОбъект.КлючОбъектаМетаданных = Новый ХранилищеЗначения(Свойства.КлючОбъектаМетаданных);
ТаблицаОбъект.ДополнительныеСвойства.Вставить("ВыполняетсяАвтоматическоеОбновлениеДанныхСправочника");
ТаблицаОбъект.Записать();
ЕстьИзменения = Истина;
- // Вызов обработчика события ПриИзмененииИдентификатораОбъектаМетаданных
- Свойства = ПараметрыОбработчикаСобытия();
- ЗаполнитьЗначенияСвойств(Свойства.Новые, ТаблицаОбъект);
- ОбщегоНазначенияПереопределяемый.ПриИзмененииИдентификатораОбъектаМетаданных("Добавление", Свойства);
- КонецЦикла;
-
- // Вызов обработчика события ПриИзмененииИдентификатораОбъектаМетаданных для вида события "Изменение" без замены
- Для каждого Строка Из СвойстваОбъектовМетаданных.НайтиСтроки(Новый Структура("Изменение, ИзменениеСЗаменой", Истина, Ложь)) Цикл
- ТребуетсяВызовОбработчикаСобытия = Ложь;
- Свойства = Строка.ПараметрОбработчикаСобытияИзменение;
- Для каждого КлючИЗначение ИЗ Свойства.Новые Цикл
- Если Свойства.Новые[КлючИЗначение.Ключ] <> Свойства.Старые[КлючИЗначение.Ключ] Тогда
- ТребуетсяВызовОбработчикаСобытия = Истина;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- Если ТребуетсяВызовОбработчикаСобытия Тогда
- ОбщегоНазначенияПереопределяемый.ПриИзмененииИдентификатораОбъектаМетаданных("Изменение", Свойства);
- КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
@@ -386,7 +272,141 @@
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЙ ПРОГРАММНЫЙ ИНТЕРФЕЙС
-// Только для внутреннего использования
+// Только для внутреннего использования.
+Процедура ВыгрузитьДанныеСправочника(Знач КаталогВыгрузки) Экспорт
+
+ Запись = Новый ЗаписьXML;
+ Запись.ОткрытьФайл(КаталогВыгрузки + "MetadataObjectsIdentifiers.xml");
+ Запись.ЗаписатьОбъявлениеXML();
+
+ Запись.ЗаписатьНачалоЭлемента("Data");
+ Запись.ЗаписатьСоответствиеПространстваИмен("xs", "http://www.w3.org/2001/XMLSchema");
+ Запись.ЗаписатьСоответствиеПространстваИмен("xsi", "http://www.w3.org/2001/XMLSchema-instance");
+ Запись.ЗаписатьСоответствиеПространстваИмен("ns1", "http://v8.1c.ru/8.1/data/core");
+ Запись.ЗаписатьСоответствиеПространстваИмен("ns2", "http://v8.1c.ru/8.1/data/enterprise");
+ Запись.ЗаписатьСоответствиеПространстваИмен("v8", "http://v8.1c.ru/8.1/data/enterprise/current-config");
+
+ НачатьТранзакцию();
+ Попытка
+ Блокировка = Новый БлокировкаДанных;
+ ЭлементБлокировки = Блокировка.Добавить();
+ ЭлементБлокировки.Область = "Справочник.ИдентификаторыОбъектовМетаданных";
+ ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
+ Блокировка.Заблокировать();
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ИдентификаторыОбъектовМетаданных.Ссылка КАК Ссылка
+ |ИЗ
+ | Справочник.ИдентификаторыОбъектовМетаданных КАК ИдентификаторыОбъектовМетаданных";
+ Выборка = Запрос.Выполнить().Выбрать();
+
+ ЗафиксироватьТранзакцию();
+ Исключение
+ ОтменитьТранзакцию();
+ ВызватьИсключение;
+ КонецПопытки;
+
+ Пока Выборка.Следующий() Цикл
+ СериализаторXDTO.ЗаписатьXML(Запись, Выборка.Ссылка.ПолучитьОбъект(), НазначениеТипаXML.Явное);
+ КонецЦикла;
+
+ Запись.ЗаписатьКонецЭлемента();
+
+ Запись.Закрыть();
+
+КонецПроцедуры
+
+// Только для внутреннего использования.
+Процедура ДополнитьСловарьЗаменСсылокИдентификаторовТекущихИЗагружаемыхДанных(
+ Знач СловарьЗамен,
+ Знач КаталогВыгрузки) Экспорт
+
+ // Перед загрузкой в пустую базу требутся обновление справочника.
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ ПЕРВЫЕ 1
+ | ИСТИНА КАК ЗначениеИстина
+ |ИЗ
+ | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы
+ |ГДЕ
+ | НЕ Идентификаторы.Предопределенный";
+
+ Если Запрос.Выполнить().Пустой() Тогда
+ ОбновитьДанныеСправочника();
+ КонецЕсли;
+
+ СоответствиеСсылок = Новый Соответствие;
+
+ Чтение = Новый ЧтениеXML;
+ Чтение.ОткрытьФайл(КаталогВыгрузки + "MetadataObjectsIdentifiers.xml");
+ Чтение.ПерейтиКСодержимому();
+ Если Чтение.ТипУзла <> ТипУзлаXML.НачалоЭлемента
+ ИЛИ Чтение.Имя <> "Data" Тогда
+
+ ВызватьИсключение(НСтр("ru = 'Неверный формат файла MetadataObjectsIdentifiers.xml'"));
+
+ КонецЕсли;
+
+ Если НЕ Чтение.Прочитать() Тогда
+ ВызватьИсключение(НСтр("ru = 'Ошибка чтения XML. Обнаружено завершение файла.'"));
+ КонецЕсли;
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | Идентификаторы.Ссылка,
+ | Идентификаторы.ПолноеИмя,
+ | Идентификаторы.ПометкаУдаления
+ |ИЗ
+ | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы";
+
+ СвойстваИдентификаторов = Запрос.Выполнить().Выгрузить();
+ СвойстваИдентификаторов.Индексы.Добавить("Ссылка");
+ СвойстваИдентификаторов.Индексы.Добавить("ПолноеИмя");
+
+ Пока Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Цикл
+ Данные = СериализаторXDTO.ПрочитатьXML(Чтение);
+
+ СвойстваИдентификатора = СвойстваИдентификаторов.Найти(Данные.Ссылка, "Ссылка");
+ Если СвойстваИдентификатора = Неопределено
+ ИЛИ СвойстваИдентификатора.ПометкаУдаления Тогда
+
+ КлючОбъектаМетаданных = Данные.КлючОбъектаМетаданных.Получить();
+ ОбъектМетаданных = ОбъектМетаданныхПоКлючу(КлючОбъектаМетаданных);
+
+ Если ОбъектМетаданных = Неопределено Тогда
+ ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(Данные.ПолноеИмя);
+ КонецЕсли;
+
+ Если ОбъектМетаданных <> Неопределено Тогда
+ Идентификатор = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектМетаданных);
+
+ // Ключ - Существующая ссылка.
+ // Значение - Загружаемая ссылка.
+ СсылкаНового = Данные.ПолучитьСсылкуНового();
+ Если ЗначениеЗаполнено(СсылкаНового) Тогда
+ ЗагружаемыйИдентификатор = СсылкаНового.УникальныйИдентификатор();
+ Иначе
+ ЗагружаемыйИдентификатор = Данные.Ссылка.УникальныйИдентификатор();
+ КонецЕсли;
+
+ СоответствиеСсылок.Вставить(Идентификатор.УникальныйИдентификатор(), ЗагружаемыйИдентификатор);
+ КонецЕсли;
+ КонецЕсли;
+ КонецЦикла;
+
+ СтрокаФрагмента = СловарьЗамен.Добавить();
+ СтрокаФрагмента.Тип = Тип("СправочникСсылка.ИдентификаторыОбъектовМетаданных");
+ СтрокаФрагмента.СоответствиеСсылок = СоответствиеСсылок;
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+// Только для внутреннего использования.
Функция КлючОбъектаМетаданныхСоответствуетПолномуИмени(СвойстваИдентификатора) Экспорт
РезультатПроверки = Новый Структура;
@@ -425,183 +445,180 @@
КонецФункции
-// Только для внутреннего использования
-Процедура ВыгрузитьДанныеСправочника(Знач КаталогВыгрузки) Экспорт
-
- Запись = Новый ЗаписьXML;
- Запись.ОткрытьФайл(КаталогВыгрузки + "MetadataObjectsIdentifiers.xml");
- Запись.ЗаписатьОбъявлениеXML();
-
- Запись.ЗаписатьНачалоЭлемента("Data");
- Запись.ЗаписатьСоответствиеПространстваИмен("xs", "http://www.w3.org/2001/XMLSchema");
- Запись.ЗаписатьСоответствиеПространстваИмен("xsi", "http://www.w3.org/2001/XMLSchema-instance");
- Запись.ЗаписатьСоответствиеПространстваИмен("ns1", "http://v8.1c.ru/8.1/data/core");
- Запись.ЗаписатьСоответствиеПространстваИмен("ns2", "http://v8.1c.ru/8.1/data/enterprise");
- Запись.ЗаписатьСоответствиеПространстваИмен("v8", "http://v8.1c.ru/8.1/data/enterprise/current-config");
+// Только для внутреннего использования.
+Функция ПолноеИмяИспользуется(ПолноеИмя, КромеИдентификатора = Неопределено) Экспорт
Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | ИдентификаторыОбъектовМетаданных.Ссылка КАК Ссылка
- |ИЗ
- | Справочник.ИдентификаторыОбъектовМетаданных КАК ИдентификаторыОбъектовМетаданных";
- Выборка = Запрос.Выполнить().Выбрать();
-
- Пока Выборка.Следующий() Цикл
- СериализаторXDTO.ЗаписатьXML(Запись, Выборка.Ссылка.ПолучитьОбъект(), НазначениеТипаXML.Явное);
- КонецЦикла;
-
- Запись.ЗаписатьКонецЭлемента();
-
- Запись.Закрыть();
-
-КонецПроцедуры
-
-// Только для внутреннего использования
-Процедура ДополнитьСловарьЗаменСсылокИдентификаторовТекущихИЗагружаемыхДанных(Знач СловарьЗамен, Знач КаталогВыгрузки) Экспорт
-
- // Перед загрузкой в пустую базу требутся обновление справочника.
- Запрос = Новый Запрос;
+ Запрос.УстановитьПараметр("ПолноеИмя", ПолноеИмя);
+ Запрос.УстановитьПараметр("Ссылка", КромеИдентификатора);
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ИСТИНА КАК ЗначениеИстина
|ИЗ
- | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы
+ | Справочник.ИдентификаторыОбъектовМетаданных КАК ИдентификаторыОбъектовМетаданных
|ГДЕ
- | НЕ Идентификаторы.Предопределенный";
+ | ИдентификаторыОбъектовМетаданных.Ссылка <> &Ссылка
+ | И ИдентификаторыОбъектовМетаданных.ПолноеИмя = &ПолноеИмя";
- Если Запрос.Выполнить().Пустой() Тогда
- ОбновитьДанныеСправочника();
+ Возврат НЕ Запрос.Выполнить().Пустой();
+
+КонецФункции
+
+// Только для внутреннего использования.
+// ПолноеИмя в объекте должно быть уже установлено и корректно.
+//
+Процедура ОбновитьСвойстваИдентификатора(Объект) Экспорт
+
+ // Восстановление старых значений.
+ Если НЕ Объект.ЭтоНовый() Тогда
+ СтарыеЗначения = ОбщегоНазначения.ПолучитьЗначенияРеквизитов(
+ Объект.Ссылка,
+ "Наименование,
+ |ПорядокКоллекции,
+ |Имя,
+ |Синоним,
+ |ПолныйСиноним,
+ |БезДанных,
+ |ЗначениеПустойСсылки,
+ |КлючОбъектаМетаданных");
+ ЗаполнитьЗначенияСвойств(Объект, СтарыеЗначения);
КонецЕсли;
- СоответствиеСсылок = Новый Соответствие;
+ ПолноеИмя = Объект.ПолноеИмя;
+ ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(ПолноеИмя);
- Чтение = Новый ЧтениеXML;
- Чтение.ОткрытьФайл(КаталогВыгрузки + "MetadataObjectsIdentifiers.xml");
- Чтение.ПерейтиКСодержимому();
- Если Чтение.ТипУзла <> ТипУзлаXML.НачалоЭлемента
- ИЛИ Чтение.Имя <> "Data" Тогда
+ Если ОбъектМетаданных = Неопределено Тогда
+ Объект.ПометкаУдаления = Истина;
+ Объект.Родитель = ПустаяСсылка();
+ Объект.Наименование = ВставитьЗнакВопроса(Объект.Наименование);
+ Объект.Имя = ВставитьЗнакВопроса(Объект.Имя);
+ Объект.Синоним = ВставитьЗнакВопроса(Объект.Синоним);
+ Объект.ПолноеИмя = ВставитьЗнакВопроса(Объект.ПолноеИмя);
+ Объект.ПолныйСиноним = ВставитьЗнакВопроса(Объект.ПолныйСиноним);
+ Объект.ЗначениеПустойСсылки = Неопределено;
- ВызватьИсключение(НСтр("ru = 'Неверный формат файла MetadataObjectsIdentifiers.xml'"));
+ Если ТипЗнч(Объект) <> Тип("ДанныеФормыСтруктура") Тогда
+ Объект.КлючОбъектаМетаданных = Неопределено;
+ КонецЕсли;
+ Иначе
+ ПолноеИмя = ОбъектМетаданных.ПолноеИмя();
+ ПозицияТочки = Найти(ПолноеИмя, ".");
+ ИмяБазовогоТипа = Лев(ПолноеИмя, ПозицияТочки -1);
- КонецЕсли;
-
- Если НЕ Чтение.Прочитать() Тогда
- ВызватьИсключение(НСтр("ru = 'Ошибка чтения XML. Обнаружено завершение файла.'"));
- КонецЕсли;
-
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | Идентификаторы.Ссылка,
- | Идентификаторы.ПолноеИмя,
- | Идентификаторы.Используется
- |ИЗ
- | Справочник.ИдентификаторыОбъектовМетаданных КАК Идентификаторы";
-
- СвойстваИдентификаторов = Запрос.Выполнить().Выгрузить();
- СвойстваИдентификаторов.Индексы.Добавить("Ссылка");
- СвойстваИдентификаторов.Индексы.Добавить("ПолноеИмя");
-
- Пока Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Цикл
- Данные = СериализаторXDTO.ПрочитатьXML(Чтение);
+ СвойстваКоллекцийОбъектовМетаданных = СвойстваКоллекцийОбъектовМетаданных();
+ Отбор = Новый Структура("ИмяВЕдЧисле", ИмяБазовогоТипа);
+ Строки = СвойстваКоллекцийОбъектовМетаданных.НайтиСтроки(Отбор);
+ СвойстваКоллекцийОбъектовМетаданных = СвойстваКоллекцийОбъектовМетаданных.Скопировать(Строки);
- СвойстваИдентификатора = СвойстваИдентификаторов.Найти(Данные.Ссылка, "Ссылка");
- Если СвойстваИдентификатора = Неопределено
- ИЛИ НЕ СвойстваИдентификатора.Используется Тогда
-
- КлючОбъектаМетаданных = Данные.КлючОбъектаМетаданных.Получить();
- Если КлючОбъектаМетаданных <> Неопределено
- И КлючОбъектаМетаданных <> Тип("Неопределено")
- И ТипЗнч(КлючОбъектаМетаданных) = Тип("Тип") Тогда
+ СвойстваОбъектовМетаданных = СвойстваОбъектовМетаданных(СвойстваКоллекцийОбъектовМетаданных);
+ СвойстваОбъекта = СвойстваОбъектовМетаданных.Найти(ПолноеИмя, "ПолноеИмя");
+
+ ЗаполнитьЗначенияСвойств(Объект, СвойстваОбъекта);
+
+ Если ТипЗнч(Объект) <> Тип("ДанныеФормыСтруктура") Тогда
+ КлючОбъектаМетаданных = Объект.КлючОбъектаМетаданных.Получить();
+ Если КлючОбъектаМетаданных = Неопределено
+ ИЛИ СвойстваОбъекта.БезКлючаОбъектаМетаданных
+ И КлючОбъектаМетаданных <> Тип("Неопределено") Тогда
- ОбъектМетаданных = ОбъектМетаданныхПоКлючу(КлючОбъектаМетаданных);
- Иначе
- ОбъектМетаданных = Неопределено;
- КонецЕсли;
-
- Если ОбъектМетаданных = Неопределено Тогда
- ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(Данные.ПолноеИмя);
- КонецЕсли;
-
- Если ОбъектМетаданных <> Неопределено Тогда
- Идентификатор = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектМетаданных);
- Если Данные.Ссылка <> Идентификатор Тогда
- // Ключ - Существующая ссылка.
- // Значение - Загружаемая ссылка.
- СоответствиеСсылок.Вставить(Идентификатор, Данные.Ссылка);
- КонецЕсли;
+ Объект.КлючОбъектаМетаданных = Новый ХранилищеЗначения(КлючОбъектаМетаданных(СвойстваОбъекта.ПолноеИмя));
КонецЕсли;
КонецЕсли;
- КонецЦикла;
-
- СтрокаФрагмента = СловарьЗамен.Добавить();
- СтрокаФрагмента.Тип = Тип("СправочникСсылка.ИдентификаторыОбъектовМетаданных");
- СтрокаФрагмента.СоответствиеСсылок = СоответствиеСсылок;
+ КонецЕсли;
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+// Только для внутреннего использования.
+Функция ЗапрещеноИзменятьПолноеИмя(Объект) Экспорт
+
+ Если Объект.Предопределенный Тогда
+ Возврат Истина;
+ КонецЕсли;
+
+ ПозицияТочки = Найти(Объект.ПолноеИмя, ".");
+ ИмяБазовогоТипа = Лев(Объект.ПолноеИмя, ПозицияТочки -1);
+
+ СвойстваКоллекцийОбъектовМетаданных = СвойстваКоллекцийОбъектовМетаданных();
+ СвойстваКоллекции = СвойстваКоллекцийОбъектовМетаданных.Найти(ИмяБазовогоТипа, "ИмяВЕдЧисле");
+
+ Если СвойстваКоллекции <> Неопределено
+ И НЕ СвойстваКоллекции.БезКлючаОбъектаМетаданных Тогда
+
+ Возврат Истина;
+ КонецЕсли;
+
+ Возврат Ложь;
+
+КонецФункции
Процедура ПроверитьОбновитьСвойстваКоллекции(Знач ТекущиеСвойства, Знач НовыеСвойства, ЕстьИзменения)
- НаименованиеКоллекции = НовыеСвойства.Синоним + " (" + НСтр("ru = 'Коллекция'") + ")";
+ НаименованиеКоллекции = НовыеСвойства.Синоним;
- Если ТекущиеСвойства.Наименование <> НаименованиеКоллекции
- ИЛИ ТекущиеСвойства.ПорядокКоллекции <> НовыеСвойства.ПорядокКоллекции
- ИЛИ ТекущиеСвойства.Имя <> НовыеСвойства.Имя
- ИЛИ ТекущиеСвойства.Синоним <> НовыеСвойства.Синоним
- ИЛИ ТекущиеСвойства.ПолноеИмя <> НовыеСвойства.Имя
- ИЛИ ТекущиеСвойства.ПолныйСиноним <> НовыеСвойства.Синоним
- ИЛИ ТекущиеСвойства.БезДанных <> Ложь
- ИЛИ ТекущиеСвойства.ЗначениеПустойСсылки <> Неопределено
- ИЛИ ТекущиеСвойства.Используется <> Истина
- ИЛИ ТекущиеСвойства.КлючОбъектаМетаданных.Получить() <> Неопределено Тогда
+ Если ТекущиеСвойства.Наименование <> НаименованиеКоллекции
+ ИЛИ ТекущиеСвойства.ПорядокКоллекции <> НовыеСвойства.ПорядокКоллекции
+ ИЛИ ТекущиеСвойства.Имя <> НовыеСвойства.Имя
+ ИЛИ ТекущиеСвойства.Синоним <> НовыеСвойства.Синоним
+ ИЛИ ТекущиеСвойства.ПолноеИмя <> НовыеСвойства.Имя
+ ИЛИ ТекущиеСвойства.ПолныйСиноним <> НовыеСвойства.Синоним
+ ИЛИ ТекущиеСвойства.БезДанных <> Ложь
+ ИЛИ ТекущиеСвойства.ЗначениеПустойСсылки <> Неопределено
+ ИЛИ ТекущиеСвойства.КлючОбъектаМетаданных <> Неопределено Тогда
- // Установка новых свойств
- Объект = ТекущиеСвойства.Ссылка.ПолучитьОбъект();
- Объект.Наименование = НаименованиеКоллекции;
- Объект.ПорядокКоллекции = НовыеСвойства.ПорядокКоллекции;
- Объект.Имя = НовыеСвойства.Имя;
- Объект.Синоним = НовыеСвойства.Синоним;
- Объект.ПолноеИмя = НовыеСвойства.Имя;
- Объект.ПолныйСиноним = НовыеСвойства.Синоним;
- Объект.БезДанных = Ложь;
- Объект.ЗначениеПустойСсылки = Неопределено;
- Объект.КлючОбъектаМетаданных = Неопределено;
- Объект.Используется = Истина;
- Объект.ДополнительныеСвойства.Вставить("ВыполняетсяАвтоматическоеОбновлениеДанныхСправочника");
- Объект.Записать();
- ЕстьИзменения = Истина;
+ // Установка новых свойств.
+ ТекущиеСвойства.Наименование = НаименованиеКоллекции;
+ ТекущиеСвойства.ПорядокКоллекции = НовыеСвойства.ПорядокКоллекции;
+ ТекущиеСвойства.Имя = НовыеСвойства.Имя;
+ ТекущиеСвойства.Синоним = НовыеСвойства.Синоним;
+ ТекущиеСвойства.ПолноеИмя = НовыеСвойства.Имя;
+ ТекущиеСвойства.ПолныйСиноним = НовыеСвойства.Синоним;
+ ТекущиеСвойства.БезДанных = Ложь;
+ ТекущиеСвойства.ЗначениеПустойСсылки = Неопределено;
+ ТекущиеСвойства.КлючОбъектаМетаданных = Неопределено;
+ ТекущиеСвойства.Обновлен = Истина;
КонецЕсли;
КонецПроцедуры
-Функция НайтиОбъектМетаданныхПредопределенного(Знач Ссылка, ПолноеИмя)
+Функция ТаблицаПереименованияДляТекущейВерсии(СвойстваКоллекцийОбъектовМетаданных)
- ИмяПредопределенного = ПолучитьИмяПредопределенного(Ссылка);
+ ТаблицаПереименования = Новый ТаблицаЗначений;
+ ТаблицаПереименования.Колонки.Добавить("ПорядокБиблиотеки", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("ВерсияЧасть1", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("ВерсияЧасть2", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("ВерсияЧасть3", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("ВерсияЧасть4", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("ПорядокДобавления", Новый ОписаниеТипов("Число"));
+ ТаблицаПереименования.Колонки.Добавить("СтароеПолноеИмя", Новый ОписаниеТипов("Строка"));
+ ТаблицаПереименования.Колонки.Добавить("НовоеПолноеИмя", Новый ОписаниеТипов("Строка"));
- Если ВРег(Лев(ИмяПредопределенного, 11)) = ВРег("Подсистема_") Тогда
- Пока Истина Цикл
- ПозицияСледующегоИмени = Найти(ВРег(ИмяПредопределенного), ВРег("_Подсистема"));
- Если ПозицияСледующегоИмени > 0 Тогда
- ПолноеИмя = ПолноеИмя + ".Подсистема." + Сред(ИмяПредопределенного, 12, ПозицияСледующегоИмени - 12);
- ИмяПредопределенного = Сред(ИмяПредопределенного, ПозицияСледующегоИмени + 1);
- Иначе
- ПолноеИмя = ПолноеИмя + ".Подсистема." + Сред(ИмяПредопределенного, 12);
- Прервать;
- КонецЕсли;
- КонецЦикла;
- ПолноеИмя = Сред(ПолноеИмя, 2);
- Иначе
- ПозицияПодчеркивания = Найти(ИмяПредопределенного, "_");
- ПолноеИмя = Лев(ИмяПредопределенного, ПозицияПодчеркивания-1)
- + "."
- + Сред(ИмяПредопределенного, ПозицияПодчеркивания + 1);
- КонецЕсли;
+ КоллекцииБезКлюча = Новый Соответствие;
- Возврат Метаданные.НайтиПоПолномуИмени(ПолноеИмя);
+ Отбор = Новый Структура("БезКлючаОбъектаМетаданных", Истина);
+ КоллекцииБезКлючаОбъектаМетаданных = СвойстваКоллекцийОбъектовМетаданных.НайтиСтроки(Отбор);
+
+ Для каждого Строка Из КоллекцииБезКлючаОбъектаМетаданных Цикл
+ КоллекцииБезКлюча.Вставить(ВРег(Строка.ИмяВЕдЧисле), Строка.ИмяВЕдЧисле);
+ КонецЦикла;
+
+ Итог = Новый Структура;
+ Итог.Вставить("Таблица", ТаблицаПереименования);
+ Итог.Вставить("КоллекцииБезКлюча", КоллекцииБезКлюча);
+ Итог.Вставить("ВерсииБиблиотек", Новый Соответствие);
+ Итог.Вставить("ПорядокБиблиотек", Новый Соответствие);
+
+ СтандартныеПодсистемыПереопределяемый.ЗаполнитьТаблицуПереименованияОбъектовМетаданных(Итог);
+ ОбщегоНазначенияПереопределяемый.ЗаполнитьТаблицуПереименованияОбъектовМетаданных(Итог);
+
+ ТаблицаПереименования.Сортировать(
+ "ПорядокБиблиотеки ВОЗР,
+ |ВерсияЧасть1 ВОЗР,
+ |ВерсияЧасть2 ВОЗР,
+ |ВерсияЧасть3 ВОЗР,
+ |ВерсияЧасть4 ВОЗР,
+ |ПорядокДобавления ВОЗР");
+
+ Возврат ТаблицаПереименования;
КонецФункции
@@ -612,12 +629,7 @@
КлассОМ = Лев( ПолноеИмя, ПозицияТочки-1);
ИмяОМ = Сред(ПолноеИмя, ПозицияТочки+1);
- Если ВРег(КлассОМ) = ВРег("Роль") Тогда
- ПользовательИБ = ПользователиИнформационнойБазы.СоздатьПользователя();
- ПользовательИБ.Роли.Добавить(Метаданные.Роли[ИмяОМ]);
- Возврат ПользовательИБ.Роли;
-
- ИначеЕсли ВРег(КлассОМ) = ВРег("ПланОбмена") Тогда
+ Если ВРег(КлассОМ) = ВРег("ПланОбмена") Тогда
Возврат Тип(КлассОМ + "Ссылка." + ИмяОМ);
ИначеЕсли ВРег(КлассОМ) = ВРег("Справочник") Тогда
@@ -672,13 +684,7 @@
ОбъектМетаданных = Неопределено;
- Если ТипЗнч(КлючОбъектаМетаданных) = Тип("РолиПользователя") Тогда
- Для каждого Роль Из Метаданные.Роли Цикл
- Если КлючОбъектаМетаданных.Содержит(Роль) Тогда
- Возврат Роль;
- КонецЕсли;
- КонецЦикла;
- Иначе
+ Если ТипЗнч(КлючОбъектаМетаданных) = Тип("Тип") Тогда
ОбъектМетаданных = Метаданные.НайтиПоТипу(КлючОбъектаМетаданных);
КонецЕсли;
@@ -693,7 +699,6 @@
СвойстваОбъектовМетаданных.Колонки.Добавить("ПолноеИмя", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(510)));
СвойстваОбъектовМетаданных.Колонки.Добавить("ПолноеИмяРодителя", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(510)));
СвойстваОбъектовМетаданных.Колонки.Добавить("ПорядокКоллекции", Новый ОписаниеТипов("Число"));
- СвойстваОбъектовМетаданных.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("СправочникСсылка.ИдентификаторыОбъектовМетаданных"));
СвойстваОбъектовМетаданных.Колонки.Добавить("Родитель", Новый ОписаниеТипов("СправочникСсылка.ИдентификаторыОбъектовМетаданных"));
СвойстваОбъектовМетаданных.Колонки.Добавить("Имя", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150)));
СвойстваОбъектовМетаданных.Колонки.Добавить("Синоним", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(255)));
@@ -702,26 +707,21 @@
СвойстваОбъектовМетаданных.Колонки.Добавить("БезКлючаОбъектаМетаданных", Новый ОписаниеТипов("Булево"));
СвойстваОбъектовМетаданных.Колонки.Добавить("ЗначениеПустойСсылки");
- // Подготовка предустановленных идентификаторов
- ПредустановленныеИдентификаторы = Новый ТаблицаЗначений;
- ПредустановленныеИдентификаторы.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("СправочникСсылка.ИдентификаторыОбъектовМетаданных"));
- ПредустановленныеИдентификаторы.Колонки.Добавить("ПолноеИмя", Новый ОписаниеТипов("Строка"));
-
- ОбщегоНазначенияПереопределяемый.ЗаполнитьПредустановленныеИдентификаторыОбъектовМетаданных(ПредустановленныеИдентификаторы);
-
Для каждого СвойстваКоллекции Из СвойстваКоллекцийОбъектовМетаданных Цикл
- ДобавитьСвойстваОбъектовМетаданных(Метаданные[СвойстваКоллекции.Имя], СвойстваКоллекции, СвойстваОбъектовМетаданных, ПредустановленныеИдентификаторы);
+ ДобавитьСвойстваОбъектовМетаданных(Метаданные[СвойстваКоллекции.Имя], СвойстваКоллекции, СвойстваОбъектовМетаданных);
КонецЦикла;
- Если ПредустановленныеИдентификаторы.Количество() > 0 Тогда
- ВызватьИсключениеОшибкиЗаполненияПредустановленныхИдентификаторов(ПредустановленныеИдентификаторы, СвойстваКоллекцийОбъектовМетаданных);
- КонецЕсли;
+ СвойстваОбъектовМетаданных.Индексы.Добавить("ПолноеИмя");
Возврат СвойстваОбъектовМетаданных;
КонецФункции
-Процедура ДобавитьСвойстваОбъектовМетаданных(Знач КолекцияОбъектовМетаданных, Знач СвойстваКоллекции, Знач СвойстваОбъектовМетаданных, Знач ПредустановленныеИдентификаторы, Знач ПолноеИмяРодителя = "", Знач ПолныйСинонимРодителя = "")
+Процедура ДобавитьСвойстваОбъектовМетаданных(Знач КолекцияОбъектовМетаданных,
+ Знач СвойстваКоллекции,
+ Знач СвойстваОбъектовМетаданных,
+ Знач ПолноеИмяРодителя = "",
+ Знач ПолныйСинонимРодителя = "")
Для каждого ОбъектМетаданных Из КолекцияОбъектовМетаданных Цикл
@@ -735,37 +735,35 @@
ЗначениеПустойСсылки = Неопределено;
КонецЕсли;
- Если СвойстваКоллекции.БезКлючаОбъектаМетаданных Тогда
- ОписаниеИдентификатора = ПредустановленныеИдентификаторы.Найти(ПолноеИмя, "ПолноеИмя");
- Если ОписаниеИдентификатора = Неопределено Тогда
- Продолжить;
- КонецЕсли;
- Идентификатор = ОписаниеИдентификатора.Идентификатор;
- ПредустановленныеИдентификаторы.Удалить(ОписаниеИдентификатора);
- Иначе
- Идентификатор = ПустаяСсылка();
- КонецЕсли;
-
НоваяСтрока = СвойстваОбъектовМетаданных.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, СвойстваКоллекции);
- НоваяСтрока.Идентификатор = Идентификатор;
- НоваяСтрока.Родитель = СвойстваКоллекции.ИдентификаторКоллекции;
- НоваяСтрока.Наименование = ПредставлениеОбъектаМетаданных(ОбъектМетаданных, СвойстваКоллекции);
- НоваяСтрока.ПолноеИмя = ПолноеИмя;
- НоваяСтрока.ПолноеИмяРодителя = ПолноеИмяРодителя;
- НоваяСтрока.Имя = ОбъектМетаданных.Имя;
- НоваяСтрока.Синоним = ?(ЗначениеЗаполнено(ОбъектМетаданных.Синоним), ОбъектМетаданных.Синоним, ОбъектМетаданных.Имя);
- НоваяСтрока.ПолныйСиноним = ПолныйСинонимРодителя + СвойстваКоллекции.СинонимВЕдЧисле + ". " + НоваяСтрока.Синоним;
+ НоваяСтрока.Родитель = СвойстваКоллекции.ИдентификаторКоллекции;
+ НоваяСтрока.Наименование = ПредставлениеОбъектаМетаданных(ОбъектМетаданных, СвойстваКоллекции);
+ НоваяСтрока.ПолноеИмя = ПолноеИмя;
+ НоваяСтрока.ПолноеИмяРодителя = ПолноеИмяРодителя;
+ НоваяСтрока.Имя = ОбъектМетаданных.Имя;
+
+ НоваяСтрока.Синоним = ?(
+ ЗначениеЗаполнено(ОбъектМетаданных.Синоним), ОбъектМетаданных.Синоним, ОбъектМетаданных.Имя);
+
+ НоваяСтрока.ПолныйСиноним =
+ ПолныйСинонимРодителя + СвойстваКоллекции.СинонимВЕдЧисле + ". " + НоваяСтрока.Синоним;
+
НоваяСтрока.ЗначениеПустойСсылки = ЗначениеПустойСсылки;
Если СвойстваКоллекции.Имя = "Подсистемы" Тогда
- ДобавитьСвойстваОбъектовМетаданных(ОбъектМетаданных.Подсистемы, СвойстваКоллекции, СвойстваОбъектовМетаданных, ПредустановленныеИдентификаторы, ПолноеИмя, НоваяСтрока.ПолныйСиноним + ". ");
+ ДобавитьСвойстваОбъектовМетаданных(
+ ОбъектМетаданных.Подсистемы,
+ СвойстваКоллекции,
+ СвойстваОбъектовМетаданных,
+ ПолноеИмя,
+ НоваяСтрока.ПолныйСиноним + ". ");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
-Функция ПредставлениеОбъектаМетаданных(Знач ОбъектМетаданных, Знач СвойстваКоллекции);
+Функция ПредставлениеОбъектаМетаданных(Знач ОбъектМетаданных, Знач СвойстваКоллекции)
Постфикс = "(" + СвойстваКоллекции.СинонимВЕдЧисле + ")";
@@ -808,6 +806,7 @@
Строка.ИмяВЕдЧисле = "Роль";
Строка.СинонимВЕдЧисле = НСтр("ru = 'Роль'");
Строка.БезДанных = Истина;
+ Строка.БезКлючаОбъектаМетаданных = Истина;
// ПланыОбмена
Строка = СвойстваКоллекцийОбъектовМетаданных.Добавить();
@@ -917,18 +916,19 @@
Строка.ИмяВЕдЧисле = "Задача";
Строка.СинонимВЕдЧисле = НСтр("ru = 'Задача'");
- // Заполнение дополнительных свойств
+ // Заполнение дополнительных свойств.
СправочникМенеджер = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени("Справочник.ИдентификаторыОбъектовМетаданных");
+
Для каждого Строка Из СвойстваКоллекцийОбъектовМетаданных Цикл
Попытка
Строка.ИдентификаторКоллекции = СправочникМенеджер[Строка.Имя];
Исключение
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Не найден идентификатор коллекции
- |объектов метаданных ""%1"".
+ НСтр("ru = 'Не найден идентификатор типа объектов метаданных
+ |""%1"".
|
|Следует добавить предопределенный элемент в
- |Справочник.ИдентификаторыОбъектовМетаданных.'"),
+ |Справочник ""Идентификаторы объектов метаданных"".'"),
Строка.Имя);
КонецПопытки;
Строка.ПорядокКоллекции = СвойстваКоллекцийОбъектовМетаданных.Индекс(Строка);
@@ -940,523 +940,18 @@
КонецФункции
-Функция ПараметрыОбработчикаСобытия()
+Функция ВставитьЗнакВопроса(Знач Строка)
- Свойства = Новый Структура;
- Свойства.Вставить("Старые", СвойстваИдентификатораОбъектаМетаданных());
- Свойства.Вставить("Новые", СвойстваИдентификатораОбъектаМетаданных());
- Свойства.Вставить("СтандартнаяЗаменаСсылок", Ложь);
+ Если Лев(Строка, 1) <> "?" Тогда
+ Если Лев(Строка, 1) <> " " Тогда
+ Строка = "? " + Строка;
+ Иначе
+ Строка = "?" + Строка;
+ КонецЕсли;
+ КонецЕсли;
- Возврат Свойства;
+ Возврат Строка;
КонецФункции
-Функция СвойстваИдентификатораОбъектаМетаданных()
-
- Свойства = Новый Структура;
- Свойства.Вставить("Ссылка", ПустаяСсылка());
- Свойства.Вставить("Родитель", ПустаяСсылка());
- Свойства.Вставить("Имя", "");
- Свойства.Вставить("Синоним", "");
- Свойства.Вставить("ПолноеИмя", "");
- Свойства.Вставить("ПолныйСиноним", "");
- Свойства.Вставить("БезДанных", Ложь);
-
- Возврат Свойства;
-
-КонецФункции
-
-Процедура ВызватьИсключениеОшибкиЗаполненияПредустановленныхИдентификаторов(Знач ПредустановленныеИдентификаторы, Знач СвойстваКоллекцийОбъектовМетаданных)
-
- ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(ПредустановленныеИдентификаторы[0].ПолноеИмя);
-
- Если ОбъектМетаданных = Неопределено Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Ошибка в процедуре ОбщегоНазначенияПереопределяемый.Заполнить-
- |ПредустановленныеИдентификаторыОбъектовМетаданных()
- |
- |Идентификатор ""%1"" задан
- |для несуществующего объекта метаданных
- |""%2"".'"),
- ПредустановленныеИдентификаторы[0].Идентификатор.УникальныйИдентификатор(),
- ПредустановленныеИдентификаторы[0].ПолноеИмя);
- Иначе
- ИмяКоллецииВЕдЧисле = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПредустановленныеИдентификаторы[0].ПолноеИмя, ".")[0];
- ОписаниеКоллекции = СвойстваКоллекцийОбъектовМетаданных.Найти(ИмяКоллецииВЕдЧисле, "ИмяВЕдЧисле");
-
- Если ОписаниеКоллекции = Неопределено Тогда
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Ошибка в процедуре ОбщегоНазначенияПереопределяемый.Заполнить-
- |ПредустановленныеИдентификаторыОбъектовМетаданных()
- |
- |Для объекта метаданных
- |""%1""
- |задан идентификатор ""%2"",
- |но для объектов метаданных типа ""%3""
- |идентификаторы не поддерживаются.'"),
- ПредустановленныеИдентификаторы[0].ПолноеИмя,
- ПредустановленныеИдентификаторы[0].Идентификатор.УникальныйИдентификатор(),
- ИмяКоллецииВЕдЧисле);
- КонецЕсли;
-
- ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Ошибка в процедуре ОбщегоНазначенияПереопределяемый.Заполнить-
- |ПредустановленныеИдентификаторыОбъектовМетаданных()
- |
- |Для объекта метаданных
- |""%1""
- |задан идентификатор ""%2"",
- |но для его использования требуется, чтобы были заданы
- |идентификаторы для всех вышестоящих объектов метаданных.'"),
- ПредустановленныеИдентификаторы[0].ПолноеИмя,
- ПредустановленныеИдентификаторы[0].Идентификатор.УникальныйИдентификатор() );
- КонецЕсли;
-
-КонецПроцедуры
-
-////////////////////////////////////////////////////////////////////////////////
-// Процедуры и функции замены идентификатора в базе данных
-
-Процедура ЗаменитьСсылкуВИнформационнойБазе(СтараяСсылка, НоваяСсылка)
-
- МассивСсылок = Новый Массив;
- МассивСсылок.Добавить(СтараяСсылка);
-
- НайденныеДанные = НайтиПоСсылкам(МассивСсылок);
-
- НайденныеДанные.Колонки[0].Имя = "Ссылка";
- НайденныеДанные.Колонки[1].Имя = "Данные";
- НайденныеДанные.Колонки[2].Имя = "Метаданные";
- НайденныеДанные.Колонки.Добавить("Включено");
- НайденныеДанные.ЗаполнитьЗначения(Истина, "Включено");
-
- Заменяемые = Новый Соответствие;
- Заменяемые.Вставить(СтараяСсылка, НоваяСсылка);
-
- ВыполнитьЗаменуЭлементов(Заменяемые, НайденныеДанные, Истина);
-
-КонецПроцедуры
-
-// Функция из универсальной обработки ПоискИЗаменаЗначений
-// Изменения:
-// - удалена работа с формой прогрессора
-// - удалена процедура ОбработкаПрерыванияПользователя()
-// - заменено РегистрыСведений[СтрокаТаблицы.Метаданные.Имя] на
-// ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(СтрокаТаблицы.Метаданные.ПолноеИмя())
-//
-Функция ВыполнитьЗаменуЭлементов(Знач Заменяемые, Знач ТаблицаСсылок, Знач ОтключатьКонтрольЗаписи = Ложь, Знач ВыполнятьВТранзакции = Ложь)
-
- Параметры = Новый Структура;
-
- Для Каждого РегистрБухгалтерии ИЗ Метаданные.РегистрыБухгалтерии Цикл
- Параметры.Вставить(РегистрБухгалтерии.Имя + "Субконто", РегистрБухгалтерии.ПланСчетов.МаксКоличествоСубконто);
- Параметры.Вставить(РегистрБухгалтерии.Имя + "Корреспонденция", РегистрБухгалтерии.Корреспонденция);
- КонецЦикла;
-
- Параметры.Вставить("Объект", Неопределено);
-
- ОбрабатываемаяСсылка = Неопределено;
- БылиИсключения = Ложь;
-
- Если ВыполнятьВТранзакции Тогда
- НачатьТранзакцию();
- КонецЕсли;
-
- Попытка
- Для Каждого СтрокаТаблицы Из ТаблицаСсылок Цикл
- Если Не СтрокаТаблицы.Включено Тогда
- Продолжить;
- КонецЕсли;
- ПравильныйЭлемент = Заменяемые[СтрокаТаблицы.Ссылка];
-
- Ссылка = СтрокаТаблицы.Ссылка;
-
- Если ОбрабатываемаяСсылка <> СтрокаТаблицы.Данные Тогда
- Если ОбрабатываемаяСсылка <> Неопределено и Параметры.Объект <> Неопределено Тогда
-
- Если ОтключатьКонтрольЗаписи Тогда
- Параметры.Объект.ОбменДанными.Загрузка = Истина;
- КонецЕсли;
-
- Попытка
- Параметры.Объект.Записать();
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ВызватьИсключение;
- КонецЕсли;
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
- Параметры.Объект = Неопределено;
- КонецЕсли;
- ОбрабатываемаяСсылка = СтрокаТаблицы.Данные;
- КонецЕсли;
-
- Если Метаданные.Документы.Содержит(СтрокаТаблицы.Метаданные) Тогда
-
- Если Параметры.Объект = Неопределено Тогда
- Параметры.Объект = СтрокаТаблицы.Данные.ПолучитьОбъект();
- КонецЕсли;
-
- Для Каждого Реквизит Из СтрокаТаблицы.Метаданные.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) И Параметры.Объект[Реквизит.Имя] = Ссылка Тогда
- Параметры.Объект[Реквизит.Имя] = ПравильныйЭлемент;
- КонецЕсли;
- КонецЦикла;
-
- Для Каждого ТабличнаяЧасть ИЗ СтрокаТаблицы.Метаданные.ТабличныеЧасти Цикл
- Для Каждого Реквизит Из ТабличнаяЧасть.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
- СтрокаТабличнойЧасти = Параметры.Объект[ТабличнаяЧасть.Имя].Найти(Ссылка, Реквизит.Имя);
- Пока СтрокаТабличнойЧасти <> Неопределено Цикл
- СтрокаТабличнойЧасти[Реквизит.Имя] = ПравильныйЭлемент;
- СтрокаТабличнойЧасти = Параметры.Объект[ТабличнаяЧасть.Имя].Найти(Ссылка, Реквизит.Имя);
- КонецЦикла;
- КонецЕсли;
- КонецЦикла;
- КонецЦикла;
-
- Для Каждого Движение ИЗ СтрокаТаблицы.Метаданные.Движения Цикл
-
- ЭтоДвижениеРегистраБухгалтерии = Метаданные.РегистрыБухгалтерии.Содержит(Движение);
- ЕстьКорреспонденция = ЭтоДвижениеРегистраБухгалтерии и Параметры[Движение.Имя + "Корреспонденция"];
-
- НаборЗаписей = Параметры.Объект.Движения[Движение.Имя];
- НаборЗаписей.Прочитать();
- НадоЗаписывать = Ложь;
- ТаблицаНабора = НаборЗаписей.Выгрузить();
-
- Если ТаблицаНабора.Количество() = 0 Тогда
- Продолжить;
- КонецЕсли;
-
- ИменаКолонок = Новый Массив;
-
- // Получим имена измерений, которые могут содержать ссылку
- Для Каждого Измерение ИЗ Движение.Измерения Цикл
-
- Если Измерение.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
-
- Если ЭтоДвижениеРегистраБухгалтерии Тогда
-
- Если Измерение.ПризнакУчета <> Неопределено Тогда
-
- ИменаКолонок.Добавить(Измерение.Имя + "Дт");
- ИменаКолонок.Добавить(Измерение.Имя + "Кт");
- Иначе
- ИменаКолонок.Добавить(Измерение.Имя);
- КонецЕсли;
- Иначе
- ИменаКолонок.Добавить(Измерение.Имя);
- КонецЕсли;
- КонецЕсли;
- КонецЦикла;
-
- // Получим имена ресурсов, которые могут содержать ссылку
- Если Метаданные.РегистрыСведений.Содержит(Движение) Тогда
- Для Каждого Ресурс ИЗ Движение.Ресурсы Цикл
- Если Ресурс.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
- ИменаКолонок.Добавить(Ресурс.Имя);
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- // Получим имена ресурсов, которые могут содержать ссылку
- Для Каждого Реквизит ИЗ Движение.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
- ИменаКолонок.Добавить(Реквизит.Имя);
- КонецЕсли;
- КонецЦикла;
-
- // Произведем замены в таблице
- Для Каждого ИмяКолонки Из ИменаКолонок Цикл
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, ИмяКолонки);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти[ИмяКолонки] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, ИмяКолонки);
- КонецЦикла;
- КонецЦикла;
-
- Если Метаданные.РегистрыБухгалтерии.Содержит(Движение) Тогда
-
- Для ИндексСубконто = 1 по Параметры[Движение.Имя + "Субконто"] Цикл
- Если ЕстьКорреспонденция Тогда
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "СубконтоДт"+ИндексСубконто);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти["СубконтоДт"+ИндексСубконто] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "СубконтоДт"+ИндексСубконто);
- КонецЦикла;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "СубконтоКт"+ИндексСубконто);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти["СубконтоКт"+ИндексСубконто] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "СубконтоКт"+ИндексСубконто);
- КонецЦикла;
- Иначе
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "Субконто"+ИндексСубконто);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти["Субконто"+ИндексСубконто] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "Субконто"+ИндексСубконто);
- КонецЦикла;
- КонецЕсли;
- КонецЦикла;
-
- Если Ссылка.Метаданные() = Движение.ПланСчетов Тогда
- Для Каждого СтрокаТабЧасти Из ТаблицаНабора Цикл
- Если ЕстьКорреспонденция Тогда
- Если СтрокаТабЧасти.СчетДт = Ссылка Тогда
- СтрокаТабЧасти.СчетДт = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- КонецЕсли;
- Если СтрокаТабЧасти.СчетКт = Ссылка Тогда
- СтрокаТабЧасти.СчетКт = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- КонецЕсли;
- Иначе
- Если СтрокаТабЧасти.Счет = Ссылка Тогда
- СтрокаТабЧасти.Счет = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- КонецЕсли;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
- КонецЕсли;
-
- Если Метаданные.РегистрыРасчета.Содержит(Движение) Тогда
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "ВидРасчета");
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти["ВидРасчета"] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- СтрокаТабЧасти = ТаблицаНабора.Найти(Ссылка, "ВидРасчета");
- КонецЦикла;
- КонецЕсли;
-
- Если НадоЗаписывать Тогда
- НаборЗаписей.Загрузить(ТаблицаНабора);
- Если ОтключатьКонтрольЗаписи Тогда
- НаборЗаписей.ОбменДанными.Загрузка = Истина;
- КонецЕсли;
- Попытка
- НаборЗаписей.Записать();
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ВызватьИсключение;
- КонецЕсли;
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
- КонецЕсли;
- КонецЦикла;
-
- Для Каждого Последовательность ИЗ Метаданные.Последовательности Цикл
- Если Последовательность.Документы.Содержит(СтрокаТаблицы.Метаданные) Тогда
- НадоЗаписывать = Ложь;
- НаборЗаписи = Последовательности[Последовательность.Имя].СоздатьНаборЗаписей();
- НаборЗаписи.Отбор.Регистратор.Установить(СтрокаТаблицы.Данные);
- НаборЗаписи.Прочитать();
-
- Если НаборЗаписи.Количество() > 0 Тогда
- Для Каждого Измерение ИЗ Последовательность.Измерения Цикл
- Если Измерение.Тип.СодержитТип(ТипЗнч(Ссылка)) И НаборЗаписи[0][Измерение.Имя]=Ссылка Тогда
- НаборЗаписи[0][Измерение.Имя] = ПравильныйЭлемент;
- НадоЗаписывать = Истина;
- КонецЕсли;
- КонецЦикла;
- Если НадоЗаписывать Тогда
- Если ОтключатьКонтрольЗаписи Тогда
- НаборЗаписи.ОбменДанными.Загрузка = Истина;
- КонецЕсли;
- Попытка
- НаборЗаписи.Записать();
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ВызватьИсключение;
- КонецЕсли;
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
- КонецЕсли;
- КонецЕсли;
- КонецЕсли;
- КонецЦикла;
-
- ИначеЕсли Метаданные.Справочники.Содержит(СтрокаТаблицы.Метаданные) Тогда
-
- Если Параметры.Объект = Неопределено Тогда
- Параметры.Объект = СтрокаТаблицы.Данные.ПолучитьОбъект();
- КонецЕсли;
-
- Если СтрокаТаблицы.Метаданные.Владельцы.Содержит(Ссылка.Метаданные()) И Параметры.Объект.Владелец = Ссылка Тогда
- Параметры.Объект.Владелец = ПравильныйЭлемент;
- КонецЕсли;
-
- Если СтрокаТаблицы.Метаданные.Иерархический И Параметры.Объект.Родитель = Ссылка Тогда
- Параметры.Объект.Родитель = ПравильныйЭлемент;
- КонецЕсли;
-
- Для Каждого Реквизит Из СтрокаТаблицы.Метаданные.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) И Параметры.Объект[Реквизит.Имя] = Ссылка Тогда
- Параметры.Объект[Реквизит.Имя] = ПравильныйЭлемент;
- КонецЕсли;
- КонецЦикла;
-
- Для Каждого ТЧ ИЗ СтрокаТаблицы.Метаданные.ТабличныеЧасти Цикл
- Для Каждого Реквизит Из ТЧ.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
- СтрокаТабЧасти = Параметры.Объект[ТЧ.Имя].Найти(Ссылка, Реквизит.Имя);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти[Реквизит.Имя] = ПравильныйЭлемент;
- СтрокаТабЧасти = Параметры.Объект[ТЧ.Имя].Найти(Ссылка, Реквизит.Имя);
- КонецЦикла;
- КонецЕсли;
- КонецЦикла;
- КонецЦикла;
-
- ИначеЕсли Метаданные.ПланыВидовХарактеристик.Содержит(СтрокаТаблицы.Метаданные)
- ИЛИ Метаданные.ПланыСчетов.Содержит (СтрокаТаблицы.Метаданные)
- ИЛИ Метаданные.ПланыВидовРасчета.Содержит (СтрокаТаблицы.Метаданные)
- ИЛИ Метаданные.Задачи.Содержит (СтрокаТаблицы.Метаданные)
- ИЛИ Метаданные.БизнесПроцессы.Содержит (СтрокаТаблицы.Метаданные) Тогда
-
- Если Параметры.Объект = Неопределено Тогда
- Параметры.Объект = СтрокаТаблицы.Данные.ПолучитьОбъект();
- КонецЕсли;
-
- Для Каждого Реквизит Из СтрокаТаблицы.Метаданные.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) И Параметры.Объект[Реквизит.Имя] = Ссылка Тогда
- Параметры.Объект[Реквизит.Имя] = ПравильныйЭлемент;
- КонецЕсли;
- КонецЦикла;
-
- Для Каждого ТЧ ИЗ СтрокаТаблицы.Метаданные.ТабличныеЧасти Цикл
- Для Каждого Реквизит Из ТЧ.Реквизиты Цикл
- Если Реквизит.Тип.СодержитТип(ТипЗнч(Ссылка)) Тогда
- СтрокаТабЧасти = Параметры.Объект[ТЧ.Имя].Найти(Ссылка, Реквизит.Имя);
- Пока СтрокаТабЧасти <> Неопределено Цикл
- СтрокаТабЧасти[Реквизит.Имя] = ПравильныйЭлемент;
- СтрокаТабЧасти = Параметры.Объект[ТЧ.Имя].Найти(Ссылка, Реквизит.Имя);
- КонецЦикла;
- КонецЕсли;
- КонецЦикла;
- КонецЦикла;
-
- ИначеЕсли Метаданные.Константы.Содержит(СтрокаТаблицы.Метаданные) Тогда
-
- Константы[СтрокаТаблицы.Метаданные.Имя].Установить(ПравильныйЭлемент);
-
- ИначеЕсли Метаданные.РегистрыСведений.Содержит(СтрокаТаблицы.Метаданные) Тогда
-
- СтруктураИзмерений = Новый Структура;
- НаборЗаписей = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(СтрокаТаблицы.Метаданные.ПолноеИмя()).СоздатьНаборЗаписей();
- Для Каждого Измерение ИЗ СтрокаТаблицы.Метаданные.Измерения Цикл
- НаборЗаписей.Отбор[Измерение.Имя].Установить(СтрокаТаблицы.Данные[Измерение.Имя]);
- СтруктураИзмерений.Вставить(Измерение.Имя);
- КонецЦикла;
- Если СтрокаТаблицы.Метаданные.ПериодичностьРегистраСведений <> Метаданные.СвойстваОбъектов.ПериодичностьРегистраСведений.Непериодический Тогда
- НаборЗаписей.Отбор["Период"].Установить(СтрокаТаблицы.Данные.Период);
- КонецЕсли;
- НаборЗаписей.Прочитать();
-
- Если НаборЗаписей.Количество() = 0 Тогда
- Продолжить;
- КонецЕсли;
-
- ТаблицаНабора = НаборЗаписей.Выгрузить();
- НаборЗаписей.Очистить();
-
- Если ОтключатьКонтрольЗаписи Тогда
- НаборЗаписей.ОбменДанными.Загрузка = Истина;
- КонецЕсли;
-
-
- Если Не ВыполнятьВТранзакции Тогда
- НачатьТранзакцию();
- КонецЕсли;
-
- Попытка
- НаборЗаписей.Записать();
-
- Для Каждого Колонка ИЗ ТаблицаНабора.Колонки Цикл
- Если ТаблицаНабора[0][Колонка.Имя] = Ссылка Тогда
- ТаблицаНабора[0][Колонка.Имя] = ПравильныйЭлемент;
- Если СтруктураИзмерений.Свойство(Колонка.Имя) Тогда
- НаборЗаписей.Отбор[Колонка.Имя].Установить(ПравильныйЭлемент);
- КонецЕсли;
-
- КонецЕсли;
- КонецЦикла;
-
- НаборЗаписей.Загрузить(ТаблицаНабора);
-
- НаборЗаписей.Записать();
-
- Если Не ВыполнятьВТранзакции Тогда
- ЗафиксироватьТранзакцию();
- КонецЕсли;
-
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ВызватьИсключение;
- КонецЕсли;
- ОтменитьТранзакцию();
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
- Иначе
- СообщитьОбОшибке(НСтр("ru = 'Значения не заменяются в данных типа'") + ": " + СтрокаТаблицы.Метаданные);
- КонецЕсли;
- КонецЦикла;
-
- Если Параметры.Объект <> Неопределено Тогда
- Если ОтключатьКонтрольЗаписи Тогда
- Параметры.Объект.ОбменДанными.Загрузка = Истина;
- КонецЕсли;
- Попытка
- Параметры.Объект.Записать();
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ВызватьИсключение;
- КонецЕсли;
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
- КонецЕсли;
-
- Если ВыполнятьВТранзакции Тогда
- ЗафиксироватьТранзакцию();
- КонецЕсли;
- Исключение
- БылиИсключения = Истина;
- Если ВыполнятьВТранзакции Тогда
- ОтменитьТранзакцию();
- КонецЕсли;
- СообщитьОбОшибке(ИнформацияОбОшибке());
- КонецПопытки;
-
- Возврат Не БылиИсключения;
-
-КонецФункции
-
-// Процедура из универсальной обработки ПоискИЗаменаЗначений
-// Изменения:
-// - заменен метод Сообщить(...) на ЗаписьЖурналаРегистрации(...)
-//
-Процедура СообщитьОбОшибке(Знач Описание)
-
- Если ТипЗнч(Описание) = Тип("ИнформацияОбОшибке") Тогда
- Описание = ?(Описание.Причина = Неопределено, Описание, Описание.Причина).Описание;
- КонецЕсли;
-
- ЗаписьЖурналаРегистрации(
- НСтр("ru = 'Идентификаторы объектов метаданных. Замена идентификатора'"),
- УровеньЖурналаРегистрации.Ошибка,
- ,
- ,
- Описание,
- РежимТранзакцииЗаписиЖурналаРегистрации.Независимая);
-
-КонецПроцедуры
-
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl
index 2a0150764..7f873e7d4 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl
@@ -1,12 +1,7 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
-// Обработчик события ПередЗаписью предотвращает изменение идентификаторов
-// объектов метаданных для которых допустимо только предусмотренное
-// обновление на основе метаданных конфигурации с помощью
-// процедуры:
-//
-// Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьДанныеСправочника()
-//
+// Предотвращает недопустимое изменение идентификаторов объектов метаданных.
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
@@ -15,35 +10,50 @@
Если НЕ ДополнительныеСвойства.Свойство("ВыполняетсяАвтоматическоеОбновлениеДанныхСправочника") Тогда
- ВызватьИсключение(НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
- |
- |Изменение идентификаторов объектов метаданных выполняется
- |- либо автоматически с помощью процедуры
- | Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьДанныеСправочника(),
- |- либо вручную через конфигуратор (добавление/удаление предопределенных элементов).
- |
- |Допустимо удаление неиспользуемых элементов, помеченных на удаление.'"));
+ Если ЭтоНовый() Тогда
+
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
+ |
+ |Создание нового идентификатора объекта метаданных
+ |возможно только автоматически при обновлении данных справочника.'"),
+ ПолноеИмя);
+
+ ИначеЕсли Справочники.ИдентификаторыОбъектовМетаданных.ЗапрещеноИзменятьПолноеИмя(ЭтотОбъект) Тогда
+
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
+ |
+ |При изменении идентификатора объекта метаданных указано
+ |полное имя ""%1"", которое может быть
+ |установлено только автоматически при обновлении данных справочника.'"),
+ ПолноеИмя);
+
+ ИначеЕсли Справочники.ИдентификаторыОбъектовМетаданных.ПолноеИмяИспользуется(ПолноеИмя, Ссылка) Тогда
+
+ ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
+ |
+ |При изменении идентификатора объекта метаданных указано
+ |полное имя ""%1"",
+ |которое уже используется в справочнике.'"),
+ ПолноеИмя);
+
+ КонецЕсли;
+
+ Справочники.ИдентификаторыОбъектовМетаданных.ОбновитьСвойстваИдентификатора(ЭтотОбъект);
КонецЕсли;
КонецПроцедуры
-
-// Обработчик события ПередУдалением предотвращает удаление идентификаторов
-// объектов метаданных, у которых значение реквизита "Используются" установлено Истина
-// или значение реквизита "ПометкаУдаления" установлено Ложь.
-//
+// Предотвращает удаление идентификаторов объектов метаданных не помеченных на удаление.
Процедура ПередУдалением(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
- Если Используется Тогда
- ВызватьИсключение(НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
- |
- |Удаление идентификаторов объектов метаданных, у которых значение
- |реквизита ""Используется"" установлено Истина недопустимо.'"));
- ИначеЕсли НЕ ПометкаУдаления Тогда
+ Если НЕ ПометкаУдаления Тогда
ВызватьИсключение(НСтр("ru = 'Ошибка при работе со справочником ""Идентификаторы объектов метаданных"".
|
|Удаление идентификаторов объектов метаданных, у которых значение
@@ -52,3 +62,5 @@
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ИдентификаторыОбъектовМетаданных.mdo b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ИдентификаторыОбъектовМетаданных.mdo
index b8824e0b7..c2b200cd6 100644
--- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ИдентификаторыОбъектовМетаданных.mdo
+++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ИдентификаторыОбъектовМетаданных.mdo
@@ -125,98 +125,8 @@
VariableAsDescription
-
- Задачи
-
-
-
-
-
- БизнесПроцессы
-
-
-
-
-
- РегистрыРасчета
-
-
-
-
-
- РегистрыБухгалтерии
-
-
-
-
-
- ПланыВидовРасчета
-
-
-
-
-
- ПланыСчетов
-
-
-
-
-
- ПланыВидовХарактеристик
-
-
-
-
-
- Обработки
-
-
-
-
-
- Отчеты
-
-
-
-
-
- Справочники
-
-
-
-
-
- Роли
-
-
-
-
- Роль_ПолныеПрава
-
-
-
-
-
-
- РегистрыСведений
-
-
-
-
-
- РегистрыНакопления
-
-
-
-
-
- Подсистемы
-
-
-
-
-
- ПланыОбмена
+
+ Документы
@@ -227,8 +137,92 @@
-
- Документы
+
+ ПланыОбмена
+
+
+
+
+
+ Подсистемы
+
+
+
+
+
+ РегистрыНакопления
+
+
+
+
+
+ РегистрыСведений
+
+
+
+
+
+ Роли
+
+
+
+
+
+ Справочники
+
+
+
+
+
+ Отчеты
+
+
+
+
+
+ Обработки
+
+
+
+
+
+ ПланыВидовХарактеристик
+
+
+
+
+
+ ПланыСчетов
+
+
+
+
+
+ ПланыВидовРасчета
+
+
+
+
+
+ РегистрыБухгалтерии
+
+
+
+
+
+ РегистрыРасчета
+
+
+
+
+
+ БизнесПроцессы
+
+
+
+
+
+ Задачи
@@ -238,7 +232,7 @@
BothWaysCatalog.ИдентификаторыОбъектовМетаданных.Form.ФормаЭлементаCatalog.ИдентификаторыОбъектовМетаданных.Form.ФормаСписка
- Catalog.ИдентификаторыОбъектовМетаданных.Form.ФормаВыбора
+ Catalog.ИдентификаторыОбъектовМетаданных.Form.ФормаСпискаПорядокКоллекции
@@ -417,25 +411,6 @@
Use
-
- Используется
-
- ru
- Используется
-
-
- Boolean
-
-
- ru
- Идентификатору соответстует объект метаданных
-
-
-
-
- Use
- Use
- ФормаСписка
@@ -454,13 +429,4 @@
PersonalComputerMobileDevice
-
- ФормаВыбора
-
- ru
- Форма выбора
-
- PersonalComputer
- MobileDevice
-
diff --git a/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Form.form b/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Form.form
index 6b52acaff..fa0781cd0 100644
--- a/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Form.form
+++ b/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Form.form
@@ -481,7 +481,6 @@
LockOwnertrue
- truetrueVerticaltrue
diff --git a/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Module.bsl b/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Module.bsl
index 437ee513a..dfc63f6b8 100644
--- a/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Module.bsl
+++ b/SSL/src/Catalogs/Календари/Forms/НастройкаНовогоКалендаря/Module.bsl
@@ -4,6 +4,8 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+ Заголовок = НСтр("ru = 'Настройка заполнения календаря'");
+
ПропуститьВыборПроизводственногоКалендаря = Ложь;
ЗаполнитьСписокПроизодственныхКалендарей(ПропуститьВыборПроизводственногоКалендаря);
diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form
index 66baac7fc..bd1fe8004 100644
--- a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form
@@ -261,6 +261,10 @@
NotificationProcessingОбработкаОповещения
+
+ OnCreateAtServer
+ ПриСозданииНаСервере
+ DontBlocktruetrue
diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl
index ca084b1d5..e21934e37 100644
--- a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl
@@ -1,6 +1,15 @@
///////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ Если Параметры.РежимВыбора Тогда
+ Элементы.Список.РежимВыбора = Истина;
+ КонецЕсли;
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОбработкаВыбора(РезультатВыбора, ИсточникВыбора)
@@ -34,6 +43,10 @@
&НаКлиенте
Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
+ Если Группа Тогда
+ Возврат;
+ КонецЕсли;
+
Если НастройкаНовогоКалендаряПоУмолчанию() <> Неопределено Тогда
// Календарь по единственному шаблону уже создан,
// не нужно предлагать сделать это повторно
diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form
index 90efef765..e21205c42 100644
--- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form
@@ -338,6 +338,10 @@
Lefttrue
+
+ ChoiceProcessing
+ ОбработкаВыбора
+ OnOpenПриОткрытии
diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Help/ru.html
index 719779c40..f98f94ee9 100644
--- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Help/ru.html
+++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Help/ru.html
@@ -1,5 +1,6 @@
-
-
Команда Заполнить календарь в форме календаря позволяет автоматически заполнить календарь в соответствии с пятидневной рабочей неделей без учета праздничных дней за год.
-
Команда Заполнить по календарю позволяет заполнить новый календарь по данным другого календаря.
-
Для каждого календаря необходимо указать, какие дни являются в нем рабочими (выполняется двойным щелчком мышки по рабочему дню).
+
+
Команда Изменить позволяет отказаться от автоматического обновления календаря по данным производственного календаря и внести изменения.
+
Команда Обновить выполняет принудительное обновление календаря по данным производственного календаря, по шаблону которого он был создан.
+
Команда Заполнить по календарю позволяет заполнить новый календарь по данным производственного календаря, по шаблону которого он был создан.
+
Для каждого календаря необходимо указать, какие дни являются в нем рабочими (выполняется двойным щелчком мышки по рабочему дню).
При заполнении календаря необходимо предусмотреть следующее. При заполнении календаря, например на текущий год, необходимо заполнить его не только до конца текущего года, но предусмотреть заполнение на следующий год на период который позволит беспрепятственно использовать календарь в конфигурации в конце текущего года. Заполнять календарь, пользуясь этим принципом на следующий год нужно в конце текущего года.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl
index f2246daac..b5ab1db75 100644
--- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl
@@ -53,6 +53,23 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ОбработкаВыбора(РезультатВыбора, ИсточникВыбора)
+
+ Если ТипЗнч(РезультатВыбора) <> Тип("Структура") Тогда
+ Возврат;
+ КонецЕсли;
+
+ РезультатВыбора.Свойство("ПроизводственныйКалендарь", Объект.ПроизводственныйКалендарь);
+ РезультатВыбора.Свойство("ВидКалендаря", Объект.ВидКалендаря);
+
+ // Производственный календарь теперь известен - можно заполнять
+ ЗаполнитьФормуПоОбъекту(Истина);
+
+ Элементы.Календарь.Обновить();
+
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
@@ -96,9 +113,9 @@
СтрокаТаблицыРегистра = ТаблицаРегистра.НайтиПоЗначению(СтрокаОформленияПериода.Дата);
Если СтрокаТаблицыРегистра = Неопределено Тогда
- СтрокаОформленияПериода.ЦветТекста = WebЦвета.Красный;
+ СтрокаОформленияПериода.ЦветТекста = ОбщегоНазначенияКлиент.ЦветСтиля("ВидДняНеУказанЦвет");
Иначе
- СтрокаОформленияПериода.ЦветТекста = WebЦвета.Черный;
+ СтрокаОформленияПериода.ЦветТекста = ОбщегоНазначенияКлиент.ЦветСтиля("ВидДняРабочийЦвет");
КонецЕсли;
КонецЦикла;
@@ -133,6 +150,14 @@
&НаКлиенте
Процедура ЗаполнитьПоКалендарю(Команда)
+ Если Не ЗначениеЗаполнено(Объект.ПроизводственныйКалендарь)
+ Или Не ЗначениеЗаполнено(Объект.ВидКалендаря) Тогда
+ // Производственный календарь не указан, пытаемся уточнить у пользователя способ заполнения
+ ОткрытьФорму("Справочник.Календари.Форма.НастройкаНовогоКалендаря", , ЭтаФорма);
+ Возврат;
+ КонецЕсли;
+
+ // Производственный календарь указан, а значит известно как заполнять
ЗаполнитьФормуПоОбъекту(Истина);
Элементы.Календарь.Обновить();
@@ -213,7 +238,6 @@
Элементы.ЗаполнитьПоКалендарю.Доступность = Ложь;
Иначе
СпособРедактированияПоясняющийТекст = НСтр("ru = 'Для редактирования рабочих и выходных дней календаря используйте двойной щелчок левой кнопкой мыши'");
- Элементы.ЗаполнитьПоКалендарю.Доступность = ЗначениеЗаполнено(Объект.ПроизводственныйКалендарь) И ЗначениеЗаполнено(Объект.ВидКалендаря);
КонецЕсли;
КонецПроцедуры
@@ -224,7 +248,7 @@
Если НомерТекущегоГода = 0 Тогда
НомерТекущегоГода = Год(ТекущаяДатаСеанса());
КонецЕсли;
- НомерПредыдущегоГода = НомерТекущегоГода;
+ НомерПредыдущегоГода = НомерТекущегоГода;
Элементы.Календарь.НачалоПериодаОтображения = Дата(НомерТекущегоГода, 1, 1);
Элементы.Календарь.КонецПериодаОтображения = Дата(НомерТекущегоГода, 12, 31);
diff --git a/SSL/src/Catalogs/Календари/ManagerModule.bsl b/SSL/src/Catalogs/Календари/ManagerModule.bsl
index 8ad8688b5..0d13971c1 100644
--- a/SSL/src/Catalogs/Календари/ManagerModule.bsl
+++ b/SSL/src/Catalogs/Календари/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
@@ -70,3 +72,5 @@
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Календари/Календари.mdo b/SSL/src/Catalogs/Календари/Календари.mdo
index 57480bd5f..5f14f7ab6 100644
--- a/SSL/src/Catalogs/Календари/Календари.mdo
+++ b/SSL/src/Catalogs/Календари/Календари.mdo
@@ -126,6 +126,7 @@
BothWaysCatalog.Календари.Form.ФормаЭлементаCatalog.Календари.Form.ФормаСписка
+ Catalog.Календари.Form.ФормаСпискаПроизводственныйКалендарь
diff --git a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Form.form b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Form.form
index 660b5622f..1d3ac70eb 100644
--- a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Form.form
+++ b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Form.form
@@ -11,7 +11,7 @@
СтраницаВыборИсточника6
- КодВариантаЗагрузки
+ ВариантЗагрузки7truetrue
@@ -19,12 +19,12 @@
true
- КодВариантаЗагрузки
+ ВариантЗагрузкиTop
- КодВариантаЗагрузкиРасширеннаяПодсказка
- 18
+ ВариантЗагрузкиРасширеннаяПодсказка
+ 26Labeltruetrue
@@ -33,7 +33,7 @@
- КодВариантаЗагрузкиКонтекстноеМеню
+ ВариантЗагрузкиКонтекстноеМеню8true
@@ -49,8 +49,8 @@
ruс диска "Информационно-технологическое сопровождение"
-
- 1
+
+ ИТС
@@ -58,8 +58,8 @@
ruс сайта агентства "РосБизнесКонсалтинг"
-
- 2
+
+ РБКVertical
@@ -80,7 +80,178 @@
СтраницаВыборИсточникаРасширеннаяПодсказка
- 17
+ 25
+ Label
+ true
+ true
+
+ Left
+
+
+ Page
+
+ Vertical
+ auto
+
+
+
+ ВыполняетсяЗагрузка
+ 15
+
+ КартинкаВыполняетсяЗагрузка
+ 16
+
+ <key>ru</key>
+ <value>Картинка выполняется загрузка</value>
+
+ true
+ true
+
+ true
+
+
+ КартинкаВыполняетсяЗагрузкаРасширеннаяПодсказка
+ 29
+ Label
+ true
+ true
+
+ Left
+
+
+
+ КартинкаВыполняетсяЗагрузкаКонтекстноеМеню
+ 17
+ true
+
+ 7
+ true
+ 3
+ true
+
+
+ CommonPicture.ДлительнаяОперация48
+
+
+
+
+ НадписьВыполняетсяЗагрузка
+ 18
+
+ <key>ru</key>
+ <value>Выполняется загрузка классификатора...</value>
+
+ true
+ true
+
+ true
+
+
+ НадписьВыполняетсяЗагрузкаРасширеннаяПодсказка
+ 30
+ Label
+ true
+ true
+
+ Left
+
+
+
+ НадписьВыполняетсяЗагрузкаКонтекстноеМеню
+ 19
+ true
+
+ Label
+ true
+ 3
+ true
+
+ Left
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Выполняется загрузка</value>
+
+
+ ru
+ Выполняется загрузка
+
+
+ ВыполняетсяЗагрузкаРасширеннаяПодсказка
+ 28
+ Label
+ true
+ true
+
+ Left
+
+
+ Page
+
+ auto
+
+
+
+ ЗагрузкаССайтаРБК
+ 12
+
+ ПредупреждениеОЗагрузкаССайтаРБК
+ 13
+
+ <key>ru</key>
+ <value>Загрузка классификатора банков РФ будет выполнена с сайта Российского информационного агентства РБК (http://www.rbc.ru).
+
+Для продолжения нажмите "Далее".</value>
+
+ true
+ true
+
+ true
+
+
+ ПредупреждениеОЗагрузкаССайтаРБКРасширеннаяПодсказка
+ 32
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ПредупреждениеОЗагрузкаССайтаРБККонтекстноеМеню
+ 14
+ true
+
+ Label
+ true
+ true
+
+ Left
+
+
+ true
+ true
+
+ true
+
+
+ <key>ru</key>
+ <value>Загрузка с сайта РБК</value>
+
+
+ ru
+ Загрузка с сайта РБК
+
+
+ ЗагрузкаССайтаРБКРасширеннаяПодсказка
+ 31Labeltruetrue
@@ -111,7 +282,7 @@
ПоясняющийТекстРасширеннаяПодсказка
- 21
+ 34Labeltruetrue
@@ -132,11 +303,10 @@
truetrue
- Style.ПоясняющийТекст
+ Style.FormTextColorLeft
- Toptrue
@@ -154,7 +324,7 @@
СтраницаРезультатРасширеннаяПодсказка
- 20
+ 33Labeltruetrue
@@ -183,7 +353,7 @@
СтраницыФормыРасширеннаяПодсказка
- 16
+ 24Labeltruetrue
@@ -211,7 +381,7 @@
ФормаКнопкаНазадРасширеннаяПодсказка
- 12
+ 20Labeltruetrue
@@ -237,7 +407,7 @@
ФормаКнопкаДалееРасширеннаяПодсказка
- 13
+ 21Labeltruetrue
@@ -263,7 +433,7 @@
ФормаКнопкаОтменаРасширеннаяПодсказка
- 14
+ 22Labeltruetrue
@@ -271,7 +441,7 @@
Left
- Form.StandardCommand.Cancel
+ Form.Command.ОтменаNormalAutotrue
@@ -289,7 +459,7 @@
ФормаКнопкаСправкаРасширеннаяПодсказка
- 15
+ 23Labeltruetrue
@@ -307,11 +477,16 @@
Right
+
+ OnOpen
+ ПриОткрытии
+ OnCreateAtServerПриСозданииНаСервере
- DontBlock
+ 45
+ LockOwnertruetrueVertical
@@ -322,17 +497,50 @@
autotrue
- КодВариантаЗагрузки
+ ВариантЗагрузки
<key>ru</key>
<value>Вариант загрузки</value>
2
- Number
-
- 1
-
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ АдресХранилища
+
+ <key>ru</key>
+ <value>Адрес хранилища</value>
+
+ 1
+
+ String
+
+
+
+ true
+
+
+ true
+
+
+
+ ИдентификаторЗадания
+
+ <key>ru</key>
+ <value>Идентификатор задания</value>
+
+ 3
+
+ UUIDtrue
@@ -348,10 +556,6 @@
Далее >>1
-
- ru
- Далее
-
@@ -370,10 +574,6 @@
<< Назад 2
-
- ru
- Назад
-
@@ -385,6 +585,28 @@
AutoAuto
+
+ Отмена
+
+ <key>ru</key>
+ <value>Отмена</value>
+
+ 3
+
+ ru
+ Отмена
+
+
+
+
+ Отмена
+
+
+ Auto
+ Auto
+
diff --git a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Module.bsl b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Module.bsl
index 85192454c..dcc7aaa2b 100644
--- a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Module.bsl
+++ b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ЗагрузкаКлассификатора/Module.bsl
@@ -1,25 +1,57 @@
+&НаКлиенте
+Перем ПараметрыОбработчикаОжидания;
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
ВыполнитьПроверкуПравДоступа("Изменение", Метаданные.Справочники.КлассификаторБанковРФ);
- КодВариантаЗагрузки = 1;
+ ВариантЗагрузки = "РБК";
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+ #Если ВебКлиент Тогда
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.ЗагрузкаССайтаРБК;
+ #Иначе
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника;
+ #КонецЕсли
+
+ УстановитьИзмененияВИнтерфейсе();
КонецПроцедуры
-
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
&НаКлиенте
Процедура Далее(Команда)
- Если Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника Тогда
- ЗагрузитьКлассификатор();
- Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат;
- ИначеЕсли Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат Тогда
+ Если Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат Тогда
Закрыть();
+ Иначе
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.ВыполняетсяЗагрузка;
+ УстановитьИзмененияВИнтерфейсе();
+ ПодключитьОбработчикОжидания("ВыполнитьЗагрузкуКлассификатора", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура Назад(Команда)
+ ТекущаяСтраница = Элементы.СтраницыФормы.ТекущаяСтраница;
+
+ Если ТекущаяСтраница = Элементы.СтраницаРезультат Тогда
+ #Если ВебКлиент Тогда
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.ЗагрузкаССайтаРБК;
+ #Иначе
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника;
+ #КонецЕсли
КонецЕсли;
УстановитьИзмененияВИнтерфейсе();
@@ -27,14 +59,11 @@
КонецПроцедуры
&НаКлиенте
-Процедура Назад(Команда)
-
- Если Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат Тогда
- Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника;
+Процедура Отмена(Команда)
+ Если ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
+ ЗавершитьФоновоеЗадание(ИдентификаторЗадания);
КонецЕсли;
-
- УстановитьИзмененияВИнтерфейсе();
-
+ Закрыть();
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
@@ -51,11 +80,46 @@
// классификатора БИК РФ с диска ИТС, помещенный во временное хранилище
// Загружено - Число - Количество новых записей классификатора
// Обновлено - Число - Количество обновленных записей классификатора
-// ТекстСообщения - Строка - тест сообщения об ошибке
+// ТекстСообщения - Строка - тест сообщения о результатах загрузки
+// ЗагрузкаВыполнена - Булево - флаг успешного завершения загрузки данных классификатора
&НаСервере
Процедура ЗагрузитьДанныеДискИТСНаСервере(ПараметрыЗагрузкиФайловИТС)
РаботаСБанками.ЗагрузитьДанныеДискИТС(ПараметрыЗагрузкиФайловИТС);
-КонецПроцедуры
+КонецПроцедуры
+
+
+// Загружает в классификатор банков данные с диска ИТС.
+//
+// Параметры
+// ПараметрыЗагрузкиФайловРБК - Соответствие:
+// ИмяДискаИТС - Строка - имя диска ИТС
+// ДанныеИТСАдресДвоичныхДанных - ВременноеХранилище - файл данных классификатора БИК РФ с диска ИТС,
+// помещенный во временное хранилище
+// ПодготовкаИТСАдресДвоичныхДанных - ВременноеХранилище - файл обработки подготовки данных
+// классификатора БИК РФ с диска ИТС, помещенный во временное хранилище
+// Загружено - Число - Количество новых записей классификатора
+// Обновлено - Число - Количество обновленных записей классификатора
+// ТекстСообщения - Строка - тест сообщения о результатах загрузки
+// ЗагрузкаВыполнена - Булево - флаг успешного завершения загрузки данных классификатора
+&НаСервере
+Функция ПолучитьДанныеРБКНаСервере(ПараметрыЗагрузкиФайловРБК)
+ Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
+ АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
+ РаботаСБанками.ПолучитьДанныеРБК(ПараметрыЗагрузкиФайловРБК, АдресХранилища);
+ Результат = Новый Структура("ЗаданиеВыполнено,АдресХранилища", Истина, АдресХранилища);
+ Иначе
+ НаименованиеЗадания = НСтр("ru = 'Загрузка классификатора банков РФ'");
+
+ Результат = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
+ УникальныйИдентификатор,
+ "РаботаСБанками.ПолучитьДанныеРБК",
+ ПараметрыЗагрузкиФайловРБК,
+ НаименованиеЗадания);
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
// Загружает классификатор банков с диска ИТС или с сайта РБК.
//
@@ -66,39 +130,85 @@
ПараметрыЗагрузкиКлассификатора.Вставить("Загружено", 0);
ПараметрыЗагрузкиКлассификатора.Вставить("Обновлено", 0);
ПараметрыЗагрузкиКлассификатора.Вставить("ТекстСообщения", "");
+ ПараметрыЗагрузкиКлассификатора.Вставить("ЗагрузкаВыполнена", Ложь);
- ВариантЗагрузки = "";
-
- Состояние(НСтр("ru ='Загружается классификатор банков РФ.'"));
-
- Если КодВариантаЗагрузки = 1 Тогда
- //с диска ИТС
- ВариантЗагрузки = НСтр("ru ='Диск ИТС'");
+ Если ВариантЗагрузки = "ИТС" Тогда
ПолучитьДанныеБИКРФДискИТС(ПараметрыЗагрузкиКлассификатора);
- ИначеЕсли КодВариантаЗагрузки = 2 Тогда
- //с сайта РБК
- ВариантЗагрузки = НСтр("ru ='Сайт РБК'");
- РаботаСБанкамиВызовСервера.ПолучитьДанныеРБК(ПараметрыЗагрузкиКлассификатора);
+
+ АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
+ ПоместитьВоВременноеХранилище(ПараметрыЗагрузкиКлассификатора, АдресХранилища);
+ Результат = Новый Структура("ЗаданиеВыполнено", Истина);
+ ИначеЕсли ВариантЗагрузки = "РБК" Тогда
+ Результат = ПолучитьДанныеРБКНаСервере(ПараметрыЗагрузкиКлассификатора);
КонецЕсли;
+ АдресХранилища = Результат.АдресХранилища;
+ Если НЕ Результат.ЗаданиеВыполнено Тогда
+ ИдентификаторЗадания = Результат.ИдентификаторЗадания;
+
+ ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
+ ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", 1, Истина);
+ Иначе
+ ЗагрузитьРезультат();
+ КонецЕсли;
+ КонецПроцедуры
+
+//Отображает результат попытки загрузки классификатора банков РФ в журнале регистрации
+//и в форме загрузки
+&НаКлиенте
+Процедура ЗагрузитьРезультат()
+
+ Если ВариантЗагрузки = "ИТС" Тогда
+ Источник = НСтр("ru ='Диск ИТС'");
+ Иначе
+ Источник = НСтр("ru ='Сайт РБК'");
+ КонецЕсли;
+
+ ПараметрыЗагрузкиКлассификатора = ПолучитьИзВременногоХранилища(АдресХранилища);
+
ИмяСобытия = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru ='Загрузка классификатора банков. %1.'"), ВариантЗагрузки);
-
- Если ПустаяСтрока(ПараметрыЗагрузкиКлассификатора["ТекстСообщения"]) Тогда
- РаботаСБанкамиВызовСервера.ДополнитьТекстСообщения(ПараметрыЗагрузкиКлассификатора);
+ НСтр("ru ='Загрузка классификатора банков. %1.'"), Источник);
+
+ Если ПараметрыЗагрузкиКлассификатора["ЗагрузкаВыполнена"] Тогда
ОбщегоНазначенияКлиент.ДобавитьСообщениеДляЖурналаРегистрации(ИмяСобытия,,
- ПараметрыЗагрузкиКлассификатора["ТекстСообщения"],, Истина);
+ ПараметрыЗагрузкиКлассификатора["ТекстСообщения"],, Истина);
Иначе
ОбщегоНазначенияКлиент.ДобавитьСообщениеДляЖурналаРегистрации(ИмяСобытия,
- "Ошибка", ПараметрыЗагрузкиКлассификатора["ТекстСообщения"],, Истина);
+ "Ошибка", ПараметрыЗагрузкиКлассификатора["ТекстСообщения"],, Истина);
КонецЕсли;
Элементы.ПоясняющийТекст.Заголовок = ПараметрыЗагрузкиКлассификатора["ТекстСообщения"];
+ Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат;
+ УстановитьИзмененияВИнтерфейсе();
+
Если (ПараметрыЗагрузкиКлассификатора["Обновлено"] > 0) или (ПараметрыЗагрузкиКлассификатора["Загружено"] > 0) Тогда
ОповеститьОбИзменении(Тип("СправочникСсылка.КлассификаторБанковРФ"));
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
+
+//Унифицированная процедура проверки выполнения фонового задания
+&НаКлиенте
+Процедура Подключаемый_ПроверитьВыполнениеЗадания()
+
+ Если ЗаданиеВыполнено(ИдентификаторЗадания) Тогда
+ ЗагрузитьРезультат();
+ Иначе
+ ДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
+ ПодключитьОбработчикОжидания(
+ "Подключаемый_ПроверитьВыполнениеЗадания",
+ ПараметрыОбработчикаОжидания.ТекущийИнтервал,
+ Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ЗаданиеВыполнено(ИдентификаторЗадания)
+
+ Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания);
+
+КонецФункции
// Получает, сортирует, записывает данные классификатора БИК РФ с диска ИТС
//
@@ -106,7 +216,8 @@
// ПараметрыЗагрузкиКлассификатора - Соответствие:
// Загружено - Число - Количество новых записей классификатора
// Обновлено - Число - Количество обновленных записей классификатора
-// ТекстСообщения - Строка - тест сообщения об ошибке
+// ТекстСообщения - Строка - тест сообщения о результатах загрузки
+// ЗагрузкаВыполнена - Булево - флаг успешного завершения загрузки данных классификатора
&НаКлиенте
Процедура ПолучитьДанныеБИКРФДискИТС(ПараметрыЗагрузкиКлассификатора)
@@ -223,17 +334,37 @@
// В зависимости от текущей страницы устанавливает доступность тех или иных полей для пользователя
//
-&НаКлиенте
+&НаСервере
Процедура УстановитьИзмененияВИнтерфейсе()
- Если Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника Тогда
+ Если Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаВыборИсточника
+ Или Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.ЗагрузкаССайтаРБК Тогда
Элементы.ФормаКнопкаНазад.Доступность = Ложь;
- Элементы.ФормаКнопкаДалее.Заголовок = НСтр("ru ='Далее>>'");
+ Элементы.ФормаКнопкаДалее.Заголовок = НСтр("ru ='Далее >>'");
Элементы.ФормаКнопкаОтмена.Доступность = Истина;
- ИначеЕсли Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.СтраницаРезультат Тогда
+ Элементы.ФормаКнопкаДалее.Доступность = Истина;
+ ИначеЕсли Элементы.СтраницыФормы.ТекущаяСтраница = Элементы.ВыполняетсяЗагрузка Тогда
+ Элементы.ФормаКнопкаНазад.Доступность = Ложь;
+ Элементы.ФормаКнопкаДалее.Доступность = Ложь;
+ Элементы.ФормаКнопкаОтмена.Доступность = Истина;
+ Иначе
Элементы.ФормаКнопкаНазад.Доступность = Истина;
- Элементы.ФормаКнопкаДалее.Заголовок = НСтр("ru ='Закрыть'");
+ Элементы.ФормаКнопкаДалее.Заголовок = НСтр("ru ='Закрыть'");
Элементы.ФормаКнопкаОтмена.Доступность = Ложь;
+ Элементы.ФормаКнопкаДалее.Доступность = Истина;
КонецЕсли;
КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыполнитьЗагрузкуКлассификатора()
+ ЗагрузитьКлассификатор();
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗавершитьФоновоеЗадание(ИдентификаторЗадания)
+ ФоновоеЗадание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдентификаторЗадания);
+ Если ФоновоеЗадание <> Неопределено Тогда
+ ФоновоеЗадание.Отменить();
+ КонецЕсли;
+КонецПроцедуры
diff --git a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаВыбора/Module.bsl
index 542019147..d2efe16c9 100644
--- a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаВыбора/Module.bsl
+++ b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаВыбора/Module.bsl
@@ -15,7 +15,7 @@
&НаКлиенте
Процедура ЗагрузитьКлассификатор(Команда)
- ОткрытьФорму("Справочник.КлассификаторБанковРФ.Форма.ЗагрузкаКлассификатора");
+ ОткрытьФормуМодально("Справочник.КлассификаторБанковРФ.Форма.ЗагрузкаКлассификатора");
КонецПроцедуры
diff --git a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаСписка/Module.bsl
index 5d02c6429..30a721b56 100644
--- a/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/КлассификаторБанковРФ/Forms/ФормаСписка/Module.bsl
@@ -15,6 +15,6 @@
&НаКлиенте
Процедура ЗагрузитьКлассификатор(Команда)
- ОткрытьФорму("Справочник.КлассификаторБанковРФ.Форма.ЗагрузкаКлассификатора");
+ ОткрытьФормуМодально("Справочник.КлассификаторБанковРФ.Форма.ЗагрузкаКлассификатора");
КонецПроцедуры
diff --git a/SSL/src/Catalogs/КлассификаторБанковРФ/Help/ru.html b/SSL/src/Catalogs/КлассификаторБанковРФ/Help/ru.html
index fd77085ee..c0405c30e 100644
--- a/SSL/src/Catalogs/КлассификаторБанковРФ/Help/ru.html
+++ b/SSL/src/Catalogs/КлассификаторБанковРФ/Help/ru.html
@@ -1,4 +1,4 @@
-
+
В классификаторе банков РФ хранятся сведения о банках: БИК, корреспондентский счет, данные о местонахождении, телефоны для связи с сотрудниками, почтовый адрес банка. Эти сведения используются при заполнении реквизитов банковских счетов и в других объектах программы.
По команде Загрузить классификатор можно обновить сведения о банках с сайта РБК или из поставляемого на диске ИТС "Общероссийского классификатора банков" (ОКБ).
Также можно настроить обновление классификатора с сайта РБК автоматически по расписанию с помощью регламентного задания Загрузка классификатора банков РФ с сайта РБК.
Предопределенные элементы и группы справочника соответствуют объектам конфигурации, в которых можно использовать дополнительные реквизиты и сведения. Добавление новых элементов в форме списка невозможно.
\ No newline at end of file
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Form.form
index 0e5e432ba..1977b376f 100644
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Form.form
@@ -13,7 +13,7 @@
НаименованиеРасширеннаяПодсказка
- 72
+ 74Labeltruetrue
@@ -65,7 +65,7 @@
FindSelectAll
- Свойство1
+ ДополнительныеРеквизитыСвойство25truetrue
@@ -76,8 +76,8 @@
ДополнительныеРеквизиты.Свойство
- Свойство1РасширеннаяПодсказка
- 89
+ ДополнительныеРеквизитыСвойствоРасширеннаяПодсказка
+ 91Labeltruetrue
@@ -86,7 +86,7 @@
- Свойство1КонтекстноеМеню
+ ДополнительныеРеквизитыСвойствоКонтекстноеМеню26true
@@ -102,6 +102,77 @@
truetruetrue
+
+ Отбор.ЭтоДополнительноеСведение
+
+
+
+
+ Normal
+
+
+
+ ДополнительныеРеквизитыЗаполнятьОбязательно
+ 72
+ true
+ true
+
+ true
+
+
+ ДополнительныеРеквизиты.ЗаполнятьОбязательно
+
+
+ ДополнительныеРеквизитыЗаполнятьОбязательноРасширеннаяПодсказка
+ 93
+ Label
+ true
+ true
+
+ Left
+
+
+
+ ДополнительныеРеквизитыЗаполнятьОбязательноКонтекстноеМеню
+ 73
+ true
+
+ InputField
+ true
+ Left
+ true
+
+ 8
+ true
+ true
+ true
+ true
+ true
+
+
+ ru
+ По умолчанию
+
+
+
+
+
+ ru
+ Да
+
+
+ Да
+
+
+
+
+ ru
+ Нет
+
+
+ Нет
+
+ Normal
@@ -109,7 +180,7 @@
ДополнительныеРеквизитыКоманднаяПанель24
- ТабРеквизитыПодборДопРеквизитов
+ ДополнительныеРеквизитыПодбор69truetrue
@@ -117,8 +188,8 @@
true
- ТабРеквизитыПодборДопРеквизитовРасширеннаяПодсказка
- 75
+ ДополнительныеРеквизитыПодборРасширеннаяПодсказка
+ 77Labeltruetrue
@@ -135,34 +206,7 @@
Auto
- Удалить
- 60
- true
- true
-
- true
-
- false
-
- УдалитьРасширеннаяПодсказка
- 76
- Label
- true
- true
-
- Left
-
-
- Form.Item.ДополнительныеРеквизиты.StandardCommand.Delete
- Normal
- PictureAndText
- true
- true
- UserCmds
- Auto
-
-
- ПереместитьВверх
+ ДополнительныеРеквизитыПереместитьВверх61truetrue
@@ -171,8 +215,8 @@
false
- ПереместитьВверхРасширеннаяПодсказка
- 77
+ ДополнительныеРеквизитыПереместитьВверхРасширеннаяПодсказка
+ 78Labeltruetrue
@@ -189,7 +233,7 @@
Auto
- ПереместитьВниз
+ ДополнительныеРеквизитыПереместитьВниз62truetrue
@@ -198,8 +242,8 @@
false
- ПереместитьВнизРасширеннаяПодсказка
- 78
+ ДополнительныеРеквизитыПереместитьВнизРасширеннаяПодсказка
+ 79Labeltruetrue
@@ -215,6 +259,33 @@
UserCmdsAuto
+
+ ДополнительныеРеквизитыУдалить
+ 60
+ true
+ true
+
+ true
+
+ false
+
+ ДополнительныеРеквизитыУдалитьРасширеннаяПодсказка
+ 80
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Item.ДополнительныеРеквизиты.StandardCommand.Delete
+ Normal
+ PictureAndText
+ true
+ true
+ UserCmds
+ Auto
+ Left
@@ -229,12 +300,16 @@
BeforeDeleteRowДополнительныеРеквизитыПередУдалением
+
+ ChoiceProcessing
+ ДополнительныеРеквизитыОбработкаВыбора
+ ДополнительныеРеквизитыСтрокаПоиска
- 80
+ 82ДополнительныеРеквизитыСтрокаПоискаРасширеннаяПодсказка
- 82
+ 84Labeltruetrue
@@ -244,7 +319,7 @@
ДополнительныеРеквизитыСтрокаПоискаКонтекстноеМеню
- 81
+ 83trueДополнительныеРеквизиты
@@ -254,10 +329,10 @@
ДополнительныеРеквизитыСостояниеПросмотра
- 83
+ 85ДополнительныеРеквизитыСостояниеПросмотраРасширеннаяПодсказка
- 85
+ 87Labeltruetrue
@@ -267,7 +342,7 @@
ДополнительныеРеквизитыСостояниеПросмотраКонтекстноеМеню
- 84
+ 86trueViewStatusAddition
@@ -278,10 +353,10 @@
ДополнительныеРеквизитыУправлениеПоиском
- 86
+ 88ДополнительныеРеквизитыУправлениеПоискомРасширеннаяПодсказка
- 88
+ 90Labeltruetrue
@@ -291,7 +366,7 @@
ДополнительныеРеквизитыУправлениеПоискомКонтекстноеМеню
- 87
+ 89trueSearchControlAddition
@@ -302,7 +377,7 @@
ДополнительныеРеквизитыРасширеннаяПодсказка
- 79
+ 81Labeltruetrue
@@ -321,6 +396,7 @@
truetrueMultiRow
+ true11AutoUse
@@ -360,7 +436,7 @@
EndEditFind
- Свойство2
+ ДополнительныеСведенияСвойство30truetrue
@@ -371,8 +447,8 @@
ДополнительныеСведения.Свойство
- Свойство2РасширеннаяПодсказка
- 113
+ ДополнительныеСведенияСвойствоРасширеннаяПодсказка
+ 117Labeltruetrue
@@ -381,7 +457,7 @@
- Свойство2КонтекстноеМеню
+ ДополнительныеСведенияСвойствоКонтекстноеМеню31true
@@ -397,6 +473,14 @@
truetruetrue
+
+ Отбор.ЭтоДополнительноеСведение
+
+
+ true
+
+
+ Normal
@@ -404,7 +488,7 @@
ДополнительныеСведенияКоманднаяПанель29
- ТабСведенияПодборДопСведений
+ ДополнительныеСведенияПодбор70truetrue
@@ -412,8 +496,8 @@
true
- ТабСведенияПодборДопСведенийРасширеннаяПодсказка
- 99
+ ДополнительныеСведенияПодборРасширеннаяПодсказка
+ 103Labeltruetrue
@@ -430,34 +514,7 @@
Auto
- Удалить1
- 63
- true
- true
-
- true
-
- false
-
- Удалить1РасширеннаяПодсказка
- 100
- Label
- true
- true
-
- Left
-
-
- Form.Item.ДополнительныеСведения.StandardCommand.Delete
- Normal
- PictureAndText
- true
- true
- UserCmds
- Auto
-
-
- ПереместитьВверх1
+ ДополнительныеСведенияПереместитьВверх64truetrue
@@ -466,8 +523,8 @@
false
- ПереместитьВверх1РасширеннаяПодсказка
- 101
+ ДополнительныеСведенияПереместитьВверхРасширеннаяПодсказка
+ 104Labeltruetrue
@@ -484,7 +541,7 @@
Auto
- ПереместитьВниз1
+ ДополнительныеСведенияПереместитьВниз65truetrue
@@ -493,8 +550,8 @@
false
- ПереместитьВниз1РасширеннаяПодсказка
- 102
+ ДополнительныеСведенияПереместитьВнизРасширеннаяПодсказка
+ 105Labeltruetrue
@@ -510,6 +567,33 @@
UserCmdsAuto
+
+ ДополнительныеСведенияУдалить
+ 63
+ true
+ true
+
+ true
+
+ false
+
+ ДополнительныеСведенияУдалитьРасширеннаяПодсказка
+ 106
+ Label
+ true
+ true
+
+ Left
+
+
+ Form.Item.ДополнительныеСведения.StandardCommand.Delete
+ Normal
+ PictureAndText
+ true
+ true
+ UserCmds
+ Auto
+ Left
@@ -524,12 +608,16 @@
BeforeDeleteRowДополнительныеСведенияПередУдалением
+
+ ChoiceProcessing
+ ДополнительныеСведенияОбработкаВыбора
+ ДополнительныеСведенияСтрокаПоиска
- 104
+ 108ДополнительныеСведенияСтрокаПоискаРасширеннаяПодсказка
- 106
+ 110Labeltruetrue
@@ -539,7 +627,7 @@
ДополнительныеСведенияСтрокаПоискаКонтекстноеМеню
- 105
+ 109trueДополнительныеСведения
@@ -549,10 +637,10 @@
ДополнительныеСведенияСостояниеПросмотра
- 107
+ 111ДополнительныеСведенияСостояниеПросмотраРасширеннаяПодсказка
- 109
+ 113Labeltruetrue
@@ -562,7 +650,7 @@
ДополнительныеСведенияСостояниеПросмотраКонтекстноеМеню
- 108
+ 112trueViewStatusAddition
@@ -573,10 +661,10 @@
ДополнительныеСведенияУправлениеПоиском
- 110
+ 114ДополнительныеСведенияУправлениеПоискомРасширеннаяПодсказка
- 112
+ 116Labeltruetrue
@@ -586,7 +674,7 @@
ДополнительныеСведенияУправлениеПоискомКонтекстноеМеню
- 111
+ 115trueSearchControlAddition
@@ -597,7 +685,7 @@
ДополнительныеСведенияРасширеннаяПодсказка
- 103
+ 107Labeltruetrue
@@ -649,7 +737,7 @@
ТаблицыСвойствРасширеннаяПодсказка
- 74
+ 76Labeltruetrue
@@ -680,6 +768,8 @@
OnCreateAtServerПриСозданииНаСервере
+ Copy
+ DeleteLockOwnertruetrue
@@ -726,7 +816,7 @@
Свойство
<key>ru</key>
- <value>Свойство</value>
+ <value>Дополнительный реквизит</value>
1
@@ -739,6 +829,24 @@
true
+
+ ЗаполнятьОбязательно
+
+ <key>ru</key>
+ <value>Обязательный</value>
+
+ 2
+
+ String
+
+
+
+ true
+
+
+ true
+
+ ДополнительныеСведения
@@ -761,7 +869,7 @@
Свойство
<key>ru</key>
- <value>Свойство</value>
+ <value>Дополнительное сведение</value>
1
@@ -775,24 +883,6 @@
-
- Комментарий
-
- <key>ru</key>
- <value>Комментарий</value>
-
- 6
-
- String
-
-
-
- true
-
-
- true
-
- ИспользоватьДопРеквизиты
@@ -871,6 +961,20 @@
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
+ <parameters>
+ <name>СкрытьДополнительныеРеквизиты</name>
+ <valueType>
+ <types>Boolean</types>
+ </valueType>
+ <keyParameter>true</keyParameter>
+ </parameters>
+ <parameters>
+ <name>СкрытьДополнительныеСведения</name>
+ <valueType>
+ <types>Boolean</types>
+ </valueType>
+ <keyParameter>true</keyParameter>
+ </parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
@@ -880,6 +984,10 @@
<event>AfterWrite</event>
<name>ПослеЗаписи</name>
</handlers>
+ <handlers>
+ <event>OnReadAtServer</event>
+ <name>ПриЧтенииНаСервере</name>
+ </handlers>
<handlers>
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Help/ru.html
deleted file mode 100644
index df2d17466..000000000
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Help/ru.html
+++ /dev/null
@@ -1,2 +0,0 @@
-<!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.16447"></meta></head><body>
-<p>Элемент содержит таблицу с набором дополнительных реквизитов, назначенных объекту, и таблицу с набором дополнительных сведений, назначенных объекту. Также на форме набора расположен список всех дополнительных реквизитов и сведений, уже существующих в ИБ. Добавить объекту новый дополнительный реквизит или сведение можно из этого списка командой <strong>Добавить в набор</strong>. Если в списке всех реквизитов и сведений нет требуемого объекту реквизита или сведения, его нужно создать командой <strong>Создать</strong>. В открывшейся форме необходимо указать что мы создаем — дополнительный реквизит или дополнительное сведение, указать наименование. Исходя из логики использования выбрать из списка тип значения дополнительного реквизита или сведения. При выборе типа значения <strong>Значения свойств объектов</strong>, можно задать список возможных значений дополнительного реквизита или сведения в списке <strong>Значения свойств объектов.</strong> Список открывается командой на<strong> панели навигации</strong> дополнительного реквизита или сведения.</p></body></html>
\ No newline at end of file
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl
index c9f75f1c0..9bc55b20d 100644
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl
@@ -1,3 +1,4 @@
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
@@ -10,70 +11,41 @@
КонецЕсли;
// Раздельная настройка дополнительных реквизитов и дополнительных сведений.
+ Элементы.ДополнительныеРеквизитыЗаполнятьОбязательно.Подсказка =
+ Метаданные.Справочники.НаборыДополнительныхРеквизитовИСведений.ТабличныеЧасти
+ .ДополнительныеРеквизиты.Реквизиты.ЗаполнятьОбязательно.Подсказка;
- Если Объект.Предопределенный Тогда
- Элементы.Наименование.ТолькоПросмотр = Истина;
+ Элементы.Наименование.ТолькоПросмотр = Истина;
+
+ Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
+ ЗаполнитьИспользованиеДополнительныхСвойств();
+ ЗаполнитьДополнительныеСвойстваВФорме();
КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ // При записи свойства необходимо перенести свойство в соответствующую группу.
+ Если ИмяСобытия = "Запись_ДополнительныеРеквизитыИСведения" Тогда
+ ПроверитьСоставыТаблицПослеЗаписиСвойства(Параметр.ЭтоДополнительноеСведение, Источник);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ПриЧтенииНаСервере(ТекущийОбъект)
+
ЗаполнитьИспользованиеДополнительныхСвойств();
-
- Если НЕ ИспользоватьДопРеквизиты И НЕ ИспользоватьДопСведения Тогда
- Отказ = Истина;
- ВызватьИсключение НСтр("ru = 'Использование свойств не определено.'");
- КонецЕсли;
-
- Если НЕ ИспользоватьДопРеквизиты Тогда
- Элементы.ДополнительныеРеквизиты.Видимость = Ложь;
- Элементы.ДополнительныеСведения.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
-
- ИначеЕсли НЕ ИспользоватьДопСведения Тогда
- Элементы.ДополнительныеСведения.Видимость = Ложь;
- Элементы.ДополнительныеРеквизиты.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
- КонецЕсли;
-
- Если ИспользоватьДопРеквизиты Тогда
- Для Каждого Строка Из Объект.ДополнительныеРеквизиты Цикл
- Если НЕ Строка.Свойство.ЭтоДополнительноеСведение Тогда
- ДополнительныеРеквизиты.Добавить().Свойство = Строка.Свойство;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ИспользоватьДопСведения Тогда
- Для Каждого Строка Из Объект.ДополнительныеСведения Цикл
- Если Строка.Свойство.ЭтоДополнительноеСведение Тогда
- ДополнительныеСведения.Добавить().Свойство = Строка.Свойство;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- Если ИспользоватьДопРеквизиты И ИспользоватьДопСведения Тогда
- Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных реквизитов и сведений)'")
- ИначеЕсли ИспользоватьДопРеквизиты Тогда
- Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных реквизитов)'")
- ИначеЕсли ИспользоватьДопСведения Тогда
- Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных сведений)'")
- КонецЕсли;
+ ЗаполнитьДополнительныеСвойстваВФорме();
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект)
- ТекущийОбъект.ДополнительныеРеквизиты.Очистить();
- ТекущийОбъект.ДополнительныеСведения.Очистить();
-
- Если ИспользоватьДопРеквизиты Тогда
- Для Каждого Строка Из ДополнительныеРеквизиты Цикл
- ТекущийОбъект.ДополнительныеРеквизиты.Добавить().Свойство = Строка.Свойство;
- КонецЦикла;
- КонецЕсли;
-
- Если ИспользоватьДопСведения Тогда
- Для каждого Строка Из ДополнительныеСведения Цикл
- ТекущийОбъект.ДополнительныеСведения.Добавить().Свойство = Строка.Свойство;
- КонецЦикла;
- КонецЕсли;
+ ЗаполнитьДополнительныеСвойстваВОбъекте(ТекущийОбъект);
КонецПроцедуры
@@ -84,45 +56,18 @@
КонецПроцедуры
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ ДополнительныеРеквизиты
+
&НаКлиенте
-Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+Процедура ДополнительныеРеквизитыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
- // При записи свойства необходимо перенести свойство в соответствующую группу и
- // обновить поле Комментарий (если требуется).
-
- Если ИмяСобытия = "Запись_ДополнительныеРеквизитыИСведения" Тогда
- ПроверитьСоставыТаблицПослеЗаписиСвойства(Параметр.ЭтоДополнительноеСведение, Источник);
-
- ИначеЕсли ИмяСобытия = "ПодборСвойствВНабор" Тогда
-
- ДобавляемыеСвойства = Новый Массив;
-
- Если Параметр.ЭтоДополнительноеСведение Тогда
- Таблица = ДополнительныеСведения;
- Иначе
- Таблица = ДополнительныеРеквизиты
- КонецЕсли;
-
- Для каждого Добавляемый Из Параметр.ДобавляемыеСвойства Цикл
-
- Отбор = Новый Структура("Свойство", Добавляемый);
-
- Если Таблица.НайтиСтроки(Отбор).Количество() = 0 Тогда
- ДобавляемыеСвойства.Добавить(Добавляемый);
- КонецЕсли;
- КонецЦикла;
-
- Если ДобавляемыеСвойства.Количество() > 0 Тогда
- ДобавитьСвойства(ДобавляемыеСвойства);
- КонецЕсли;
-
+ Если Прав(Поле.Имя, СтрДлина("Свойство")) = "Свойство" Тогда
+ ТаблицаВыбор(Элемент, ВыбраннаяСтрока, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЦЫ ФОРМЫ ДополнительныеРеквизиты
-
&НаКлиенте
Процедура ДополнительныеРеквизитыПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
@@ -138,9 +83,9 @@
КонецПроцедуры
&НаКлиенте
-Процедура ДополнительныеРеквизитыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+Процедура ДополнительныеРеквизитыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
- ТаблицаВыбор(Элемент, ВыбраннаяСтрока, СтандартнаяОбработка);
+ ОбработкаВыбораСвойства(ВыбранноеЗначение, ДополнительныеРеквизиты);
КонецПроцедуры
@@ -168,20 +113,27 @@
КонецПроцедуры
+&НаКлиенте
+Процедура ДополнительныеСведенияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
+
+ ОбработкаВыбораСвойства(ВыбранноеЗначение, ДополнительныеСведения);
+
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
&НаКлиенте
Процедура ПодборДопРеквизитов(Команда)
- ВызватьФормуПодбора(Ложь);
+ ПодобратьДополнительныеСвойства(Ложь);
КонецПроцедуры
&НаКлиенте
Процедура ПодборДопСведений(Команда)
- ВызватьФормуПодбора(Истина);
+ ПодобратьДополнительныеСвойства(Истина);
КонецПроцедуры
@@ -190,112 +142,153 @@
Процедура ЗаполнитьИспользованиеДополнительныхСвойств()
- Если Объект.Ссылка = Справочники.НаборыДополнительныхРеквизитовИСведений.ПустаяСсылка() Тогда
- ИспользоватьДопРеквизиты = Ложь;
- ИспользоватьДопСведения = Ложь;
- Возврат;
- КонецЕсли;
-
- Если Объект.Ссылка.Предопределенный
- И Объект.Ссылка.Родитель = Справочники.НаборыДополнительныхРеквизитовИСведений.ПустаяСсылка() Тогда
-
- СсылкаПредопределенного = Объект.Ссылка;
- Иначе
- СсылкаПредопределенного = Объект.Ссылка.Родитель;
- КонецЕсли;
-
- Если СсылкаПредопределенного = Справочники.НаборыДополнительныхРеквизитовИСведений.ПустаяСсылка() Тогда
- ВызватьИсключение НСтр("ru = 'Не найден владелец свойств.'");
- КонецЕсли;
-
- ВидыСвойствНабора = УправлениеСвойствами.ВидыСвойствНабора(СсылкаПредопределенного);
+ ВидыСвойствНабора = УправлениеСвойствами.ВидыСвойствНабора(Объект.Ссылка);
ИспользоватьДопРеквизиты = ВидыСвойствНабора.ДополнительныеРеквизиты;
ИспользоватьДопСведения = ВидыСвойствНабора.ДополнительныеСведения;
+ Если Параметры.СкрытьДополнительныеРеквизиты Тогда
+ ИспользоватьДопРеквизиты = Ложь;
+ КонецЕсли;
+
+ Если Параметры.СкрытьДополнительныеСведения Тогда
+ ИспользоватьДопСведения = Ложь;
+ КонецЕсли;
+
+ Если НЕ ИспользоватьДопРеквизиты И НЕ ИспользоватьДопСведения Тогда
+
+ Если Параметры.СкрытьДополнительныеРеквизиты Тогда
+ ВызватьИсключение НСтр("ru = 'Использование дополнительных сведений не определено.'");
+
+ ИначеЕсли Параметры.СкрытьДополнительныеСведения Тогда
+ ВызватьИсключение НСтр("ru = 'Использование дополнительных реквизитов не определено.'");
+ Иначе
+ ВызватьИсключение НСтр("ru = 'Использование дополнительных реквизитов и
+ |дополнительных сведений не определено.'");
+ КонецЕсли;
+ КонецЕсли;
+
+ Если НЕ ИспользоватьДопРеквизиты Тогда
+ Элементы.ДополнительныеРеквизиты.Видимость = Ложь;
+ Элементы.ДополнительныеСведения.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
+
+ ИначеЕсли НЕ ИспользоватьДопСведения Тогда
+ Элементы.ДополнительныеСведения.Видимость = Ложь;
+ Элементы.ДополнительныеРеквизиты.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
+ КонецЕсли;
+
+ Если ИспользоватьДопРеквизиты И ИспользоватьДопСведения Тогда
+ Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных реквизитов и сведений)'")
+ ИначеЕсли ИспользоватьДопРеквизиты Тогда
+ Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных реквизитов)'")
+ ИначеЕсли ИспользоватьДопСведения Тогда
+ Заголовок = Объект.Наименование + " " + НСтр("ru = '(Набор дополнительных сведений)'")
+ КонецЕсли;
+
КонецПроцедуры
-&НаСервереБезКонтекста
-Функция ДобавитьВыделенныеСвойства(Знач ДобавляемыеСвойства, ДопРеквизиты, ДопСведения)
+Процедура ЗаполнитьДополнительныеСвойстваВФорме()
+
+ ДополнительныеРеквизиты.Очистить();
+ ДополнительныеСведения.Очистить();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
- | ДополнительныеРеквизитыИСведения.Ссылка КАК Свойство
- |ПОМЕСТИТЬ Временная
- |ИЗ
- | ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения
- |ГДЕ
- | (ДополнительныеРеквизитыИСведения.Ссылка В (&ДопРеквизиты)
- | ИЛИ ДополнительныеРеквизитыИСведения.Ссылка В (&ДопСведения))
- |;
- |
- |////////////////////////////////////////////////////////////////////////////////
- |ВЫБРАТЬ
| ДополнительныеРеквизитыИСведения.Ссылка,
| ДополнительныеРеквизитыИСведения.ЭтоДополнительноеСведение
|ИЗ
- | ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения
- | ЛЕВОЕ СОЕДИНЕНИЕ Временная КАК Временная
- | ПО ДополнительныеРеквизитыИСведения.Ссылка = Временная.Свойство
- |ГДЕ
- | ДополнительныеРеквизитыИСведения.Ссылка В ИЕРАРХИИ(&ДобавляемыеСвойства)
- | И НЕ ДополнительныеРеквизитыИСведения.ЭтоГруппа
- | И Временная.Свойство ЕСТЬ NULL
- | И НЕ ДополнительныеРеквизитыИСведения.ПометкаУдаления
- |
- |УПОРЯДОЧИТЬ ПО
- | ДополнительныеРеквизитыИСведения.Наименование";
+ | ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения";
- Запрос.УстановитьПараметр("ДобавляемыеСвойства", ДобавляемыеСвойства);
- Запрос.УстановитьПараметр("ДопРеквизиты", ДопРеквизиты);
- Запрос.УстановитьПараметр("ДопСведения", ДопСведения);
+ НачатьТранзакцию();
+ Попытка
+ ВсеСвойства = Запрос.Выполнить().Выгрузить();
+
+ ЗафиксироватьТранзакцию();
+ Исключение
+ ОтменитьТранзакцию();
+ ВызватьИсключение;
+ КонецПопытки;
- Выборка = Запрос.Выполнить().Выбрать();
+ ВсеСвойства.Индексы.Добавить("Ссылка");
- ДопРеквизиты.Очистить();
- ДопСведения.Очистить();
-
- Если Выборка.Количество() = 0 Тогда
- Возврат Ложь;
+ Если ИспользоватьДопРеквизиты Тогда
+ Для Каждого Строка Из Объект.ДополнительныеРеквизиты Цикл
+ Свойство = ВсеСвойства.Найти(Строка.Свойство, "Ссылка");
+ Если Свойство = Неопределено Тогда
+ Продолжить;
+ КонецЕсли;
+ Если НЕ Свойство.ЭтоДополнительноеСведение Тогда
+ НоваяСтрока = ДополнительныеРеквизиты.Добавить();
+ НоваяСтрока.Свойство = Строка.Свойство;
+ НоваяСтрока.ЗаполнятьОбязательно =
+ ?(Строка.ЗаполнятьОбязательно = 0,
+ "",
+ ?(Строка.ЗаполнятьОбязательно = 1, "Да", "Нет"));
+ КонецЕсли;
+ КонецЦикла;
КонецЕсли;
- Пока Выборка.Следующий() Цикл
-
- Если Выборка.ЭтоДополнительноеСведение Тогда
- ДопСведения.Добавить(Выборка.Ссылка);
- Иначе
- ДопРеквизиты.Добавить(Выборка.Ссылка);
- КонецЕсли;
-
- КонецЦикла;
+ Если ИспользоватьДопСведения Тогда
+ Для Каждого Строка Из Объект.ДополнительныеСведения Цикл
+ Свойство = ВсеСвойства.Найти(Строка.Свойство, "Ссылка");
+ Если Свойство = Неопределено Тогда
+ Продолжить;
+ КонецЕсли;
+ Если Свойство.ЭтоДополнительноеСведение Тогда
+ НоваяСтрока = ДополнительныеСведения.Добавить();
+ НоваяСтрока.Свойство = Строка.Свойство;
+ КонецЕсли;
+ КонецЦикла;
+ КонецЕсли;
- Возврат Истина;
-
-КонецФункции
+КонецПроцедуры
-&НаКлиенте
-Процедура ДополнительныеСвойстваПередУдалением(Элемент, ТаблицаСвойств)
+Процедура ЗаполнитьДополнительныеСвойстваВОбъекте(ТекущийОбъект)
- МассивУдаляемыхСвойств = Новый Массив;
+ ТекущийОбъект.ДополнительныеРеквизиты.Очистить();
+ ТекущийОбъект.ДополнительныеСведения.Очистить();
- Для Каждого ВыдСтрока Из Элемент.ВыделенныеСтроки Цикл
- Свойство = Элемент.ДанныеСтроки(ВыдСтрока).Свойство;
- МассивУдаляемыхСвойств.Добавить(Свойство);
- Строки = ТаблицаСвойств.НайтиСтроки(Новый Структура("Свойство", Свойство));
- ТаблицаСвойств.Удалить(Строки[0]);
- КонецЦикла;
+ Если ИспользоватьДопРеквизиты Тогда
+ Для Каждого Строка Из ДополнительныеРеквизиты Цикл
+ НоваяСтрока = ТекущийОбъект.ДополнительныеРеквизиты.Добавить();
+ НоваяСтрока.Свойство = Строка.Свойство;
+ НоваяСтрока.ЗаполнятьОбязательно =
+ ?(Строка.ЗаполнятьОбязательно = "",
+ 0,
+ ?(Строка.ЗаполнятьОбязательно = "Да", 1, 2));
+ КонецЦикла;
+ КонецЕсли;
- Если МассивУдаляемыхСвойств.Количество() > 0 Тогда
- ОповеститьОбИзмененииНабора("Удаление", МассивУдаляемыхСвойств);
+ Если ИспользоватьДопСведения Тогда
+ Для каждого Строка Из ДополнительныеСведения Цикл
+ НоваяСтрока = ТекущийОбъект.ДополнительныеСведения.Добавить();
+ НоваяСтрока.Свойство = Строка.Свойство;
+ КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
-Процедура ВызватьФормуПодбора(ЭтоДополнительноеСведение)
+Процедура ДополнительныеСвойстваПередУдалением(Элемент, ТаблицаСвойств)
+
+ Для каждого ВыделеннаяСтрока Из Элемент.ВыделенныеСтроки Цикл
+
+ Свойство = Элемент.ДанныеСтроки(ВыделеннаяСтрока).Свойство;
+
+ Строки = ТаблицаСвойств.НайтиСтроки(Новый Структура("Свойство", Свойство));
+ ТаблицаСвойств.Удалить(Строки[0]);
+ КонецЦикла;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПодобратьДополнительныеСвойства(ЭтоДополнительноеСведение)
+
+ Отбор = Новый Структура("ЭтоДополнительноеСведение", ЭтоДополнительноеСведение);
ПараметрыФормы = Новый Структура;
- ПараметрыФормы.Вставить("ЭтоДополнительноеСведение", ЭтоДополнительноеСведение);
+ ПараметрыФормы.Вставить("Отбор", Отбор);
+ ПараметрыФормы.Вставить("ЗакрыватьПриВыборе", Ложь);
ВыбранныеСвойства = Новый Массив;
@@ -303,29 +296,20 @@
Для Каждого Строка Из ДополнительныеСведения Цикл
ВыбранныеСвойства.Добавить(Строка.Свойство);
КонецЦикла;
+ ВладелецФормы = Элементы.ДополнительныеСведения;
Иначе
Для Каждого Строка Из ДополнительныеРеквизиты Цикл
ВыбранныеСвойства.Добавить(Строка.Свойство);
КонецЦикла;
+ ВладелецФормы = Элементы.ДополнительныеРеквизиты;
КонецЕсли;
- ПараметрыФормы.Вставить("ВыбранныеСвойства", ВыбранныеСвойства);
+ ПараметрыФормы.Вставить("ВыбранныеЗначения", ВыбранныеСвойства);
- ОткрытьФорму("Справочник.НаборыДополнительныхРеквизитовИСведений.Форма.ПодборСвойств",
+ ОткрытьФорму("ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.ФормаВыбора",
ПараметрыФормы,
- ЭтаФорма,
- УникальныйИдентификатор);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ОповеститьОбИзмененииНабора(Операция, МассивСвойств)
-
- ПараметрыОповещения = Новый Структура;
- ПараметрыОповещения.Вставить("Операция", Операция);
- ПараметрыОповещения.Вставить("МассивСвойств", МассивСвойств);
-
- Оповестить("ИзменилсяНаборВыбранных", ПараметрыОповещения, ЭтаФорма);
+ ВладелецФормы,
+ Объект.Ссылка);
КонецПроцедуры
@@ -357,52 +341,44 @@
КонецПроцедуры
-&НаКлиенте
-Процедура ДобавитьСвойства(ДобавляемыеСвойства)
-
- ДопРеквизиты = Новый Массив;
- Для каждого Строка Из ДополнительныеРеквизиты Цикл
- ДопРеквизиты.Добавить(Строка.Свойство);
- КонецЦикла;
-
- ДопСведения = Новый Массив;
- Для каждого Строка Из ДополнительныеСведения Цикл
- ДопСведения.Добавить(Строка.Свойство);
- КонецЦикла;
-
- ОбщийМассивСвойств = Новый Массив;
-
- Если ДобавитьВыделенныеСвойства(ДобавляемыеСвойства, ДопРеквизиты, ДопСведения) Тогда
-
- Модифицированность = Истина;
-
- Для каждого ДобавляемыйРеквизит Из ДопРеквизиты Цикл
- НоваяСтрока = ДополнительныеРеквизиты.Добавить();
- НоваяСтрока.Свойство = ДобавляемыйРеквизит;
- ОбщийМассивСвойств.Добавить(ДобавляемыйРеквизит);
- КонецЦикла;
-
- Для каждого ДобавляемоеСведение Из ДопСведения Цикл
- НоваяСтрока = ДополнительныеСведения.Добавить();
- НоваяСтрока.Свойство = ДобавляемоеСведение;
- ОбщийМассивСвойств.Добавить(ДобавляемоеСведение);
- КонецЦикла;
-
- ОповеститьОбИзмененииНабора("Добавление", ОбщийМассивСвойств);
-
- КонецЕсли;
-
-КонецПроцедуры
-
&НаКлиенте
Процедура ТаблицаВыбор(Элемент, ВыбраннаяСтрока, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПараметрыФормы = Новый Структура;
- ПараметрыФормы.Вставить("ОткрываетсяИзНабораСвойств", Истина);
ПараметрыФормы.Вставить("Ключ", Элемент.ДанныеСтроки(ВыбраннаяСтрока).Свойство);
- ОткрытьФорму("ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.Форма.ФормаЭлемента", ПараметрыФормы);
+ ОткрытьФорму(
+ "ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.Форма.ФормаЭлемента",
+ ПараметрыФормы);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаВыбораСвойства(ВыбранноеЗначение, Таблица)
+
+ Если ТипЗнч(ВыбранноеЗначение) = Тип("Массив") Тогда
+
+ Для каждого Значение Из ВыбранноеЗначение Цикл
+ ДобавитьВыбранноеСвойство(Значение, Таблица);
+ КонецЦикла;
+ Иначе
+ ДобавитьВыбранноеСвойство(ВыбранноеЗначение, Таблица);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДобавитьВыбранноеСвойство(Значение, Таблица)
+
+ Если ТипЗнч(Значение) = Тип("ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения") Тогда
+
+ Отбор = Новый Структура("Свойство", Значение);
+ Если Таблица.НайтиСтроки(Отбор).Количество() = 0 Тогда
+
+ Таблица.Добавить().Свойство = Значение;
+ КонецЕсли;
+ КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Help/ru.html b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Help/ru.html
index 872d6a6ef..add2d568e 100644
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Help/ru.html
+++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Help/ru.html
@@ -1,5 +1,7 @@
-<!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.16447"></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.16446"></meta></head><body>
<p>Администратор системы может настроить наборы дополнительных свойств для определенных объектов системы. Способ хранения дополнительного свойства в информационной базе и место размещения на форме объекта зависит от типа свойства: дополнительный реквизит или сведение.</p>
+<p>Предопределенные наборы и группы наборов соответствуют объектам конфигурации, в которых можно использовать дополнительные реквизиты и сведения. Добавление новых наборов и групп наборов невозможно.</p>
+<p>В форме набора с помощью команды Подбор можно добавить объекту новый дополнительный реквизит или сведение.<br></p>
<p>Примечание:</p>
<blockquote style="MARGIN-RIGHT: 0px" dir="ltr">
<p>При удалении свойства из набора, значение свойства сохраняется в информационной базе до тех пор, пока не будет очищено. При этом удаленное из набора дополнительное свойство будет отображаться на форме объекта или форме дополнительных сведений особым образом.</p></blockquote>
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl
index 77fbbb493..5d4392bb7 100644
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl
+++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -65,3 +67,5 @@
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo
index e7f1cf956..0842a741d 100644
--- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo
+++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo
@@ -208,7 +208,7 @@
<name>Свойство</name>
<synonym>
<key>ru</key>
- <value>Свойство</value>
+ <value>Дополнительный реквизит</value>
</synonym>
<type>
<types>ChartOfCharacteristicTypesRef.ДополнительныеРеквизитыИСведения</types>
@@ -225,6 +225,29 @@
<indexing>Index</indexing>
<fullTextSearch>Use</fullTextSearch>
</attributes>
+ <attributes uuid="4cca4c80-62f5-4205-8196-78fcfa83de2f">
+ <name>ЗаполнятьОбязательно</name>
+ <synonym>
+ <key>ru</key>
+ <value>Заполнять обязательно</value>
+ </synonym>
+ <type>
+ <types>Number</types>
+ <numberQualifiers>
+ <precision>1</precision>
+ <nonNegative>true</nonNegative>
+ </numberQualifiers>
+ </type>
+ <toolTip>
+ <key>ru</key>
+ <value>Настройка проверки заполненности дополнительного реквизита для этого набора свойств.
+Замещает настройку по умолчанию, сделанную в свойстве.</value>
+ </toolTip>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <dataHistory>Use</dataHistory>
+ <fullTextSearch>Use</fullTextSearch>
+ </attributes>
<use>ForFolderAndItem</use>
</tabularSections>
<tabularSections uuid="1a7c774d-5b86-4051-b797-3081e19fa30a">
@@ -249,7 +272,7 @@
<name>Свойство</name>
<synonym>
<key>ru</key>
- <value>Свойство</value>
+ <value>Дополнительное сведение</value>
</synonym>
<type>
<types>ChartOfCharacteristicTypesRef.ДополнительныеРеквизитыИСведения</types>
@@ -268,20 +291,11 @@
</attributes>
<use>ForFolderAndItem</use>
</tabularSections>
- <forms uuid="ef762828-452c-4d3a-ad7a-7f4933ab05ac">
- <name>ПодборСвойств</name>
+ <forms uuid="c5b3ca21-8f7b-4933-853c-7d95b17b5631">
+ <name>ФормаЭлемента</name>
<synonym>
<key>ru</key>
- <value>Подбор свойств</value>
- </synonym>
- <usePurposes>PersonalComputer</usePurposes>
- <usePurposes>MobileDevice</usePurposes>
- </forms>
- <forms uuid="e2b482cb-6954-4e6a-abe9-d0a01f64b73a">
- <name>ФормаВыбора</name>
- <synonym>
- <key>ru</key>
- <value>Форма выбора</value>
+ <value>Набор дополнительных реквизитов и сведений</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
@@ -301,25 +315,24 @@
<key>ru</key>
<value>Форма списка</value>
</synonym>
- <help>
- <pages>
- <lang>ru</lang>
- </pages>
- </help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
- <forms uuid="c5b3ca21-8f7b-4933-853c-7d95b17b5631">
- <name>ФормаЭлемента</name>
+ <forms uuid="e2b482cb-6954-4e6a-abe9-d0a01f64b73a">
+ <name>ФормаВыбора</name>
<synonym>
<key>ru</key>
- <value>Форма элемента</value>
+ <value>Форма выбора</value>
+ </synonym>
+ <usePurposes>PersonalComputer</usePurposes>
+ <usePurposes>MobileDevice</usePurposes>
+ </forms>
+ <forms uuid="2a365474-edba-4e3d-a69c-c856be0e4a4a">
+ <name>РедактированиеСоставаНаборов</name>
+ <synonym>
+ <key>ru</key>
+ <value>Редактирование состава наборов</value>
</synonym>
- <help>
- <pages>
- <lang>ru</lang>
- </pages>
- </help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
diff --git a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Help/ru.html b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Help/ru.html
index 54d9e653d..0b6c2e2e6 100644
--- a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Help/ru.html
+++ b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>Правило заполнения реквизита объекта 1С:Документооборота можно задать тремя способами:</p>
<ul><li>Из реквизита объекта конфигурации. Данный способ означает, что реквизит объекта 1С:Документооборота будет заполнен из некоторого реквизита объекта-потребителя. При выборе данного способа требуется указать, из какого реквизита объекта-потребителя требуется получить значение и подставить в реквизит объекта 1С:Документооборота.
</li><li>Из указанного значения. Данный способ означает, что реквизит объекта 1С:Документооборота будет заполнен из значения, указанного пользователем. При выборе данного способа требуется указать то значение, которе будет использовано для заполнения реквизита 1С:Документооборота. Можно указать значение только того типа, который имеет реквизит 1С:Документооборота.
diff --git a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Help/ru.html b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Help/ru.html
index eae5822a2..cce48b1fc 100644
--- a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Help/ru.html
+++ b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>Справочник содержит настройки, которые позволяют автоматически заполнить реквизиты документа 1С:Документооборота из данных объекта, для которого создается документ. <br><br>Например для документа <strong>"Счет от поставщика"</strong> можно указать: </p>
<ul><li>для данного объекта создается входящий документ,
</li><li>поле <strong>Организация</strong> входящего документа заполняется из поля <strong>Организация</strong> счета,
diff --git a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ManagerModule.bsl b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ManagerModule.bsl
index dd02781f2..7e3e21d39 100644
--- a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ManagerModule.bsl
+++ b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
Функция ПолучитьРеквизитыОбъектаДокументооборота(ТипОбъектаДокументооборота, Параметры = Неопределено) Экспорт
@@ -267,3 +269,5 @@
НоваяСтрока.ДопРеквизитТип = ДопРеквизитТип;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ObjectModule.bsl b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ObjectModule.bsl
index bea9230eb..84988850e 100644
--- a/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ObjectModule.bsl
+++ b/SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
Процедура ПередЗаписью(Отказ)
@@ -13,3 +15,5 @@
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ОбщиеДанныеИнформационногоЦентра/ОбщиеДанныеИнформационногоЦентра.mdo b/SSL/src/Catalogs/ОбщиеДанныеИнформационногоЦентра/ОбщиеДанныеИнформационногоЦентра.mdo
new file mode 100644
index 000000000..586c83e4a
--- /dev/null
+++ b/SSL/src/Catalogs/ОбщиеДанныеИнформационногоЦентра/ОбщиеДанныеИнформационногоЦентра.mdo
@@ -0,0 +1,258 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="375fd076-c54c-43c1-8d11-12607c0ce04e">
+ <producedTypes>
+ <objectType typeId="4f050ab0-d646-49da-a181-e27e317c9425" valueTypeId="13a373f3-68b9-4bf7-90c4-ddc7bfaabaea"/>
+ <refType typeId="09d4e5f1-ad8d-43cb-b116-02b9eff8b8b4" valueTypeId="90df2cad-70f6-496b-82a4-b97710b939cf"/>
+ <selectionType typeId="d960f5b1-d348-4256-80dc-ab2e9ba0a6cd" valueTypeId="0c7befb9-4594-4c01-b6c4-16624e8eced9"/>
+ <listType typeId="cc2e6f7d-b7b9-4f01-88ae-6b3ae4fee025" valueTypeId="293ebec4-7a17-4aa4-bfdf-69a99255f67e"/>
+ <managerType typeId="be294236-4a0c-4f83-8c51-3be20bdabffc" valueTypeId="03560295-4665-43b6-8a85-8ec0e75939a5"/>
+ </producedTypes>
+ <name>ОбщиеДанныеИнформационногоЦентра</name>
+ <synonym>
+ <key>ru</key>
+ <value>Общие данные информационного центра</value>
+ </synonym>
+ <useStandardCommands>true</useStandardCommands>
+ <inputByString>Catalog.ОбщиеДанныеИнформационногоЦентра.StandardAttribute.Description</inputByString>
+ <inputByString>Catalog.ОбщиеДанныеИнформационногоЦентра.StandardAttribute.Code</inputByString>
+ <fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>PredefinedDataName</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Predefined</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Ref</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>DeletionMark</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>IsFolder</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Owner</name>
+ <fillFromFillingValue>true</fillFromFillingValue>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fillChecking>ShowError</fillChecking>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Parent</name>
+ <fillFromFillingValue>true</fillFromFillingValue>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Description</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fillChecking>ShowError</fillChecking>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Code</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <createOnInput>Use</createOnInput>
+ <dataLockControlMode>Managed</dataLockControlMode>
+ <fullTextSearch>Use</fullTextSearch>
+ <levelCount>2</levelCount>
+ <foldersOnTop>true</foldersOnTop>
+ <codeLength>9</codeLength>
+ <descriptionLength>150</descriptionLength>
+ <codeType>String</codeType>
+ <codeAllowedLength>Variable</codeAllowedLength>
+ <checkUnique>true</checkUnique>
+ <autonumbering>true</autonumbering>
+ <defaultPresentation>AsDescription</defaultPresentation>
+ <editType>InDialog</editType>
+ <choiceMode>BothWays</choiceMode>
+ <attributes uuid="3b9ded5a-f656-4a33-90f3-d7dbff234da9">
+ <name>Вложения</name>
+ <synonym>
+ <key>ru</key>
+ <value>Вложения</value>
+ </synonym>
+ <type>
+ <types>ValueStorage</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="eae94ac3-3aa3-49f0-940f-51c89fec66e2">
+ <name>ВнешняяСсылка</name>
+ <synonym>
+ <key>ru</key>
+ <value>Внешняя ссылка</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:StringValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="a2b43b21-56e7-4644-9345-d4918a1dfe8e">
+ <name>Дата</name>
+ <synonym>
+ <key>ru</key>
+ <value>Дата</value>
+ </synonym>
+ <type>
+ <types>Date</types>
+ <dateQualifiers>
+ <dateFractions>Date</dateFractions>
+ </dateQualifiers>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="6ef24453-482d-4a6e-a088-7a2faf8de1c8">
+ <name>ДатаНачалаАктуальности</name>
+ <synonym>
+ <key>ru</key>
+ <value>Дата начала актуальности</value>
+ </synonym>
+ <type>
+ <types>Date</types>
+ <dateQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="b9f6c8a3-e9bc-4dae-b583-ca20e91eb261">
+ <name>ДатаОкончанияАктуальности</name>
+ <synonym>
+ <key>ru</key>
+ <value>Дата окончания актуальности</value>
+ </synonym>
+ <type>
+ <types>Date</types>
+ <dateQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="1a0cdbe5-ad4a-42dc-a1c9-54c737436e20">
+ <name>Идентификатор</name>
+ <synonym>
+ <key>ru</key>
+ <value>Идентификатор</value>
+ </synonym>
+ <type>
+ <types>UUID</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="f4cdb0ac-8993-4e8c-9d13-128710dec273">
+ <name>Критичность</name>
+ <synonym>
+ <key>ru</key>
+ <value>Критичность</value>
+ </synonym>
+ <type>
+ <types>Number</types>
+ <numberQualifiers>
+ <precision>10</precision>
+ <nonNegative>true</nonNegative>
+ </numberQualifiers>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="fbe620e1-a3a3-48aa-89e8-4562fdd24f1e">
+ <name>ТекстHTML</name>
+ <synonym>
+ <key>ru</key>
+ <value>Текст HTML</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="b4f824aa-9b2f-40c9-a5f6-98d452019c38">
+ <name>ТипИнформации</name>
+ <synonym>
+ <key>ru</key>
+ <value>Тип информации</value>
+ </synonym>
+ <type>
+ <types>CatalogRef.ТипыИнформацииИнформационногоЦентра</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+</mdclass:Catalog>
diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form
index 99a7640d2..059a43f81 100644
--- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form
@@ -431,6 +431,10 @@
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
+ <handlers>
+ <event>FillCheckProcessingAtServer</event>
+ <name>ОбработкаПроверкиЗаполненияНаСервере</name>
+ </handlers>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
@@ -531,6 +535,10 @@
<event>AfterWriteAtServer</event>
<name>ПослеЗаписиНаСервере</name>
</handlers>
+ <handlers>
+ <event>OnReadAtServer</event>
+ <name>ПриЧтенииНаСервере</name>
+ </handlers>
<handlers>
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl
index 9d941649a..7bf397dd3 100644
--- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl
@@ -1,6 +1,5 @@
-
////////////////////////////////////////////////////////////////////////////////
-// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
+// ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -12,41 +11,13 @@
РабочийКаталог = РаботаСФайламиВызовСервера.ПолучитьРабочийКаталог(Объект.Ссылка);
// СтандартныеПодсистемы.Свойства
- УправлениеСвойствами.ПриСозданииНаСервере(ЭтаФорма, Объект, "");
+ УправлениеСвойствами.ПриСозданииНаСервере(ЭтаФорма);
// Конец СтандартныеПодсистемы.Свойства
ОбновитьПолныйПуть();
КонецПроцедуры
-&НаСервере
-Процедура ОбновитьПолныйПуть()
-
- ПапкаРодитель = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Объект.Ссылка, "Родитель");
-
- Если ЗначениеЗаполнено(ПапкаРодитель) Тогда
-
- ПолныйПуть = "";
- Пока ЗначениеЗаполнено(ПапкаРодитель) Цикл
-
- ПолныйПуть = Строка(ПапкаРодитель) + "\" + ПолныйПуть;
- ПапкаРодитель = ОбщегоНазначения.ПолучитьЗначениеРеквизита(ПапкаРодитель, "Родитель");
- Если Не ЗначениеЗаполнено(ПапкаРодитель) Тогда
- Прервать;
- КонецЕсли;
-
- КонецЦикла;
-
- ПолныйПуть = ПолныйПуть + Строка(Объект.Ссылка);
-
- Если Не ПустаяСтрока(ПолныйПуть) Тогда
- ПолныйПуть = """" + ПолныйПуть + """";
- КонецЕсли;
-
- КонецЕсли;
-
-КонецПроцедуры
-
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
@@ -58,6 +29,15 @@
КонецПроцедуры
+&НаСервере
+Процедура ПриЧтенииНаСервере(ТекущийОбъект)
+
+ // СтандартныеПодсистемы.Свойства
+ УправлениеСвойствами.ПриЧтенииНаСервере(ЭтаФорма, ТекущийОбъект);
+ // Конец СтандартныеПодсистемы.Свойства
+
+КонецПроцедуры
+
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект)
@@ -67,6 +47,30 @@
КонецПроцедуры
+&НаСервере
+Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
+ РабочийКаталог = РаботаСФайламиВызовСервера.ПолучитьРабочийКаталог(Объект.Ссылка);
+КонецПроцедуры
+
+&НаСервере
+Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
+
+ // СтандартныеПодсистемы.Свойства
+ УправлениеСвойствами.ОбработкаПроверкиЗаполнения(ЭтаФорма, Отказ, ПроверяемыеРеквизиты);
+ // Конец СтандартныеПодсистемы.Свойства
+
+КонецПроцедуры
+
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ШАПКИ ФОРМЫ
+
+&НаКлиенте
+Процедура РодительПриИзменении(Элемент)
+
+ ОбновитьПолныйПуть();
+
+КонецПроцедуры
+
&НаКлиенте
Процедура РабочийКаталогВладельцаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
@@ -130,7 +134,7 @@
РабочийКаталогРодителя = РаботаСФайламиВызовСервера.ПолучитьРабочийКаталог(РодительСсылка);
РабочийКаталогЭтойПапки = РаботаСФайламиВызовСервера.ПолучитьРабочийКаталог(Объект.Ссылка);
- РабочийКаталогУнаследованный = РабочийКаталогРодителя + Объект.Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияКлиентПовтИсп.ТипПлатформыКлиента());
+ РабочийКаталогУнаследованный = РабочийКаталогРодителя + Объект.Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияКлиентПовтИсп.ТипПлатформыКлиента());
Если ПустаяСтрока(РабочийКаталогРодителя) Тогда
РабочийКаталог = "";
@@ -144,19 +148,9 @@
КонецПроцедуры
-&НаСервере
-Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
- РабочийКаталог = РаботаСФайламиВызовСервера.ПолучитьРабочийКаталог(Объект.Ссылка);
-КонецПроцедуры
-
-
-&НаКлиенте
-Процедура РодительПриИзменении(Элемент)
-
- ОбновитьПолныйПуть();
-
-КонецПроцедуры
+////////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ КОМАНД ФОРМЫ
&НаКлиенте
Процедура ОткрытьСписокПапокИФайлов(Команда)
@@ -167,20 +161,55 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// ПРОЦЕДУРЫ ПОДСИСТЕМЫ СВОЙСТВ
+// СтандартныеПодсистемы.Свойства
&НаКлиенте
Процедура Подключаемый_РедактироватьСоставСвойств()
- УправлениеСвойствамиКлиент.РедактироватьСоставСвойств(ЭтаФорма, Объект.Ссылка);
+ УправлениеСвойствамиКлиент.РедактироватьСоставСвойств(ЭтаФорма);
КонецПроцедуры
+// Конец СтандартныеПодсистемы.Свойства
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+&НаСервере
+Процедура ОбновитьПолныйПуть()
+
+ ПапкаРодитель = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Объект.Ссылка, "Родитель");
+
+ Если ЗначениеЗаполнено(ПапкаРодитель) Тогда
+
+ ПолныйПуть = "";
+ Пока ЗначениеЗаполнено(ПапкаРодитель) Цикл
+
+ ПолныйПуть = Строка(ПапкаРодитель) + "\" + ПолныйПуть;
+ ПапкаРодитель = ОбщегоНазначения.ПолучитьЗначениеРеквизита(ПапкаРодитель, "Родитель");
+ Если Не ЗначениеЗаполнено(ПапкаРодитель) Тогда
+ Прервать;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ ПолныйПуть = ПолныйПуть + Строка(Объект.Ссылка);
+
+ Если Не ПустаяСтрока(ПолныйПуть) Тогда
+ ПолныйПуть = """" + ПолныйПуть + """";
+ КонецЕсли;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// СтандартныеПодсистемы.Свойства
+
&НаСервере
Процедура ОбновитьЭлементыДополнительныхРеквизитов()
- УправлениеСвойствами.ОбновитьЭлементыДополнительныхРеквизитов(ЭтаФорма, РеквизитФормыВЗначение("Объект"));
+ УправлениеСвойствами.ОбновитьЭлементыДополнительныхРеквизитов(ЭтаФорма);
КонецПроцедуры
+// Конец СтандартныеПодсистемы.Свойства
diff --git a/SSL/src/Catalogs/ПапкиФайлов/Help/ru.html b/SSL/src/Catalogs/ПапкиФайлов/Help/ru.html
index 5689b6536..ded0860a0 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>Все файлы хранятся в структуре папок, которую удобно вести, например:</p>
<ul><li>в соответствии с организационной структурой Вашего предприятия;
</li><li>по типам файлов (например, "Договора", "Приказы", "Служебные записки");
diff --git a/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl
index 62fdc013e..9565fea6c 100644
--- a/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
// Подсистема "Управление доступом"
// Процедура ЗаполнитьНаборыЗначенийДоступа по свойствам объекта заполняет наборы значений доступа
@@ -10,7 +12,7 @@
// Изменение - Булево (необязательно, если набор для всех прав) устанавливается для одной строки набора,
// Удаление - Булево (необязательно, если набор для всех прав) устанавливается для одной строки набора,
//
-// Вызывается из процедуры УправлениеДоступом.ЗаписатьНаборыЗначенийДоступа(),
+// Вызывается из процедуры УправлениеДоступомСлужебный.ЗаписатьНаборыЗначенийДоступа(),
// если объект зарегистрирован в "ПодпискаНаСобытие.ЗаписатьНаборыЗначенийДоступа" и
// из таких же процедур объектов, у которых наборы значений доступа зависят от наборов этого
// объекта (в этом случае объект зарегистрирован в "ПодпискаНаСобытие.ЗаписатьЗависимыеНаборыЗначенийДоступа").
@@ -91,9 +93,9 @@
// Добавляем слэш в конце, если его нет
РабочийКаталог = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РабочийКаталог, ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
- РабочийКаталогУнаследованныйПрежний = РабочийКаталог + Ссылка.Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
+ РабочийКаталогУнаследованныйПрежний = РабочийКаталог + Ссылка.Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
Если РабочийКаталогУнаследованныйПрежний = РабочийКаталогЭтойПапки Тогда
- РабочийКаталог = РабочийКаталог + Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
+ РабочийКаталог = РабочийКаталог + Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
РаботаСФайламиВызовСервера.СохранитьРабочийКаталог(Ссылка, РабочийКаталог);
КонецЕсли;
КонецЕсли;
@@ -108,13 +110,13 @@
РабочийКаталогУнаследованныйПрежний = РабочийКаталог;
Если РабочийКаталог <> "" Тогда
- РабочийКаталогУнаследованныйПрежний = РабочийКаталогУнаследованныйПрежний + Ссылка.Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
+ РабочийКаталогУнаследованныйПрежний = РабочийКаталогУнаследованныйПрежний + Ссылка.Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
КонецЕсли;
Если РабочийКаталогУнаследованныйПрежний = РабочийКаталогЭтойПапки Тогда // рабочий каталог автоформируется от родителя
Если РабочийКаталогНовый <> "" Тогда
- РабочийКаталогНовый = РабочийКаталогНовый + Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
+ РабочийКаталогНовый = РабочийКаталогНовый + Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
РаботаСФайламиВызовСервера.СохранитьРабочийКаталог(Ссылка, РабочийКаталогНовый);
Иначе
РаботаСФайламиВызовСервера.ОчиститьРабочийКаталог(Ссылка);
@@ -138,7 +140,7 @@
// Добавляем слэш в конце, если его нет
РабочийКаталогВладельца = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(РабочийКаталогВладельца, ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
- РабочийКаталогВладельца = РабочийКаталогВладельца + Наименование + ФайловыеФункцииКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
+ РабочийКаталогВладельца = РабочийКаталогВладельца + Наименование + ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьСлеш(ОбщегоНазначенияПовтИсп.ТипПлатформыСервера());
РаботаСФайламиВызовСервера.СохранитьРабочийКаталог(Ссылка, РабочийКаталогВладельца);
КонецЕсли;
КонецЕсли;
@@ -186,3 +188,5 @@
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo b/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo
index 6ab3c2ec6..83318ae28 100644
--- a/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo
+++ b/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo
@@ -310,6 +310,10 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
+ <choiceParameterLinks>
+ <name>Отбор.Владелец</name>
+ <field>Catalog.ПапкиФайлов.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство</field>
+ </choiceParameterLinks>
<quickChoice>DontUse</quickChoice>
<createOnInput>Use</createOnInput>
<dataHistory>Use</dataHistory>
diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl
index 49f12dd32..fdd39f2a9 100644
--- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -49,3 +51,5 @@
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Пользователи/Commands/ПользователиИБ/CommandModule.bsl b/SSL/src/Catalogs/Пользователи/Commands/ПользователиИБ/CommandModule.bsl
index 0f7dc31a5..b08e5bdef 100644
--- a/SSL/src/Catalogs/Пользователи/Commands/ПользователиИБ/CommandModule.bsl
+++ b/SSL/src/Catalogs/Пользователи/Commands/ПользователиИБ/CommandModule.bsl
@@ -6,15 +6,23 @@
Если ТипЗнч(ПараметрыВыполненияКоманды.Источник) = Тип("УправляемаяФорма") Тогда
- Если ПараметрыВыполненияКоманды.Источник.ИмяФормы = "Справочник.Пользователи.Форма.ФормаСписка" Тогда
+ Если ПараметрыВыполненияКоманды.Источник.ИмяФормы =
+ "Справочник.Пользователи.Форма.ФормаСписка" Тогда
+
ПараметрыФормы.Вставить("Отбор", "Пользователи");
- ИначеЕсли ПараметрыВыполненияКоманды.Источник.ИмяФормы = "Справочник.ВнешниеПользователи.Форма.ФормаСписка" Тогда
- ПараметрыФормы.Вставить("Отбор", "ВнешниеПользователи");
+ ИначеЕсли ПараметрыВыполненияКоманды.Источник.ИмяФормы =
+ "Справочник.ВнешниеПользователи.Форма.ФормаСписка" Тогда
+ ПараметрыФормы.Вставить("Отбор", "ВнешниеПользователи");
КонецЕсли;
КонецЕсли;
- ОткрытьФорму("Справочник.Пользователи.Форма.ПользователиИБ", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);
+ ОткрытьФорму(
+ "Справочник.Пользователи.Форма.ПользователиИБ",
+ ПараметрыФормы,
+ ПараметрыВыполненияКоманды.Источник,
+ ПараметрыВыполненияКоманды.Уникальность,
+ ПараметрыВыполненияКоманды.Окно);
КонецПроцедуры
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Help/ru.html
index fa28def9c..ea73d712d 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>При записи <a href="Catalog.Пользователи/Help">пользователя</a> (или <a href="Catalog.ВнешниеПользователи/Help">внешнего пользователя</a>) с установленным флажком <strong>Доступ к информационной базе разрешен</strong>, вместе с ним автоматически создается соответствующий ему новый (или модифицируется существующий) пользователь ИБ. И наоборот, когда пользователь (или внешний пользователь) записывается со снятым флажком<strong> Доступ к информационной базе разрешен</strong>, то соответствующий ему пользователь ИБ автоматически удаляется из списка пользователей ИБ. Однако есть ряд ситуаций, когда список пользователей ИБ становится рассинхронизированным со списком пользователей. Тогда с помощью данного списка могут быть решены следующие задачи:</p>
<ul><li>Найти "некорректных" пользователей ИБ и синхронизировать списки пользователей ИБ и пользователей между собой:
<ul><li>если пользователь ИБ был добавлен с помощью конфигуратора (или каким-либо нештатным программным способом), предлагается удалить такого пользователя ИБ;
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Module.bsl
index 82a66df1f..dfc893309 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Module.bsl
+++ b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИБ/Module.bsl
@@ -5,7 +5,9 @@
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда
- ВызватьИсключение НСтр("ru = 'Недостаточно прав для открытия списка пользователей информационной базы.'");
+ ВызватьИсключение
+ НСтр("ru = 'Недостаточно прав для открытия
+ |списка пользователей информационной базы.'");
КонецЕсли;
Пользователи.НайтиНеоднозначныхПользователейИБ();
@@ -33,10 +35,10 @@
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
- Если ИмяСобытия = "ДобавленПользовательИБ" ИЛИ
- ИмяСобытия = "ИзмененПользовательИБ" ИЛИ
- ИмяСобытия = "УдаленПользовательИБ" ИЛИ
- ИмяСобытия = "ОчищенаСвязьСНесуществущимПользователемИБ" Тогда
+ Если ИмяСобытия = "ДобавленПользовательИБ"
+ ИЛИ ИмяСобытия = "ИзмененПользовательИБ"
+ ИЛИ ИмяСобытия = "УдаленПользовательИБ"
+ ИЛИ ИмяСобытия = "ОчищенаСвязьСНесуществущимПользователемИБ" Тогда
ЗаполнитьПользователейИБ();
КонецЕсли;
@@ -50,8 +52,12 @@
Процедура ПредставлениеОтбораПриИзменении(Элемент)
Если НЕ ЗначениеЗаполнено(ПредставлениеОтбора) Тогда
+
Отбор = "Все";
- ПредставлениеОтбора = Элементы.ПредставлениеОтбора.СписокВыбора.НайтиПоЗначению(Отбор).Представление;
+
+ ПредставлениеОтбора = Элементы.ПредставлениеОтбора.СписокВыбора.НайтиПоЗначению(
+ Отбор).Представление;
+
КонецЕсли;
ЗаполнитьПользователейИБ();
@@ -63,7 +69,10 @@
СтандартнаяОбработка = Ложь;
- ВыбранныйЭлемент = ВыбратьИзСписка(Элементы.ПредставлениеОтбора.СписокВыбора, Элемент, Элементы.ПредставлениеОтбора.СписокВыбора.НайтиПоЗначению(Отбор));
+ ВыбранныйЭлемент = ВыбратьИзСписка(
+ Элементы.ПредставлениеОтбора.СписокВыбора,
+ Элемент,
+ Элементы.ПредставлениеОтбора.СписокВыбора.НайтиПоЗначению(Отбор));
Если ВыбранныйЭлемент <> Неопределено Тогда
@@ -99,8 +108,8 @@
&НаКлиенте
Процедура ПользователиИнфБазыПриАктивизацииСтроки(Элемент)
- МожноУдалить = Элементы.ПользователиИнфБазы.ТекущиеДанные <> Неопределено И
- Элементы.ПользователиИнфБазы.ТекущиеДанные.КодПроблемы = 0;
+ МожноУдалить = Элементы.ПользователиИнфБазы.ТекущиеДанные <> Неопределено
+ И Элементы.ПользователиИнфБазы.ТекущиеДанные.КодПроблемы = 0;
Элементы.ПользователиИнфБазыУдалить.Доступность = МожноУдалить;
Элементы.КонтекстноеМенюПользователиИнфБазыУдалить.Доступность = МожноУдалить;
@@ -111,9 +120,14 @@
Процедура ПользователиИнфБазыПередУдалением(Элемент, Отказ)
Если Элементы.ПользователиИнфБазы.ТекущиеДанные.КодПроблемы = 0 Тогда
- Ответ = Вопрос(НСтр("ru = 'Удалить пользователя информационной базы?'"), РежимДиалогаВопрос.ДаНет);
+
+ Ответ = Вопрос(
+ НСтр("ru = 'Удалить пользователя информационной базы?'"), РежимДиалогаВопрос.ДаНет);
+
Если Ответ = КодВозвратаДиалога.Да Тогда
- УдалитьПользователяИБ(Элементы.ПользователиИнфБазы.ТекущиеДанные.ИдентификаторПользователяИБ, Отказ);
+
+ УдалитьПользователяИБ(
+ Элементы.ПользователиИнфБазы.ТекущиеДанные.ИдентификаторПользователяИБ, Отказ);
Иначе
Отказ = Истина;
КонецЕсли;
@@ -173,11 +187,21 @@
| Справочник.ВнешниеПользователи КАК ВнешниеПользователи");
УстановитьПривилегированныйРежим(Истина);
- Выборка = Запрос.Выполнить().Выбрать();
+
+ НачатьТранзакцию();
+ Попытка
+ Выборка = Запрос.Выполнить().Выбрать();
+
+ ЗафиксироватьТранзакцию();
+ Исключение
+ ОтменитьТранзакцию();
+ ВызватьИсключение;
+ КонецПопытки;
Пока Выборка.Следующий() Цикл
- ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(Выборка.ИдентификаторПользователяИБ);
+ ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
+ Выборка.ИдентификаторПользователяИБ);
НоваяСтрока = ПользователиИнфБазы.Добавить();
@@ -190,7 +214,10 @@
Если ПользовательИБ = Неопределено Тогда
НоваяСтрока.КодПроблемы = ?(ЗначениеЗаполнено(Выборка.ИдентификаторПользователяИБ), 2, 3);
- ЕстьНеправильноЗаписанные = ЕстьНеправильноЗаписанные ИЛИ ЗначениеЗаполнено(Выборка.ИдентификаторПользователяИБ);
+
+ ЕстьНеправильноЗаписанные
+ = ЕстьНеправильноЗаписанные
+ ИЛИ ЗначениеЗаполнено(Выборка.ИдентификаторПользователяИБ);
Иначе
НоваяСтрока.Имя = ПользовательИБ.Имя;
НоваяСтрока.АутентификацияСтандартная = ПользовательИБ.АутентификацияСтандартная;
@@ -198,13 +225,15 @@
НоваяСтрока.ПользовательОС = ПользовательИБ.ПользовательОС;
НоваяСтрока.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;
- Если Выборка.Наименование <> ПользовательИБ.ПолноеИмя Тогда // рассогласование по полному имени
+ Если Выборка.Наименование <> ПользовательИБ.ПолноеИмя Тогда
+ // Рассогласование по полному имени.
НоваяСтрока.КодПроблемы = 1;
ЕстьНеправильноЗаписанные = Истина;
КонецЕсли;
КонецЕсли;
- НоваяСтрока.Картинка = ПолучитьНомерКартинкиПоСостоянию(НоваяСтрока.КодПроблемы, НоваяСтрока.ПометкаУдаления, Выборка.ЭтоВнешнийПользователь);
+ НоваяСтрока.Картинка = ПолучитьНомерКартинкиПоСостоянию(
+ НоваяСтрока.КодПроблемы, НоваяСтрока.ПометкаУдаления, Выборка.ЭтоВнешнийПользователь);
КонецЦикла;
@@ -212,8 +241,10 @@
Для Каждого ПользовательИБ Из ПользователиИБ Цикл
- Если ПользователиИнфБазы.НайтиСтроки(Новый Структура("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор)).Количество() = 0 Тогда
- // этого пользователя ИБ нет в справочнике
+ ОтборСтрок = Новый Структура;
+ ОтборСтрок.Вставить("ИдентификаторПользователяИБ", ПользовательИБ.УникальныйИдентификатор);
+ Если ПользователиИнфБазы.НайтиСтроки(ОтборСтрок).Количество() = 0 Тогда
+ // Пользователя ИБ нет в справочнике.
НоваяСтрока = ПользователиИнфБазы.Добавить();
НоваяСтрока.КодПроблемы = 0;
НоваяСтрока.ПолноеИмя = ПользовательИБ.ПолноеИмя;
@@ -222,7 +253,9 @@
НоваяСтрока.АутентификацияОС = ПользовательИБ.АутентификацияОС;
НоваяСтрока.ПользовательОС = ПользовательИБ.ПользовательОС;
НоваяСтрока.ИдентификаторПользователяИБ = ПользовательИБ.УникальныйИдентификатор;
- НоваяСтрока.Картинка = ПолучитьНомерКартинкиПоСостоянию(НоваяСтрока.КодПроблемы, НоваяСтрока.ПометкаУдаления, Ложь);
+ НоваяСтрока.Картинка = ПолучитьНомерКартинкиПоСостоянию(
+ НоваяСтрока.КодПроблемы, НоваяСтрока.ПометкаУдаления, Ложь);
+
ЕстьНеправильноЗаписанные = Истина;
КонецЕсли;
@@ -235,13 +268,16 @@
УдаляемыеСтроки = Новый Массив;
Если Отбор = "Пользователи" Тогда
- УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(Новый Структура("ЭтоПользователь", Ложь)));
+ УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(
+ Новый Структура("ЭтоПользователь", Ложь)));
ИначеЕсли Отбор = "ВнешниеПользователи" Тогда
- УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(Новый Структура("ЭтоВнешнийПользователь", Ложь)));
+ УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(
+ Новый Структура("ЭтоВнешнийПользователь", Ложь)));
ИначеЕсли Отбор = "НеправильноЗаписанные" Тогда
УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(Новый Структура("КодПроблемы", 3)));
+
УдаляемыеСтроки.Добавить(ПользователиИнфБазы.НайтиСтроки(Новый Структура("КодПроблемы", 4)));
ИначеЕсли Отбор = "БезПользователяИБ" Тогда
@@ -263,7 +299,9 @@
КонецПроцедуры
&НаСервере
-Функция ПолучитьНомерКартинкиПоСостоянию(Знач КодПроблемы, Знач ПометкаУдаления, Знач ЭтоВнешнийПользователь)
+Функция ПолучитьНомерКартинкиПоСостоянию(Знач КодПроблемы,
+ Знач ПометкаУдаления,
+ Знач ЭтоВнешнийПользователь)
НомерКартинки = -1;
@@ -311,11 +349,12 @@
КонецЕсли;
Если ТекущиеДанные.КодПроблемы = 0 Тогда
- Предупреждение(НСтр("ru = 'Данному пользователю информационной базы не сопоставлен элемент справочника.
- |
- |Для создания пользователя информационной базы,
- |связанного с пользователем или внешним пользователем применяйте флажок
- |""Доступ к информационной базе разрешен"" в соответствующей форме элемента.'"));
+ Предупреждение(
+ НСтр("ru = 'Данному пользователю информационной базы не сопоставлен элемент справочника.
+ |
+ |Для создания пользователя информационной базы,
+ |связанного с пользователем или внешним пользователем применяйте флажок
+ |""Доступ к информационной базе разрешен"" в соответствующей форме элемента.'"));
Отказ = Ложь;
ПользователиИнфБазыПередУдалением(Элементы.ПользователиИнфБазы, Отказ);
@@ -323,10 +362,11 @@
ПользователиИнфБазы.Удалить(ТекущиеДанные);
КонецЕсли;
Иначе
- ОткрытьФорму(?(ТекущиеДанные.ЭтоВнешнийПользователь,
- "Справочник.ВнешниеПользователи.ФормаОбъекта",
- "Справочник.Пользователи.ФормаОбъекта"),
- Новый Структура("Ключ", ТекущиеДанные.Ссылка));
+ ОткрытьФорму(
+ ?( ТекущиеДанные.ЭтоВнешнийПользователь,
+ "Справочник.ВнешниеПользователи.ФормаОбъекта",
+ "Справочник.Пользователи.ФормаОбъекта"),
+ Новый Структура("Ключ", ТекущиеДанные.Ссылка));
КонецЕсли;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Help/ru.html b/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Help/ru.html
index 62862885e..e1095f818 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p class="Usual">Диалог "Выбор пользователя операционной системы" позволяет выбрать одного из пользователей, зарегистрированных в операционной системе.</p>
<p class="Usual">В списке "<strong class="ControlElement">Домены</strong>" отображаются имена доменов, видимых с данного компьютера.</p>
<p class="Usual">В списке "<strong class="ControlElement">Пользователи</strong>" отображаются имена пользователей, зарегистрированных в выбранном домене.</p>
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Module.bsl
index 0bd156ad0..85bab017d 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Module.bsl
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Module.bsl
@@ -4,11 +4,11 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
- #Если ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
+#Если ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
ТаблицаДоменовИПользователей = ПользователиОС();
- #ИначеЕсли ТонкийКлиент Тогда
+#ИначеЕсли ТонкийКлиент Тогда
ТаблицаДоменовИПользователей = Новый ФиксированныйМассив (ПользователиОС());
- #КонецЕсли
+#КонецЕсли
ЗаполнитьСписокДоменов();
@@ -27,15 +27,19 @@
Если Элемент.ТекущиеДанные <> Неопределено Тогда
ИмяДомена = Элемент.ТекущиеДанные.ИмяДомена;
+
Для Каждого Запись Из ТаблицаДоменовИПользователей Цикл
Если Запись.ИмяДомена = ИмяДомена Тогда
+
Для Каждого Пользователь Из Запись.Пользователи Цикл
ПользовательДомена = СписокПользователейТекущегоДомена.Добавить();
ПользовательДомена.ИмяПользователя = Пользователь;
КонецЦикла;
Прервать;
+
КонецЕсли;
КонецЦикла;
+
СписокПользователейТекущегоДомена.Сортировать("ИмяПользователя");
КонецЕсли;
@@ -95,6 +99,7 @@
ИмяДомена = Элементы.ТаблицаДоменов.ТекущиеДанные.ИмяДомена;
ИмяПользователя = Элементы.ТаблицаПользователейДомена.ТекущиеДанные.ИмяПользователя;
+
СтрокаПользователяWindows = "\\" + ИмяДомена + "\" + ИмяПользователя;
Закрыть(СтрокаПользователяWindows);
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Attributes/ПользователиСписок/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Attributes/ПользователиСписок/ExtInfo/ListSettings.dcss
index eb1c1dd72..62a95e605 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Attributes/ПользователиСписок/ExtInfo/ListSettings.dcss
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Attributes/ПользователиСписок/ExtInfo/ListSettings.dcss
@@ -1,6 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
+ <item xsi:type="FilterItemComparison">
+ <left xsi:type="dcscor:Field">Служебный</left>
+ <comparisonType>Equal</comparisonType>
+ <right xsi:type="xs:boolean">false</right>
+ </item>
+ <item xsi:type="FilterItemComparison">
+ <left xsi:type="dcscor:Field">Недействителен</left>
+ <comparisonType>Equal</comparisonType>
+ <right xsi:type="xs:boolean">false</right>
+ </item>
<item xsi:type="FilterItemComparison">
<use>false</use>
<left xsi:type="dcscor:Field">ПометкаУдаления</left>
@@ -23,7 +33,7 @@
<selection/>
<filter>
<item xsi:type="FilterItemComparison">
- <left xsi:type="dcscor:Field">Ссылка.Недействителен</left>
+ <left xsi:type="dcscor:Field">Недействителен</left>
<comparisonType>Equal</comparisonType>
<right xsi:type="xs:boolean">true</right>
</item>
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form
index 45d54954c..05bc2b31f 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form
@@ -166,6 +166,7 @@
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
+ <selectionMode>MultiRow</selectionMode>
<rowSelectionMode>Row</rowSelectionMode>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
@@ -876,7 +877,7 @@
<queryText>ВЫБРАТЬ
Пользователи.Ссылка,
Пользователи.ПометкаУдаления,
- Пользователи.Предопределенный,
+ Пользователи.Недействителен,
Пользователи.Наименование,
ВЫБОР
КОГДА Пользователи.ПометкаУдаления
@@ -884,12 +885,12 @@
КОГДА Пользователи.ИдентификаторПользователяИБ = &ПустойУникальныйИдентификатор
ТОГДА 4
ИНАЧЕ 1
- КОНЕЦ КАК НомерКартинки
+ КОНЕЦ КАК НомерКартинки,
+ Пользователи.Служебный
ИЗ
Справочник.Пользователи КАК Пользователи
ГДЕ
- Пользователи.Ссылка <> &НеуказанныйПользователь
- И (&ВыбиратьИерархически
+ (&ВыбиратьИерархически
И ИСТИНА В
(ВЫБРАТЬ
ИСТИНА
@@ -906,15 +907,7 @@
Справочник.ГруппыПользователей.Состав КАК ГруппыПользователейСостав
ГДЕ
ГруппыПользователейСостав.Пользователь = Пользователи.Ссылка
- И ГруппыПользователейСостав.Ссылка = &ГруппаПользователей))
- И (&РазделениеВыключено
- ИЛИ (НЕ ИСТИНА В
- (ВЫБРАТЬ
- ИСТИНА
- ИЗ
- РегистрСведений.НеразделенныеПользователи КАК НеразделенныеПользователи
- ГДЕ
- НеразделенныеПользователи.ИдентификаторПользователяИБ = Пользователи.ИдентификаторПользователяИБ)))</queryText>
+ И ГруппыПользователейСостав.Ссылка = &ГруппаПользователей))</queryText>
<mainTable>Catalog.Пользователи</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
@@ -939,7 +932,6 @@
<edit>
<common>true</common>
</edit>
- <functionalOptions>FunctionalOption.ИспользоватьГруппыПользователей</functionalOptions>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>ГруппыПользователей.Parent</segments>
</notDefaultUseAlwaysAttributes>
@@ -986,49 +978,13 @@
</settingsSavedData>
</attributes>
<attributes>
- <name>ГруппаПользователейВсеПользователи</name>
+ <name>ХранимыеПараметры</name>
<title>
<key>ru</key>
- <value>Группа пользователей все пользователи</value>
+ <value>Хранимые параметры</value>
- 4
-
- CatalogRef.ГруппыПользователей
-
-
- true
-
-
- true
-
-
-
- ИспользоватьГруппы
-
- <key>ru</key>
- <value>Использовать группы</value>
-
- 5
-
- Boolean
-
-
- true
-
-
- true
-
-
-
- ПоказыватьНедействительныхПользователей
-
- <key>ru</key>
- <value>Показывать недействительных пользователей</value>
-
- 6
-
- Boolean
-
+ 7
+ true
@@ -1094,6 +1050,12 @@
ЗакрыватьПриВыборе
+
+ ДоступКИнформационнойБазеРазрешен
+
+ Boolean
+
+
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl
index 7e1a32f20..9fa3887d9 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl
@@ -4,54 +4,35 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
- ОбновитьЗначениеПараметраКомпоновкиДанных(ПользователиСписок, "НеуказанныйПользователь", Пользователи.СвойстваНеуказанногоПользователя().СтандартнаяСсылка);
+ // Начальное значение настройки до загрузки данных из настроек.
+ ВыбиратьИерархически = Истина;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ПользователиСписок, "РазделениеВыключено", НЕ ОбщегоНазначенияПовтИсп.РазделениеВключено());
-
- ПоказыватьНедействительныхПользователей = Ложь;
+ ЗаполнитьХранимыеПараметры();
+ ЗаполнитьПараметрыДинамическихСписков();
Если Параметры.РежимВыбора Тогда
-
РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
-
- Иначе
-
- // только если не режим выбора, делаем фильтрацию
-
- Если ПоказыватьНедействительныхПользователей Тогда
- ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(ПользователиСписок.Отбор, "Недействителен");
- Иначе
- ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
- ПользователиСписок.Отбор,
- "Недействителен",
- Ложь);
- КонецЕсли;
-
КонецЕсли;
- ИспользоватьГруппы = ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей");
+ ОбновитьОтборНедействительныхПользователей(ЭтаФорма);
- Если ТипЗнч(Параметры.ТекущаяСтрока) = Тип("СправочникСсылка.ГруппыПользователей") Тогда
- Если ИспользоватьГруппы Тогда
- Элементы.ГруппыПользователей.ТекущаяСтрока = Параметры.ТекущаяСтрока;
+ // Скрытие пользователей с пустым идентификатором, если значение параметра Истина.
+ Если Параметры.ДоступКИнформационнойБазеРазрешен Тогда
+
+ Если Параметры.ДоступКИнформационнойБазеРазрешен = Ложь Тогда
+ ВидСравненияКД = ВидСравненияКомпоновкиДанных.Равно;
Иначе
- Параметры.ТекущаяСтрока = Неопределено;
+ ВидСравненияКД = ВидСравненияКомпоновкиДанных.НеРавно;
КонецЕсли;
- Иначе
- ТекущийЭлемент = Элементы.ПользователиСписок;
- Элементы.ГруппыПользователей.ТекущаяСтрока = Справочники.ГруппыПользователей.ВсеПользователи;
+
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ ПользователиСписок.Отбор,
+ "ИдентификаторПользователяИБ",
+ Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"),
+ ВидСравненияКД);
+
КонецЕсли;
- Если НЕ ИспользоватьГруппы Тогда
- Параметры.ВыборГруппПользователей = Ложь;
- Элементы.ГруппаПоказыватьПользователейДочернихГрупп.Видимость = Ложь;
- Элементы.СоздатьГруппуПользователей.Видимость = Ложь;
- КонецЕсли;
-
- // Настройка постоянных данных для списка пользователей
- ОбновитьЗначениеПараметраКомпоновкиДанных(ПользователиСписок, "ПустойУникальныйИдентификатор", Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"));
- ГруппаПользователейВсеПользователи = Справочники.ГруппыПользователей.ВсеПользователи;
-
Если НЕ ПравоДоступа("Добавление", Метаданные.Справочники.ГруппыПользователей) Тогда
Элементы.СоздатьГруппуПользователей.Видимость = Ложь;
КонецЕсли;
@@ -65,43 +46,28 @@
Элементы.ПользователиИБ.Видимость = Ложь;
КонецЕсли;
- // Отбор не помеченных на удаление
+ // Отбор не помеченных на удаление.
ПользователиСписок.Отбор.Элементы[0].Использование = Истина;
- Элементы.ПользователиСписок.РежимВыбора = Истина;
- Элементы.ГруппыПользователей.РежимВыбора = Параметры.ВыборГруппПользователей;
- Элементы.ВыбратьГруппуПользователей.Видимость = Параметры.ВыборГруппПользователей;
- Элементы.ВыбратьПользователя.КнопкаПоУмолчанию = НЕ Параметры.ВыборГруппПользователей;
+ Элементы.ПользователиСписок.РежимВыбора = Истина;
+ Элементы.ГруппыПользователей.РежимВыбора = ХранимыеПараметры.ВыборГруппПользователей;
Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
- // Режим подбора
+ // Режим подбора.
Элементы.ПользователиСписок.МножественныйВыбор = Истина;
- Если Параметры.ВыборГруппПользователей Тогда
- Заголовок = НСтр("ru = 'Подбор пользователей и групп'");
- Элементы.ВыбратьПользователя.Заголовок = НСтр("ru = 'Выбрать пользователей'");
- Элементы.ВыбратьГруппуПользователей.Заголовок = НСтр("ru = 'Выбрать группы'");
-
+ Если ХранимыеПараметры.ВыборГруппПользователей Тогда
Элементы.ГруппыПользователей.МножественныйВыбор = Истина;
- Элементы.ГруппыПользователей.РежимВыделения = РежимВыделенияТаблицы.Множественный;
- Иначе
- Заголовок = НСтр("ru = 'Подбор пользователей'");
- КонецЕсли;
- Иначе
- // Режим выбора
- Если Параметры.ВыборГруппПользователей Тогда
- Заголовок = НСтр("ru = 'Выбор пользователя или группы'");
- Элементы.ВыбратьПользователя.Заголовок = НСтр("ru = 'Выбрать пользователя'");
- Иначе
- Заголовок = НСтр("ru = 'Выбор пользователя'");
КонецЕсли;
КонецЕсли;
Иначе
- Элементы.ВыбратьПользователя.Видимость = Ложь;
+ Элементы.ВыбратьПользователя.Видимость = Ложь;
Элементы.ВыбратьГруппуПользователей.Видимость = Ложь;
КонецЕсли;
- ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
+ ХранимыеПараметры.Вставить("ТекущаяСтрока", Параметры.ТекущаяСтрока);
+ НастроитьФормуПоИспользованиюГруппПользователей();
+ ХранимыеПараметры.Удалить("ТекущаяСтрока");
КонецПроцедуры
@@ -112,6 +78,10 @@
И Источник = Элементы.ГруппыПользователей.ТекущаяСтрока Тогда
Элементы.ПользователиСписок.Обновить();
+
+ ИначеЕсли ВРег(ИмяСобытия) = ВРег("Запись_ИспользоватьГруппыПользователей") Тогда
+
+ ПодключитьОбработчикОжидания("ПриИзмененииИспользованияГруппПользователей", 0.1, Истина);
КонецЕсли;
КонецПроцедуры
@@ -119,8 +89,12 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
- Если Настройки[ВыбиратьИерархически] = Неопределено Тогда
- ВыбиратьИерархически = Истина;
+ Если ТипЗнч(Настройки["ВыбиратьИерархически"]) = Тип("Булево") Тогда
+ ВыбиратьИерархически = Настройки["ВыбиратьИерархически"];
+ КонецЕсли;
+
+ Если НЕ ВыбиратьИерархически Тогда
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
КонецЕсли;
КонецПроцедуры
@@ -162,11 +136,15 @@
ПараметрыФормы = Новый Структура;
Если ЗначениеЗаполнено(Элементы.ГруппыПользователей.ТекущаяСтрока) Тогда
-
- ПараметрыФормы.Вставить("ЗначенияЗаполнения", Новый Структура("Родитель", Элементы.ГруппыПользователей.ТекущаяСтрока));
+ ПараметрыФормы.Вставить(
+ "ЗначенияЗаполнения",
+ Новый Структура("Родитель", Элементы.ГруппыПользователей.ТекущаяСтрока));
КонецЕсли;
- ОткрытьФорму("Справочник.ГруппыПользователей.ФормаОбъекта", ПараметрыФормы, Элементы.ГруппыПользователей);
+ ОткрытьФорму(
+ "Справочник.ГруппыПользователей.ФормаОбъекта",
+ ПараметрыФормы,
+ Элементы.ГруппыПользователей);
КонецЕсли;
КонецПроцедуры
@@ -191,7 +169,9 @@
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ГруппаНовогоПользователя", Элементы.ГруппыПользователей.ТекущаяСтрока);
- Если Копирование И Элемент.ТекущиеДанные <> Неопределено Тогда
+ Если Копирование
+ И Элемент.ТекущиеДанные <> Неопределено Тогда
+
ПараметрыФормы.Вставить("ЗначениеКопирования", Элемент.ТекущаяСтрока);
КонецЕсли;
@@ -212,24 +192,143 @@
&НаКлиенте
Процедура ПоказыватьНедействительныхПользователей(Команда)
- ПоказыватьНедействительныхПользователей = Не ПоказыватьНедействительныхПользователей;
+ ОбновитьОтборНедействительныхПользователей(ЭтаФорма, Истина);
- Элементы.ПоказыватьНедействительныхПользователей.Пометка = ПоказыватьНедействительныхПользователей;
-
- Если ПоказыватьНедействительныхПользователей Тогда
- ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(ПользователиСписок.Отбор, "Недействителен");
- Иначе
- ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
- ПользователиСписок.Отбор,
- "Недействителен",
- Ложь);
- КонецЕсли;
-
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+&НаСервере
+Процедура ЗаполнитьХранимыеПараметры()
+
+ ХранимыеПараметры = Новый Структура;
+ ХранимыеПараметры.Вставить("ВыборГруппПользователей", Параметры.ВыборГруппПользователей);
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаполнитьПараметрыДинамическихСписков()
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ ПользователиСписок,
+ "ПустойУникальныйИдентификатор",
+ Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"));
+
+КонецПроцедуры
+
+&НаКлиентеНаСервереБезКонтекста
+Процедура ОбновитьОтборНедействительныхПользователей(Форма, ИзменитьОтбор = Ложь)
+
+ Элементы = Форма.Элементы;
+
+ Если ИзменитьОтбор Тогда
+
+ Элементы.ПоказыватьНедействительныхПользователей.Пометка =
+ НЕ Элементы.ПоказыватьНедействительныхПользователей.Пометка;
+
+ ИначеЕсли Форма.Параметры.Отбор.Свойство("Недействителен") Тогда
+
+ Элементы.ПоказыватьНедействительныхПользователей.Пометка =
+ Форма.Параметры.Отбор.Недействителен;
+
+ КонецЕсли;
+
+ Если Элементы.ПоказыватьНедействительныхПользователей.Пометка Тогда
+
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ Форма.ПользователиСписок.Отбор, "Недействителен", Ложь, , , Ложь);
+ Иначе
+ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
+ Форма.ПользователиСписок.Отбор, "Недействителен", Ложь, , , Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриИзмененииИспользованияГруппПользователей()
+
+ НастроитьФормуПоИспользованиюГруппПользователей();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура НастроитьФормуПоИспользованиюГруппПользователей()
+
+ ХранимыеПараметры.Вставить(
+ "ИспользоватьГруппы", ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей"));
+
+ Если ХранимыеПараметры.Свойство("ТекущаяСтрока") Тогда
+
+ Если ТипЗнч(ХранимыеПараметры.ТекущаяСтрока) = Тип("СправочникСсылка.ГруппыПользователей") Тогда
+
+ Если ХранимыеПараметры.ИспользоватьГруппы Тогда
+ Элементы.ГруппыПользователей.ТекущаяСтрока = ХранимыеПараметры.ТекущаяСтрока;
+ Иначе
+ Параметры.ТекущаяСтрока = Неопределено;
+ КонецЕсли;
+ Иначе
+ ТекущийЭлемент = Элементы.ПользователиСписок;
+ Элементы.ГруппыПользователей.ТекущаяСтрока = Справочники.ГруппыПользователей.ВсеПользователи;
+ КонецЕсли;
+ Иначе
+ Если НЕ ХранимыеПараметры.ИспользоватьГруппы
+ И Элементы.ГруппыПользователей.ТекущаяСтрока
+ <> Справочники.ГруппыПользователей.ВсеПользователи Тогда
+
+ Элементы.ГруппыПользователей.ТекущаяСтрока = Справочники.ГруппыПользователей.ВсеПользователи;
+ КонецЕсли;
+ КонецЕсли;
+
+ Элементы.ГруппаПоказыватьПользователейДочернихГрупп.Видимость = ХранимыеПараметры.ИспользоватьГруппы;
+ Элементы.СоздатьГруппуПользователей.Видимость = ХранимыеПараметры.ИспользоватьГруппы;
+
+ ВыборГруппПользователей = ХранимыеПараметры.ВыборГруппПользователей
+ И ХранимыеПараметры.ИспользоватьГруппы
+ И Параметры.РежимВыбора;
+
+ Если Параметры.РежимВыбора Тогда
+
+ Элементы.ВыбратьГруппуПользователей.Видимость = ВыборГруппПользователей;
+ Элементы.ВыбратьПользователя.КнопкаПоУмолчанию = НЕ ВыборГруппПользователей;
+ АвтоЗаголовок = Ложь;
+
+ Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
+ // Режим подбора.
+
+ Если ВыборГруппПользователей Тогда
+
+ Заголовок =
+ НСтр("ru = 'Подбор пользователей и групп'");
+
+ Элементы.ВыбратьПользователя.Заголовок =
+ НСтр("ru = 'Выбрать пользователей'");
+
+ Элементы.ВыбратьГруппуПользователей.Заголовок =
+ НСтр("ru = 'Выбрать группы'");
+ Иначе
+ Заголовок = НСтр("ru = 'Подбор пользователей'");
+ КонецЕсли;
+ Иначе
+ // Режим выбора.
+ Если ВыборГруппПользователей Тогда
+
+ Заголовок =
+ НСтр("ru = 'Выбор пользователя или группы'");
+
+ Элементы.ВыбратьПользователя.Заголовок =
+ НСтр("ru = 'Выбрать пользователя'");
+ Иначе
+ Заголовок =
+ НСтр("ru = 'Выбор пользователя'");
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
+
+ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма);
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ГруппыПользователейПослеАктивизацииСтроки()
@@ -238,31 +337,52 @@
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
-Процедура ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтаФорма)
+Процедура ОбновитьСодержимоеФормыПриИзмененииГруппы(Форма)
- Элементы = ЭтаФорма.Элементы;
- Если НЕ ЭтаФорма.ИспользоватьГруппы
- ИЛИ Элементы.ГруппыПользователей.ТекущаяСтрока = ЭтаФорма.ГруппаПользователейВсеПользователи Тогда
- Элементы.ГруппаПоказыватьПользователейДочернихГрупп.ТекущаяСтраница = Элементы.ГруппаНельзяУстановитьСвойство;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ЭтаФорма.ПользователиСписок, "ВыбиратьИерархически", Истина);
- ОбновитьЗначениеПараметраКомпоновкиДанных(ЭтаФорма.ПользователиСписок, "ГруппаПользователей", ЭтаФорма.ГруппаПользователейВсеПользователи);
+ Элементы = Форма.Элементы;
+
+ Если НЕ Форма.ХранимыеПараметры.ИспользоватьГруппы
+ ИЛИ Элементы.ГруппыПользователей.ТекущаяСтрока = ПредопределенноеЗначение(
+ "Справочник.ГруппыПользователей.ВсеПользователи") Тогда
+
+ Элементы.ГруппаПоказыватьПользователейДочернихГрупп.ТекущаяСтраница =
+ Элементы.ГруппаНельзяУстановитьСвойство;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ПользователиСписок, "ВыбиратьИерархически", Истина);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ПользователиСписок, "ГруппаПользователей", ПредопределенноеЗначение(
+ "Справочник.ГруппыПользователей.ВсеПользователи"));
Иначе
- Элементы.ГруппаПоказыватьПользователейДочернихГрупп.ТекущаяСтраница = Элементы.ГруппаУстановитьСвойство;
- ОбновитьЗначениеПараметраКомпоновкиДанных(ЭтаФорма.ПользователиСписок, "ВыбиратьИерархически", ЭтаФорма.ВыбиратьИерархически);
- ОбновитьЗначениеПараметраКомпоновкиДанных(ЭтаФорма.ПользователиСписок, "ГруппаПользователей", Элементы.ГруппыПользователей.ТекущаяСтрока);
+ Элементы.ГруппаПоказыватьПользователейДочернихГрупп.ТекущаяСтраница =
+ Элементы.ГруппаУстановитьСвойство;
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ПользователиСписок, "ВыбиратьИерархически", Форма.ВыбиратьИерархически);
+
+ ОбновитьЗначениеПараметраКомпоновкиДанных(
+ Форма.ПользователиСписок,
+ "ГруппаПользователей",
+ Элементы.ГруппыПользователей.ТекущаяСтрока);
КонецЕсли;
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
-Процедура ОбновитьЗначениеПараметраКомпоновкиДанных(Знач ВладелецПараметров, Знач ИмяПараметра, Знач ЗначениеПараметра)
+Процедура ОбновитьЗначениеПараметраКомпоновкиДанных(Знач ВладелецПараметров,
+ Знач ИмяПараметра,
+ Знач ЗначениеПараметра)
Для каждого Параметр Из ВладелецПараметров.Параметры.Элементы Цикл
Если Строка(Параметр.Параметр) = ИмяПараметра Тогда
- Если Параметр.Использование И Параметр.Значение = ЗначениеПараметра Тогда
+
+ Если Параметр.Использование
+ И Параметр.Значение = ЗначениеПараметра Тогда
Возврат;
КонецЕсли;
Прервать;
+
КонецЕсли;
КонецЦикла;
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form
index 39e032cad..258aca999 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form
@@ -1371,7 +1371,7 @@
Left
- Form.Command.ТолькоВыбранныеРоли
+ Form.Command.ПоказатьТолькоВыбранныеРолиNormalAutotrue
@@ -1397,7 +1397,7 @@
Left
- Form.Command.ГруппировкаПоПодсистемам
+ Form.Command.ГруппировкаРолейПоПодсистемамNormalAutotrue
@@ -1893,23 +1893,6 @@
true
-
- ПоказатьТолькоВыбранныеРоли
-
- <key>ru</key>
- <value>Показать только выбранные роли</value>
-
- 26
-
- Boolean
-
-
- true
-
-
- true
-
- ГруппаНовогоПользователя
@@ -1942,23 +1925,6 @@
<common>true</common>
</edit>
</attributes>
- <attributes>
- <name>СтарыйИдентификаторПользователяИБ</name>
- <title>
- <key>ru</key>
- <value>Старый идентификатор пользователя ИБ</value>
-
- 9
-
- UUID
-
-
- true
-
-
- true
-
- ТекущееНаименование
@@ -2215,14 +2181,14 @@
<savedData>true</savedData>
</attributes>
<attributes>
- <name>СоздатьПользователяСервиса</name>
+ <name>ЗначениеКопирования</name>
<title>
<key>ru</key>
- <value>Создать пользователя сервиса</value>
+ <value>Значение копирования</value>
- 25
+ 9
- Boolean
+ CatalogRef.Пользователиtrue
@@ -2237,7 +2203,7 @@
ruАутентификация по протоколу OpenID
- 27
+ 25Boolean
@@ -2250,7 +2216,7 @@
true
- ТолькоВыбранныеРоли
+ ПоказатьТолькоВыбранныеРоли
<key>ru</key>
<value>Только выбранные роли</value>
@@ -2355,7 +2321,7 @@
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
- <name>ГруппировкаПоПодсистемам</name>
+ <name>ГруппировкаРолейПоПодсистемам</name>
<title>
<key>ru</key>
<value>По подсистемам</value>
@@ -2373,7 +2339,7 @@
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
- <name>ГруппировкаПоПодсистемам</name>
+ <name>ГруппировкаРолейПоПодсистемам</name>
</handler>
</action>
<representation>TextPicture</representation>
@@ -2418,9 +2384,5 @@
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
</handlers>
- <handlers>
- <event>OnWriteAtServer</event>
- <name>ПриЗаписиНаСервере</name>
- </handlers>
</extInfo>
</form:Form>
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Help/ru.html
index d6ae360a7..be308266b 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>Для редактирования сведений о пользователе необходимы права администрирования. В остальных случаях, доступен только просмотр сведений о себе, а также возможность изменить свой пароль, язык программы и контактную информацию.</p>
<p><strong>Полное имя </strong>пользователя выводится во всех списках и отчетах. Флажок <strong>Недействителен</strong> по умолчанию снят для всех пользователей. Но если пользователь по каким-либо причинам более не работает с программой, и в то же время его нельзя удалить из-за наличия ссылок на него из других объектов программы, то рекомендуется установить флажок <strong>Недействителен</strong>. Такого пользователя нельзя выбрать, например, как исполнителя задачи или ответственного за документ, и он не отображается в списке пользователей.</p>
<p>Для того чтобы пользователь мог работать в программе, ему нужно установить флажок <strong>Доступ к информационной базе разрешен</strong> и задать необходимые свойства: имя, пароль и другие параметры авторизации. Имя для входа в программу может отличаться от полного имени (например, "Иванов", а полное имя - "Иванов Иван Иванович").</p>
diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
index d64bab3a2..4c66058a2 100644
--- a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
@@ -8,47 +8,41 @@
Если НЕ СтандартныеПодсистемыПереопределяемый.ДоступноИзменениеПользователей() Тогда
Если Объект.Ссылка.Пустая() Тогда
- ВызватьИсключение(НСтр("ru = 'В демонстрационном режиме не поддерживается создание новых пользователей'"));
+ ВызватьИсключение
+ НСтр("ru = 'В демонстрационном режиме не поддерживается
+ |создание новых пользователей.'");
КонецЕсли;
-
ТолькоПросмотр = Истина;
КонецЕсли;
Элементы.ПользовательИнфБазыПоказыватьВСпискеВыбора.Видимость = Ложь;
- Элементы.ПользовательИнфБазыАутентификацияСтандартная.Видимость = Ложь;
Элементы.ПользовательИнфБазыАутентификацияOpenID.Видимость = Ложь;
+ Элементы.ПользовательИнфБазыАутентификацияСтандартная.Видимость = Ложь;
Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.Видимость = Ложь;
Элементы.СвойстваАутентификацииОС.Видимость = Ложь;
Элементы.ПользовательИнфБазыРежимЗапуска.Видимость = Ложь;
- Если Метаданные.Языки.Количество() = 1 Тогда
- Элементы.ПользовательИнфБазыЯзык.Видимость = Ложь;
- КонецЕсли;
КонецЕсли;
- Если Объект.Ссылка = Пользователи.СвойстваНеуказанногоПользователя().СтандартнаяСсылка Тогда
+ Если Объект.Служебный Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
- //** Установка начальных значений
- // перед загрузкой данных из настроек на сервере
- // для случая, когда данные ещё не были записаны и не загружаются
- ПоказатьПодсистемыРолей = Истина;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
- // Для нового элемента показать все роли, иначе только выбранные
- ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ПоказатьТолькоВыбранныеРоли;
- //
- ОбновитьДеревоРолей();
+ // Заполнение вспомогательных данных.
- //** Заполнение постоянных данных
АвторизованПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь();
- // Заполнение списка выбора языка
- Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
- Элементы.ПользовательИнфБазыЯзык.СписокВыбора.Добавить(МетаданныеЯзыка.Имя, МетаданныеЯзыка.Синоним);
- КонецЦикла;
+ // Заполнение списка выбора языка.
+ Если Метаданные.Языки.Количество() < 2 Тогда
+ Элементы.ПользовательИнфБазыЯзык.Видимость = Ложь;
+ Иначе
+ Для каждого МетаданныеЯзыка ИЗ Метаданные.Языки Цикл
+
+ Элементы.ПользовательИнфБазыЯзык.СписокВыбора.Добавить(
+ МетаданныеЯзыка.Имя, МетаданныеЯзыка.Синоним);
+ КонецЦикла;
+ КонецЕсли;
- // Заполнение списка выбора режимов запуска
+ // Заполнение списка выбора режимов запуска.
Для каждого РежимЗапуска Из РежимЗапускаКлиентскогоПриложения Цикл
ПолноеИмяЗначения = ПолучитьПолноеИмяПредопределенногоЗначения(РежимЗапуска);
ИмяЗначения = Сред(ПолноеИмяЗначения, Найти(ПолноеИмяЗначения, ".") + 1);
@@ -56,57 +50,67 @@
КонецЦикла;
Элементы.ПользовательИнфБазыРежимЗапуска.СписокВыбора.СортироватьПоПредставлению();
- //** Подготовка к интерактивным действиям с учетом сценариев открытия формы
+ // Подготовка к интерактивным действиям с учетом сценариев открытия формы.
УстановитьПривилегированныйРежим(Истина);
Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
- // Создание нового элемента
+ // Создание нового элемента.
Если Параметры.ГруппаНовогоПользователя <> Справочники.ГруппыПользователей.ВсеПользователи Тогда
ГруппаНовогоПользователя = Параметры.ГруппаНовогоПользователя;
КонецЕсли;
+
Если ЗначениеЗаполнено(Параметры.ЗначениеКопирования) Тогда
- // Копирование элемента
+ // Копирование элемента.
+ ЗначениеКопирования = Параметры.ЗначениеКопирования;
Объект.Наименование = "";
- ПрочитатьПользователяИБ(ЗначениеЗаполнено(Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ));
+ ПрочитатьПользователяИБ(
+ ЗначениеЗаполнено(Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ));
Иначе
- // Добавление элемента
+ // Добавление элемента.
Объект.ИдентификаторПользователяИБ = Параметры.ИдентификаторПользователяИБ;
- // Чтение начальных значений свойств пользователя ИБ
+
+ // Чтение начальных значений свойств пользователя ИБ.
ПрочитатьПользователяИБ();
Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
- ПользовательИнфБазыПоказыватьВСпискеВыбора = Ложь;
- ПользовательИнфБазыАутентификацияСтандартная = Истина;
+ ПользовательИнфБазыПоказыватьВСпискеВыбора = Ложь;
ПользовательИнфБазыАутентификацияOpenID = Истина;
+ ПользовательИнфБазыАутентификацияСтандартная = Истина;
ДоступКИнформационнойБазеРазрешен = Истина;
КонецЕсли;
КонецЕсли;
Иначе
- // Открытие существующего элемента
+ // Открытие существующего элемента.
ПрочитатьПользователяИБ();
КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);
+ ОбработатьИнтерфейсРолей("НастроитьИнтерфейсРолейПриСозданииФормы", ПользовательИБСуществует);
+
ОпределитьДействияВФорме();
ОпределитьНесоответствияПользователяСПользователемИБ();
- ТолькоПросмотр = ТолькоПросмотр ИЛИ
- ДействияВФорме.Роли <> "Редактирование" И
- ДействияВФорме.КонтактнаяИнформация <> "Редактирование" И
- НЕ ( ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" ИЛИ
- ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" ) И
- ДействияВФорме.СвойстваЭлемента <> "Редактирование";
+ ТолькоПросмотр
+ = ТолькоПросмотр
+ ИЛИ ДействияВФорме.Роли <> "Редактирование"
+ И ДействияВФорме.КонтактнаяИнформация <> "Редактирование"
+ И НЕ ( ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех"
+ ИЛИ ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" )
+ И ДействияВФорме.СвойстваЭлемента <> "Редактирование";
- УстановитьТолькоПросмотрРолей(ПользователиПереопределяемый.ЗапретРедактированияРолей() ИЛИ ДействияВФорме.Роли <> "Редактирование");
+ ОбработатьИнтерфейсРолей(
+ "УстановитьТолькоПросмотрРолей",
+ ПользователиПереопределяемый.ЗапретРедактированияРолей()
+ ИЛИ ДействияВФорме.Роли <> "Редактирование");
// СтандартныеПодсистемы.КонтактнаяИнформация
УправлениеКонтактнойИнформацией.ПриСозданииНаСервере(ЭтаФорма, Объект, "КонтактнаяИнформация");
// Конец СтандартныеПодсистемы.КонтактнаяИнформация
- Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
+ Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда
Элементы.Недействителен.ТолькоПросмотр = Истина;
КонецЕсли;
@@ -129,21 +133,27 @@
ОчиститьСообщения();
- ЗаголовокВопросов = НСтр("ru = 'Запись пользователя информационной базы'");
-
Если ДоступКИнформационнойБазеРазрешен Тогда
- Если ДействияВФорме.Роли = "Редактирование" И ПользовательИнфБазыРоли.Количество() = 0 Тогда
- Ответ = Вопрос(НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"),
- РежимДиалогаВопрос.ДаНет, , , ЗаголовокВопросов);
+ ЗаголовокВопросов = НСтр("ru = 'Запись пользователя информационной базы'");
+
+ Если ДействияВФорме.Роли = "Редактирование"
+ И ПользовательИнфБазыРоли.Количество() = 0 Тогда
+
+ Ответ = Вопрос(
+ НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"),
+ РежимДиалогаВопрос.ДаНет,
+ ,
+ ,
+ ЗаголовокВопросов);
+
Если Ответ = КодВозвратаДиалога.Нет Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
- // Обработка записи первого администратора
+ // Обработка записи первого администратора.
ТекстВопроса = "";
- Если Пользователи.ТребуетсяСоздатьПервогоАдминистратора(ПолучитьСтруктуруОписанияПользователяИБ(),
- ТекстВопроса) Тогда
+ Если ТребуетсяСоздатьПервогоАдминистратора(ТекстВопроса) Тогда
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , , ЗаголовокВопросов);
Если Ответ = КодВозвратаДиалога.Нет Тогда
@@ -157,43 +167,33 @@
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
- Если СоздатьПользователяСервиса Тогда
- // предыдущая попытка создания закончилась неудачно
-
- СоздатьПользователяСервиса = Ложь;
- Объект.ИдентификаторПользователяСервиса = Неопределено;
- ТекущийОбъект.ИдентификаторПользователяСервиса = Неопределено;
- КонецЕсли;
+ ТекущийОбъект.ДополнительныеСвойства.Вставить("ЗначениеКопирования", ЗначениеКопирования);
- Если ДоступКИнформационнойБазеРазрешен
- И ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
-
- Если НЕ ЗначениеЗаполнено(ТекущийОбъект.ИдентификаторПользователяСервиса) Тогда
-
- СоздатьПользователяСервиса = Истина;
-
- ИдентификаторПользователяСервиса = Новый УникальныйИдентификатор;
-
- Объект.ИдентификаторПользователяСервиса = ИдентификаторПользователяСервиса;
- ТекущийОбъект.ИдентификаторПользователяСервиса = ИдентификаторПользователяСервиса;
-
- КонецЕсли;
- КонецЕсли;
+ // Восстановление действий в форме, если они изменены на клиенте
+ ОпределитьДействияВФорме();
Если ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех"
- ИЛИ ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" Тогда
+ ИЛИ ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих" Тогда
+
+ ОписаниеПользователяИБ = ОписаниеПользователяИБ();
+ ОписаниеПользователяИБ.Удалить("ПодтверждениеПароля");
- ТекущийОбъект.ДополнительныеСвойства.Вставить("ДоступКИнформационнойБазеРазрешен", ДоступКИнформационнойБазеРазрешен);
-
Если ДоступКИнформационнойБазеРазрешен Тогда
-
- ТекущийОбъект.ДополнительныеСвойства.Вставить("СтруктураОписанияПользователяИБ", ПолучитьСтруктуруОписанияПользователяИБ());
-
+ ОписаниеПользователяИБ.Вставить("Действие", "Записать");
+ Иначе
+ ОписаниеПользователяИБ.Вставить("Действие", "Удалить");
КонецЕсли;
+
+ ТекущийОбъект.ДополнительныеСвойства.Вставить(
+ "ОписаниеПользователяИБ", ОписаниеПользователяИБ);
КонецЕсли;
Если ДействияВФорме.СвойстваЭлемента <> "Редактирование" Тогда
- ЗаполнитьЗначенияСвойств(ТекущийОбъект, ОбщегоНазначения.ПолучитьЗначенияРеквизитов(ТекущийОбъект.Ссылка, "Наименование, ПометкаУдаления"));
+
+ ЗаполнитьЗначенияСвойств(
+ ТекущийОбъект,
+ ОбщегоНазначения.ПолучитьЗначенияРеквизитов(
+ ТекущийОбъект.Ссылка, "Наименование, ПометкаУдаления"));
КонецЕсли;
ТекущийОбъект.ДополнительныеСвойства.Вставить("ГруппаНовогоПользователя", ГруппаНовогоПользователя);
@@ -206,40 +206,16 @@
КонецПроцедуры
-&НаСервере
-Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
-
- ОписаниеПользователя = Новый Структура;
- ОписаниеПользователя.Вставить("Имя", ПользовательИнфБазыИмя);
- ОписаниеПользователя.Вставить("ПолноеИмя", ПользовательИнфБазыПолноеИмя);
- ОписаниеПользователя.Вставить("Язык", ПользовательИнфБазыЯзык);
-
- СтандартныеПодсистемыПереопределяемый.ПриЗаписиПользователя(ТекущийОбъект, ОписаниеПользователя,
- ПользовательИБСуществует, ДоступКИнформационнойБазеРазрешен, СоздатьПользователяСервиса);
-
-КонецПроцедуры
-
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
- СобытияЗаписиПользователяИБ = Новый Массив;
- СобытияЗаписиПользователяИБ.Добавить("ДобавленПользовательИБ");
- СобытияЗаписиПользователяИБ.Добавить("ИзмененПользовательИБ");
- СобытияЗаписиПользователяИБ.Добавить("УдаленПользовательИБ");
- Для каждого СобытиеЗаписи Из СобытияЗаписиПользователяИБ Цикл
- Если ТекущийОбъект.ДополнительныеСвойства.Свойство(СобытиеЗаписи) Тогда
- ПараметрыЗаписи.Вставить(СобытиеЗаписи, ТекущийОбъект.ДополнительныеСвойства[СобытиеЗаписи]);
- КонецЕсли;
- КонецЦикла;
+ ПараметрыЗаписи.Вставить(
+ ТекущийОбъект.ДополнительныеСвойства.ОписаниеПользователяИБ.РезультатДействия);
ПрочитатьПользователяИБ();
ОпределитьНесоответствияПользователяСПользователемИБ(ПараметрыЗаписи);
- Если СоздатьПользователяСервиса Тогда
- СоздатьПользователяСервиса = Ложь;
- КонецЕсли;
-
КонецПроцедуры
&НаКлиенте
@@ -257,10 +233,14 @@
Оповестить("УдаленПользовательИБ", ПараметрыЗаписи.УдаленПользовательИБ, ЭтаФорма);
ИначеЕсли ПараметрыЗаписи.Свойство("ОчищенаСвязьСНесуществущимПользователемИБ") Тогда
- Оповестить("ОчищенаСвязьСНесуществущимПользователемИБ", ПараметрыЗаписи.ОчищенаСвязьСНесуществущимПользователемИБ, ЭтаФорма);
+ Оповестить(
+ "ОчищенаСвязьСНесуществущимПользователемИБ",
+ ПараметрыЗаписи.ОчищенаСвязьСНесуществущимПользователемИБ,
+ ЭтаФорма);
КонецЕсли;
Если ЗначениеЗаполнено(ГруппаНовогоПользователя) Тогда
+
ОповеститьОбИзменении(ГруппаНовогоПользователя);
Оповестить("Запись_ГруппыПользователей", Новый Структура, ГруппаНовогоПользователя);
ГруппаНовогоПользователя = Неопределено;
@@ -273,7 +253,8 @@
Если ДоступКИнформационнойБазеРазрешен Тогда
- Пользователи.ПроверитьЗаполнениеСтруктурыОписанияПользователяИБ(ПолучитьСтруктуруОписанияПользователяИБ(), Отказ);
+ ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(
+ ОписаниеПользователяИБ(), Отказ);
КонецЕсли;
@@ -282,15 +263,7 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
- Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
- ПоказатьПодсистемыРолей = Ложь;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
- Иначе
- ПоказатьПодсистемыРолей = Истина;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
- КонецЕсли;
-
- ОбновитьДеревоРолей();
+ ОбработатьИнтерфейсРолей("НастроитьИнтерфейсРолейПриЗагрузкеНастроек", Настройки);
КонецПроцедуры
@@ -312,13 +285,18 @@
// Прим.: неопределенное ПолноеИмя или другое свойство
// не учитывается при записи пользователя ИБ
// ПолноеИмя определено только для вида
- // интерактивных действий "БезОграничения"
+ // интерактивных действий "БезОграничения".
+
Если ПользовательИнфБазыПолноеИмя <> Неопределено Тогда
ПользовательИнфБазыПолноеИмя = Объект.Наименование;
КонецЕсли;
- Если НЕ ПользовательИБСуществует И ДоступКИнформационнойБазеРазрешен Тогда
- ПользовательИнфБазыИмя = ПолучитьКраткоеИмяПользователяИБ(Объект.Наименование);
+ Если НЕ ПользовательИБСуществует
+ И ДоступКИнформационнойБазеРазрешен Тогда
+
+ ПользовательИнфБазыИмя =
+ ПользователиСлужебныйКлиентСервер.ПолучитьКраткоеИмяПользователяИБ(
+ Объект.Наименование);
КонецЕсли;
КонецПроцедуры
@@ -326,8 +304,13 @@
&НаКлиенте
Процедура ДоступКИнформационнойБазеРазрешенПриИзменении(Элемент)
- Если НЕ ПользовательИБСуществует И ДоступКИнформационнойБазеРазрешен Тогда
- ПользовательИнфБазыИмя = ПолучитьКраткоеИмяПользователяИБ(Объект.Наименование);
+ Если НЕ ПользовательИБСуществует
+ И ДоступКИнформационнойБазеРазрешен Тогда
+
+ ПользовательИнфБазыИмя =
+ ПользователиСлужебныйКлиентСервер.ПолучитьКраткоеИмяПользователяИБ(
+ Объект.Наименование);
+
ПользовательИнфБазыПолноеИмя = Объект.Наименование;
КонецЕсли;
@@ -408,7 +391,7 @@
Процедура РолиПометкаПриИзменении(Элемент)
Если Элементы.Роли.ТекущиеДанные <> Неопределено Тогда
- ОбновитьСоставРолей(Элементы.Роли.ТекущаяСтрока, Элементы.Роли.ТекущиеДанные.Пометка);
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей");
КонецЕсли;
КонецПроцедуры
@@ -422,39 +405,32 @@
&НаКлиенте
Процедура ПоказатьТолькоВыбранныеРоли(Команда)
- ПоказатьТолькоВыбранныеРоли = НЕ ПоказатьТолькоВыбранныеРоли;
- Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ПоказатьТолькоВыбранныеРоли;
-
- ОбновитьДеревоРолей();
- РазвернутьПодсистемыРолей();
+ ОбработатьИнтерфейсРолей("ТолькоВыбранныеРоли");
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
-Процедура ГруппировкаПоПодсистемам(Команда)
+Процедура ГруппировкаРолейПоПодсистемам(Команда)
- ПоказатьПодсистемыРолей = НЕ ПоказатьПодсистемыРолей;
- Элементы.РолиПоказатьПодсистемыРолей.Пометка = ПоказатьПодсистемыРолей;
-
- ОбновитьДеревоРолей();
- РазвернутьПодсистемыРолей();
+ ОбработатьИнтерфейсРолей("ГруппировкаПоПодсистемам");
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ВключитьРоли(Команда)
- ОбновитьСоставРолей(Неопределено, Истина);
- Если ПоказатьТолькоВыбранныеРоли Тогда
- РазвернутьПодсистемыРолей();
- КонецЕсли;
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей", "ВключитьВсе");
+
+ ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтаФорма, Ложь);
КонецПроцедуры
&НаКлиенте
Процедура ИсключитьРоли(Команда)
- ОбновитьСоставРолей(Неопределено, Ложь);
+ ОбработатьИнтерфейсРолей("ОбновитьСоставРолей", "ИсключитьВсе");
КонецПроцедуры
@@ -465,13 +441,21 @@
Процедура ОпределитьДействияВФорме()
ДействияВФорме = Новый Структура;
- ДействияВФорме.Вставить("Роли", ""); // "", "Просмотр", "Редактирование"
- ДействияВФорме.Вставить("КонтактнаяИнформация", ""); // "", "Просмотр", "Редактирование"
- ДействияВФорме.Вставить("СвойстваПользователяИБ", ""); // "", "ПросмотрВсех", "РедактированиеВсех", "РедактированиеСвоих"
- ДействияВФорме.Вставить("СвойстваЭлемента", ""); // "", "Просмотр", "Редактирование"
+
+ // "", "Просмотр", "Редактирование".
+ ДействияВФорме.Вставить("Роли", "");
+
+ // "", "Просмотр", "Редактирование".
+ ДействияВФорме.Вставить("КонтактнаяИнформация", "");
+
+ // "", "ПросмотрВсех", "РедактированиеВсех", "РедактированиеСвоих".
+ ДействияВФорме.Вставить("СвойстваПользователяИБ", "");
+
+ // "", "Просмотр", "Редактирование".
+ ДействияВФорме.Вставить("СвойстваЭлемента", "");
Если Пользователи.ЭтоПолноправныйПользователь() Тогда
- // Администратор
+ // Администратор.
ДействияВФорме.Роли = "Редактирование";
ДействияВФорме.КонтактнаяИнформация = "Редактирование";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех";
@@ -479,24 +463,23 @@
ИначеЕсли РольДоступна("ДобавлениеИзменениеПользователей")
И НЕ Пользователи.ЭтоПолноправныйПользователь(Объект.Ссылка) Тогда
- // Ответственный за список пользователей и групп пользователей
+
+ // Ответственный за список пользователей и групп пользователей.
// (Исполнитель распоряжений о приеме на работу и переводу,
- // переназначению, созданию отделов, подразделений и рабочих групп)
+ // переназначению, созданию отделов, подразделений и рабочих групп).
ДействияВФорме.Роли = "";
ДействияВФорме.КонтактнаяИнформация = "Редактирование";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех";
ДействияВФорме.СвойстваЭлемента = "Редактирование";
- ИначеЕсли ЗначениеЗаполнено(Пользователи.ТекущийПользователь()) И
- Объект.Ссылка = Пользователи.ТекущийПользователь() Тогда
- // Свои свойства
+ ИначеЕсли Объект.Ссылка = ПользователиКлиентСервер.АвторизованныйПользователь() Тогда
+ // Свои свойства.
ДействияВФорме.Роли = "";
ДействияВФорме.КонтактнаяИнформация = "Редактирование";
ДействияВФорме.СвойстваПользователяИБ = "РедактированиеСвоих";
ДействияВФорме.СвойстваЭлемента = "Просмотр";
-
Иначе
- // Чужие свойства
+ // Чужие свойства.
ДействияВФорме.Роли = "";
ДействияВФорме.КонтактнаяИнформация = "Просмотр";
ДействияВФорме.СвойстваПользователяИБ = "";
@@ -505,203 +488,218 @@
ПользователиПереопределяемый.ИзменитьДействияВФорме(Объект.Ссылка, ДействияВФорме);
- // Проверка имен действий в форме
+ // Проверка имен действий в форме.
Если Найти(", Просмотр, Редактирование,", ", " + ДействияВФорме.Роли + ",") = 0 Тогда
ДействияВФорме.Роли = "";
+
ИначеЕсли ПользователиПереопределяемый.ЗапретРедактированияРолей() Тогда
ДействияВФорме.Роли = "Просмотр";
КонецЕсли;
+
Если Найти(", Просмотр, Редактирование,", ", " + ДействияВФорме.КонтактнаяИнформация + ",") = 0 Тогда
ДействияВФорме.КонтактнаяИнформация = "";
КонецЕсли;
- Если Найти(", ПросмотрВсех, РедактированиеВсех, РедактированиеСвоих,", ", " + ДействияВФорме.СвойстваПользователяИБ + ",") = 0 Тогда
+
+ Если Найти(", ПросмотрВсех, РедактированиеВсех, РедактированиеСвоих,",
+ ", " + ДействияВФорме.СвойстваПользователяИБ + ",") = 0 Тогда
+
ДействияВФорме.СвойстваПользователяИБ = "";
КонецЕсли;
+
Если Найти(", Просмотр, Редактирование,", ", " + ДействияВФорме.СвойстваЭлемента + ",") = 0 Тогда
ДействияВФорме.СвойстваЭлемента = "";
КонецЕсли;
+ Если Объект.Служебный Тогда
+ Если ДействияВФорме.Роли = "Редактирование" Тогда
+ ДействияВФорме.Роли = "Просмотр";
+ КонецЕсли;
+
+ Если ДействияВФорме.КонтактнаяИнформация = "Редактирование" Тогда
+ ДействияВФорме.КонтактнаяИнформация = "Просмотр";
+ КонецЕсли;
+
+ Если Найти(", РедактированиеВсех, РедактированиеСвоих,",
+ ", " + ДействияВФорме.СвойстваПользователяИБ + ",") <> 0 Тогда
+
+ ДействияВФорме.СвойстваПользователяИБ = "ПросмотрВсех";
+ КонецЕсли;
+
+ Если ДействияВФорме.СвойстваЭлемента = "Редактирование" Тогда
+ ДействияВФорме.СвойстваЭлемента = "Просмотр";
+ КонецЕсли;
+ КонецЕсли;
+
КонецПроцедуры
&НаСервере
-Функция ПолучитьСтруктуруОписанияПользователяИБ()
-
- // Восстановление действий в форме, если они изменены на клиенте
- ОпределитьДействияВФорме();
-
- Если ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех"
- И ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеСвоих" Тогда
-
- // Ничего изменять нельзя
- Возврат Новый Структура;
- КонецЕсли;
+Функция ОписаниеПользователяИБ()
Если Элементы.ПолноеИмяПояснениеНесоответствия.Видимость Тогда
ПользовательИнфБазыПолноеИмя = Объект.Наименование;
КонецЕсли;
Если ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех" Тогда
+
Результат = Пользователи.НовоеОписаниеПользователяИБ();
- ЗаполнитьЗначенияСвойств(Результат, ЭтаФорма);
+ Пользователи.СкопироватьСвойстваПользователяИБ(
+ Результат,
+ ЭтаФорма,
+ ,
+ "УникальныйИдентификатор,
+ |Роли",
+ "ПользовательИнфБазы");
+
Иначе
+ // РедактированиеСвоих.
Результат = Новый Структура;
- Результат.Вставить("ПользовательИнфБазыИмя", ПользовательИнфБазыИмя);
- Результат.Вставить("ПользовательИнфБазыПароль", ПользовательИнфБазыПароль);
- Результат.Вставить("ПользовательИнфБазыЯзык", ПользовательИнфБазыЯзык);
+ Результат.Вставить("Пароль", ПользовательИнфБазыПароль);
+ Результат.Вставить("Язык", ПользовательИнфБазыЯзык);
КонецЕсли;
Результат.Вставить("ПодтверждениеПароля", ПодтверждениеПароля);
Если ДействияВФорме.Роли = "Редактирование" Тогда
ТекущиеРоли = ПользовательИнфБазыРоли.Выгрузить(, "Роль").ВыгрузитьКолонку("Роль");
- Результат.Вставить("ПользовательИнфБазыРоли", ТекущиеРоли);
+ Результат.Вставить("Роли", ТекущиеРоли);
+ КонецЕсли;
+
+ Если ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора(Результат) Тогда
+ Роли = Новый Массив;
+ Роли.Добавить("ПолныеПрава");
+
+ ИмяРолиАдминистратораСистемы = Пользователи.РольАдминистратораСистемы().Имя;
+ Если Роли.Найти(ИмяРолиАдминистратораСистемы) = Неопределено Тогда
+ Роли.Добавить(ИмяРолиАдминистратораСистемы);
+ КонецЕсли;
+ Результат.Вставить("Роли", Роли);
КонецЕсли;
Возврат Результат;
КонецФункции
+&НаСервере
+Функция ТребуетсяСоздатьПервогоАдминистратора(ТекстВопроса = Неопределено)
+
+ Возврат ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора(
+ ОписаниеПользователяИБ(),
+ ТекстВопроса);
+
+КонецФункции
+
////////////////////////////////////////////////////////////////////////////////
-// Чтение, запись, удаление, расчет краткого имени пользователя ИБ, проверка несоответствия
+// Обработка пользователя ИБ.
&НаСервере
Процедура ПрочитатьПользователяИБ(ПриКопированииЭлемента = Ложь)
УстановитьПривилегированныйРежим(Истина);
- ПрочитанныеРоли = Новый Массив;
-
Пароль = "";
ПодтверждениеПароля = "";
- ПрочитанныеСвойства = Пользователи.НовоеОписаниеПользователяИБ();
- СтарыйИдентификаторПользователяИБ = Неопределено;
+ ПрочитанныеСвойства = Неопределено;
+ ОписаниеПользователяИБ = Пользователи.НовоеОписаниеПользователяИБ();
ПользовательИБСуществует = Ложь;
ДоступКИнформационнойБазеРазрешен = Ложь;
- // Заполнение начальных значений свойств пользователяИБ у пользователя.
+ // Заполнение начальных значений свойств пользователяИБ.
Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
- ПрочитанныеСвойства.ПользовательИнфБазыПоказыватьВСпискеВыбора = Ложь;
+ ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора = Ложь;
Иначе
- ПрочитанныеСвойства.ПользовательИнфБазыПоказыватьВСпискеВыбора = НЕ Константы.ИспользоватьВнешнихПользователей.Получить();
+ ОписаниеПользователяИБ.ПоказыватьВСпискеВыбора =
+ НЕ Константы.ИспользоватьВнешнихПользователей.Получить();
КонецЕсли;
-
- ЗаполнитьЗначенияСвойств(ЭтаФорма, ПрочитанныеСвойства);
- ПользовательИнфБазыАутентификацияСтандартная = Истина;
+ ОписаниеПользователяИБ.АутентификацияСтандартная = Истина;
+ ОписаниеПользователяИБ.Роли = Новый Массив;
Если ПриКопированииЭлемента Тогда
- Если Пользователи.ПрочитатьПользователяИБ(Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ, ПрочитанныеСвойства, ПрочитанныеРоли) Тогда
- // Т.к. у скопированного пользователя есть связь с пользователемИБ,
- // то устанавливается будущая связь и у нового пользователя.
+ Если Пользователи.ПрочитатьПользователяИБ(
+ Параметры.ЗначениеКопирования.ИдентификаторПользователяИБ,
+ ПрочитанныеСвойства) Тогда
+
+ // Установка связи пользователем ИБ.
ДоступКИнформационнойБазеРазрешен = Истина;
- // Т.к. пользовательИБ скопированного пользователя прочитан,
- // то копируются свойства и роли пользователяИБ.
- ЗаполнитьЗначенияСвойств(ЭтаФорма,
- ПрочитанныеСвойства,
- "ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыЗапрещеноИзменятьПароль,
- |ПользовательИнфБазыПоказыватьВСпискеВыбора,
- |ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияОС,
- |ПользовательИнфБазыРежимЗапуска,
- |ПользовательИнфБазыЯзык");
+
+ // Копирование свойств и ролей пользователяИБ.
+ ЗаполнитьЗначенияСвойств(
+ ОписаниеПользователяИБ,
+ ПрочитанныеСвойства,
+ "АутентификацияOpenID,
+ |АутентификацияСтандартная,
+ |ЗапрещеноИзменятьПароль,
+ |ПоказыватьВСпискеВыбора,
+ |АутентификацияОС,
+ |РежимЗапуска,
+ |Язык,
+ |Роли");
КонецЕсли;
Объект.ИдентификаторПользователяИБ = Неопределено;
Иначе
- Если Пользователи.ПрочитатьПользователяИБ(Объект.ИдентификаторПользователяИБ, ПрочитанныеСвойства, ПрочитанныеРоли) Тогда
+ Если Пользователи.ПрочитатьПользователяИБ(
+ Объект.ИдентификаторПользователяИБ,
+ ПрочитанныеСвойства) Тогда
ПользовательИБСуществует = Истина;
ДоступКИнформационнойБазеРазрешен = Истина;
- СтарыйИдентификаторПользователяИБ = Объект.ИдентификаторПользователяИБ;
- ЗаполнитьЗначенияСвойств(ЭтаФорма,
- ПрочитанныеСвойства,
- "ПользовательИнфБазыИмя,
- |ПользовательИнфБазыПолноеИмя,
- |ПользовательИнфБазыАутентификацияСтандартная,
- |ПользовательИнфБазыПоказыватьВСпискеВыбора,
- |ПользовательИнфБазыЗапрещеноИзменятьПароль,
- |ПользовательИнфБазыАутентификацияOpenID,
- |ПользовательИнфБазыАутентификацияОС,
- |ПользовательИнфБазыПользовательОС,
- |ПользовательИнфБазыРежимЗапуска,
- |ПользовательИнфБазыЯзык");
+ ЗаполнитьЗначенияСвойств(
+ ОписаниеПользователяИБ,
+ ПрочитанныеСвойства,
+ "Имя,
+ |ПолноеИмя,
+ |АутентификацияOpenID,
+ |АутентификацияСтандартная,
+ |ПоказыватьВСпискеВыбора,
+ |ЗапрещеноИзменятьПароль,
+ |АутентификацияОС,
+ |ПользовательОС,
+ |РежимЗапуска,
+ |Язык,
+ |Роли");
- Если ПрочитанныеСвойства.ПользовательИнфБазыПарольУстановлен Тогда
+ Если ПрочитанныеСвойства.ПарольУстановлен Тогда
Пароль = "**********";
ПодтверждениеПароля = "**********";
КонецЕсли;
КонецЕсли;
КонецЕсли;
- ЗаполнитьРоли(ПрочитанныеРоли);
+ Пользователи.СкопироватьСвойстваПользователяИБ(
+ ЭтаФорма,
+ ОписаниеПользователяИБ,
+ ,
+ "УникальныйИдентификатор,
+ |Роли",
+ "ПользовательИнфБазы");
+
+ ОбработатьИнтерфейсРолей("ЗаполнитьРоли", ОписаниеПользователяИБ.Роли);
КонецПроцедуры
-&НаКлиенте
-Функция ПолучитьКраткоеИмяПользователяИБ(Знач ПолноеИмя)
-
- Разделители = Новый Массив;
- Разделители.Добавить(" ");
- Разделители.Добавить(".");
-
- КраткоеИмя = "";
- Для Счетчик = 1 По 3 Цикл
-
- Если Счетчик <> 1 Тогда
- КраткоеИмя = КраткоеИмя + ВРег(Лев(ПолноеИмя, 1));
- КонецЕсли;
-
- ПозицияРазделителя = 0;
- Для каждого Разделитель Из Разделители Цикл
- ПозицияТекущегоРазделителя = Найти(ПолноеИмя, Разделитель);
- Если ПозицияТекущегоРазделителя > 0
- И ( ПозицияРазделителя = 0
- ИЛИ ПозицияРазделителя > ПозицияТекущегоРазделителя ) Тогда
- ПозицияРазделителя = ПозицияТекущегоРазделителя;
- КонецЕсли;
- КонецЦикла;
-
- Если ПозицияРазделителя = 0 Тогда
- Если Счетчик = 1 Тогда
- КраткоеИмя = ПолноеИмя;
- КонецЕсли;
- Прервать;
- КонецЕсли;
-
- Если Счетчик = 1 Тогда
- КраткоеИмя = Лев(ПолноеИмя, ПозицияРазделителя - 1);
- КонецЕсли;
-
- ПолноеИмя = Прав(ПолноеИмя, СтрДлина(ПолноеИмя) - ПозицияРазделителя);
- Пока Разделители.Найти(Лев(ПолноеИмя, 1)) <> Неопределено Цикл
- ПолноеИмя = Сред(ПолноеИмя, 2);
- КонецЦикла;
- КонецЦикла;
-
- Возврат КраткоеИмя;
-
-КонецФункции
-
&НаСервере
Процедура ОпределитьНесоответствияПользователяСПользователемИБ(ПараметрыЗаписи = Неопределено)
- //** Проверка соответствия свойства "ПолноеИмя" пользователяИБ и свойства "Наименование" пользователя
+ // Проверка соответствия свойства "ПолноеИмя" пользователяИБ и
+ // свойства "Наименование" пользователя.
- Если НЕ (ДействияВФорме.СвойстваЭлемента = "Редактирование" И
- ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех") Тогда
- // Прочитанное ПолноеИмя пользователя не может быть изменено, если не совпадает
+ Если НЕ ( ДействияВФорме.СвойстваЭлемента = "Редактирование"
+ И ДействияВФорме.СвойстваПользователяИБ = "РедактированиеВсех") Тогда
+
+ // Прочитанное ПолноеИмя пользователя не может быть изменено, если не совпадает.
ПользовательИнфБазыПолноеИмя = Неопределено;
КонецЕсли;
- Если НЕ ПользовательИБСуществует ИЛИ
- ПользовательИнфБазыПолноеИмя = Неопределено ИЛИ
- ПользовательИнфБазыПолноеИмя = Объект.Наименование Тогда
+ Если НЕ ПользовательИБСуществует
+ ИЛИ ПользовательИнфБазыПолноеИмя = Неопределено
+ ИЛИ ПользовательИнфБазыПолноеИмя = Объект.Наименование Тогда
Элементы.ПолноеИмяОбработкаНесоответствия.Видимость = Ложь;
ИначеЕсли ЗначениеЗаполнено(Объект.Ссылка) Тогда
- Элементы.ПолноеИмяПояснениеНесоответствия.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ Элементы.ПолноеИмяПояснениеНесоответствия.Заголовок =
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
Элементы.ПолноеИмяПояснениеНесоответствия.Заголовок,
ПользовательИнфБазыПолноеИмя);
Иначе
@@ -709,8 +707,11 @@
Элементы.ПолноеИмяОбработкаНесоответствия.Видимость = Ложь;
КонецЕсли;
- //** Определение связи с несуществующим пользователем ИБ
- ЕстьНоваяСвязьСНесуществующимПользователемИБ = НЕ ПользовательИБСуществует И ЗначениеЗаполнено(Объект.ИдентификаторПользователяИБ);
+ // Определение связи с несуществующим пользователем ИБ.
+ ЕстьНоваяСвязьСНесуществующимПользователемИБ
+ = НЕ ПользовательИБСуществует
+ И ЗначениеЗаполнено(Объект.ИдентификаторПользователяИБ);
+
Если ПараметрыЗаписи <> Неопределено
И ЕстьСвязьСНесуществующимПользователемИБ
И НЕ ЕстьНоваяСвязьСНесуществующимПользователемИБ Тогда
@@ -720,7 +721,7 @@
ЕстьСвязьСНесуществующимПользователемИБ = ЕстьНоваяСвязьСНесуществующимПользователемИБ;
Если ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех" Тогда
- // Связь не может быть изменена
+ // Связь не может быть изменена.
Элементы.СвязьОбработкаНесоответствия.Видимость = Ложь;
Иначе
Элементы.СвязьОбработкаНесоответствия.Видимость = ЕстьСвязьСНесуществующимПользователемИБ;
@@ -731,19 +732,6 @@
////////////////////////////////////////////////////////////////////////////////
// Начальное заполнение, проверка заполнения, доступность свойств
-&НаСервере
-Процедура ЗаполнитьРоли(ПрочитанныеРоли)
-
- ПользовательИнфБазыРоли.Очистить();
-
- Для каждого Роль Из ПрочитанныеРоли Цикл
- ПользовательИнфБазыРоли.Добавить().Роль = Роль;
- КонецЦикла;
-
- ОбновитьДеревоРолей();
-
-КонецПроцедуры
-
&НаСервере
Процедура УстановитьПостояннуюДоступностьСвойств()
@@ -755,19 +743,40 @@
Элементы.СвойстваАутентификации1СПредприятия.Отображение =
?(ВыводитьСписокРолей, ОтображениеОбычнойГруппы.Нет, ОтображениеОбычнойГруппы.Отступ);
- Элементы.Наименование.ТолькоПросмотр = ДействияВФорме.СвойстваЭлемента <> "Редактирование";
- Элементы.ДоступКИнформационнойБазеРазрешен.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.СвойстваПользователяИБ.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ = "ПросмотрВсех";
- Элементы.ПользовательИнфБазыИмя.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыАутентификацияСтандартная.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыПоказыватьВСпискеВыбора.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыАутентификацияOpenID.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыАутентификацияОС.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыПользовательОС.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
- Элементы.ПользовательИнфБазыРежимЗапуска.ТолькоПросмотр = ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+ Элементы.Наименование.ТолькоПросмотр =
+ ДействияВФорме.СвойстваЭлемента <> "Редактирование";
- Если НЕ ПользователиСерверПовтИсп.АутентификацияOpenIDНастраивается() Тогда
+ Элементы.ДоступКИнформационнойБазеРазрешен.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.СвойстваПользователяИБ.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ = "ПросмотрВсех";
+
+ Элементы.ПользовательИнфБазыИмя.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыАутентификацияСтандартная.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыАутентификацияOpenID.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыПоказыватьВСпискеВыбора.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыАутентификацияОС.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыПользовательОС.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Элементы.ПользовательИнфБазыРежимЗапуска.ТолькоПросмотр =
+ ДействияВФорме.СвойстваПользователяИБ <> "РедактированиеВсех";
+
+ Если НЕ ПользователиСлужебныйПовтИсп.АутентификацияOpenIDНастраивается() Тогда
Элементы.СвойстваАутентификацииОС.Отображение = ОтображениеОбычнойГруппы.Отступ;
Элементы.ПользовательИнфБазыАутентификацияOpenID.Видимость = Ложь;
КонецЕсли;
@@ -779,21 +788,38 @@
Элементы = Форма.Элементы;
- Элементы.Пароль.ТолькоПросмотр = Форма.ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ Форма.АвторизованПолноправныйПользователь;
- Элементы.ПодтверждениеПароля.ТолькоПросмотр = Форма.ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ Форма.АвторизованПолноправныйПользователь;
+ Элементы.Пароль.ТолькоПросмотр =
+ Форма.ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ Форма.АвторизованПолноправныйПользователь;
- Элементы.ОсновныеСвойства.Доступность = Форма.ДоступКИнформационнойБазеРазрешен;
- Элементы.ОтображениеРолей.Доступность = Форма.ДоступКИнформационнойБазеРазрешен;
- Элементы.ПользовательИнфБазыИмя.АвтоОтметкаНезаполненного = Форма.ДоступКИнформационнойБазеРазрешен;
+ Элементы.ПодтверждениеПароля.ТолькоПросмотр =
+ Форма.ПользовательИнфБазыЗапрещеноИзменятьПароль И НЕ Форма.АвторизованПолноправныйПользователь;
- Элементы.Пароль.Доступность = Форма.ПользовательИнфБазыАутентификацияСтандартная;
- Элементы.ПодтверждениеПароля.Доступность = Форма.ПользовательИнфБазыАутентификацияСтандартная;
- Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.Доступность = Форма.ПользовательИнфБазыАутентификацияСтандартная;
- Элементы.ПользовательИнфБазыПоказыватьВСпискеВыбора.Доступность = Форма.ПользовательИнфБазыАутентификацияСтандартная;
+ Элементы.ОсновныеСвойства.Доступность =
+ Форма.ДоступКИнформационнойБазеРазрешен;
- Элементы.ПользовательИнфБазыПользовательОС.Доступность = Форма.ПользовательИнфБазыАутентификацияОС;
+ Элементы.ОтображениеРолей.Доступность =
+ Форма.ДоступКИнформационнойБазеРазрешен;
- Элементы.ДоступКИнформационнойБазеРазрешен.Доступность = Не Форма.Объект.Недействителен;
+ Элементы.ПользовательИнфБазыИмя.АвтоОтметкаНезаполненного =
+ Форма.ДоступКИнформационнойБазеРазрешен;
+
+ Элементы.Пароль.Доступность =
+ Форма.ПользовательИнфБазыАутентификацияСтандартная;
+
+ Элементы.ПодтверждениеПароля.Доступность =
+ Форма.ПользовательИнфБазыАутентификацияСтандартная;
+
+ Элементы.ПользовательИнфБазыЗапрещеноИзменятьПароль.Доступность =
+ Форма.ПользовательИнфБазыАутентификацияСтандартная;
+
+ Элементы.ПользовательИнфБазыПоказыватьВСпискеВыбора.Доступность =
+ Форма.ПользовательИнфБазыАутентификацияСтандартная;
+
+ Элементы.ПользовательИнфБазыПользовательОС.Доступность =
+ Форма.ПользовательИнфБазыАутентификацияОС;
+
+ Элементы.ДоступКИнформационнойБазеРазрешен.Доступность =
+ НЕ Форма.Объект.Недействителен;
КонецПроцедуры
@@ -808,243 +834,21 @@
// Для работы интерфейса ролей
&НаСервере
-Функция КоллекцияРолей(ТаблицаЗначенийДляЧтения = Ложь)
+Процедура ОбработатьИнтерфейсРолей(Действие, ОсновнойПараметр = Неопределено)
- Если ТаблицаЗначенийДляЧтения Тогда
- Возврат РеквизитФормыВЗначение("ПользовательИнфБазыРоли");
- КонецЕсли;
-
- Возврат ПользовательИнфБазыРоли;
-
-КонецФункции
-
-&НаСервере
-Процедура УстановитьТолькоПросмотрРолей(Знач ТолькоПросмотрРолей = Неопределено)
-
- Если ТолькоПросмотрРолей <> Неопределено Тогда
- Элементы.Роли.ТолькоПросмотр = ТолькоПросмотрРолей;
- Элементы.РолиУстановитьФлажки.Доступность = НЕ ТолькоПросмотрРолей;
- Элементы.РолиСнятьФлажки.Доступность = НЕ ТолькоПросмотрРолей;
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура РазвернутьПодсистемыРолей();
-
- // Развернуть все
- Для каждого Строка Из Роли.ПолучитьЭлементы() Цикл
- Элементы.Роли.Развернуть(Строка.ПолучитьИдентификатор(), Истина);
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ОбновитьДеревоРолей()
-
- // Запоминание текущей строки
- ТекущаяПодсистема = "";
- ТекущаяРоль = "";
- //
- Если Элементы.Роли.ТекущаяСтрока <> Неопределено Тогда
- ТекущиеДанные = Роли.НайтиПоИдентификатору(Элементы.Роли.ТекущаяСтрока);
- Если ТекущиеДанные.ЭтоРоль Тогда
- ТекущаяПодсистема = ?(ТекущиеДанные.ПолучитьРодителя() = Неопределено, "", ТекущиеДанные.ПолучитьРодителя().Имя);
- ТекущаяРоль = ТекущиеДанные.Имя;
- Иначе
- ТекущаяПодсистема = ТекущиеДанные.Имя;
- ТекущаяРоль = "";
- КонецЕсли;
- КонецЕсли;
+ ПараметрыДействия = Новый Структура;
+ ПараметрыДействия.Вставить("ОсновнойПараметр", ОсновнойПараметр);
+ ПараметрыДействия.Вставить("Форма", ЭтаФорма);
+ ПараметрыДействия.Вставить("КоллекцияРолей", ПользовательИнфБазыРоли);
Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда
- ТипПользователя = Перечисления.ТипыПользователей.ПользовательОбластиДанных;
+ ПараметрыДействия.Вставить("ТипПользователя",
+ Перечисления.ТипыПользователей.ПользовательОбластиДанных);
Иначе
- ТипПользователя = Перечисления.ТипыПользователей.ПользовательЛокальногоРешения;
+ ПараметрыДействия.Вставить("ТипПользователя",
+ Перечисления.ТипыПользователей.ПользовательЛокальногоРешения);
КонецЕсли;
- ДеревоРолей = ПользователиСерверПовтИсп.ДеревоРолей(ПоказатьПодсистемыРолей, ТипПользователя).Скопировать();
- ДеревоРолей.Колонки.Добавить("Пометка", Новый ОписаниеТипов("Булево"));
- ДеревоРолей.Колонки.Добавить("НомерКартинки", Новый ОписаниеТипов("Число"));
- ПодготовитьДеревоРолей(ДеревоРолей.Строки, ПоказатьТолькоВыбранныеРоли);
-
- ЗначениеВРеквизитФормы(ДеревоРолей, "Роли");
-
- Элементы.Роли.Отображение = ?(ДеревоРолей.Строки.Найти(Ложь, "ЭтоРоль") = Неопределено, ОтображениеТаблицы.Список, ОтображениеТаблицы.Дерево);
-
- // Восстановление текущей строки
- НайденныеСтроки = ДеревоРолей.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Ложь, ТекущаяПодсистема), Истина);
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеПодсистемы = НайденныеСтроки[0];
- ИндексПодсистемы = ?(ОписаниеПодсистемы.Родитель = Неопределено, ДеревоРолей.Строки, ОписаниеПодсистемы.Родитель.Строки).Индекс(ОписаниеПодсистемы);
- СтрокаПодсистемы = ДанныеФормыКоллекцияЭлементовДерева(Роли, ОписаниеПодсистемы).Получить(ИндексПодсистемы);
- Если ЗначениеЗаполнено(ТекущаяРоль) Тогда
- НайденныеСтроки = ОписаниеПодсистемы.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Истина, ТекущаяРоль));
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеРоли = НайденныеСтроки[0];
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьЭлементы().Получить(ОписаниеПодсистемы.Строки.Индекс(ОписаниеРоли)).ПолучитьИдентификатор();
- Иначе
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьИдентификатор();
- КонецЕсли;
- Иначе
- Элементы.Роли.ТекущаяСтрока = СтрокаПодсистемы.ПолучитьИдентификатор();
- КонецЕсли;
- Иначе
- НайденныеСтроки = ДеревоРолей.Строки.НайтиСтроки(Новый Структура("ЭтоРоль, Имя", Истина, ТекущаяРоль), Истина);
- Если НайденныеСтроки.Количество() <> 0 Тогда
- ОписаниеРоли = НайденныеСтроки[0];
- ИндексРоли = ?(ОписаниеРоли.Родитель = Неопределено, ДеревоРолей.Строки, ОписаниеРоли.Родитель.Строки).Индекс(ОписаниеРоли);
- СтрокаРоли = ДанныеФормыКоллекцияЭлементовДерева(Роли, ОписаниеРоли).Получить(ИндексРоли);
- Элементы.Роли.ТекущаяСтрока = СтрокаРоли.ПолучитьИдентификатор();
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ПодготовитьДеревоРолей(Знач Коллекция, Знач ПоказатьТолькоВыбранныеРоли)
-
- Индекс = Коллекция.Количество()-1;
-
- Пока Индекс >= 0 Цикл
- Строка = Коллекция[Индекс];
-
- ПодготовитьДеревоРолей(Строка.Строки, ПоказатьТолькоВыбранныеРоли);
-
- Если Строка.ЭтоРоль Тогда
- Строка.НомерКартинки = 6;
- Строка.Пометка = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Строка.Имя)).Количество() > 0;
- Если ПоказатьТолькоВыбранныеРоли И НЕ Строка.Пометка Тогда
- Коллекция.Удалить(Индекс);
- КонецЕсли;
- Иначе
- Если Строка.Строки.Количество() = 0 Тогда
- Коллекция.Удалить(Индекс);
- Иначе
- Строка.НомерКартинки = 5;
- Строка.Пометка = Строка.Строки.НайтиСтроки(Новый Структура("Пометка", Ложь)).Количество() = 0;
- КонецЕсли;
- КонецЕсли;
-
- Индекс = Индекс-1;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Функция ДанныеФормыКоллекцияЭлементовДерева(Знач ДанныеФормыДерево, Знач СтрокаДереваЗначений)
-
- Если СтрокаДереваЗначений.Родитель = Неопределено Тогда
- ДанныеФормыКоллекцияЭлементовДерева = ДанныеФормыДерево.ПолучитьЭлементы();
- Иначе
- ИндексРодителя = ?(СтрокаДереваЗначений.Родитель.Родитель = Неопределено, СтрокаДереваЗначений.Владелец().Строки, СтрокаДереваЗначений.Родитель.Родитель.Строки).Индекс(СтрокаДереваЗначений.Родитель);
- ДанныеФормыКоллекцияЭлементовДерева = ДанныеФормыКоллекцияЭлементовДерева(ДанныеФормыДерево, СтрокаДереваЗначений.Родитель).Получить(ИндексРодителя).ПолучитьЭлементы();
- КонецЕсли;
-
- Возврат ДанныеФормыКоллекцияЭлементовДерева;
-
-КонецФункции
-
-
-&НаСервере
-Процедура ОбновитьСоставРолей(ИдентификаторСтроки, Добавить);
-
- Если ИдентификаторСтроки = Неопределено Тогда
- // Обработка всех
- КоллекцияРолей = КоллекцияРолей();
- КоллекцияРолей.Очистить();
- Если Добавить Тогда
- ВсеРоли = ПользователиСерверПовтИсп.ВсеРоли();
- Для каждого ОписаниеРоли Из ВсеРоли Цикл
- Если ОписаниеРоли.Имя <> "ПолныеПрава" И ОписаниеРоли.Имя <> "АдминистраторСистемы" Тогда
- КоллекцияРолей.Добавить().Роль = ОписаниеРоли.Имя;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
- Если ПоказатьТолькоВыбранныеРоли Тогда
- Если КоллекцияРолей.Количество() > 0 Тогда
- ОбновитьДеревоРолей();
- Иначе
- Роли.ПолучитьЭлементы().Очистить();
- КонецЕсли;
- // Возврат
- Возврат;
- // Возврат
- КонецЕсли;
- Иначе
- ТекущиеДанные = Роли.НайтиПоИдентификатору(ИдентификаторСтроки);
- Если ТекущиеДанные.ЭтоРоль Тогда
- ДобавитьУдалитьРоль(ТекущиеДанные.Имя, Добавить);
- Иначе
- ДобавитьУдалитьРолиПодсистемы(ТекущиеДанные.ПолучитьЭлементы(), Добавить);
- КонецЕсли;
- КонецЕсли;
-
- ОбновитьПометкуВыбранныхРолей(Роли.ПолучитьЭлементы());
-
- Модифицированность = Истина;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ДобавитьУдалитьРоль(Знач Роль, Знач Добавить)
-
- НайденныеРоли = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Роль));
-
- Если Добавить Тогда
- Если НайденныеРоли.Количество() = 0 Тогда
- КоллекцияРолей().Добавить().Роль = Роль;
- КонецЕсли;
- Иначе
- Если НайденныеРоли.Количество() > 0 Тогда
- КоллекцияРолей().Удалить(НайденныеРоли[0]);
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ДобавитьУдалитьРолиПодсистемы(Знач Коллекция, Знач Добавить)
-
- Для каждого Строка Из Коллекция Цикл
- Если Строка.ЭтоРоль Тогда
- ДобавитьУдалитьРоль(Строка.Имя, Добавить);
- Иначе
- ДобавитьУдалитьРолиПодсистемы(Строка.ПолучитьЭлементы(), Добавить);
- КонецЕсли;
- КонецЦикла;
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ОбновитьПометкуВыбранныхРолей(Знач Коллекция)
-
- Индекс = Коллекция.Количество()-1;
-
- Пока Индекс >= 0 Цикл
- Строка = Коллекция[Индекс];
-
- Если Строка.ЭтоРоль Тогда
- Строка.Пометка = КоллекцияРолей().НайтиСтроки(Новый Структура("Роль", Строка.Имя)).Количество() > 0;
- Если ПоказатьТолькоВыбранныеРоли И НЕ Строка.Пометка Тогда
- Коллекция.Удалить(Индекс);
- КонецЕсли;
- Иначе
- ОбновитьПометкуВыбранныхРолей(Строка.ПолучитьЭлементы());
- Если Строка.ПолучитьЭлементы().Количество() = 0 Тогда
- Коллекция.Удалить(Индекс);
- Иначе
- Строка.Пометка = Истина;
- Для каждого Элемент Из Строка.ПолучитьЭлементы() Цикл
- Если НЕ Элемент.Пометка Тогда
- Строка.Пометка = Ложь;
- Прервать;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
- КонецЕсли;
-
- Индекс = Индекс-1;
- КонецЦикла;
+ ПользователиСлужебный.ОбработатьИнтерфейсРолей(Действие, ПараметрыДействия);
КонецПроцедуры
diff --git a/SSL/src/Catalogs/Пользователи/Help/ru.html b/SSL/src/Catalogs/Пользователи/Help/ru.html
index 2b0ff8dae..9ce7b5e8d 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p>В этом списке ведется учет пользователей, которые работают с программой. </p>
<p>В случае большого количества пользователей список может быть сгруппирован. Например, группы пользователей можно использовать для ведения структуры подразделений компании. Для того чтобы увидеть всех пользователей, включенных в дочерние группы с учетом иерархии, необходимо установить флажок <strong>Показывать пользователей дочерних групп</strong> в нижней части списка. Для добавления новых групп пользователей воспользуйтесь командами в левой части списка. Для добавления в группу большого числа пользователей можно открыть форму группы и воспользоваться командой <strong>Подобрать</strong>. Один и тот же пользователь может одновременно входить в разные группы пользователей.</p>
<p>Для ведения списка пользователей требуются права администрирования. Остальным пользователям доступен только просмотр сведений о себе, а также изменение ряда свойств, таких как: пароль, язык программы и контактная информация.</p>
diff --git a/SSL/src/Catalogs/Пользователи/ManagerModule.bsl b/SSL/src/Catalogs/Пользователи/ManagerModule.bsl
index d778e55d8..ae3682157 100644
--- a/SSL/src/Catalogs/Пользователи/ManagerModule.bsl
+++ b/SSL/src/Catalogs/Пользователи/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -7,6 +9,10 @@
Параметры.Отбор.Вставить("Недействителен", Ложь);
КонецЕсли;
+ Если НЕ Параметры.Отбор.Свойство("Служебный") Тогда
+ Параметры.Отбор.Вставить("Служебный", Ложь);
+ КонецЕсли;
+
КонецПроцедуры
Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
@@ -34,3 +40,5 @@
ДополнительнаяИнформация, СтандартнаяОбработка);
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Пользователи/ObjectModule.bsl b/SSL/src/Catalogs/Пользователи/ObjectModule.bsl
index acdb41c57..4aa407531 100644
--- a/SSL/src/Catalogs/Пользователи/ObjectModule.bsl
+++ b/SSL/src/Catalogs/Пользователи/ObjectModule.bsl
@@ -1,20 +1,40 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
-Перем ЗаписьПервогоАдминистратора; // Флажок факта записи первого администратора,
-// который может быть установлен при обработке
-// пользователя ИБ.
-// Используется в обработчике события ПриЗаписи.
+
+Перем ПараметрыОбработкиПользователяИБ; // Параметры, заполняемые при обработке пользователя ИБ.
+ // Используются в обработчике события ПриЗаписи.
////////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС
// Программный интерфейс объекта реализован через ДополнительныеСвойства:
//
-// ДоступКИнформационнойБазеРазрешен - есть пользователь ИБ, связанный
-// с данным элементом.
+// ОписаниеПользователяИБ - Структура со свойствами:
+// Действие - Строка - "Записать" или "Удалить".
//
-// СтруктураОписанияПользователяИБ - свойства пользователя ИБ, используются только
-// если ДоступКИнформационнойБазеРазрешен = Истина.
-// Состав свойств см. Пользователи.НовоеОписаниеПользователяИБ.
+// 1. Если Действие = "Удалить" другие свойства не требуются. Удаление
+// будет считаться успешным и в том случае, когда пользовательИБ
+// не найден по значению реквизита ИдентификаторПользователяИБ.
+//
+// 2. Если Действие = "Записать", тогда будет создан или обновлен
+// пользователь ИБ по указанным свойствам.
+//
+// Состав свойств указывается аналогично составу свойств параметра
+// ОбновляемыеСвойства для процедуры Пользователи.ЗаписатьПользователяИБ(),
+// кроме свойства ПолноеИмя - устанавливается по Наименованию.
+//
+// Для привязки существующего свободного пользователя ИБ к свободному элементу
+// справочника, нужно вставить свойство УникальныйИдентификатор.
+//
+// При выполнении действий "Записать" и "Удалить" реквизит объекта
+// ИдентификаторПользователяИБ обновляется автоматически, его не следует изменять.
+//
+// После выполнения действия в структуру вставляются (обновляются) следующие свойства.
+// РезультатДействия - Строка, содержащая одно из значений:
+// "ДобавленПользовательИБ", "ИзмененПользовательИБ", "УдаленПользовательИБ",
+// "ОчищенаСвязьСНесуществущимПользователемИБ", "НеТребуетсяУдалениеПользовательИБ".
+// УникальныйИдентификатор - УникальныйИдентификатор пользователя ИБ.
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -25,28 +45,7 @@
Возврат;
КонецЕсли;
- Если СтандартныеПодсистемыПереопределяемый.ЭтоНеразделенныйПользовательИБ(ИдентификаторПользователяИБ) Тогда
- Возврат;
- КонецЕсли;
-
- ЗаписьПервогоАдминистратора = Ложь;
-
- СтандартныеПодсистемыПереопределяемый.ПередЗаписьюПользователя(ЭтотОбъект);
-
- Если ДополнительныеСвойства.Свойство("ДоступКИнформационнойБазеРазрешен") Тогда
- ОбработатьПользователяИБ(Отказ);
- КонецЕсли;
-
- Если Отказ Тогда
- Возврат;
- КонецЕсли;
-
- Если ИдентификаторПользователяИБ <> Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")
- И Пользователи.ПользовательПоИдентификаторуСуществует(ИдентификаторПользователяИБ, Ссылка) Тогда
-
- ВызватьИсключение(НСтр("ru = 'Один пользователь информационной базы
- |может быть связан только с одним пользователем или внешним пользователем!'"));
- КонецЕсли;
+ ПользователиСлужебный.НачатьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
КонецПроцедуры
@@ -56,44 +55,40 @@
Возврат;
КонецЕсли;
- Если СтандартныеПодсистемыПереопределяемый.ЭтоНеразделенныйПользовательИБ(ИдентификаторПользователяИБ) Тогда
- Возврат;
- КонецЕсли;
-
Если ДополнительныеСвойства.Свойство("ГруппаНовогоПользователя")
И ЗначениеЗаполнено(ДополнительныеСвойства.ГруппаНовогоПользователя) Тогда
+ Блокировка = Новый БлокировкаДанных;
+ ЭлементБлокировки = Блокировка.Добавить("Справочник.ГруппыПользователей");
+ ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
+ Блокировка.Заблокировать();
+
ОбъектГруппы = ДополнительныеСвойства.ГруппаНовогоПользователя.ПолучитьОбъект();
ОбъектГруппы.Состав.Добавить().Пользователь = Ссылка;
ОбъектГруппы.Записать();
- Пользователи.ОбновитьСоставыГруппПользователей(ОбъектГруппы.Ссылка);
КонецЕсли;
- Пользователи.ОбновитьСоставыГруппПользователей(Справочники.ГруппыПользователей.ВсеПользователи);
+ ПользователиСлужебный.ОбновитьСоставыГруппПользователей(
+ Справочники.ГруппыПользователей.ВсеПользователи, Ссылка);
- Если ЗаписьПервогоАдминистратора Тогда
- УстановитьПривилегированныйРежим(Истина);
-
- ПользователиПереопределяемый.ПриЗаписиПервогоАдминистратора(Ссылка);
-
- УстановитьПривилегированныйРежим(Ложь);
- КонецЕсли;
+ ПользователиСлужебный.ЗавершитьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
КонецПроцедуры
Процедура ПередУдалением(Отказ)
- Если СтандартныеПодсистемыПереопределяемый.ЭтоНеразделенныйПользовательИБ(ИдентификаторПользователяИБ) Тогда
- Возврат;
- КонецЕсли;
-
- // Требуется удалить пользователя ИБ, иначе он попадет в список ошибок в форме ПользователиИБ,
- // кроме того, вход под этим пользователем ИБ приведет к ошибке.
- Если Пользователи.ПользовательИБСуществует(ИдентификаторПользователяИБ) Тогда
- ОписаниеОшибки = "";
- Если НЕ Пользователи.УдалитьПользователяИБ(ИдентификаторПользователяИБ, ОписаниеОшибки) Тогда
- ВызватьИсключение(ОписаниеОшибки);
- КонецЕсли;
+ Если НЕ ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ ИЛИ НЕ Пользователи.ЭтоНеразделенныйПользователь(ИдентификаторПользователяИБ) Тогда
+
+ // Требуется удалить пользователя ИБ, иначе он попадет в список ошибок в форме ПользователиИБ,
+ // кроме того, вход под этим пользователем ИБ приведет к ошибке.
+
+ ОписаниеПользователяИБ = Новый Структура;
+ ОписаниеПользователяИБ.Вставить("Действие", "Удалить");
+ ДополнительныеСвойства.Вставить("ОписаниеПользователяИБ", ОписаниеПользователяИБ);
+
+ ПользователиСлужебный.НачатьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ, Истина);
+ ПользователиСлужебный.ЗавершитьОбработкуПользователяИБ(ЭтотОбъект, ПараметрыОбработкиПользователяИБ);
КонецЕсли;
// Проверку ОбменДанными.Загрузка следует выполнять начиная с этой строки.
@@ -102,132 +97,11 @@
Процедура ПриКопировании(ОбъектКопирования)
+ ДополнительныеСвойства.Вставить("ЗначениеКопирования", ОбъектКопирования.Ссылка);
+
ИдентификаторПользователяИБ = Неопределено;
ИдентификаторПользователяСервиса = Неопределено;
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
-
-Процедура ОбработатьПользователяИБ(Отказ)
-
- УровеньДоступа = Пользователи.ПолучитьУровеньДоступаНаИзменениеСвойствПользователяИБ();
-
- Если УровеньДоступа = "НетДоступа" Тогда
- ТекстСообщения = НСтр("ru = 'Не достаточно прав для изменения пользователя информационной базы'");
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , , Отказ);
- Возврат;
- КонецЕсли;
-
- УстановитьПривилегированныйРежим(Истина);
- ДополнительныеСвойства.Вставить("ПользовательИБСуществует",
- ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ИдентификаторПользователяИБ) <> Неопределено);
-
- Если УровеньДоступа <> "ПолныйДоступ" И УровеньДоступа <> "УправлениеСписком"
- И ДополнительныеСвойства.ПользовательИБСуществует <> ДополнительныеСвойства.ДоступКИнформационнойБазеРазрешен Тогда
-
- ТекстСообщения = НСтр("ru = 'Не достаточно прав для изменения пользователя информационной базы'");
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , , Отказ);
- Возврат;
- КонецЕсли;
-
- Если ДополнительныеСвойства.ДоступКИнформационнойБазеРазрешен Тогда
- // Проверка попытки изменения недоступных свойств.
- СтруктураОписанияПользователяИБ = ДополнительныеСвойства.СтруктураОписанияПользователяИБ;
-
- Если УровеньДоступа = "УправлениеСписком" Тогда
- Если СтруктураОписанияПользователяИБ.Свойство("ПользовательИнфБазыРоли") Тогда
- ТекстСообщения = НСтр("ru = 'Не достаточно прав для изменения ролей пользователя информационной базы'");
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , , Отказ);
- Возврат;
- КонецЕсли;
- ИначеЕсли УровеньДоступа = "ИзменениеТекущего" Тогда
- ДопустимыеСвойства = Новый Массив;
- ДопустимыеСвойства.Добавить("ПользовательИнфБазыИмя");
- ДопустимыеСвойства.Добавить("ПользовательИнфБазыПароль");
- ДопустимыеСвойства.Добавить("ПользовательИнфБазыЯзык");
- ДопустимыеСвойства.Добавить("ПодтверждениеПароля");
- Для каждого КлючИЗначение Из СтруктураОписанияПользователяИБ Цикл
- Если ДопустимыеСвойства.Найти(КлючИЗначение.Ключ) = Неопределено Тогда
- ТекстСообщения = НСтр("ru = 'Не достаточно прав для изменения пользователя информационной базы'");
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , , Отказ);
- Возврат;
- КонецЕсли;
- КонецЦикла;
- КонецЕсли;
-
- ЗаписатьПользователяИБ(Отказ);
- Иначе
- Если ДополнительныеСвойства.ПользовательИБСуществует Тогда
- УдалитьПользователяИБ(Отказ);
- КонецЕсли;
- КонецЕсли;
-
-КонецПроцедуры
-
-Процедура ЗаписатьПользователяИБ(Отказ)
-
- СтруктураОписанияПользователяИБ = ДополнительныеСвойства.СтруктураОписанияПользователяИБ;
- Если СтруктураОписанияПользователяИБ.Количество() = 0 Тогда
- Возврат;
- КонецЕсли;
-
- Если СтруктураОписанияПользователяИБ.Свойство("ПользовательИнфБазыРоли") Тогда
- Роли = СтруктураОписанияПользователяИБ.ПользовательИнфБазыРоли;
- Иначе
- Роли = Неопределено;
- КонецЕсли;
-
- Если Пользователи.ТребуетсяСоздатьПервогоАдминистратора(СтруктураОписанияПользователяИБ) Тогда
- ЗаписьПервогоАдминистратора = Истина;
- Роли = Новый Массив;
- Роли.Добавить("ПолныеПрава");
-
- ИмяРолиАдминистратораСистемы = Пользователи.РольАдминистратораСистемы().Имя;
- Если Роли.Найти(ИмяРолиАдминистратораСистемы) = Неопределено Тогда
- Роли.Добавить(ИмяРолиАдминистратораСистемы);
- КонецЕсли;
- КонецЕсли;
-
- // Попытка записи пользователя ИБ.
- СозданНовыйПользовательИБ = Ложь;
- ОписаниеОшибки = "";
- Если Пользователи.ЗаписатьПользователяИБ(ИдентификаторПользователяИБ,
- СтруктураОписанияПользователяИБ, Роли, НЕ ДополнительныеСвойства.ПользовательИБСуществует, ОписаниеОшибки) Тогда
-
- Если НЕ ДополнительныеСвойства.ПользовательИБСуществует Тогда
- СозданНовыйПользовательИБ = Истина;
- ИдентификаторПользователяИБ = СтруктураОписанияПользователяИБ.ПользовательИнфБазыУникальныйИдентификатор;
- ДополнительныеСвойства.ПользовательИБСуществует = Истина;
- КонецЕсли;
- Иначе
- Отказ = Истина;
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки);
- КонецЕсли;
-
- Если НЕ Отказ Тогда
- Если СозданНовыйПользовательИБ Тогда
- ДополнительныеСвойства.Вставить("ДобавленПользовательИБ", ИдентификаторПользователяИБ);
- Иначе
- ДополнительныеСвойства.Вставить("ИзмененПользовательИБ", ИдентификаторПользователяИБ);
- КонецЕсли
- КонецЕсли;
-
-КонецПроцедуры
-
-Функция УдалитьПользователяИБ(Отказ)
-
- УстановитьПривилегированныйРежим(Истина);
-
- ОписаниеОшибки = "";
- Если Пользователи.УдалитьПользователяИБ(ИдентификаторПользователяИБ, ОписаниеОшибки) Тогда
- ДополнительныеСвойства.Вставить("УдаленПользовательИБ", ИдентификаторПользователяИБ);
- ДополнительныеСвойства.ПользовательИБСуществует = Ложь;
- ИдентификаторПользователяИБ = Неопределено;
- Иначе
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки, , , , Отказ);
- КонецЕсли;
-
-КонецФункции
-
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/Пользователи/Пользователи.mdo b/SSL/src/Catalogs/Пользователи/Пользователи.mdo
index ad5ea8f17..a7583679d 100644
--- a/SSL/src/Catalogs/Пользователи/Пользователи.mdo
+++ b/SSL/src/Catalogs/Пользователи/Пользователи.mdo
@@ -163,6 +163,21 @@
<indexing>Index</indexing>
<dataHistory>Use</dataHistory>
</attributes>
+ <attributes uuid="dface15c-cd65-4fb1-b4dd-b513086d3f8e">
+ <name>ИдентификаторПользователяСервиса</name>
+ <synonym>
+ <key>ru</key>
+ <value>Идентификатор пользователя сервиса</value>
+ </synonym>
+ <type>
+ <types>UUID</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <dataHistory>Use</dataHistory>
+ </attributes>
<attributes uuid="ae6d0e12-8857-476c-b4b2-f03295cbed3e">
<name>Недействителен</name>
<synonym>
@@ -183,19 +198,23 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
- <attributes uuid="dface15c-cd65-4fb1-b4dd-b513086d3f8e">
- <name>ИдентификаторПользователяСервиса</name>
+ <attributes uuid="bd0e3bd4-1207-41ea-8dfc-afa8f7d08cc2">
+ <name>Служебный</name>
<synonym>
<key>ru</key>
- <value>Идентификатор пользователя сервиса</value>
+ <value>Служебный</value>
</synonym>
<type>
- <types>UUID</types>
+ <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"/>
- <indexing>Index</indexing>
+ <fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<tabularSections uuid="d6969c1e-e13c-4542-abb7-9cf6bb50b8e2">
diff --git a/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl b/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl
new file mode 100644
index 000000000..4a02b73a8
--- /dev/null
+++ b/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl
@@ -0,0 +1,14 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
+
+Процедура ПередЗаписью(Отказ)
+ Перем Характеристика;
+
+ Описание = ВидДанных;
+ Для каждого Характеристика Из ХарактеристикиДанных Цикл
+ Описание = Описание
+ + ", " + Характеристика.Характеристика + ": " + Характеристика.Значение;
+ КонецЦикла;
+КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПоставляемыеДанные/ПоставляемыеДанные.mdo b/SSL/src/Catalogs/ПоставляемыеДанные/ПоставляемыеДанные.mdo
new file mode 100644
index 000000000..01c0cae93
--- /dev/null
+++ b/SSL/src/Catalogs/ПоставляемыеДанные/ПоставляемыеДанные.mdo
@@ -0,0 +1,296 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="f8f0857f-2c75-471a-ae0b-a3a265e1eb25">
+ <producedTypes>
+ <objectType typeId="b2197019-97e2-4c75-af7c-5fc3dc79bd1c" valueTypeId="eff4544a-5932-41f9-bb36-3640b7ba8aea"/>
+ <refType typeId="9ed954ea-3506-4bda-8a27-fc5a681f85ae" valueTypeId="704e0666-092b-4291-bb7c-6ca3247b2838"/>
+ <selectionType typeId="288efd12-6f2d-43e1-ac34-0d044e00db6b" valueTypeId="417d10fc-2fee-47f9-9590-be6023b36c35"/>
+ <listType typeId="ed914df4-e98e-4afc-a357-e4f02e14a678" valueTypeId="77832077-5e90-44eb-8968-9c06c5ae2c96"/>
+ <managerType typeId="754b9a4e-b9df-4a95-8d4e-136faa692c5b" valueTypeId="672d7f48-e60b-4597-aeed-3763dc8e3fb2"/>
+ </producedTypes>
+ <name>ПоставляемыеДанные</name>
+ <synonym>
+ <key>ru</key>
+ <value>Поставляемые данные</value>
+ </synonym>
+ <useStandardCommands>true</useStandardCommands>
+ <inputByString>Catalog.ПоставляемыеДанные.StandardAttribute.Code</inputByString>
+ <fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>PredefinedDataName</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Predefined</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Ref</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>DeletionMark</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>IsFolder</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Owner</name>
+ <fillFromFillingValue>true</fillFromFillingValue>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fillChecking>ShowError</fillChecking>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Parent</name>
+ <fillFromFillingValue>true</fillFromFillingValue>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Description</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fillChecking>ShowError</fillChecking>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>Code</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <createOnInput>Use</createOnInput>
+ <dataLockControlMode>Managed</dataLockControlMode>
+ <fullTextSearch>Use</fullTextSearch>
+ <levelCount>2</levelCount>
+ <foldersOnTop>true</foldersOnTop>
+ <codeLength>9</codeLength>
+ <codeType>String</codeType>
+ <codeAllowedLength>Variable</codeAllowedLength>
+ <checkUnique>true</checkUnique>
+ <autonumbering>true</autonumbering>
+ <editType>InDialog</editType>
+ <choiceMode>BothWays</choiceMode>
+ <attributes uuid="a23f97fb-7ac9-4941-a2c6-bbff6c36ac12">
+ <name>ВидДанных</name>
+ <synonym>
+ <key>ru</key>
+ <value>Вид данных</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers>
+ <length>20</length>
+ </stringQualifiers>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:StringValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="80cf54ed-8677-4c89-a378-0abef6c64010">
+ <name>ДатаДобавления</name>
+ <synonym>
+ <key>ru</key>
+ <value>Дата добавления</value>
+ </synonym>
+ <type>
+ <types>Date</types>
+ <dateQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="f0dec7b3-2d6a-44ce-a1da-9c71ccd37539">
+ <name>ХранимыйФайл</name>
+ <synonym>
+ <key>ru</key>
+ <value>Хранимый файл</value>
+ </synonym>
+ <type>
+ <types>ValueStorage</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="56ee3afd-5ae6-421e-b9f3-26505e40f100">
+ <name>ПутьКФайлу</name>
+ <synonym>
+ <key>ru</key>
+ <value>Путь к файлу</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers/>
+ </type>
+ <toolTip>
+ <key>ru</key>
+ <value>Путь к файлу в томе (служебное поле)</value>
+ </toolTip>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:StringValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="63c9a839-78b2-4706-b380-5aedf6914930">
+ <name>Том</name>
+ <synonym>
+ <key>ru</key>
+ <value>Том</value>
+ </synonym>
+ <comment>Ссылка на том (в случае если ТипХраненияФайла - на диске)</comment>
+ <type>
+ <types>CatalogRef.ТомаХраненияФайлов</types>
+ </type>
+ <toolTip>
+ <key>ru</key>
+ <value>Том для хранения файла</value>
+ </toolTip>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="40f5c1cb-2654-4738-bb44-6734b0e3490b">
+ <name>ТипХраненияФайла</name>
+ <synonym>
+ <key>ru</key>
+ <value>Тип хранения файла</value>
+ </synonym>
+ <comment>Где хранятся файлы - в базе как ХранилищеЗначения или в каталоге на диске</comment>
+ <type>
+ <types>EnumRef.ТипыХраненияФайлов</types>
+ </type>
+ <toolTip>
+ <key>ru</key>
+ <value>Тип хранения файла (в томе или непосредственно в системе)</value>
+ </toolTip>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <indexing>Index</indexing>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="2ec484b1-95eb-43a7-9430-1c1ef49f05af">
+ <name>ИдентификаторФайла</name>
+ <synonym>
+ <key>ru</key>
+ <value>Идентификатор файла</value>
+ </synonym>
+ <type>
+ <types>UUID</types>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <attributes uuid="1a314ce2-03bc-4267-89a9-bb5bb866f552">
+ <name>Описание</name>
+ <synonym>
+ <key>ru</key>
+ <value>Описание</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <fillValue xsi:type="core:StringValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <dataHistory>Use</dataHistory>
+ </attributes>
+ <tabularSections uuid="e3b783a6-5ea2-4cd4-955b-df63d93c1f25">
+ <producedTypes>
+ <objectType typeId="07ea8ed9-9718-4b72-ab7b-a95ad133dcfe" valueTypeId="21a18f57-bee8-4d06-a19b-4a35c9a95b99"/>
+ <rowType typeId="42d137b6-aacf-4fe8-843c-6fa1aa36613e" valueTypeId="34d3a1a4-30f1-457f-b050-55c92b3f2663"/>
+ </producedTypes>
+ <name>ХарактеристикиДанных</name>
+ <synonym>
+ <key>ru</key>
+ <value>Характеристики данных</value>
+ </synonym>
+ <standardAttributes>
+ <dataHistory>Use</dataHistory>
+ <name>LineNumber</name>
+ <fillValue xsi:type="core:UndefinedValue"/>
+ <fullTextSearch>Use</fullTextSearch>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ </standardAttributes>
+ <attributes uuid="f8ab62ad-7776-49ae-b1bb-51bea9a9992b">
+ <name>Характеристика</name>
+ <synonym>
+ <key>ru</key>
+ <value>Характеристика</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers>
+ <length>20</length>
+ </stringQualifiers>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <dataHistory>Use</dataHistory>
+ <fullTextSearch>Use</fullTextSearch>
+ </attributes>
+ <attributes uuid="e859dd18-8baf-49c0-b7a0-1205b6c125d3">
+ <name>Значение</name>
+ <synonym>
+ <key>ru</key>
+ <value>Значение</value>
+ </synonym>
+ <type>
+ <types>String</types>
+ <stringQualifiers/>
+ </type>
+ <minValue xsi:type="core:UndefinedValue"/>
+ <maxValue xsi:type="core:UndefinedValue"/>
+ <dataHistory>Use</dataHistory>
+ <fullTextSearch>Use</fullTextSearch>
+ </attributes>
+ </tabularSections>
+</mdclass:Catalog>
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl
index 5fd913e6d..925618f16 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl
@@ -194,7 +194,7 @@
Попытка
Если ФормаДлительнойОперации.Открыта()
И ФормаДлительнойОперации.ИдентификаторЗадания = ИдентификаторЗадания Тогда
- Если ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания) Тогда
+ Если ЗаданиеВыполнено(ИдентификаторЗадания) Тогда
ЗагрузитьРезультат();
ДлительныеОперацииКлиент.ЗакрытьФормуДлительнойОперации(ФормаДлительнойОперации);
Оповестить("ПримененыПравилаОбработкиПисем");
@@ -212,3 +212,11 @@
КонецПопытки;
КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ЗаданиеВыполнено(ИдентификаторЗадания)
+
+ Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания);
+
+КонецФункции
+
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl
index 80cffc8c4..c20fe9468 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
&НаСервере
@@ -120,3 +122,5 @@
ПоместитьВоВременноеХранилище(ТекстСообщения, АдресХранилища);
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl
index 9a7e2532a..ad33c03dd 100644
--- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ СОБЫТИЙ
@@ -13,3 +15,5 @@
КонецЕсли;
КонецПроцедуры
+
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form
index c0783da53..8b9db1b89 100644
--- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form
@@ -514,21 +514,6 @@
<itemValueType/>
</extInfo>
</attributes>
- <attributes>
- <name>ЦветОформленияДняПоУмолчанию</name>
- <title>
- <key>ru</key>
- <value>Цвет оформления дня по умолчанию</value>
-
- 7
-
-
- true
-
-
- true
-
-
ВидыДней
diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl
index c1f78beb0..b47e4279d 100644
--- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl
@@ -10,8 +10,6 @@
ЦветаВидовДней = Новый ФиксированноеСоответствие(Справочники.ПроизводственныеКалендари.ЦветаОформленияВидовДнейПроизводственногоКалендаря());
- ЦветОформленияДняПоУмолчанию = ЦветаВидовДней.Получить(Перечисления.ВидыДнейПроизводственногоКалендаря.ПустаяСсылка());
-
СписокВидовДня = Справочники.ПроизводственныеКалендари.СписокВидовДня();
КонецПроцедуры
@@ -69,7 +67,10 @@
Для Каждого СтрокаОформленияПериода Из ОформлениеПериода.Даты Цикл
ЦветОформленияДня = ЦветаВидовДней.Получить(ВидыДней.Получить(СтрокаОформленияПериода.Дата));
- СтрокаОформленияПериода.ЦветТекста = ?(ЦветОформленияДня = Неопределено, ЦветОформленияДняПоУмолчанию, ЦветОформленияДня);
+ Если ЦветОформленияДня = Неопределено Тогда
+ ЦветОформленияДня = ОбщегоНазначенияКлиент.ЦветСтиля("ВидДняНеУказанЦвет");
+ КонецЕсли;
+ СтрокаОформленияПериода.ЦветТекста = ЦветОформленияДня;
КонецЦикла;
КонецПроцедуры
diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
index 76846d91f..f9166308e 100644
--- a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
@@ -1,3 +1,5 @@
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
+
////////////////////////////////////////////////////////////////////////////////
// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
@@ -72,12 +74,11 @@
ЦветаОформления = Новый Соответствие;
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.ПустаяСсылка(), WebЦвета.Красный);
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий, WebЦвета.Черный);
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота, WebЦвета.ТемноКрасный);
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье, WebЦвета.Красный);
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный, WebЦвета.ТемноСиний);
- ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник, WebЦвета.Фиолетовый);
+ ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий, ЦветаСтиля.ВидДняРабочийЦвет);
+ ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота, ЦветаСтиля.ВидДняСубботаЦвет);
+ ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье, ЦветаСтиля.ВидДняВоскресеньеЦвет);
+ ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный, ЦветаСтиля.ВидДняПредпраздничныйЦвет);
+ ЦветаОформления.Вставить(Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник, ЦветаСтиля.ВидДняПраздникЦвет);
Возврат ЦветаОформления;
@@ -130,4 +131,5 @@
Возврат СписокПроизводственныхКалендарей;
-КонецФункции
\ No newline at end of file
+КонецФункции
+#КонецЕсли
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Help/ru.html b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Help/ru.html
index f7883bd5d..475a978d6 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 9.00.8112.16447"></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.16446"></meta></head><body>
<p><a href="Catalog.ПрофилиГруппДоступа/Help">Назначение профилей групп доступа см. здесь.</a></p>
<p>Профилей групп доступа для больших конфигураций может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки для упрощения поиска нужного профиля и понимания принципов их формирования.</p>
<p> </p></body></html>
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl
index e5dde8a4a..943c0a47d 100644
--- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl
@@ -4,26 +4,37 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
- Список.Параметры.УстановитьЗначениеПараметра("РежимВыбораТолькоГрупп", Параметры.РежимВыбора И Параметры.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Группы);
+ // Возврат при получении формы для анализа.
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Список.Параметры.УстановитьЗначениеПараметра(
+ "РежимВыбораТолькоГрупп",
+ Параметры.РежимВыбора
+ И Параметры.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Группы);
СписокНедоступныхПрофилей = Новый СписокЗначений;
Если Параметры.РежимВыбора Тогда
СписокНедоступныхПрофилей.Добавить(Справочники.ПрофилиГруппДоступа.Администратор);
- // Отбор не помеченных на удаление
+ // Отбор не помеченных на удаление.
Список.Отбор.Элементы[1].Использование = Истина;
Элементы.Список.РежимВыбора = Истина;
Элементы.Список.ВыборГруппИЭлементов = Параметры.ВыборГруппИЭлементов;
+
Если Параметры.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Группы Тогда
+
Элементы.Список.Отображение = ОтображениеТаблицы.Дерево;
- Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВерхнийУровень;
+ Элементы.Список.НачальноеОтображениеДерева =
+ НачальноеОтображениеДерева.РаскрыватьВерхнийУровень;
КонецЕсли;
АвтоЗаголовок = Ложь;
Если Параметры.ЗакрыватьПриВыборе = Ложь Тогда
- // Режим подбора
+ // Режим подбора.
Элементы.Список.МножественныйВыбор = Истина;
Элементы.Список.РежимВыделения = РежимВыделенияТаблицы.Множественный;
diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Form.form
index 5b399d596..b1620e7d2 100644
--- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Form.form
+++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Form.form
@@ -286,7 +286,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.УстановитьФлажки</commandName>
+ <commandName>Form.Command.ВключитьРоли</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -313,7 +313,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.СнятьФлажки</commandName>
+ <commandName>Form.Command.ИсключитьРоли</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -366,7 +366,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
- <commandName>Form.Command.ПоказатьПодсистемыРолей</commandName>
+ <commandName>Form.Command.ГруппировкаРолейПоПодсистемам</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -2169,23 +2169,6 @@
<itemValueType/>
</extInfo>
</attributes>
- <attributes>
- <name>ПоказатьТолькоВыбранныеРоли</name>
- <title>
- <key>ru</key>
- <value>Показать только выбранные роли</value>
-
- 5
-
- Boolean
-
-
- true
-
-
- true
-
- НадписьВидДоступа
@@ -2612,23 +2595,6 @@
<segments>ПоказатьПодсистемыРолей</segments>
</settingsSavedData>
</attributes>
- <attributes>
- <name>СкрытьРольПолныеПрава</name>
- <title>
- <key>ru</key>
- <value>Скрыть роль полные права</value>
-
- 6
-
- Boolean
-
-
- true
-
-
- true
-
- ТребуетсяПроверитьЗаполнение
@@ -2695,12 +2661,16 @@
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
- <name>УстановитьФлажки</name>
+ <name>ВключитьРоли</name>
<title>
<key>ru</key>
- <value>Установить флажки</value>
+ <value>Включить роли</value>
5
+
+ ru
+ Включить роли
+
@@ -2709,7 +2679,7 @@
- УстановитьФлажки
+ ВключитьРолиtrue
@@ -2717,12 +2687,16 @@
Auto
- СнятьФлажки
+ ИсключитьРоли
<key>ru</key>
- <value>Снять флажки</value>
+ <value>Исключить роли</value>
6
+
+ ru
+ Исключить роли
+
@@ -2731,7 +2705,7 @@
- СнятьФлажки
+ ИсключитьРолиtrue
@@ -2739,15 +2713,15 @@
Auto
- ПоказатьПодсистемыРолей
+ ГруппировкаРолейПоПодсистемам
<key>ru</key>
- <value>Группировка по подсистемам</value>
+ <value>По подсистемам</value>
2ru
- Показать группировку по подсистемам
+ Группировать список ролей по подсистемам