diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
index 7eda3dc6b..87fb6c1cc 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl
@@ -10,38 +10,38 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-
+
УстановитьУсловноеОформление();
Если Параметры.Свойство("ПараметрыОткрытияФормыОтчета", ПараметрыОткрытияФормыОтчета) Тогда
Возврат;
КонецЕсли;
-
+
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект);
-
+
Доступен = ?(Объект.ТолькоДляАвтора, "Автору", "Всем");
-
+
ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты();
ПравоНаЭтотВариант = ПолныеПраваНаВарианты Или Объект.Автор = Пользователи.АвторизованныйПользователь();
Если Не ПравоНаЭтотВариант Тогда
ТолькоПросмотр = Истина;
Элементы.ДеревоПодсистем.ТолькоПросмотр = Истина;
КонецЕсли;
-
+
Если Объект.ПометкаУдаления Тогда
Элементы.ДеревоПодсистем.ТолькоПросмотр = Истина;
КонецЕсли;
-
+
Если Не Объект.Пользовательский Тогда
Элементы.Наименование.ТолькоПросмотр = Истина;
Элементы.Автор.АвтоОтметкаНезаполненного = Ложь;
Элементы.Доступен.Видимость = Ложь;
КонецЕсли;
-
+
ЭтоВнешний = (Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внешний);
Если ЭтоВнешний Тогда
Элементы.ДеревоПодсистем.ТолькоПросмотр = Истина;
КонецЕсли;
-
+
Элементы.Доступен.ТолькоПросмотр = Не ПолныеПраваНаВарианты;
Элементы.УведомитьПользователей.Видимость = ПолныеПраваНаВарианты;
Элементы.Пользователи.Видимость = ПолныеПраваНаВарианты Или Доступен = "Всем";
@@ -57,36 +57,35 @@
Иначе
ИмяОтчета = Объект.Отчет;
КонецЕсли;
-
+
ПерезаполнитьДерево(Ложь);
-
+
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьСервер");
МодульМультиязычностьСервер.ПриСозданииНаСервере(ЭтотОбъект, Объект);
КонецЕсли;
-
+
ВариантыОтчетов.ОпределитьПоведениеСпискаПользователейВариантаОтчета(ЭтотОбъект);
ВариантыОтчетов.ВывестиПризнакУведомленияПользователейВариантаОтчета(Элементы.УведомитьПользователей);
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
-
+
Если ПараметрыОткрытияФормыОтчета <> Неопределено Тогда
Отказ = Истина;
ВариантыОтчетовКлиент.ОткрытьФормуОтчета(Неопределено, ПараметрыОткрытияФормыОтчета);
КонецЕсли;
-
+
ВариантыОтчетовКлиент.ОформитьПользователейВариантаОтчета(ЭтотОбъект, Ложь);
-
+
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
- Если Источник <> ЭтотОбъект
- И (ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеВарианта()
- Или ИмяСобытия = "Запись_НаборКонстант") Тогда
+ Если Источник <> ЭтотОбъект И (ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеВарианта() Или ИмяСобытия
+ = "Запись_НаборКонстант") Тогда
ПерезаполнитьДерево(Истина);
Элементы.ДеревоПодсистем.Развернуть(ДеревоПодсистем.ПолучитьЭлементы()[0].ПолучитьИдентификатор(), Истина);
КонецЕсли;
@@ -94,9 +93,9 @@
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
-
+
СпроситьОУведомленииПользователей(Отказ);
-
+
КонецПроцедуры
&НаСервере
@@ -105,20 +104,21 @@
// Запись свойств, связанных с предопределенным вариантом отчета.
ОписаниеИзменено = Ложь;
Если ЭтоПредопределенный Тогда
-
+
ПредопределенныйВариант = ТекущийОбъект.ПредопределенныйВариант.ПолучитьОбъект();
-
+
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьСервер");
МодульМультиязычностьСервер.ПриЧтенииПредставленийНаСервере(ПредопределенныйВариант);
КонецЕсли;
-
- ОписаниеИзменено = Не ПустаяСтрока(Объект.Описание) И НРег(СокрЛП(Объект.Описание)) <> НРег(СокрЛП(ПредопределенныйВариант.Описание));
+
+ ОписаниеИзменено = Не ПустаяСтрока(Объект.Описание)
+ И НРег(СокрЛП(Объект.Описание)) <> НРег(СокрЛП(ПредопределенныйВариант.Описание));
Если Не ОписаниеИзменено Тогда
ТекущийОбъект.Описание = "";
- Для каждого ПредставлениеВарианта Из ТекущийОбъект.Представления Цикл
+ Для Каждого ПредставлениеВарианта Из ТекущийОбъект.Представления Цикл
ПредставлениеВарианта.Описание = "";
- КонецЦикла;
+ КонецЦикла;
КонецЕсли;
КонецЕсли;
@@ -130,19 +130,19 @@
ИзмененныеРазделы = ДеревоПриемник.Строки.НайтиСтроки(Новый Структура("Модифицированность", Истина), Истина);
КонецЕсли;
ВариантыОтчетов.ДеревоПодсистемЗаписать(ТекущийОбъект, ИзмененныеРазделы);
-
+
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьСервер");
МодульМультиязычностьСервер.ПередЗаписьюНаСервере(ТекущийОбъект);
КонецЕсли;
-
+
Если ЭтоПредопределенный И Не ОписаниеИзменено Тогда
ТекущийОбъект.Представления.Очистить();
КонецЕсли;
-
+
ТекущийОбъект.ДополнительныеСвойства.Вставить("ПользователиВарианта", ПользователиВарианта);
ТекущийОбъект.ДополнительныеСвойства.Вставить("УведомитьПользователей", УведомитьПользователей);
-
+
КонецПроцедуры
&НаСервере
@@ -154,15 +154,15 @@
МодульУправлениеДоступом.ПослеЗаписиНаСервере(ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
-
+
ПерезаполнитьДерево(Ложь);
ЗаполнитьИзПредопределенного(ТекущийОбъект);
-
+
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьСервер");
МодульМультиязычностьСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
-
+
КонецПроцедуры
&НаКлиенте
@@ -180,14 +180,14 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
-
+
ЗаполнитьИзПредопределенного(ТекущийОбъект);
-
+
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьСервер");
МодульМультиязычностьСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
-
+
РегистрыСведений.НастройкиВариантовОтчетов.ПрочитатьНастройкиДоступностиВариантаОтчета(
ТекущийОбъект.Ссылка, ПользователиВарианта, ИспользоватьГруппыПользователей, ИспользоватьВнешнихПользователей);
@@ -200,27 +200,28 @@
&НаКлиенте
Процедура ОписаниеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
- ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект, "Описание", НСтр("ru = 'Описание'"));
+ ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект, "Описание",
+ НСтр("ru = 'Описание'"));
КонецПроцедуры
&НаКлиенте
Процедура ДоступенПриИзменении(Элемент)
-
+
Объект.ТолькоДляАвтора = (Доступен = "Автору");
-
+
ВариантыОтчетовКлиент.ПроверитьПользователейВариантаОтчета(ЭтотОбъект);
ВариантыОтчетовКлиент.ОформитьПользователейВариантаОтчета(ЭтотОбъект, Ложь);
-
+
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_Открытие(Элемент, СтандартнаяОбработка)
-
+
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиент");
МодульМультиязычностьКлиент.ПриОткрытии(ЭтотОбъект, Объект, Элемент, СтандартнаяОбработка);
КонецЕсли;
-
+
КонецПроцедуры
#КонецОбласти
@@ -229,42 +230,41 @@
&НаКлиенте
Процедура ПользователиВариантаПриИзменении(Элемент)
-
+
ВариантыОтчетовКлиент.ОформитьПользователейВариантаОтчета(ЭтотОбъект);
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПользователиВариантаПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр)
-
+
Отказ = Истина;
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПользователиВариантаПередУдалением(Элемент, Отказ)
-
- Если Не ИспользоватьГруппыПользователей
- И Не ИспользоватьВнешнихПользователей Тогда
-
+
+ Если Не ИспользоватьГруппыПользователей И Не ИспользоватьВнешнихПользователей Тогда
+
Отказ = Истина;
-
+
КонецЕсли;
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПользователиВариантаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
-
+
ВариантыОтчетовКлиент.ПользователиВариантаОтчетаОбработкаВыбора(ЭтотОбъект, ВыбранноеЗначение, СтандартнаяОбработка);
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПользователиВариантаПометкаПриИзменении(Элемент)
-
+
ВариантыОтчетовКлиент.ОформитьПользователейВариантаОтчета(ЭтотОбъект);
-
+
КонецПроцедуры
#КонецОбласти
@@ -287,17 +287,17 @@
&НаКлиенте
Процедура ПодобратьПользователей(Команда)
-
+
ВариантыОтчетовКлиент.ПодобратьПользователейВариантаОтчета(ЭтотОбъект, ИспользоватьГруппыПользователей);
-
+
КонецПроцедуры
&НаКлиенте
Процедура ПодобратьГруппыВнешнихПользователей(Команда)
-
+
ВариантыОтчетовКлиент.ПодобратьПользователейВариантаОтчета(
ЭтотОбъект, Элементы.ПользователиВариантаГруппаПодобрать.Видимость, Истина);
-
+
КонецПроцедуры
#КонецОбласти
@@ -306,12 +306,12 @@
&НаСервере
Процедура УстановитьУсловноеОформление()
-
+
УсловноеОформление.Элементы.Очистить();
-
+
ВариантыОтчетов.УстановитьУсловноеОформлениеСпискаПользователейВариантаОтчета(ЭтотОбъект);
ВариантыОтчетов.УстановитьУсловноеОформлениеДереваПодсистем(ЭтотОбъект);
-
+
КонецПроцедуры
&НаСервере
@@ -328,15 +328,15 @@
&НаСервере
Процедура ЗаполнитьИзПредопределенного(ВариантОбъект)
-
+
ЭтоПредопределенный = ВариантыОтчетов.ЭтоПредопределенныйВариантОтчета(ВариантОбъект);
-
+
Если Не ЭтоПредопределенный Тогда
Возврат;
КонецЕсли;
-
+
ПредопределенныйВариант = ВариантОбъект.ПредопределенныйВариант.ПолучитьОбъект();
-
+
ВариантОбъект.Наименование = ПредопределенныйВариант.Наименование;
ВариантОбъект.Описание = ПредопределенныйВариант.Описание;
@@ -344,45 +344,42 @@
&НаКлиенте
Процедура СпроситьОУведомленииПользователей(Отказ)
-
- Если Не УведомитьПользователей
- Или ВопросОУведомленииПользователейЗадан Тогда
-
+
+ Если Не УведомитьПользователей Или ВопросОУведомленииПользователейЗадан Тогда
+
Возврат;
КонецЕсли;
-
+
КоличествоПользователей = КоличествоПользователейВариантОтчета(ПользователиВарианта);
-
+
Если КоличествоПользователей < 10 Тогда
Возврат;
КонецЕсли;
-
+
Отказ = Истина;
ВопросОУведомленииПользователейЗадан = Истина;
Обработчик = Новый ОписаниеОповещения("ПослеВопросаОУведомленииПользователей", ЭтотОбъект);
ВариантыОтчетовСлужебныйКлиент.СпроситьОУведомленииПользователей(Обработчик, КоличествоПользователей);
-
+
КонецПроцедуры
&НаКлиенте
-Процедура ПослеВопросаОУведомленииПользователей(Ответ, ДополнительныеПараметры) Экспорт
-
- Если Ответ = КодВозвратаДиалога.Нет Тогда
+Процедура ПослеВопросаОУведомленииПользователей(Ответ, ДополнительныеПараметры) Экспорт
+
+ Если Ответ = КодВозвратаДиалога.Нет Тогда
УведомитьПользователей = Ложь;
КонецЕсли;
-
+
Записать();
-
+
КонецПроцедуры
&НаСервереБезКонтекста
Функция КоличествоПользователейВариантОтчета(ПользователиВарианта)
-
+
Возврат РегистрыСведений.НастройкиВариантовОтчетов.КоличествоПользователейВариантОтчета(ПользователиВарианта);
-
+
КонецФункции
-#КонецОбласти
-
-
+#КонецОбласти
\ No newline at end of file
diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
index 856d09dc7..6c1ac5c9a 100644
--- a/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
+++ b/SSL/src/Catalogs/ВариантыОтчетов/Help/ru.html
@@ -17,7 +17,10 @@
Автор - полное имя пользователя, который является автором варианта отчета.
-
Описание - подробная информация о варианте отчета.Для того чтобы добавить колонки в список, нажмите Еще - Изменить форму (настройки сохраняются):
+
Назначение:
+
- Для компьютеров и планшетов - используется для устройств с широким экраном, т.к. в них возможно отображение таблиц с большим количеством колонок.
+- Для смартфонов (для мобильного клиента) - оптимизировано для устройств с узким экраном.
+- Для любых устройств - одинаково удобно подходит для любых устройств.
Описание - подробная информация о варианте отчета.Для того чтобы добавить колонки в список, нажмите Еще - Изменить форму (настройки сохраняются):