Описание свойств используемой валюты.
Валюта широко используется в деятельности любого предприятия: во всех документах, которые имеют дело с денежными суммами (счета, платежные поручения, договоры, накладные) присутствует поле Валюта, явно или по умолчанию. Значение поля Валюта заполняется в зависимости от направления деятельности предприятия: рубль, иностранная валюта или у.е.
Основные сведения о валюте
-При добавлении валюты из Общероссийского классификатора валют следующие поля новой валюты будут заполнены автоматически:
+При добавлении валюты из Общероссийского классификатора валют следующие поля новой валюты будут заполнены автоматически:
-
Наименование валюты - полное наименование валюты.
-
@@ -27,13 +27,7 @@
Укажите Наценку, % - коэффициент, который применяется к курсу основной валюты для вычисления курса текущей валюты.
Расчет по формуле
- Предусмотрена возможность ввести валюту, курс которой зависит от нескольких валют одновременно.
- Для этого переключатель Курс валюты установите в положение рассчитывается по формуле. -
- Задайте способ расчета курса валюты в соответствующем поле, например, (USD+EUR)/2.
Параметры прописи валюты
-Для того чтобы в печатных формах правильно указывалось наименование валюты прописью, необходимо задать параметры прописи целой и дробной части валюты.
-- Целая часть - укажите параметры склонения целой части валюты: Род и соответствующие шаблоны склонения в единственном и множественном числе. -
- Дробная часть - укажите параметры склонения дробной части валюты: Род и соответствующие шаблоны склонения в единственном и множественном числе. -
- Число разрядов дробной части - в случае если дробная часть в печатных формах отображается числом, то можно установить нужное количество разрядов при выводе печатных форм документов. Например, если установлено количество разрядов 1 знак, то сумма по документу будет отображена, как 150,2 евро, а если 2 знака, то – 150,20 евро. -
- Пример прописи суммы - число, введенное в поле Сумма, будет написано по указанным параметрам прописи валюты. Используйте эту возможность для проверки параметров прописи валюты.
Параметры прописи валюты заполнены по умолчанию для основных валют: рубль, Евро, доллар. Для остальных валют их необходимо заполнить самостоятельно.
-Просмотр курса валюты
+Просмотр курса валюты
- Для перевода валютных сумм в рубли используется курс валюты.
- Нажмите Курсы валют на панели навигации валюты. Можно установить интервал дат для удобства просмотра курсов.
Ввод курса валюты вручную
- Курсы основных валют можно загрузить с сайта 1С. Если для валюты загрузка невозможна, то переключатель Курс валюты автоматически устанавливается в положение вводится вручную.
diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl
index 733c5e57a..6c491cdd1 100644
--- a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl
@@ -28,28 +28,15 @@
Объект.СпособУстановкиКурса = Перечисления.СпособыУстановкиКурсаВалюты.РучнойВвод;
КонецЕсли;
- Если Параметры.Свойство("ПараметрыПрописиНаРусском") Тогда
- Объект.ПараметрыПрописиНаРусском = Параметры.ПараметрыПрописиНаРусском;
+ Если Параметры.Свойство("ПараметрыПрописи") Тогда
+ Объект.ПараметрыПрописи = Параметры.ПараметрыПрописи;
КонецЕсли;
- ЗаполнитьФормуПоОбъекту();
-
КонецЕсли;
+ ЕстьФормаПрописей = Метаданные.Обработки.Найти("ЗагрузкаКурсовВалют") <> Неопределено;
+
УстановитьДоступностьЭлементов(ЭтотОбъект);
-КонецПроцедуры
-
-&НаСервере
-Процедура ПриЧтенииНаСервере(ТекущийОбъект)
-
- ЗаполнитьФормуПоОбъекту();
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
-
- ТекущийОбъект.ПараметрыПрописиНаРусском = ПараметрыПрописиНаРусском(ЭтотОбъект);
КонецПроцедуры
@@ -68,105 +55,6 @@
КонецПроцедуры
-////////////////////////////////////////////////////////////////////////////////
-// Страница "Параметры прописи валюты".
-
-&НаКлиенте
-Процедура СуммаЧислоПриИзменении(Элемент)
-
- УстановитьСуммуПрописью(ЭтотОбъект);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи4наРусскомПриИзменении(Элемент)
- УстановитьСклоненияПараметровПрописи(ЭтотОбъект);
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи4наРусскомАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
-
- ДанныеВыбора = АвтоПодборПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи4наРусскомОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
-
- ДанныеВыбора = ОкончаниеВводаТекстаПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи8наРусскомПриИзменении(Элемент)
- УстановитьСклоненияПараметровПрописи(ЭтотОбъект);
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи8наРусскомАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
-
- ДанныеВыбора = АвтоПодборПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи8наРусскомОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
-
- ДанныеВыбора = ОкончаниеВводаТекстаПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи1наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи2наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи3наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи5наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи6наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ПолеПрописи7наРусскомПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ДлинаДробнойЧастиПриИзменении(Элемент)
- УстановитьСуммуПрописью(ЭтотОбъект);
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ДлинаДробнойЧастиАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
-
- ДанныеВыбора = АвтоПодборПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
-&НаКлиенте
-Процедура ДлинаДробнойЧастиОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
-
- ДанныеВыбора = ОкончаниеВводаТекстаПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка);
-
-КонецПроцедуры
-
&НаКлиенте
Процедура КурсВалютыПриИзменении(Элемент)
УстановитьДоступностьЭлементов(ЭтотОбъект);
@@ -176,108 +64,6 @@
#Область СлужебныеПроцедурыИФункции
-&НаСервере
-Процедура ЗаполнитьФормуПоОбъекту()
-
- ПрочитатьПараметрыПрописи();
-
- УстановитьСклоненияПараметровПрописи(ЭтотОбъект);
- УстановитьСуммуПрописью(ЭтотОбъект);
-
-КонецПроцедуры
-
-&НаКлиентеНаСервереБезКонтекста
-Функция ПараметрыПрописиНаРусском(Форма)
-
- Возврат Форма.ПолеПрописи1наРусском + ", "
- + Форма.ПолеПрописи2наРусском + ", "
- + Форма.ПолеПрописи3наРусском + ", "
- + НРег(Лев(Форма.ПолеПрописи4наРусском, 1)) + ", "
- + Форма.ПолеПрописи5наРусском + ", "
- + Форма.ПолеПрописи6наРусском + ", "
- + Форма.ПолеПрописи7наРусском + ", "
- + НРег(Лев(Форма.ПолеПрописи8наРусском, 1)) + ", "
- + Форма.ДлинаДробнойЧасти;
-
-КонецФункции
-
-&НаКлиентеНаСервереБезКонтекста
-Процедура УстановитьСуммуПрописью(Форма)
-
- Форма.СуммаПрописью = ЧислоПрописью(Форма.СуммаЧисло, , ПараметрыПрописиНаРусском(Форма));
-
-КонецПроцедуры
-
-&НаСервере
-Процедура ПрочитатьПараметрыПрописи()
-
- // Считывает параметры прописи и заполняет соответствующие поля диалога.
-
- СтрокаПараметров = СтрЗаменить(Объект.ПараметрыПрописиНаРусском, ",", Символы.ПС);
-
- ПолеПрописи1наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 1));
- ПолеПрописи2наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 2));
- ПолеПрописи3наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 3));
-
- Род = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 4));
-
- Если НРег(Род) = "м" Тогда
- ПолеПрописи4наРусском = "Мужской";
- ИначеЕсли НРег(Род) = "ж" Тогда
- ПолеПрописи4наРусском = "Женский";
- ИначеЕсли НРег(Род) = "с" Тогда
- ПолеПрописи4наРусском = "Средний";
- КонецЕсли;
-
- ПолеПрописи5наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 5));
- ПолеПрописи6наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 6));
- ПолеПрописи7наРусском = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 7));
-
- Род = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 8));
-
- Если НРег(Род = "м") Тогда
- ПолеПрописи8наРусском = "Мужской";
- ИначеЕсли НРег(Род = "ж") Тогда
- ПолеПрописи8наРусском = "Женский";
- ИначеЕсли НРег(Род = "с") Тогда
- ПолеПрописи8наРусском = "Средний";
- КонецЕсли;
-
- ДлинаДробнойЧасти = СокрЛП(СтрПолучитьСтроку(СтрокаПараметров, 9));
-
-КонецПроцедуры
-
-&НаКлиентеНаСервереБезКонтекста
-Процедура УстановитьСклоненияПараметровПрописи(Форма)
-
- // Склонение заголовков параметров прописи.
-
- Элементы = Форма.Элементы;
-
- Если Форма.ПолеПрописи4наРусском = "Женский" Тогда
- Элементы.ПолеПрописи1наРусском.Заголовок = НСтр("ru = 'Одна'");
- Элементы.ПолеПрописи2наРусском.Заголовок = НСтр("ru = 'Две'");
- ИначеЕсли Форма.ПолеПрописи4наРусском = "Мужской" Тогда
- Элементы.ПолеПрописи1наРусском.Заголовок = НСтр("ru = 'Один'");
- Элементы.ПолеПрописи2наРусском.Заголовок = НСтр("ru = 'Два'");
- Иначе
- Элементы.ПолеПрописи1наРусском.Заголовок = НСтр("ru = 'Одно'");
- Элементы.ПолеПрописи2наРусском.Заголовок = НСтр("ru = 'Два'");
- КонецЕсли;
-
- Если Форма.ПолеПрописи8наРусском = "Женский" Тогда
- Элементы.ПолеПрописи5наРусском.Заголовок = НСтр("ru = 'Одна'");
- Элементы.ПолеПрописи6наРусском.Заголовок = НСтр("ru = 'Две'");
- ИначеЕсли Форма.ПолеПрописи8наРусском = "Мужской" Тогда
- Элементы.ПолеПрописи5наРусском.Заголовок = НСтр("ru = 'Один'");
- Элементы.ПолеПрописи6наРусском.Заголовок = НСтр("ru = 'Два'");
- Иначе
- Элементы.ПолеПрописи5наРусском.Заголовок = НСтр("ru = 'Одно'");
- Элементы.ПолеПрописи6наРусском.Заголовок = НСтр("ru = 'Два'");
- КонецЕсли;
-
-КонецПроцедуры
-
&НаСервереБезКонтекста
Процедура ПодготовитьДанныеВыбораПодчиненнойВалюты(ДанныеВыбора, Ссылка)
@@ -288,65 +74,30 @@
Запрос = Новый Запрос;
- Запрос.Текст = "ВЫБРАТЬ Ссылка, НаименованиеПолное
- |ИЗ
- | Справочник.Валюты
- |ГДЕ
- | Ссылка <> &Ссылка
- |И
- | ОсновнаяВалюта = Значение(Справочник.Валюты.ПустаяСсылка)
- |УПОРЯДОЧИТЬ ПО НаименованиеПолное";
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | Валюты.Ссылка КАК Ссылка,
+ | Валюты.НаименованиеПолное КАК НаименованиеПолное,
+ | Валюты.Наименование КАК Наименование
+ |ИЗ
+ | Справочник.Валюты КАК Валюты
+ |ГДЕ
+ | Валюты.Ссылка <> &Ссылка
+ | И Валюты.ОсновнаяВалюта = ЗНАЧЕНИЕ(Справочник.Валюты.ПустаяСсылка)
+ |
+ |УПОРЯДОЧИТЬ ПО
+ | Валюты.НаименованиеПолное";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
- ДанныеВыбора.Добавить(Выборка.Ссылка, Выборка.НаименованиеПолное);
+ ДанныеВыбора.Добавить(Выборка.Ссылка, Выборка.НаименованиеПолное + " (" + Выборка.Наименование + ")");
КонецЦикла;
КонецПроцедуры
-&НаКлиенте
-Функция АвтоПодборПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка)
-
- // Вспомогательная функция управлением вводом.
-
- Для Каждого ЭлементВыбора Из Элемент.СписокВыбора Цикл
- Если ВРег(Текст) = ВРег(Лев(ЭлементВыбора.Представление, СтрДлина(Текст))) Тогда
- Результат = Новый СписокЗначений;
- Результат.Добавить(ЭлементВыбора.Значение, ЭлементВыбора.Представление);
- СтандартнаяОбработка = Ложь;
- Возврат Результат;
- КонецЕсли;
- КонецЦикла;
-
- Возврат Неопределено;
-
-КонецФункции
-
-&НаКлиенте
-Функция ОкончаниеВводаТекстаПоСпискуВыбора(Элемент, Текст, СтандартнаяОбработка)
-
- // Вспомогательная функция управлением вводом.
-
- СтандартнаяОбработка = Ложь;
-
- Для Каждого ЭлементВыбора Из Элемент.СписокВыбора Цикл
- Если ВРег(Текст) = ВРег(ЭлементВыбора.Представление) Тогда
- СтандартнаяОбработка = Истина;
- ИначеЕсли ВРег(Текст) = ВРег(Лев(ЭлементВыбора.Представление, СтрДлина(Текст))) Тогда
- СтандартнаяОбработка = Ложь;
- Результат = Новый СписокЗначений;
- Результат.Добавить(ЭлементВыбора.Значение, ЭлементВыбора.Представление);
- Возврат Результат;
- КонецЕсли;
- КонецЦикла;
-
- Возврат Неопределено;
-
-КонецФункции
-
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьДоступностьЭлементов(Форма)
Элементы = Форма.Элементы;
@@ -354,4 +105,30 @@
Элементы.ГруппаНаценкаНаКурсДругойВалюты.Доступность = Объект.СпособУстановкиКурса = ПредопределенноеЗначение("Перечисление.СпособыУстановкиКурсаВалюты.НаценкаНаКурсДругойВалюты");
Элементы.ФормулаРасчетаКурса.Доступность = Объект.СпособУстановкиКурса = ПредопределенноеЗначение("Перечисление.СпособыУстановкиКурсаВалюты.РасчетПоФормуле");
КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриИзмененииПараметровПрописиВалюты(Результат, ДополнительныеПараметры) Экспорт
+ Если Результат = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Объект.ПараметрыПрописи = Результат;
+ Модифицированность = Истина;
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПараметрыПрописиВалютыНажатие(Элемент)
+
+ ОписаниеОповещения = Новый ОписаниеОповещения("ПриИзмененииПараметровПрописиВалюты", ЭтотОбъект);
+ Если ЕстьФормаПрописей Тогда
+ ПараметрыОткрытия = Новый Структура;
+ ПараметрыОткрытия.Вставить("ПараметрыПрописи", Объект.ПараметрыПрописи);
+ ИмяФормыРедактированияПрописей = "Обработка.ЗагрузкаКурсовВалют.Форма.ПараметрыПрописиВалюты";
+ ОткрытьФорму(ИмяФормыРедактированияПрописей, ПараметрыОткрытия, ЭтотОбъект, , , , ОписаниеОповещения);
+ Иначе
+ ПоказатьВводСтроки(ОписаниеОповещения, Объект.ПараметрыПрописи, НСтр("ru = 'Параметры прописи валюты'"));
+ КонецЕсли;
+
+КонецПроцедуры
+
#КонецОбласти
diff --git a/SSL/src/Catalogs/Валюты/Help/ru.html b/SSL/src/Catalogs/Валюты/Help/ru.html
index cfbf31080..433f467b0 100644
--- a/SSL/src/Catalogs/Валюты/Help/ru.html
+++ b/SSL/src/Catalogs/Валюты/Help/ru.html
@@ -1,5 +1,5 @@
-
Список предназначен для ведения валют, используемых в программе. Необходимые для работы валюты можно подобрать из Общероссийского классификатора валют - ОКВ (рекомендуется) или добавить вручную.
+Список предназначен для ведения валют, используемых в программе. Необходимые для работы валюты можно подобрать из Общероссийского классификатора валют - ОКВ (рекомендуется) или добавить вручную.
Открыть список валют можно из раздела Справочники.
В списке выводится:
-
@@ -22,7 +22,7 @@
-
Нажмите Создать - По классификатору (рекомендуется для корректного ввода валюты).
-
-Следующие поля новой валюты будут заполнены из классификатора автоматически: Наименование, Символьный код, Цифровой код, положение переключателя Курс валюты (будет установлено положение загружается из интернета, если имеется возможность загружать курс этой валюты с сайта 1С).
Ввод валюты не из классификатора (вручную)
+Следующие поля новой валюты будут заполнены из классификатора автоматически: Наименование, Символьный код, Цифровой код, положение переключателя Курс валюты (будет установлено положение загружается из интернета, если имеется возможность загружать курс этой валюты с сайта 1С). -
Ввод валюты не из классификатора (вручную)
-
Нажмите Создать - Новую. Также можно нажать клавишу Ins.
- Заполните сведения о валюте.
Загрузка курсов валют
diff --git a/SSL/src/Catalogs/Валюты/ManagerModule.bsl b/SSL/src/Catalogs/Валюты/ManagerModule.bsl index 19fdfe8e6..a58ecc69f 100644 --- a/SSL/src/Catalogs/Валюты/ManagerModule.bsl +++ b/SSL/src/Catalogs/Валюты/ManagerModule.bsl @@ -2,8 +2,9 @@ #Область ПрограммныйИнтерфейс -//////////////////////////////////////////////////////////////////////////////// -// Групповое изменение объектов. +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. @@ -21,55 +22,10 @@ КонецФункции -//////////////////////////////////////////////////////////////////////////////// -// Загрузка данных из файла - -// Запрещает загрузку данных в этот справочник из подсистемы "ЗагрузкаДанныхИзФайла". -// Т.к. справочник реализует свой метод обновления данных. -// -Функция ИспользоватьЗагрузкуДанныхИзФайла() Экспорт - Возврат Ложь; -КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов #КонецОбласти -#Область СлужебныйПрограммныйИнтерфейс - -// Регистрирует на плане обмена ОбновлениеИнформационнойБазы объекты, -// которые необходимо обновить на новую версию. -// -Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт - - ТекстЗапроса = - "ВЫБРАТЬ - | Валюты.Ссылка - |ИЗ - | Справочник.Валюты КАК Валюты - |ГДЕ - | Валюты.Код = ""643"" - | И Валюты.СпособУстановкиКурса = ЗНАЧЕНИЕ(Перечисление.СпособыУстановкиКурсаВалюты.ЗагрузкаИзИнтернета)"; - - Запрос = Новый Запрос(ТекстЗапроса); - - Результат = Запрос.Выполнить().Выгрузить(); - МассивСсылок = Результат.ВыгрузитьКолонку("Ссылка"); - - ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, МассивСсылок); - -КонецПроцедуры - -// Отключает у валюты 643 загрузку из интернета. -Процедура ОтключитьЗагрузкуКурсаВалюты643ИзИнтернета(Параметры) Экспорт - Выборка = ОбновлениеИнформационнойБазы.ВыбратьСсылкиДляОбработки(Параметры.Очередь, "Справочник.Валюты"); - Пока Выборка.Следующий() Цикл - Валюта = Выборка.Ссылка.ПолучитьОбъект(); - Валюта.СпособУстановкиКурса = Перечисления.СпособыУстановкиКурсаВалюты.РучнойВвод; - ОбновлениеИнформационнойБазы.ЗаписатьДанные(Валюта); - КонецЦикла; - - Параметры.ОбработкаЗавершена = ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь, "Справочник.Валюты"); -КонецПроцедуры - #КонецОбласти #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/Валюты/ObjectModule.bsl b/SSL/src/Catalogs/Валюты/ObjectModule.bsl index 68641a62d..9cc9f46a7 100644 --- a/SSL/src/Catalogs/Валюты/ObjectModule.bsl +++ b/SSL/src/Catalogs/Валюты/ObjectModule.bsl @@ -70,7 +70,6 @@ Возврат; КонецЕсли; - Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") Тогда ПараметрыВалюты = Новый Структура; ПараметрыВалюты.Вставить("ОсновнаяВалюта"); @@ -92,8 +91,12 @@ Если Результат.Статус = "Ошибка" Тогда ВызватьИсключение Результат.КраткоеПредставлениеОшибки; КонецЕсли; - Если ОбщегоНазначенияПовтИсп.РазделениеВключено() Тогда - РаботаСКурсамиВалют.ПриОбновленииКурсовВалютВМоделиСервиса(ЭтотОбъект); + + Если ОбщегоНазначения.РазделениеВключено() + И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда + + МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса"); + МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект); КонецЕсли; КонецЕсли; diff --git a/SSL/src/Catalogs/Валюты/Валюты.mdo b/SSL/src/Catalogs/Валюты/Валюты.mdo index ddb06470c..5a1c43cf9 100644 --- a/SSL/src/Catalogs/Валюты/Валюты.mdo +++ b/SSL/src/Catalogs/Валюты/Валюты.mdo @@ -237,10 +237,10 @@Use - -ПараметрыПрописиНаРусском +ПараметрыПрописи ru -Параметры прописи на русском +Параметры прописи String @@ -250,7 +250,7 @@ru -Параметры прописи валюты на русском языке +Настройки представления суммы прописью @@ -302,20 +302,6 @@ Use Use - ПодборВалютИзКлассификатора -- -ru -Подбор валют из классификатора -- -- -ru -PersonalComputer -MobileDevice -ФормаСписка @@ -339,12 +325,4 @@ PersonalComputer MobileDevice - diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form index 4b5695051..ba0ac736e 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form @@ -10,10 +10,6 @@ОбщероссийскийКлассификаторВалют -- -ru -Общероссийский классификатор валют -TextDocument -ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 15 @@ -37,6 +33,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -270,9 +270,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form index c22af6a91..f16e93695 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form @@ -10,10 +10,6 @@ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 18 @@ -38,6 +34,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -306,9 +306,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Form.form index ea228ec41..164494ad8 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Form.form @@ -4,13 +4,53 @@КодОткрытыйОтвет 7 - +Код -1 +Наименование +3 true true true + +Объект.Description +true ++ +НаименованиеExtendedTooltip +11 +Label +true +true ++ +Left ++ +НаименованиеКонтекстноеМеню +4 +true +InputField +Auto +true +Left +true ++ +true +true +true +true +true +true +Normal ++ Код +1 +true +true +Объект.Code Normal - ТребуетОткрытогоОтвета -5 -true -true -- -true -- -Объект.ТребуетОткрытогоОтвета -Right -- -ТребуетОткрытогоОтветаExtendedTooltip -10 -Label -true -true -- -Left -- -ТребуетОткрытогоОтветаКонтекстноеМеню -6 -true -CheckBoxField -Auto -true -Left -true -- true true true + <key>ru</key> + <value>Код открытый ответ</value> + КодОткрытыйОтветExtendedTooltip 8 @@ -103,20 +113,20 @@- Наименование -3 +ТребуетОткрытогоОтвета +5 true true true - -Объект.Description +Объект.ТребуетОткрытогоОтвета true +Right - НаименованиеExtendedTooltip -11 +ТребуетОткрытогоОтветаExtendedTooltip +10 Label true true @@ -125,24 +135,16 @@- -НаименованиеКонтекстноеМеню -4 +ТребуетОткрытогоОтветаКонтекстноеМеню +6 true InputField +CheckBoxField Auto true Left true -- +true -true -true -true -true -true -Normal -ФормаКоманднаяПанель diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl b/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl index 60a69ba78..ff8b8f2e3 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl @@ -2,8 +2,9 @@ #Область ПрограммныйИнтерфейс -//////////////////////////////////////////////////////////////////////////////// -// Групповое изменение объектов. +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. @@ -18,6 +19,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl index cd0b3adf5..1d423da32 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl @@ -2,8 +2,8 @@ #Область ОбработчикиСобытий &НаКлиенте -Процедура ОбработкаКоманды(ВариантСсылка, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ПоказатьНастройкиОтчета(ВариантСсылка); +Процедура ОбработкаКоманды(Вариант, ПараметрыВыполненияКоманды) + ВариантыОтчетовКлиент.ПоказатьНастройкиОтчета(Вариант); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl index c82adcbe0..4591afebc 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl @@ -1,20 +1,20 @@ #Область ОбработчикиСобытий &НаКлиенте -Процедура ОбработкаКоманды(ВариантСсылка, ПараметрыВыполненияКоманды) - ПараметрыОткрытия = ВариантСсылка; +Процедура ОбработкаКоманды(СсылкаВарианта, ПараметрыВыполненияКоманды) + Вариант = СсылкаВарианта; Форма = ПараметрыВыполненияКоманды.Источник; Если ТипЗнч(Форма) = Тип("УправляемаяФорма") Тогда Если Форма.ИмяФормы = "Справочник.ВариантыОтчетов.Форма.ФормаСписка" Тогда - ПараметрыОткрытия = Форма.Элементы.Список.ТекущиеДанные; + Вариант = Форма.Элементы.Список.ТекущиеДанные; ИначеЕсли Форма.ИмяФормы = "Справочник.ВариантыОтчетов.Форма.ФормаЭлемента" Тогда - ПараметрыОткрытия = Форма.Объект; + Вариант = Форма.Объект; КонецЕсли; Иначе Форма = Неопределено; КонецЕсли; - ВариантыОтчетовКлиент.ОткрытьФормуОтчета(Форма, ПараметрыОткрытия); + ВариантыОтчетовКлиент.ОткрытьФормуОтчета(Форма, Вариант); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl index b2d664b09..3dfd2cfcd 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl @@ -2,8 +2,8 @@ #Область ОбработчикиСобытий &НаКлиенте -Процедура ОбработкаКоманды(МассивВариантов, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ОткрытьДиалогРазмещенияВариантовВРазделах(МассивВариантов); +Процедура ОбработкаКоманды(Варианты, ПараметрыВыполненияКоманды) + ВариантыОтчетовКлиент.ОткрытьДиалогРазмещенияВариантовВРазделах(Варианты, ПараметрыВыполненияКоманды.Источник); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl index 27f116d2e..2b601d05c 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl @@ -2,8 +2,8 @@ #Область ОбработчикиСобытий &НаКлиенте -Процедура ОбработкаКоманды(МассивВариантов, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекПользователей(МассивВариантов, ПараметрыВыполненияКоманды.Источник); +Процедура ОбработкаКоманды(Варианты, ПараметрыВыполненияКоманды) + ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекПользователей(Варианты, ПараметрыВыполненияКоманды.Источник); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl index c95b82987..3cb499d77 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl @@ -2,8 +2,8 @@ #Область ОбработчикиСобытий &НаКлиенте -Процедура ОбработкаКоманды(МассивВариантов, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекРазмещения(МассивВариантов, ПараметрыВыполненияКоманды.Источник); +Процедура ОбработкаКоманды(Варианты, ПараметрыВыполненияКоманды) + ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекРазмещения(Варианты, ПараметрыВыполненияКоманды.Источник); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form index 64617b989..491cad09d 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form @@ -1,67 +1,12 @@- ИзменяемыеВарианты -56 -true -true -- -true -- -ИзменяемыеВарианты -Left -- -OnChange -ИзменяемыеВариантыПриИзменении -- -ИзменяемыеВариантыExtendedTooltip -82 -Label -true -true -- -Left -- -ИзменяемыеВариантыКонтекстноеМеню -57 -true -InputField -true -Enter -true -Left -true -- -true -2 -true -false -true -true -false -true -false -false -false -true -true -true -true -- -Style.ФонУправляющегоПоля -Normal -ДеревоПодсистем 7 ++ <key>ru</key> + <value>Дерево подсистем</value> + true true @@ -70,6 +15,7 @@ ДеревоПодсистем true None Add Copy @@ -174,12 +120,8 @@<key>ru</key> - <value>Группа колонок</value> + <value>Колонок</value> -- ru -Группа колонок -ГруппаКолонокExtendedTooltip 86 @@ -364,32 +306,6 @@UserCmds Auto - ДеревоПодсистемКонтекстноеМенюПеречитать -77 -true -true -- -true -- -ДеревоПодсистемКонтекстноеМенюПеречитатьExtendedTooltip -84 -Label -true -true -- -Left -Form.Command.Перечитать -Normal -Auto -true -true -UserCmds -Auto -true Tree @@ -413,9 +329,6 @@true true true -None -None -None true -
@@ -22,7 +22,7 @@
Предназначен для выбора версии файла.
-Вызывается из карточки версии файла при выборе Родительской версии.
+Вызывается из карточки версии файла при выборе Родительской версии.
В списке выводится:
- Номер версии - нумерация версий ведется программой автоматически при изменениях файла, при этом максимальный номер имеет последняя сохраненная версия.
-
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl
index 5032916d2..45a32eaf5 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl
@@ -12,21 +12,18 @@
КонецЕсли;
// Оформление помеченных на удаление.
- ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();
+ ЭлементУсловногоОформления = Список.УсловноеОформление.Элементы.Добавить();
ЭлементЦветаОформления = ЭлементУсловногоОформления.Оформление.Элементы.Найти("TextColor");
ЭлементЦветаОформления.Значение = Метаданные.ЭлементыСтиля.ТекстЗапрещеннойЯчейкиЦвет.Значение;
ЭлементЦветаОформления.Использование = Истина;
ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
- ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Список.ПометкаУдаления");
+ ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПометкаУдаления");
ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбораДанных.ПравоеЗначение = Истина;
ЭлементОтбораДанных.Использование = Истина;
- ЭлементОформляемогоПоля = ЭлементУсловногоОформления.Поля.Элементы.Добавить();
- ЭлементОформляемогоПоля.Поле = Новый ПолеКомпоновкиДанных("Список");
- ЭлементОформляемогоПоля.Использование = Истина;
КонецПроцедуры
#КонецОбласти
diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form
index 823e11877..77f2a59da 100644
--- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form
+++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form
@@ -78,10 +78,6 @@
ru Форма стандартные команды -- ru -Форма стандартные команды -ФормаСтандартныеКомандыExtendedTooltip 33 @@ -149,6 +145,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl index acdac2bc2..5d5c7fc51 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl @@ -9,28 +9,25 @@ КонецЕсли; // Оформление помеченных на удаление. - ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); + ЭлементУсловногоОформления = Список.УсловноеОформление.Элементы.Добавить(); ЭлементЦветаОформления = ЭлементУсловногоОформления.Оформление.Элементы.Найти("TextColor"); ЭлементЦветаОформления.Значение = Метаданные.ЭлементыСтиля.ТекстЗапрещеннойЯчейкиЦвет.Значение; ЭлементЦветаОформления.Использование = Истина; ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Список.ПометкаУдаления"); + ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПометкаУдаления"); ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ЭлементОтбораДанных.ПравоеЗначение = Истина; ЭлементОтбораДанных.Использование = Истина; - ЭлементОформляемогоПоля = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); - ЭлементОформляемогоПоля.Поле = Новый ПолеКомпоновкиДанных("Список"); - ЭлементОформляемогоПоля.Использование = Истина; - КонецПроцедуры &НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) Если ИмяСобытия = "Запись_Файл" + И Параметр.Свойство("Событие") И ( Параметр.Событие = "ЗаконченоРедактирование" ИЛИ Параметр.Событие = "ВерсияСохранена") Тогда @@ -47,7 +44,7 @@ Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ВыбраннаяСтрока, УникальныйИдентификатор); + ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ВыбраннаяСтрока.Владелец, ВыбраннаяСтрока, УникальныйИдентификатор); РаботаСФайламиСлужебныйКлиент.ОткрытьВерсиюФайла(Неопределено, ДанныеФайла, УникальныйИдентификатор); КонецПроцедуры diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl deleted file mode 100644 index c6a73182a..000000000 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаЭлемента/Module.bsl +++ /dev/null @@ -1,88 +0,0 @@ - -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - - Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа. - Возврат; - КонецЕсли; - - Если ТипЗнч(Объект.Владелец) = Тип("СправочникСсылка.Файлы") Тогда - Элементы.ПолноеНаименование.ТолькоПросмотр = Истина; - КонецЕсли; - - Если Пользователи.ЭтоПолноправныйПользователь() Тогда - Элементы.Автор.ТолькоПросмотр = Ложь; - Элементы.ДатаСоздания.ТолькоПросмотр = Ложь; - Элементы.РодительскаяВерсия.ТолькоПросмотр = Ложь; - Иначе - Элементы.ГруппаХранение.Видимость = Ложь; - КонецЕсли; - - ТомПолныйПуть = ФайловыеФункцииСлужебный.ПолныйПутьТома(Объект.Том); - - ОбщиеНастройки = ФайловыеФункцииСлужебныйКлиентСервер.ОбщиеНастройкиРаботыСФайлами(); - - РасширениеФайлаВСписке = ФайловыеФункцииСлужебныйКлиентСервер.РасширениеФайлаВСписке( - ОбщиеНастройки.СписокРасширенийТекстовыхФайлов, Объект.Расширение); - - Если РасширениеФайлаВСписке Тогда - Если ЗначениеЗаполнено(Объект.Ссылка) Тогда - - КодировкаЗначение = РаботаСФайламиСлужебныйВызовСервера.ПолучитьКодировкуВерсииФайла(Объект.Ссылка); - - СписокКодировок = РаботаСФайламиСлужебный.Кодировки(); - ЭлементСписка = СписокКодировок.НайтиПоЗначению(КодировкаЗначение); - Если ЭлементСписка = Неопределено Тогда - Кодировка = КодировкаЗначение; - Иначе - Кодировка = ЭлементСписка.Представление; - КонецЕсли; - - КонецЕсли; - - Если Не ЗначениеЗаполнено(Кодировка) Тогда - Кодировка = НСтр("ru='По умолчанию'"); - КонецЕсли; - Иначе - Элементы.Кодировка.Видимость = Ложь; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ПослеЗаписи(ПараметрыЗаписи) - Оповестить("Запись_Файл", Новый Структура("Событие", "ВерсияСохранена"), Объект.Владелец); -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовШапкиФормы - -&НаКлиенте -Процедура ОткрытьВыполнить() - - ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(Объект.Ссылка, УникальныйИдентификатор); - РаботаСФайламиСлужебныйКлиент.ОткрытьВерсиюФайла(Неопределено, ДанныеФайла, УникальныйИдентификатор); - -КонецПроцедуры - -&НаКлиенте -Процедура ПолноеНаименованиеПриИзменении(Элемент) - Объект.Наименование = Объект.ПолноеНаименование; -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура СохранитьКак(Команда) - - ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляСохранения(Объект.Ссылка, УникальныйИдентификатор); - РаботаСФайламиСлужебныйКлиент.СохранитьКак(Неопределено, ДанныеФайла, УникальныйИдентификатор); - -КонецПроцедуры - -#КонецОбласти diff --git a/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html b/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html index b0141de21..a4dc8227c 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html +++ b/SSL/src/Catalogs/ВерсииФайлов/Help/ru.html @@ -2,7 +2,7 @@ Предназначен для просмотра и управления версиями файла.
Для просмотра списка всех версий файла откройте его карточку (в списке файлов нажмите F2 или Еще - Открыть карточку) и нажмите Версии файла на панели навигации.
Список версий является иерархическим, для удобства просмотра отображается в виде дерева. В этом случае легко проследить историю редактирования файла. Более поздние версии отображаются подчиненными более ранним. При этом первую версию файла удалить из списка невозможно.
-По окончании редактирования файла программа рекомендует сохранить версию файла и ввести информацию о данной версии. По умолчанию эта возможность включена (рекомендуется использовать сохранение версий, так как в случае серьезных ошибок, которые привели к порче файла, можно вернуться к более ранней, неиспорченной версии). Хранение версий можно включить с помощью соответствующего флажка в карточке файла или при загрузке файлов (папок). Впоследствии можно изменить некоторые сведения о версии, например, комментарий.
+По окончании редактирования файла программа рекомендует сохранить версию файла и ввести информацию о данной версии. По умолчанию эта возможность включена (рекомендуется использовать сохранение версий, так как в случае серьезных ошибок, которые привели к порче файла, можно вернуться к более ранней, неиспорченной версии). Хранение версий можно включить с помощью соответствующего флажка в карточке файла или при загрузке файлов (папок). Впоследствии можно изменить некоторые сведения о версии, например, комментарий.
В списке выводится:
-
Автор - пользователь, который добавил версию файла. Также в этой колонке в виде картинки отображается тип файла.@@ -21,7 +21,7 @@
-
Расширение - формат файла, и некоторые другие поля.
Просмотр версии файла
- Нажмите Просмотреть, для того чтобы открыть выбранную версию файла соответствующим приложением для просмотра или редактирования (также можно открыть версию файла двойным щелчком мыши по нужной строке или с помощью команды Еще - Просмотреть).
Просмотр сведений о версии файла
-- Нажмите Открыть карточку, для того чтобы открыть сведения о выбранной версии. В карточке версии можно изменить Комментарий.
Замена текущей версии файла
+- Нажмите Открыть карточку, для того чтобы открыть сведения о выбранной версии. В карточке версии можно изменить Комментарий.
Замена текущей версии файла
- Выберите нужную версию файла в списке, нажмите Сделать активной, для того чтобы изменить активную (текущую) версию. При этом нумерация версий остается прежней, меняется только порядок версий в списке.
Сравнение двух версий файла
- Выделите две версии в списке и нажмите Показать отличия для их сравнения. Сравнение версий поддерживается для следующих типов файлов: HTML, TXT, RTF, DOC, DOCX, ODT.
Сохранение версии файла на диск
- Для того чтобы сохранить файл версии на диск или другое устройство, нажмите Еще - Сохранить как. Выберите каталог для сохранения файла.
См. также:
diff --git a/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl index ef01ed3aa..433fac976 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. // @@ -16,6 +20,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl index e5f2ae39c..2d0612d04 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl @@ -20,33 +20,12 @@ РодительскаяВерсия = Владелец.ТекущаяВерсия; КонецЕсли; - Если НЕ ЭтоНовый() Тогда - + Если Не ЭтоНовый() Тогда УстановленаПометкаУдаления = ПометкаУдаления И Не ПометкаУдаленияВИБ(); - - ЗаписьПодписанногоОбъекта = Ложь; - Если ДополнительныеСвойства.Свойство("ЗаписьПодписанногоОбъекта") Тогда - ЗаписьПодписанногоОбъекта = ДополнительныеСвойства.ЗаписьПодписанногоОбъекта; - КонецЕсли; - - Если ЗаписьПодписанногоОбъекта <> Истина Тогда - - СтруктураРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка, - "ПодписанЭП, Зашифрован"); - - СсылкаПодписан = СтруктураРеквизитов.ПодписанЭП; - СсылкаЗашифрован = СтруктураРеквизитов.Зашифрован; - - Если Зашифрован И СсылкаЗашифрован И ПодписанЭП И НЕ СсылкаПодписан Тогда - ВызватьИсключение НСтр("ru = 'Зашифрованную версию файла нельзя подписывать.'"); - КонецЕсли; - - КонецЕсли; - КонецЕсли; // Выполним установку индекса пиктограммы при записи объекта. - ИндексКартинки = ФайловыеФункцииСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); + ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); Если СтатусИзвлеченияТекста.Пустая() Тогда СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен; @@ -72,23 +51,37 @@ "ВЫБРАТЬ | ВерсииФайлов.Ссылка КАК Ссылка |ИЗ - | Справочник.ВерсииФайлов КАК ВерсииФайлов + | Справочник." + Метаданные.НайтиПоТипу(ТипЗнч(Ссылка)).Имя + " КАК ВерсииФайлов |ГДЕ | ВерсииФайлов.РодительскаяВерсия = &РодительскаяВерсия"; Запрос.УстановитьПараметр("РодительскаяВерсия", Ссылка); Результат = Запрос.Выполнить(); - - Если Не Результат.Пустой() Тогда - Выборка = Результат.Выбрать(); - Выборка.Следующий(); - - Объект = Выборка.Ссылка.ПолучитьОбъект(); - ЗаблокироватьДанныеДляРедактирования(Объект.Ссылка); - Объект.РодительскаяВерсия = РодительскаяВерсия; - Объект.Записать(); - КонецЕсли; + НачатьТранзакцию(); + Попытка + Если Не Результат.Пустой() Тогда + Выборка = Результат.Выбрать(); + Выборка.Следующий(); + + БлокировкаДанных = Новый БлокировкаДанных; + ЭлементБлокировкиДанных = БлокировкаДанных.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(Выборка.Ссылка)).ПолноеИмя()); + ЭлементБлокировкиДанных.УстановитьЗначение("Ссылка", Выборка.Ссылка); + ЭлементБлокировкиДанных.Режим = РежимБлокировкиДанных.Исключительный; + БлокировкаДанных.Заблокировать(); + + Объект = Выборка.Ссылка.ПолучитьОбъект(); + + ЗаблокироватьДанныеДляРедактирования(Объект.Ссылка); + Объект.РодительскаяВерсия = РодительскаяВерсия; + Объект.Записать(); + КонецЕсли; + ЗафиксироватьТранзакцию(); + Исключение + ИнформацияОбОшибке = ИнформацияОбОшибке(); + ОтменитьТранзакцию(); + ВызватьИсключение ПодробноеПредставлениеОшибки(ИнформацияОбОшибке); + КонецПопытки; КонецЕсли; КонецПроцедуры @@ -97,7 +90,7 @@ Если ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда Если НЕ Том.Пустая() И ОбщегоНазначения.СсылкаСуществует(Том) Тогда - ПолныйПуть = ФайловыеФункцииСлужебный.ПолныйПутьТома(Том) + ПутьКФайлу; + ПолныйПуть = РаботаСФайламиСлужебный.ПолныйПутьТома(Том) + ПутьКФайлу; Попытка Файл = Новый Файл(ПолныйПуть); Файл.УстановитьТолькоЧтение(Ложь); @@ -126,12 +119,15 @@ // Возвращает текущее значение пометки удаления в информационной базе. Функция ПометкаУдаленияВИБ() + УстановитьПривилегированныйРежим(Истина); + ИмяСправочникаВерсийФайлов = Метаданные.НайтиПоТипу(ТипЗнч(Ссылка)).Имя; + Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ВерсииФайлов.ПометкаУдаления |ИЗ - | Справочник.ВерсииФайлов КАК ВерсииФайлов + | Справочник." + ИмяСправочникаВерсийФайлов + " КАК ВерсииФайлов |ГДЕ | ВерсииФайлов.Ссылка = &Ссылка"; diff --git a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo index cf0392f26..ffcf7496c 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo +++ b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo @@ -139,7 +139,6 @@true InDialog BothWays -Catalog.ВерсииФайлов.Form.ФормаЭлемента Catalog.ВерсииФайлов.Form.ФормаСписка Catalog.ВерсииФайлов.Form.ФормаВыбора @@ -230,10 +229,10 @@ Use - Зашифрован +УдалитьЗашифрован ru -Зашифрована +(не используется) Зашифрована Boolean @@ -316,10 +315,10 @@Use - -ПодписанЭП +УдалитьПодписанЭП ru -Подписана электронно +(не используется) Подписана электронно Boolean @@ -551,10 +550,10 @@- ЭлектронныеПодписи +УдалитьЭлектронныеПодписи ru -электронные подписи +(не используется) Электронные подписи Use @@ -754,20 +753,6 @@Use - ФормаЭлемента -- -ru -Форма элемента -- -- -ru -PersonalComputer -MobileDevice -ФормаСписка @@ -791,39 +776,4 @@ PersonalComputer MobileDevice - -ВерсииФайла -- -ru -Версии файла -PersonalComputer -MobileDevice -- -ВыборСпособаСравненияВерсий -- -ru -Выбор способа сравнения версий -- -- -ru -PersonalComputer -MobileDevice -- diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Form.form b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Form.form index ed66d0c3b..553eb693b 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Form.form +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Form.form @@ -12,10 +12,6 @@ОткрытьВерсииФайла -- -ru -Версии файла -FormNavigationPanelGoTo -- -CatalogRef.Файлы -Auto -ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 12 @@ -48,10 +44,6 @@ru Командная панель -- ru -Командная панель -КоманднаяПанельРасширеннаяПодсказка 14 @@ -71,6 +63,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -277,9 +273,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form index dd770bc79..c0129d044 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form @@ -12,10 +12,6 @@ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 43 @@ -39,72 +35,6 @@КоманднаяПанель 44 -- -ПереместитьВверх -17 -true -true -- -true -false -- -ПереместитьВверхExtendedTooltip -32 -Label -true -true -- -Left -Form.Command.ПереместитьЭлементВверх -Normal -Auto -true -true -UserCmds -- -Style.ButtonTextColor -- -Style.ButtonBackColor -Auto -- ПереместитьВниз -18 -true -true -- -true -false -- -ПереместитьВнизExtendedTooltip -33 -Label -true -true -- -Left -Form.Command.ПереместитьЭлементВниз -Normal -Auto -true -true -UserCmds -- -Style.ButtonTextColor -- -Style.ButtonBackColor -Auto -true true @@ -114,10 +44,6 @@ ru Командная панель -- ru -Командная панель -КоманднаяПанельРасширеннаяПодсказка 45 @@ -137,6 +63,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -253,10 +183,6 @@ ru Представление -- ru -Представление -ПредставлениеРасширеннаяПодсказка 41 @@ -431,9 +357,6 @@Style.BorderColor None -None -None true 60 @@ -549,7 +472,7 @@ СправочникВидыКонтактнойИнформации.РеквизитДопУпорядочивания, СправочникВидыКонтактнойИнформации.РедактированиеТолькоВДиалоге, СправочникВидыКонтактнойИнформации.МожноИзменятьСпособРедактирования, - СправочникВидыКонтактнойИнформации.АдресТолькоРоссийский, + СправочникВидыКонтактнойИнформации.ТолькоНациональныйАдрес, СправочникВидыКонтактнойИнформации.Используется ИЗ Справочник.ВидыКонтактнойИнформации КАК СправочникВидыКонтактнойИнформации @@ -564,56 +487,6 @@true -
Информация о внешней компоненте.
+Открывается из списка Внешние компоненты по кнопке Создать или двойному щелчку мыши (также по команде Еще - Изменить).
+Разработчик размещает в файле внешней компоненты необходимую информацию для ее установки, поэтому основные поля в карточке внешней компоненты заполняются автоматически. Поля являются обязательными для заполнения:
+- Идентификатор - внутренний идентификатор объекта внешней компоненты; +
- Наименование - полное наименование внешней компоненты - выводится пользователям при установке внешней компоненты; +
- Версия - номер версии, с его помощью впоследствии можно определить актуальность внешней компоненты.
Если после автоматического заполнения остались незаполненными поля, которые являются обязательными для заполнения, карточка не запишется. В этом случае необходимо заполнить их вручную.
+См. также:
+ \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl new file mode 100644 index 000000000..1820f742b --- /dev/null +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl @@ -0,0 +1,412 @@ + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + Если Параметры.Свойство("АвтоТест") Тогда + Возврат; + КонецЕсли; + + ЭтоНовый = Объект.Ссылка.Пустая(); + + Если ЭтоНовый Тогда + Параметры.ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии = Истина; + КонецЕсли; + + УстановитьВидимостьДоступность(); + + Если Не ВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаССайта() Тогда + + Элементы.ОбновлятьССайта.Видимость = Ложь; + Элементы.ФормаОбновитьССайта.Видимость = Ложь; + + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + + Если Параметры.ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии Тогда + ПодключитьОбработчикОжидания("ЗагрузитьКомпонентуИзФайла", 0.1, Истина); + КонецЕсли + +КонецПроцедуры + +&НаСервере +Процедура ПриЧтенииНаСервере(ТекущийОбъект) + + // Если вызвана команда "Перечитать" необходимо удалить буфер данных компоненты + Если ЭтоАдресВременногоХранилища(АдресДвоичныхДанныхКомпоненты) Тогда + УдалитьИзВременногоХранилища(АдресДвоичныхДанныхКомпоненты); + АдресДвоичныхДанныхКомпоненты = Неопределено; + КонецЕсли; + + УстановитьВидимостьДоступность(); + +КонецПроцедуры + +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + + // Если есть двоичные данные компоненты, которые надо сохранить, то помещаем их в ДополнительныеСвойства. + Если ЭтоАдресВременногоХранилища(АдресДвоичныхДанныхКомпоненты) Тогда + ДвоичныеДанныеКомпоненты = ПолучитьИзВременногоХранилища(АдресДвоичныхДанныхКомпоненты); + ТекущийОбъект.ДополнительныеСвойства.Вставить("ДвоичныеДанныеКомпоненты", ДвоичныеДанныеКомпоненты); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) + + Если Не ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда + УстановитьВидимостьДоступность(); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеЗаписи(ПараметрыЗаписи) + + Если ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда + ЗакрытьСПараметромЗакрытия(); + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура ИспользованиеПриИзменении(Элемент) + + УстановитьВидимостьДоступность(); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ЗаписатьИЗакрыть(Команда) + + ОчиститьСообщения(); + Записать(Новый Структура("ЗаписатьИЗакрыть")); + +КонецПроцедуры + +&НаКлиенте +Процедура ОбновитьССайта(Команда) + + ОчиститьСообщения(); + ОбновитьКомпонентуССайта(); + +КонецПроцедуры + +&НаКлиенте +Процедура ОбновитьИзФайла(Команда) + + ОчиститьСообщения(); + ЗагрузитьКомпонентуИзФайла(); + +КонецПроцедуры + +&НаКлиенте +Процедура СохранитьКак(Команда) + + Если ЭтоАдресВременногоХранилища(АдресДвоичныхДанныхКомпоненты) Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Перед сохранение компоненты в файл элемент справочника нужно записать.'")); + Иначе + ОчиститьСообщения(); + ВнешниеКомпонентыСлужебныйКлиент.СохранитьКомпонентуВФайл(Объект.Ссылка); + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +// Строит диалог загрузки компоненты из файла. +&НаКлиенте +Процедура ЗагрузитьКомпонентуИзФайла() + + Оповещение = Новый ОписаниеОповещения("ЗагрузитьКомпонентуПослеПредупрежденияБезопасности", ЭтотОбъект); + ПараметрыФормы = Новый Структура("Ключ", "ПередДобавлениемВнешнейКомпоненты"); + ОткрытьФорму("ОбщаяФорма.ПредупреждениеБезопасности", ПараметрыФормы,,,,, Оповещение); + +КонецПроцедуры + +// Продолжение процедуры ЗагрузитьКомпонентуИзФайла. +&НаКлиенте +Процедура ЗагрузитьКомпонентуПослеПредупрежденияБезопасности(Ответ, Контекст) Экспорт + + // Ответ: + // - "Продолжить" - Загрузить. + // - КодВозвратаДиалога.Отмена - Отклонить. + // - Неопределено - Закрыто окно. + Если Ответ <> "Продолжить" Тогда + ЗагрузитьКомпонентуЗавершение(Контекст); + Возврат; + КонецЕсли; + + ПараметрыДиалога = Новый Структура; + ПараметрыДиалога.Вставить("Режим", РежимДиалогаВыбораФайла.Открытие); + ПараметрыДиалога.Вставить("Заголовок", НСтр("ru = 'Выберите файл внешней компоненты'")); + ПараметрыДиалога.Вставить("Фильтр", НСтр("ru = 'Внешняя компонента (*.zip)|*.zip|Все файлы(*.*)|*.*'")); + + Оповещение = Новый ОписаниеОповещения("ЗагрузитьКомпонентуПослеПомещенияФайла", ЭтотОбъект, Контекст); + СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(Оповещение, + УникальныйИдентификатор, Объект.ИмяФайла, ПараметрыДиалога); + +КонецПроцедуры + +// Продолжение процедуры ЗагрузитьКомпонентуИзФайла. +&НаКлиенте +Процедура ЗагрузитьКомпонентуПослеПомещенияФайла(ПомещенныеФайлы, Контекст) Экспорт + + Если ПомещенныеФайлы = Неопределено Или ПомещенныеФайлы.Количество() = 0 Тогда + ЗагрузитьКомпонентуЗавершение(Контекст); + Возврат; + КонецЕсли; + + ОписаниеФайла = ПомещенныеФайлы[0]; + + ПараметрыЗагрузки = Новый Структура; + ПараметрыЗагрузки.Вставить("АдресХранилищаФайла", ОписаниеФайла.Хранение); + ПараметрыЗагрузки.Вставить("ИмяФайла", ТолькоИмяФайла(ОписаниеФайла.Имя)); + + Результат = ЗагрузитьКомпонентуИзФайлаНаСервере(ПараметрыЗагрузки); + Если Не Результат.Загружено + Или Не ЭтоАдресВременногоХранилища(АдресДвоичныхДанныхКомпоненты)Тогда + + // Ошибка при загрузке. + + Оповещение = Новый ОписаниеОповещения("ЗагрузитьКомпонентуПослеОтображенияОшибки", ЭтотОбъект, Контекст); + + ПараметрыФормы = Новый Структура("ОписаниеОшибки", Результат.ОписаниеОшибки); + ОткрытьФорму("Справочник.ВнешниеКомпоненты.Форма.ОшибкаЗагрузкиКомпоненты", ПараметрыФормы, ЭтотОбъект, + УникальныйИдентификатор,,, Оповещение); + + Иначе + + // Успешно загружена. + + Если ПроверитьЗаполнение() Тогда + ЗагрузитьКомпонентуЗавершение(Контекст); + КонецЕсли; + + КонецЕсли; + +КонецПроцедуры + +// Продолжение процедуры ЗагрузитьКомпонентуИзФайла. +&НаКлиенте +Процедура ЗагрузитьКомпонентуПослеОтображенияОшибки(РезультатЗакрытия, Контекст) Экспорт + + ЗагрузитьКомпонентуЗавершение(Контекст); + +КонецПроцедуры + +// Продолжение процедуры ЗагрузитьКомпонентуИзФайла. +&НаКлиенте +Процедура ЗагрузитьКомпонентуЗавершение(Контекст) + + Если Параметры.ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии И Открыта() Тогда + Закрыть(); + КонецЕсли; + +КонецПроцедуры + +// Выполняет обновление компоненты с сайта. +&НаКлиенте +Процедура ОбновитьКомпонентуССайта() + + ДлительнаяОперация = НачатьОбновлениеКомпонентыССайтаНаСервере(); + + Если ДлительнаяОперация = Неопределено Тогда + Возврат; + КонецЕсли; + + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется обновление внешней компоненты...'"); + ПараметрыОжидания.ВыводитьОкноОжидания = Истина; + + Оповещение = Новый ОписаниеОповещения("ОбновитьКомпонентуССайтаЗавершение", ЭтотОбъект); + + ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, Оповещение, ПараметрыОжидания); + +КонецПроцедуры + +// Продолжение процедуры ОбновитьКомпонентуССайта. +&НаКлиенте +Процедура ОбновитьКомпонентуССайтаЗавершение(Результат, ДополнительныеПараметры) Экспорт + + // Ответ: + // - Структура - Выполнено - результат в структуре. + // - Неопределено - Отменено пользователем. + Если Результат = Неопределено Тогда + Возврат; + КонецЕсли; + + Если Результат.Статус = "Ошибка" Тогда + ПоказатьПредупреждение(, Результат.КраткоеПредставлениеОшибки); + КонецЕсли; + + Если Результат.Статус = "Выполнено" Тогда + ЗавершитьОбновлениеКомпонентыССайтаНаСервере(Результат); + ПоказатьОповещениеПользователя(НСтр("ru = 'Обновление с сайта'"),, + НСтр("ru = 'Внешняя компонента успешно обновлена.'"), БиблиотекаКартинок.Успешно32); + КонецЕсли; + +КонецПроцедуры + +///////////////////////////////////////////////////////// +// Серверная логика модели представления. + +// Серверная логика процедуры ЗагрузитьКомпонентуИзФайла. +&НаСервере +Функция ЗагрузитьКомпонентуИзФайлаНаСервере(ПараметрыЗагрузки) + + Если Не Пользователи.ЭтоПолноправныйПользователь(,, Ложь) Тогда + ВызватьИсключение НСтр("ru = 'Не достаточно прав для совершения операции.'"); + КонецЕсли; + + Зарегистрирована = Ложь; + + ОбъектСправочника = РеквизитФормыВЗначение("Объект"); + + Информация = ВнешниеКомпонентыСлужебный.ИнформацияОКомпоненте(ПараметрыЗагрузки.АдресХранилищаФайла); + + Если Не Информация.Разобрано Тогда + Возврат Новый Структура("Загружено, ОписаниеОшибки", Ложь, Информация.ОписаниеОшибки); + КонецЕсли; + + ЗаполнитьЗначенияСвойств(ОбъектСправочника, Информация.Реквизиты); // По данным манифеста. + ОбъектСправочника.ИмяФайла = ПараметрыЗагрузки.ИмяФайла; // Установка имени файла. + АдресДвоичныхДанныхКомпоненты = ПоместитьВоВременноеХранилище(Информация.ДвоичныеДанные, + УникальныйИдентификатор); + + ЗначениеВРеквизитФормы(ОбъектСправочника, "Объект"); + + Модифицированность = Истина; + УстановитьВидимостьДоступность(); + + Возврат Новый Структура("Загружено", Истина); + +КонецФункции + +// Серверная логика обновления компоненты с сайта. +&НаСервере +Функция НачатьОбновлениеКомпонентыССайтаНаСервере() + + Если Не ВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаССайта() Тогда + Возврат Неопределено; + КонецЕсли; + + ЭтоНовый = Объект.Ссылка.Пустая(); + Если ЭтоНовый Тогда + Возврат Неопределено; + КонецЕсли; + + МассивСсылок = Новый Массив; + МассивСсылок.Добавить(Объект.Ссылка); + + ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); + ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Обновление внешней компоненты.'"); + + Возврат ДлительныеОперации.ВыполнитьВФоне("ВнешниеКомпонентыСлужебный.ОбновитьКомпонентыССайта", + МассивСсылок, ПараметрыВыполнения); + +КонецФункции + +// Серверная логика обновления компоненты с сайта. +&НаСервере +Функция ЗавершитьОбновлениеКомпонентыССайтаНаСервере(Результат) + + // Обновление формы по новому значению объекта в ИБ. + ЭтотОбъект.Прочитать(); + + Модифицированность = Ложь; + УстановитьВидимостьДоступность(); + +КонецФункции + +///////////////////////////////////////////////////////// +// Представление данных на форме. + +// Для внутреннего использования. +&НаСервере +Процедура УстановитьВидимостьДоступность() + + ЭтоНовый = Объект.Ссылка.Пустая(); + + // Отображение описания ошибки. + Элементы.ОшибкаКомпоненты.Видимость = Ложь; + + // Зависимость использования и автоматического обновления. + КомпонентаОтключена = (Объект.Использование = Перечисления.ВариантыИспользованияВнешнихКомпонент.Отключена); + Элементы.ОбновлятьССайта.Доступность = Не КомпонентаОтключена; + + // Параметры отображения предупреждений при редактировании + ОтображатьПредупреждение = ОтображениеПредупрежденияПриРедактировании.Отображать; + НеОтображатьПредупреждение = ОтображениеПредупрежденияПриРедактировании.НеОтображать; + Если ЗначениеЗаполнено(Объект.Наименование) Тогда + Элементы.Наименование.ОтображениеПредупрежденияПриРедактировании = ОтображатьПредупреждение; + Иначе + Элементы.Наименование.ОтображениеПредупрежденияПриРедактировании = НеОтображатьПредупреждение; + КонецЕсли; + Если ЗначениеЗаполнено(Объект.Идентификатор) Тогда + Элементы.Идентификатор.ОтображениеПредупрежденияПриРедактировании = ОтображатьПредупреждение; + Иначе + Элементы.Идентификатор.ОтображениеПредупрежденияПриРедактировании = НеОтображатьПредупреждение; + КонецЕсли; + Если ЗначениеЗаполнено(Объект.Версия) Тогда + Элементы.Версия.ОтображениеПредупрежденияПриРедактировании = ОтображатьПредупреждение; + Иначе + Элементы.Версия.ОтображениеПредупрежденияПриРедактировании = НеОтображатьПредупреждение; + КонецЕсли; + + // Доступность кнопки Сохранить в файл + Элементы.ФормаСохранитьКак.Доступность = Не ЭтоНовый; + Элементы.ФормаОбновитьССайта.Доступность = Не ЭтоНовый; + +КонецПроцедуры + +///////////////////////////////////////////////////////// +// Прочее. + +// Для внутреннего использования. +&НаКлиенте +Функция ЗакрытьСПараметромЗакрытия() + + ПараметрЗакрытия = Неопределено; + + Если Параметры.ВернутьРезультатЗагрузкиИзФайла Тогда + + ПараметрЗакрытия = Новый Структура; + ПараметрЗакрытия.Вставить("Идентификатор", Объект.Идентификатор); + ПараметрЗакрытия.Вставить("Версия" , Объект.Версия); + ПараметрЗакрытия.Вставить("Наименование" , Объект.Наименование); + + КонецЕсли; + + Закрыть(ПараметрЗакрытия); + +КонецФункции + +// Для внутреннего использования. +&НаКлиенте +Функция ТолькоИмяФайла(ВыбранноеИмяФайла) + + // Использовать критично на клиенте, т.к. ПолучитьРазделительПути() на сервере может быть другим. + МассивПодстрок = СтрРазделить(ВыбранноеИмяФайла, ПолучитьРазделительПути(), Ложь); + Возврат МассивПодстрок.Получить(МассивПодстрок.ВГраница()); + +КонецФункции + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Help/ru.html b/SSL/src/Catalogs/ВнешниеКомпоненты/Help/ru.html new file mode 100644 index 000000000..5c1f9a1aa --- /dev/null +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Help/ru.html @@ -0,0 +1,25 @@ + +Предназначен для управления внешними компонентами.
+Внешние компоненты - специальные программы, которые могут обеспечивать:
+- Работу с подключаемым оборудованием; +
- Обмены с банком и документооборот; +
- Работа с буфером обмена, сканирование и т.п.; +
- Печать штрихкодов, извлечение текстов, компонента склонения и т.д.
Внешние компоненты можно подключить к программе из файла на компьютере. При необходимости, одновременно могут быть подключены сразу несколько версий одной внешней компоненты. Например, это полезно, когда на разных клиентских компьютерах используются разные драйверы или оборудование.
+Программа предоставляет администратору возможность контролировать список внешних компонент, используемых на клиентских рабочих местах. Без контроля администратора пользователи не могут подключать к программе какие-либо сторонние внешние компоненты.
+В списке отражаются все установленные в программе внешние компоненты.
+Подключение внешней компоненты
+- Нажмите Создать. +
- Программа выводит Предупреждение безопасности. Если внешняя компонента получена из надежного источника и не может содержать вирусы, нажмите Продолжить. +
- Укажите путь к файлу на компьютере, нажмите Открыть. +
- Разработчик размещает в файле внешней компоненты необходимую информацию для ее установки, поэтому основные поля в карточке внешней компоненты заполняются автоматически.
Обновление внешней компоненты
+- Нажмите кнопку
. Программа выводит Предупреждение безопасности. +
- Если внешняя компонента получена из надежного источника и не может содержать вирусы, нажмите кнопку Продолжить. +
- Укажите путь к файлу на компьютере, нажмите кнопку Открыть. +
- Информация в карточке внешней компоненты будет обновлена.
Сохранение внешних компонент на компьютер
+- Сохраненную на компьютер внешнюю компоненту можно будет использовать в случае нештатных ситуаций. +
- Нажмите кнопку
. Укажите путь к файлу на компьютере. Нажмите Сохранить.
Отборы в списке
+С помощью поля Показывать в списке можно отобрать внешние компоненты по следующим признакам:
+- Все; +
- Используемые; +
- Отключенные.
См. также:
+ \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl new file mode 100644 index 000000000..14daa517a --- /dev/null +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl @@ -0,0 +1,27 @@ +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область ПрограммныйИнтерфейс + +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +// Возвращает реквизиты объекта, которые разрешается редактировать +// с помощью обработки группового изменения реквизитов. +// +// Возвращаемое значение: +// Массив - список имен реквизитов объекта. +Функция РеквизитыРедактируемыеВГрупповойОбработке() Экспорт + + Результат = Новый Массив; + Возврат Результат; + +КонецФункции + +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + +#КонецОбласти + +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl new file mode 100644 index 000000000..a4b5ba0db --- /dev/null +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl @@ -0,0 +1,140 @@ +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область ОбработчикиСобытий + +Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) + + // Если внешняя компонента используется, то необходим контроль уникальности идентификатора и версии объекта. + Если Использование = Перечисления.ВариантыИспользованияВнешнихКомпонент.Используется Тогда + + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("Идентификатор", Идентификатор); + Запрос.УстановитьПараметр("Версия", Версия); + Запрос.УстановитьПараметр("Ссылка", Ссылка); + Запрос.Текст = + "ВЫБРАТЬ ПЕРВЫЕ 1 + | 1 + |ИЗ + | Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты + |ГДЕ + | ВнешниеКомпоненты.Идентификатор = &Идентификатор + | И ВнешниеКомпоненты.Версия = &Версия + | И ВнешниеКомпоненты.Использование = ЗНАЧЕНИЕ(Перечисление.ВариантыИспользованияВнешнихКомпонент.Используется) + | И ВнешниеКомпоненты.Ссылка <> &Ссылка"; + + Конфликтующие = Запрос.Выполнить(); + + Если Не Конфликтующие.Пустой() Тогда + + Отказ = Истина; + + ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Идентификатор ""%1"" и версия ""%2"", указанные для данной компоненты, + |уже используются другой компонентой. + |Для продолжения необходимо изменить использование с ""%3"" на ""%4"".'"), + Идентификатор, + Версия, + Строка(Перечисления.ВариантыИспользованияВнешнихКомпонент.Используется), + Строка(Перечисления.ВариантыИспользованияВнешнихКомпонент.Отключена)); + + ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "Объект.Использование"); + + КонецЕсли; + КонецЕсли; + + Если ОбновлятьССайта Тогда + + // ОбновлятьССайта может быть установлен только у компоненты максимальной версии. + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("Идентификатор", Идентификатор); + Запрос.Текст = + "ВЫБРАТЬ + | МАКСИМУМ(ВнешниеКомпоненты.ДатаВерсии) КАК ДатаВерсии + |ИЗ + | Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты + |ГДЕ + | ВнешниеКомпоненты.Идентификатор = &Идентификатор"; + + Результат = Запрос.Выполнить(); + Выборка = Результат.Выбрать(); + Выборка.Следующий(); + ЭтоМаксимальнаяВерсия = (Выборка.ДатаВерсии = Null) Или (Выборка.ДатаВерсии = ДатаВерсии); + + Если Не ЭтоМаксимальнаяВерсия Тогда + + Отказ = Истина; + + ТекстОшибки = НСтр("ru = 'Автоматическое обновление может быть включено только для компоненты + |последней версии. + | + |Для продолжения необходимо отключить обновление с сайта.'"); + + ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "Объект.ОбновлятьССайта"); + + КонецЕсли; + + // Не должно быть несколько объектов (в т.ч. разной версии, в т.ч. отключенных) с одним идентификатором + // у которых одновременно включен ОбновлятьССайта. + + Если Не Отказ Тогда + + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("Идентификатор", Идентификатор); + Запрос.УстановитьПараметр("Ссылка", Ссылка); + Запрос.Текст = + "ВЫБРАТЬ ПЕРВЫЕ 1 + | 1 + |ИЗ + | Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты + |ГДЕ + | ВнешниеКомпоненты.Идентификатор = &Идентификатор + | И ВнешниеКомпоненты.ОбновлятьССайта + | И ВнешниеКомпоненты.Ссылка <> &Ссылка"; + + Конфликтующие = Запрос.Выполнить(); + + Если Не Конфликтующие.Пустой() Тогда + + Отказ = Истина; + + ТекстОшибки = НСтр("ru = 'Автоматическое обновление уже включено для другой версии компоненты. + | + |Для продолжения необходимо отключить обновление с сайта.'"); + + ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "Объект.ОбновлятьССайта"); + + КонецЕсли; + + КонецЕсли; + + КонецЕсли; + +КонецПроцедуры + +Процедура ПередЗаписью(Отказ) + + Если ОбменДанными.Загрузка Тогда + Возврат; + КонецЕсли; + + // Связь реквизитов с пометкой удаления. + Если ПометкаУдаления Тогда + Использование = Перечисления.ВариантыИспользованияВнешнихКомпонент.Отключена; + КонецЕсли; + + // Связь реквизитов с вариантом использования. + Если Использование = Перечисления.ВариантыИспользованияВнешнихКомпонент.Отключена Тогда + ОбновлятьССайта = Ложь; + КонецЕсли; + + // Помещение двоичных данных компоненты + ДвоичныеДанныеКомпоненты = Неопределено; + Если ДополнительныеСвойства.Свойство("ДвоичныеДанныеКомпоненты", ДвоичныеДанныеКомпоненты) Тогда + ХранилищеКомпоненты = Новый ХранилищеЗначения(ДвоичныеДанныеКомпоненты); + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo b/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo new file mode 100644 index 000000000..73e8b6764 --- /dev/null +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo @@ -0,0 +1,510 @@ + +- В поле Группа (папка) выберите папку из списка.
- В зависимости от настроек профиля в группу доступа могут входить разные типы пользователей: пользователи и группы пользователей. В составе участников группы доступа могут быть также перечислены внешние пользователи и группы внешних пользователей (это может понадобиться для проведения анкетирования, например).
Участники группы
+Участники группы
-
Перечислите список пользователей (и групп пользователей), на которых должны распространяться настройки прав доступа. Списки, из которых можно выбрать участников группы, перечислены в поле Допустимые участники в нижней части вкладки.
-
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
index f9742860b..5b0e4185c 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
@@ -30,7 +30,7 @@
Элементы.ПользователиПодобрать.Доступность = НЕ ТолькоПросмотр;
Элементы.КонтекстноеМенюПользователиПодобрать.Доступность = НЕ ТолькоПросмотр;
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ПользователиВМоделиСервиса") Тогда
@@ -47,16 +47,22 @@
ВыполненаПроцедураПриСозданииНаСервере = Истина;
- Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
+ Если КлиентскоеПриложение.ТекущийВариантИнтерфейса() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
Элементы.ПользователиДобавить.ТолькоВоВсехДействиях = Ложь;
КонецЕсли;
- Если ОбщегоНазначенияПовтИсп.ЭтоАвтономноеРабочееМесто()
- И Не Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
+ Если ОбщегоНазначения.ЭтоАвтономноеРабочееМесто() Тогда
+ Если Не Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы
+ И Не УправлениеДоступомСлужебный.ЭтоПрофильОткрытиеВнешнихОтчетовИОбработок(Объект.Профиль) Тогда
- ТолькоПросмотр = Истина;
+ ТолькоПросмотр = Истина;
+ Иначе
+ ЗапретитьИзменениеВсегоКромеСоставаУчастников();
+ КонецЕсли;
КонецЕсли;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
+
КонецПроцедуры
&НаКлиенте
@@ -65,6 +71,7 @@
Если ОтветНаВопросПриОткрытииФормы = "УстановитьТолькоПросмотр" Тогда
ОтветНаВопросПриОткрытииФормы = "";
ТолькоПросмотр = Истина;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
КонецЕсли;
Если ОтветНаВопросПриОткрытииФормы = "УстановитьПрофильАдминистратор" Тогда
@@ -72,8 +79,9 @@
Объект.Профиль = ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор");
Модифицированность = Истина;
- ИначеЕсли Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
- И Объект.Профиль <> ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор") Тогда
+ ИначеЕсли Не ТолькоПросмотр
+ И Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
+ И Объект.Профиль <> ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор") Тогда
Отказ = Истина;
ПоказатьВопрос(
@@ -136,12 +144,12 @@
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
- Если СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента().РазделениеВключено
+ Если СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().РазделениеВключено
И Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
И ПарольПользователяСервиса = Неопределено Тогда
Отказ = Истина;
- СтандартныеПодсистемыКлиент.ПриЗапросеПароляДляАутентификацииВСервисе(
+ ПользователиСлужебныйКлиент.ЗапроситьПарольДляАутентификацииВСервисе(
Новый ОписаниеОповещения("ПередЗаписьюПродолжение", ЭтотОбъект, ПараметрыЗаписи),
ЭтотОбъект,
ПарольПользователяСервиса);
@@ -179,7 +187,7 @@
Объект.Ответственный = Неопределено;
КонецЕсли;
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
ТекущийОбъект.ДополнительныеСвойства.Вставить(
@@ -214,9 +222,12 @@
Если ПараметрыЗаписи.Свойство("ПредупредитьЧтоПрофильПомеченНаУдаление") Тогда
- ПоказатьПредупреждение(,
+ ПоказатьПредупреждение(
+ Новый ОписаниеОповещения("ПослеЗаписиЗавершение", ЭтотОбъект, ПараметрыЗаписи),
НСтр("ru = 'Группа доступа не влияет на права участников
|так как ее профиль помечен на удаление.'"));
+ Иначе
+ ПослеЗаписиЗавершение(ПараметрыЗаписи);
КонецЕсли;
КонецПроцедуры
@@ -409,7 +420,7 @@
КонецЦикла;
- Если НЕ ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если НЕ ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
ОписаниеОшибки = "";
@@ -822,6 +833,13 @@
#Область ОбработчикиКомандФормы
+&НаКлиенте
+Процедура ЗаписатьИЗакрыть(Команда)
+
+ Записать(Новый Структура("ЗаписатьИЗакрыть"));
+
+КонецПроцедуры
+
&НаКлиенте
Процедура Подобрать(Команда)
@@ -843,7 +861,7 @@
// Продолжение обработчика события ПриОткрытии.
&НаКлиенте
-Процедура ПриОткрытииПослеПодтвержденияУстановкиПрофиляАдминистратор(Ответ, Неопределен) Экспорт
+Процедура ПриОткрытииПослеПодтвержденияУстановкиПрофиляАдминистратор(Ответ, Контекст) Экспорт
Если Ответ = КодВозвратаДиалога.Да Тогда
ОтветНаВопросПриОткрытииФормы = "УстановитьПрофильАдминистратор";
@@ -857,7 +875,7 @@
// Продолжение обработчика события ПриОткрытии.
&НаКлиенте
-Процедура ПриОткрытииПослеПодтвержденияОбновленияВидовДоступа(Ответ, Неопределен) Экспорт
+Процедура ПриОткрытииПослеПодтвержденияОбновленияВидовДоступа(Ответ, Контекст) Экспорт
Если Ответ = КодВозвратаДиалога.Да Тогда
ОтветНаВопросПриОткрытииФормы = "ОбновитьСоставВидовДоступа";
@@ -888,6 +906,23 @@
КонецПроцедуры
+// Продолжение обработчика события ПослеЗаписи.
+&НаКлиенте
+Процедура ПослеЗаписиЗавершение(ПараметрыЗаписи)
+
+ Если ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ Закрыть();
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОбработчикОжиданияПрофильПриИзменении()
@@ -895,20 +930,28 @@
КонецПроцедуры
+&НаСервере
+Процедура ЗапретитьИзменениеВсегоКромеСоставаУчастников()
+
+ Элементы.Наименование.ТолькоПросмотр = Истина;
+ Элементы.Родитель.Видимость = Ложь;
+ Элементы.Профиль.ТолькоПросмотр = Истина;
+ Элементы.СвойстваПерсональнойГруппы.Видимость = Ложь;
+ Элементы.Ответственный.Видимость = Ложь;
+ Элементы.ОтветственныйЗаПерсональнуюГруппу.Видимость = Ложь;
+ Элементы.Комментарий.ТолькоПросмотр = Истина;
+
+КонецПроцедуры
+
&НаСервере
Процедура НачальнаяНастройкаПриЧтенииИСоздании(ТекущийОбъект)
Если ТекущийОбъект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
- Элементы.Наименование.ТолькоПросмотр = Истина;
- Элементы.Родитель.Видимость = Ложь;
- Элементы.Профиль.ТолькоПросмотр = Истина;
- Элементы.СвойстваПерсональнойГруппы.Видимость = Ложь;
- Элементы.Ответственный.Видимость = Ложь;
- Элементы.ОтветственныйЗаПерсональнуюГруппу.Видимость = Ложь;
- Элементы.Описание.ТолькоПросмотр = Истина;
+ ЗапретитьИзменениеВсегоКромеСоставаУчастников();
- Если НЕ УправлениеДоступом.ЕстьРоль("ПолныеПрава") Тогда
+ Если Не УправлениеДоступом.ЕстьРоль("ПолныеПрава") Тогда
ТолькоПросмотр = Истина;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
КонецЕсли;
Иначе
Если ЗначениеЗаполнено(ТекущийОбъект.Пользователь) Тогда
@@ -958,7 +1001,7 @@
Элементы.Доступ.ТолькоПросмотр = Истина;
Элементы.Ответственный.ТолькоПросмотр = Истина;
Элементы.ОтветственныйЗаПерсональнуюГруппу.ТолькоПросмотр = Истина;
- Элементы.Описание.ТолькоПросмотр = Истина;
+ Элементы.Комментарий.ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
@@ -1436,17 +1479,18 @@
УстановитьПривилегированныйРежим(Истина);
- Запрос = Новый Запрос(
+ Запрос = Новый Запрос;
+ Запрос.Текст =
"ВЫБРАТЬ
- | ГруппыДоступа.ПометкаУдаления,
- | ГруппыДоступа.Предопределенный,
- | ГруппыДоступа.Родитель,
- | ГруппыДоступа.ЭтоГруппа,
- | ГруппыДоступа.Наименование,
- | ГруппыДоступа.Профиль,
- | ГруппыДоступа.Ответственный,
- | ГруппыДоступа.Пользователь,
- | ГруппыДоступа.Описание
+ | ГруппыДоступа.ПометкаУдаления КАК ПометкаУдаления,
+ | ГруппыДоступа.Предопределенный КАК Предопределенный,
+ | ГруппыДоступа.Родитель КАК Родитель,
+ | ГруппыДоступа.ЭтоГруппа КАК ЭтоГруппа,
+ | ГруппыДоступа.Наименование КАК Наименование,
+ | ГруппыДоступа.Профиль КАК Профиль,
+ | ГруппыДоступа.Ответственный КАК Ответственный,
+ | ГруппыДоступа.Пользователь КАК Пользователь,
+ | ГруппыДоступа.Комментарий КАК Комментарий
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
@@ -1455,8 +1499,8 @@
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
- | ГруппыДоступаВидыДоступа.ВидДоступа,
- | ГруппыДоступаВидыДоступа.ВсеРазрешены
+ | ГруппыДоступаВидыДоступа.ВидДоступа КАК ВидДоступа,
+ | ГруппыДоступаВидыДоступа.ВсеРазрешены КАК ВсеРазрешены
|ИЗ
| Справочник.ГруппыДоступа.ВидыДоступа КАК ГруппыДоступаВидыДоступа
|ГДЕ
@@ -1465,12 +1509,12 @@
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
- | ГруппыДоступаЗначенияДоступа.ВидДоступа,
- | ГруппыДоступаЗначенияДоступа.ЗначениеДоступа
+ | ГруппыДоступаЗначенияДоступа.ВидДоступа КАК ВидДоступа,
+ | ГруппыДоступаЗначенияДоступа.ЗначениеДоступа КАК ЗначениеДоступа
|ИЗ
| Справочник.ГруппыДоступа.ЗначенияДоступа КАК ГруппыДоступаЗначенияДоступа
|ГДЕ
- | ГруппыДоступаЗначенияДоступа.Ссылка = &Ссылка");
+ | ГруппыДоступаЗначенияДоступа.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", ТекущийОбъект.Ссылка);
РезультатыЗапросов = Запрос.ВыполнитьПакет();
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
index 13c83b1e1..553f5053c 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
@@ -2,6 +2,10 @@
#Область ПрограммныйИнтерфейс
+#Область ДляВызоваИзДругихПодсистем
+
+// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
+
// Возвращает реквизиты объекта, которые не рекомендуется редактировать
// с помощью обработки группового изменения реквизитов.
//
@@ -20,6 +24,21 @@
КонецФункции
+// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
+
+// ТехнологияСервиса.ВыгрузкаЗагрузкаДанных
+
+// См. ВыгрузкаЗагрузкаДанныхПереопределяемый.ПриРегистрацииОбработчиковВыгрузкиДанных.
+Процедура ПередВыгрузкойОбъекта(Контейнер, МенеджерВыгрузкиОбъекта, Сериализатор, Объект, Артефакты, Отказ) Экспорт
+
+ УправлениеДоступомСлужебный.ПередВыгрузкойОбъекта(Контейнер, МенеджерВыгрузкиОбъекта, Сериализатор, Объект, Артефакты, Отказ);
+
+КонецПроцедуры
+
+// Конец ТехнологияСервиса.ВыгрузкаЗагрузкаДанных
+
+#КонецОбласти
+
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
@@ -110,7 +129,7 @@
// Проверка необходимости/возможности обновления группы доступа.
ГруппаДоступа = Выборка.Ссылка.ПолучитьОбъект();
- Если ГруппаДоступа.Ссылка = Справочники.ГруппыДоступа.Администраторы
+ Если ГруппаДоступа.Ссылка = Администраторы
И ГруппаДоступа.Профиль <> Справочники.ПрофилиГруппДоступа.Администратор Тогда
// Установка профиля Администратор, если не задан.
ГруппаДоступа.Профиль = Справочники.ПрофилиГруппДоступа.Администратор;
@@ -206,7 +225,7 @@
ИначеЕсли НеСоздавать Тогда
ГруппаЭлементов = Неопределено;
Иначе
- ГруппаЭлементовОбъект = Справочники.ГруппыДоступа.СоздатьГруппу();
+ ГруппаЭлементовОбъект = СоздатьГруппу();
ГруппаЭлементовОбъект.Наименование = НаименованиеГруппыЭлементов;
ГруппаЭлементовОбъект.Записать();
ГруппаЭлементов = ГруппаЭлементовОбъект.Ссылка;
@@ -216,8 +235,11 @@
КонецФункции
+////////////////////////////////////////////////////////////////////////////////
+// Процедуры и функции для поддержки обмена данными в РИБ.
+
// Только для внутреннего использования.
-Процедура ВосстановитьСоставУчастниковГруппыДоступаАдминистраторы(ЭлементДанных, ОтправкаНазад) Экспорт
+Процедура ВосстановитьСоставУчастниковГруппыДоступаАдминистраторы(ЭлементДанных) Экспорт
Если ЭлементДанных.ИмяПредопределенныхДанных <> "Администраторы" Тогда
Возврат;
@@ -243,6 +265,38 @@
КонецПроцедуры
+// Только для внутреннего использования.
+Процедура УдалитьУчастниковГруппыДоступаАдминистраторыБезПользователяИБ() Экспорт
+
+ ГруппаДоступаАдминистраторы = Администраторы.ПолучитьОбъект();
+
+ Индекс = ГруппаДоступаАдминистраторы.Пользователи.Количество() - 1;
+ Пока Индекс >= 0 Цикл
+ ТекущийПользователь = ГруппаДоступаАдминистраторы.Пользователи[Индекс].Пользователь;
+ Если ТипЗнч(ТекущийПользователь) = Тип("СправочникСсылка.Пользователи") Тогда
+ ИдентификаторПользователяИБ = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущийПользователь,
+ "ИдентификаторПользователяИБ");
+ Иначе
+ ИдентификаторПользователяИБ = Неопределено;
+ КонецЕсли;
+ Если ТипЗнч(ИдентификаторПользователяИБ) = Тип("УникальныйИдентификатор") Тогда
+ ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
+ ИдентификаторПользователяИБ);
+ Иначе
+ ПользовательИБ = Неопределено;
+ КонецЕсли;
+ Если ПользовательИБ = Неопределено Тогда
+ ГруппаДоступаАдминистраторы.Пользователи.Удалить(Индекс);
+ КонецЕсли;
+ Индекс = Индекс - 1;
+ КонецЦикла;
+
+ Если ГруппаДоступаАдминистраторы.Модифицированность() Тогда
+ ГруппаДоступаАдминистраторы.Записать();
+ КонецЕсли;
+
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// Обновление информационной базы.
@@ -258,4 +312,4 @@
#КонецОбласти
-#КонецЕсли
\ No newline at end of file
+#КонецЕсли
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
index 91ba4403b..4e9efa7bb 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
@@ -25,6 +25,9 @@
Возврат;
КонецЕсли;
+ СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы();
+ РегистрыСведений.ПраваРолей.ПроверитьДанныеРегистра();
+
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
Если ЗначениеЗаполнено(Ссылка) Тогда
СтараяТаблицаПользователи = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Пользователи");
@@ -125,9 +128,16 @@
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса") Тогда
+ МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
+ СеансЗапущенБезРазделителей = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
+ Иначе
+ СеансЗапущенБезРазделителей = Истина;
+ КонецЕсли;
+
+ Если ОбщегоНазначения.РазделениеВключено()
И Ссылка = Справочники.ГруппыДоступа.Администраторы
- И НЕ ОбщегоНазначенияПовтИсп.СеансЗапущенБезРазделителей()
+ И НЕ СеансЗапущенБезРазделителей
И ДополнительныеСвойства.Свойство("ПарольПользователяСервиса") Тогда
ПарольПользователяСервиса = ДополнительныеСвойства.ПарольПользователяСервиса;
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo b/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
index 4b8db2dca..545300688 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
+++ b/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
@@ -185,10 +185,10 @@
Use - +Описание +Комментарий ru -Описание +Комментарий String @@ -196,7 +196,7 @@ru -Краткое описание назначения группы доступа +Произвольная строка diff --git a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl index eaf78fd76..3d53198c6 100644 --- a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl +++ b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые не рекомендуется редактировать // с помощью обработки группового изменения реквизитов. // @@ -15,6 +19,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Form.form index d6e86ea10..a20943f48 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Form.form @@ -8,6 +8,10 @@ true + <key>ru</key> + <value>Группа пользовательских настроек</value> + ГруппаПользовательскихНастроекРасширеннаяПодсказка 20 @@ -36,6 +40,10 @@true + <key>ru</key> + <value>Командная панель</value> + КоманднаяПанельРасширеннаяПодсказка 18 @@ -55,6 +63,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -307,9 +319,6 @@ CommonPicture.СостоянияПользователей None -None -None true 60 diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl index 7ae13b1fc..3b30d5c5f 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl @@ -33,7 +33,7 @@ Элементы.Список.РежимВыбора = Ложь; КонецЕсли; - Если ОбщегоНазначенияПовтИсп.ЭтоАвтономноеРабочееМесто() Тогда + Если ОбщегоНазначения.ЭтоАвтономноеРабочееМесто() Тогда ТолькоПросмотр = Истина; КонецЕсли; diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form index 91a2662cd..873914010 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form @@ -99,6 +99,10 @@Состав 10 ++ <key>ru</key> + <value>Состав</value> + true true @@ -824,9 +828,6 @@ Style.BorderColor None -None -None true ВсеПользователи 1 ++ <key>ru</key> + <value>Все пользователи</value> + true true @@ -242,9 +246,6 @@ true true true -None -None -None true true + <key>ru</key> <value>Команды управления списком</value> - </toolTip> + true Center @@ -633,9 +634,6 @@ true true true -None -None -None true <key>ru</key> - <value>Группа пользователи</value> + <value>Пользователи</value> -- ru -Группа пользователи -ГруппаПользователиExtendedTooltip 33 diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПодборРазделов/Form.form b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПодборРазделов/Form.form index 6be33b941..e67473067 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПодборРазделов/Form.form +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПодборРазделов/Form.form @@ -7,6 +7,10 @@Разделы 1 ++ <key>ru</key> + <value>Разделы</value> + true true @@ -115,12 +119,8 @@ <key>ru</key> - <value>Группа колонок</value> + <value>Колонок</value> -- ru -Группа колонок -ГруппаКолонокExtendedTooltip 16 @@ -250,9 +250,6 @@true true true -None -None -None true true + <key>ru</key> + <value>Сообщение пользователю</value> + ГруппаСообщениеПользователюРасширеннаяПодсказка 8 diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl index 4f03860ac..b6587ec90 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl @@ -2,10 +2,17 @@ &НаКлиенте Процедура ПерейтиКСписку(Команда) - ПараметрыОтбора = Новый Структура; - ПараметрыОтбора.Вставить("ПроверкаДополнительныхОтчетовИОбработок", Истина); + Отборы = Новый Структура; + Отборы.Вставить("Публикация", ПредопределенноеЗначение("Перечисление.ВариантыПубликацииДополнительныхОтчетовИОбработок.Используется")); + Отборы.Вставить("ПометкаУдаления", Ложь); + Отборы.Вставить("ЭтоГруппа", Ложь); - ОткрытьФорму("Справочник.ДополнительныеОтчетыИОбработки.Форма.ФормаСписка", ПараметрыОтбора); + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("Отбор", Отборы); + ПараметрыФормы.Вставить("Отображение", "Список"); + ПараметрыФормы.Вставить("ПроверкаДополнительныхОтчетовИОбработок", Истина); + + ОткрытьФорму("Справочник.ДополнительныеОтчетыИОбработки.Форма.ФормаСписка", ПараметрыФормы); КонецПроцедуры &НаКлиенте diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form index 790e137a1..7d91036bc 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form @@ -151,10 +151,6 @@ru Быстрые отборы -- ru -Быстрые отборы -БыстрыеОтборыExtendedTooltip 32 @@ -265,10 +261,6 @@ru Кнопки добавления -- ru -Кнопки добавления -КнопкиДобавленияExtendedTooltip 36 @@ -343,12 +335,8 @@<key>ru</key> - <value>Группа загрузить выгрузить</value> + <value>Загрузить выгрузить</value> -- ru -Группа загрузить выгрузить -ГруппаЗагрузитьВыгрузитьРасширеннаяПодсказка 100 @@ -450,12 +438,8 @@<key>ru</key> - <value>Группа изменить</value> + <value>Изменить</value> -- ru -Группа изменить -ГруппаИзменитьРасширеннаяПодсказка 104 @@ -480,10 +464,6 @@ru Команды формы -- ru -Команды формы -КомандыФормыExtendedTooltip 40 @@ -642,10 +622,6 @@ru Командная панель -- ru -Командная панель -КоманднаяПанельExtendedTooltip 35 @@ -664,6 +640,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -1107,10 +1087,6 @@ ru Кнопки добавления -- ru -Кнопки добавления -КнопкиДобавленияМенюРасширеннаяПодсказка 112 @@ -1320,12 +1296,8 @@<key>ru</key> - <value>Группа изменить меню</value> + <value>Изменить меню</value> -- ru -Группа изменить меню -ГруппаИзменитьМенюРасширеннаяПодсказка 108 @@ -1400,12 +1372,8 @@<key>ru</key> - <value>Группа загрузить выгрузить меню</value> + <value>Загрузить выгрузить меню</value> -- ru -Группа загрузить выгрузить меню -ГруппаЗагрузитьВыгрузитьМенюРасширеннаяПодсказка 102 @@ -1443,9 +1411,6 @@Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl index cf24358e7..25b9b7f7a 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl @@ -19,7 +19,7 @@ Элементы.Список.Отображение = ОтображениеТаблицы[Параметры.Отображение]; КонецЕсли; - СписокВыбора = Элементы.ПубликацияОтбор.СписокВыбора; + СписокВыбораПубликаций = Элементы.ПубликацияОтбор.СписокВыбора; ВидИспользуется = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Используется; ВидОтключена = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена; @@ -32,24 +32,27 @@ Если ДоступныеВидыПубликации.Найти(ВидРежимОтладки) <> Неопределено Тогда ВсеПубликацииКромеНеиспользующихся.Добавить(ВидРежимОтладки); КонецЕсли; - Если ВсеПубликацииКромеНеиспользующихся.Количество() > 1 Тогда - ПредставлениеМассива = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = '%1 или %2'"), Строка(ВсеПубликацииКромеНеиспользующихся[0]), Строка(ВсеПубликацииКромеНеиспользующихся[1])); - - СписокВыбора.Добавить(1, ПредставлениеМассива); - + СписокВыбораПубликаций.Добавить(1, ПредставлениеМассива); КонецЕсли; - Для Каждого ЗначениеПеречисления Из Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок Цикл Если ДоступныеВидыПубликации.Найти(ЗначениеПеречисления) <> Неопределено Тогда - СписокВыбора.Добавить(ЗначениеПеречисления, Строка(ЗначениеПеречисления)); + СписокВыбораПубликаций.Добавить(ЗначениеПеречисления, Строка(ЗначениеПеречисления)); КонецЕсли; КонецЦикла; + Если Параметры.Отбор.Свойство("Публикация") Тогда + ПубликацияОтбор = Параметры.Отбор.Публикация; + Параметры.Отбор.Удалить("Публикация"); + Если СписокВыбораПубликаций.НайтиПоЗначению(ПубликацияОтбор) = Неопределено Тогда + ПубликацияОтбор = Неопределено; + КонецЕсли; + КонецЕсли; + СписокВыбора = Элементы.ВидОтбор.СписокВыбора; СписокВыбора.Добавить(1, НСтр("ru = 'Только отчеты'")); СписокВыбора.Добавить(2, НСтр("ru = 'Только обработки'")); @@ -78,13 +81,21 @@ ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВыгрузитьВФайл", "Видимость", ПравоДобавления); ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВыгрузитьВФайлМеню", "Видимость", ПравоДобавления); - ПрофилиИспользуются = Не ПолучитьФункциональнуюОпцию("ИспользуютсяПрофилиБезопасности"); + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежиме = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежиме"); + ИспользуютсяПрофилиБезопасности = МодульРаботаВБезопасномРежиме.ИспользуютсяПрофилиБезопасности(); + Иначе + ИспользуютсяПрофилиБезопасности = Ложь; + КонецЕсли; + + ПрофилиИспользуются = Не ИспользуютсяПрофилиБезопасности; Элементы.ИзменитьПометкуУдаленияБезПрофилей.Видимость = Не ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияБезПрофилейМеню.Видимость = Не ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияСПрофилями.Видимость = ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияСПрофилямиМеню.Видимость = ПрофилиИспользуются; - Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов") Тогда + Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов") + Или Не ПравоДоступа("Изменение", Метаданные.Справочники.ДополнительныеОтчетыИОбработки) Тогда Элементы.ИзменитьВыделенные.Видимость = Ложь; Элементы.ИзменитьВыделенныеМеню.Видимость = Ложь; КонецЕсли; @@ -98,10 +109,12 @@ &НаСервере Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки) - ПубликацияОтбор = Настройки.Получить("ПубликацияОтбор"); - ВидОтбор = Настройки.Получить("ВидОтбор"); - Список.Параметры.УстановитьЗначениеПараметра("ПубликацияОтбор", ПубликацияОтбор); - Список.Параметры.УстановитьЗначениеПараметра("ВидОтбор", ВидОтбор); + Если Не ЗначениеЗаполнено(ПубликацияОтбор) Тогда + ПубликацияОтбор = Настройки.Получить("ПубликацияОтбор"); + Список.Параметры.УстановитьЗначениеПараметра("ПубликацияОтбор", ПубликацияОтбор); + КонецЕсли; + ВидОтбор = Настройки.Получить("ВидОтбор"); + Список.Параметры.УстановитьЗначениеПараметра("ВидОтбор", ВидОтбор); КонецПроцедуры #КонецОбласти @@ -223,17 +236,27 @@ &НаСервере Процедура УстановитьУсловноеОформление() - Инструкция = СтандартныеПодсистемыСервер.ИнструкцияУсловногоОформления(); - Инструкция.Поля = "Список"; - Инструкция.Отборы.Вставить("Список.Публикация", Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.РежимОтладки); - Инструкция.Оформление.Вставить("ЦветТекста", ЦветаСтиля.ПросроченныеДанныеЦвет); - СтандартныеПодсистемыСервер.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция); - Инструкция = СтандартныеПодсистемыСервер.ИнструкцияУсловногоОформления(); - Инструкция.Поля = "Список"; - Инструкция.Отборы.Вставить("Список.Публикация", Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена); - Инструкция.Оформление.Вставить("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); - СтандартныеПодсистемыСервер.ДобавитьЭлементУсловногоОформления(ЭтотОбъект, Инструкция); + Список.УсловноеОформление.Элементы.Очистить(); + // + Элемент = Список.УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Публикация"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.РежимОтладки; + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ПросроченныеДанныеЦвет); + // + Элемент = Список.УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Публикация"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена; + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + КонецПроцедуры &НаКлиенте @@ -274,7 +297,6 @@ Блокировка = Новый БлокировкаДанных; ЭлементБлокировки = Блокировка.Добавить("Справочник.ДополнительныеОтчетыИОбработки"); ЭлементБлокировки.УстановитьЗначение("Ссылка", ДополнительныйОтчетИлиОбработка); - ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный; Блокировка.Заблокировать(); КонецЦикла; @@ -345,32 +367,40 @@ ЗаблокироватьОбъектыИСформироватьЗапросыРазрешений(Контекст); Обработчик = Новый ОписаниеОповещения("СписокИзменитьПометкуУдаленияПослеПодтвержденияЗапросов", ЭтотОбъект, Контекст); - РаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(Контекст.Запросы, ЭтотОбъект, Обработчик); + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежимеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаВБезопасномРежимеКлиент"); + МодульРаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(Контекст.Запросы, ЭтотОбъект, Обработчик); + Иначе + ВыполнитьОбработкуОповещения(Обработчик, КодВозвратаДиалога.ОК); + КонецЕсли; КонецПроцедуры &НаСервереБезКонтекста Процедура ЗаблокироватьОбъектыИСформироватьЗапросыРазрешений(Контекст) ЗаблокироватьДанныеДляРедактирования(Контекст.Ссылка, , Контекст.ИдентификаторФормы); - Объект = Контекст.Ссылка.ПолучитьОбъект(); + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + Объект = Контекст.Ссылка.ПолучитьОбъект(); + + Контекст.Запросы = ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный.ЗапросыРазрешенийДополнительнойОбработки( + Объект, + Объект.Разрешения.Выгрузить(), + , + Не Контекст.ПометкаУдаления); + КонецЕсли; - Контекст.Запросы = ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный.ЗапросыРазрешенийДополнительнойОбработки( - Объект, - Объект.Разрешения.Выгрузить(), - , - Не Контекст.ПометкаУдаления); КонецПроцедуры &НаКлиенте Процедура СписокИзменитьПометкуУдаленияПослеПодтвержденияЗапросов(Ответ, Контекст) Экспорт - МенятьПометку = (Ответ = КодВозвратаДиалога.ОК); - РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, МенятьПометку); + ИзменятьПометку = (Ответ = КодВозвратаДиалога.ОК); + РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, ИзменятьПометку); Элементы.Список.Обновить(); КонецПроцедуры &НаСервереБезКонтекста -Процедура РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, МенятьПометку) - Если МенятьПометку Тогда +Процедура РазблокироватьИИзменитьПометкуУдаленияОбъектов(Контекст, ИзменятьПометку) + Если ИзменятьПометку Тогда Объект = Контекст.Ссылка.ПолучитьОбъект(); Объект.УстановитьПометкуУдаления(Не Контекст.ПометкаУдаления); Объект.Записать(); diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Form.form index 7f486dbff..1dd0703a7 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Form.form @@ -136,12 +136,8 @@<key>ru</key> - <value>Группа безопасный режим глобальный</value> + <value>Безопасный режим глобальный</value> -- ru -Группа безопасный режим глобальный -ГруппаБезопасныйРежимГлобальныйРасширеннаяПодсказка 383 @@ -168,12 +164,8 @@<key>ru</key> - <value>Группа наименование режим работы</value> + <value>Наименование режим работы</value> -- ru -Группа наименование режим работы -ГруппаНаименованиеРежимРаботыРасширеннаяПодсказка 385 @@ -255,7 +247,7 @@<key>ru</key> - <value>Группа публикация ответственный</value> + <value>Публикация ответственный</value> ГруппаПубликацияОтветственныйExtendedTooltip @@ -420,7 +412,7 @@<key>ru</key> - <value>Группа размещение</value> + <value>Размещение</value> ГруппаРазмещениеРасширеннаяПодсказка @@ -626,10 +618,6 @@ru Командная панель объект команды -- ru -Командная панель объект команды -КоманднаяПанельОбъектКомандыРасширеннаяПодсказка 406 @@ -648,6 +636,10 @@ОбъектКоманды 147 ++ <key>ru</key> + <value>Объект команды</value> + true true @@ -1080,9 +1072,6 @@ Auto true true -None -None -None true ru Варианты скрыть до записи -- ru -Варианты скрыть до записи -true ВариантыСкрытьДоЗаписиExtendedTooltip @@ -1222,6 +1207,10 @@ВариантыДополнительногоОтчета 89 ++ <key>ru</key> + <value>Варианты дополнительного отчета</value> + true true @@ -1729,9 +1718,6 @@ CommonPicture.ПиктограммыЭлементов None -None -None true ru Варианты показать -- ru -Варианты показать -true ВариантыПоказатьExtendedTooltip @@ -1775,10 +1757,6 @@ru Страницы варианты -- ru -Страницы варианты -true СтраницыВариантыExtendedTooltip @@ -1916,10 +1894,6 @@ru Страница персональный профиль безопасности -- ru -Страница персональный профиль безопасности -СтраницаПерсональныйПрофильБезопасностиРасширеннаяПодсказка 290 @@ -1988,10 +1962,6 @@ru Страница небезопасный режим с разрешениями -- ru -Страница небезопасный режим с разрешениями -СтраницаНебезопасныйРежимСРазрешениямиРасширеннаяПодсказка 294 @@ -2059,10 +2029,6 @@ru Страница безопасный режим с разрешениями -- ru -Страница безопасный режим с разрешениями -СтраницаБезопасныйРежимСРазрешениямиРасширеннаяПодсказка 292 @@ -2089,10 +2055,6 @@ru Страницы безопасный режим с разрешениями -- ru -Страницы безопасный режим с разрешениями -СтраницыБезопасныйРежимСРазрешениямиРасширеннаяПодсказка 264 @@ -2115,12 +2077,8 @@<key>ru</key> - <value>Группа безопасный режим с разрешениями</value> + <value>Безопасный режим с разрешениями</value> -- ru -Группа безопасный режим с разрешениями -ГруппаБезопасныйРежимСРазрешениямиРасширеннаяПодсказка 288 @@ -2200,10 +2158,6 @@ru Разрешения (режим совместимости разрешений "Версия 2.1.3") -- ru -Страница разрешения версия 2 1 3 -СтраницаРазрешенияВерсия_2_1_3РасширеннаяПодсказка 187 @@ -2282,10 +2236,6 @@ru Разрешения (режим совместимости разрешений "Версия 2.2.3") -- ru -Страница разрешения версия 2 2 2 -СтраницаРазрешенияВерсия_2_2_2РасширеннаяПодсказка 251 @@ -2310,12 +2260,8 @@<key>ru</key> - <value>Группа страницы режимы совместимости разрешений</value> + <value>Страницы режимы совместимости разрешений</value> -- ru -Группа страницы режимы совместимости разрешений -ГруппаСтраницыРежимыСовместимостиРазрешенийРасширеннаяПодсказка 262 @@ -2384,12 +2330,8 @@<key>ru</key> - <value>Группа включение профилей безопасности</value> + <value>Включение профилей безопасности</value> -- ru -Группа включение профилей безопасности -ГруппаВключениеПрофилейБезопасностиРасширеннаяПодсказка 305 @@ -2474,6 +2416,10 @@КомандыЗагрузки 324 ++ <key>ru</key> + <value>Команды загрузки</value> + true true @@ -2644,9 +2590,6 @@ СписокКомандЗагрузки.Picture None -None -None true true @@ -3247,10 +3190,6 @@ru Команды выгрузки загрузки -- ru -Команды выгрузки загрузки -КомандыВыгрузкиЗагрузкиРасширеннаяПодсказка 334 @@ -3351,10 +3290,6 @@ru Команды формы -- ru -Команды формы -КомандыФормыРасширеннаяПодсказка 256 diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl index cf384fbeb..2946f222b 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl @@ -14,6 +14,13 @@ Возврат; КонецЕсли; + Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма + И Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда + Отказ = Истина; + ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Работа с печатными формами не поддерживается.'")); + Возврат; + КонецЕсли; + // Проверка возможности загрузки новых обработок в информационную базу. ЭтоНовый = Объект.Ссылка.Пустая(); ПравоДобавления = ДополнительныеОтчетыИОбработки.ПравоДобавления(); @@ -200,8 +207,10 @@ ЗаполнитьКоманды(); УстановитьВидимостьДоступность(); - Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма Тогда - ВыполнитьЗаменуКомандПечати(); + Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма + И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда + МодульУправлениеПечатью = ОбщегоНазначения.ОбщийМодуль("УправлениеПечатью"); + МодульУправлениеПечатью.ОтключитьКомандыПечати(ВыбранныеОбъектыНазначения().ВыгрузитьЗначения(), ОтключаемыеКоманды().ВыгрузитьЗначения()); КонецЕсли; КонецПроцедуры @@ -260,16 +269,8 @@ Если Ссылка = "int://sp-on" Тогда - ОткрытьФорму( - "Обработка.НастройкаРазрешенийНаИспользованиеВнешнихРесурсов.Форма.НастройкиИспользованияПрофилейБезопасности", - , - , - , - , - , - , - РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс); - + МодульРаботаВБезопасномРежимеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаВБезопасномРежимеКлиент"); + МодульРаботаВБезопасномРежимеКлиент.ОткрытьДиалогНастройкиИспользованияПрофилейБезопасности(); СтандартнаяОбработка = Ложь; КонецЕсли; @@ -473,6 +474,20 @@ Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + // + + Элемент = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОбъектКомандыРегламентноеЗаданиеПредставление.Имя); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Команды.РегламентноеЗаданиеИспользование"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// @@ -480,8 +495,16 @@ &НаКлиенте Процедура ЗаписатьНаКлиенте(ЗакрытьПослеЗаписи) - Запросы = ЗапросыОбновленияРазрешений(); - РаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(Запросы, ЭтотОбъект, Новый ОписаниеОповещения("ПродолжитьЗаписьНаКлиенте", ЭтотОбъект, ЗакрытьПослеЗаписи)); + + Обработчик = Новый ОписаниеОповещения("ПродолжитьЗаписьНаКлиенте", ЭтотОбъект, ЗакрытьПослеЗаписи); + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + Запросы = ЗапросыОбновленияРазрешений(); + МодульРаботаВБезопасномРежимеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаВБезопасномРежимеКлиент"); + МодульРаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов(Запросы, ЭтотОбъект, Обработчик); + Иначе + ВыполнитьОбработкуОповещения(Обработчик, КодВозвратаДиалога.ОК); + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -509,7 +532,7 @@ Функция ЗапросыОбновленияРазрешений() Возврат ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный.ЗапросыРазрешенийДополнительнойОбработки( - Объект, ПолучитьТаблицуРазрешений()); + Объект, РазрешенияПрофиляБезопасности()); КонецФункции @@ -523,7 +546,7 @@ &НаКлиенте Процедура ОбновлениеИзФайлаЗапуск() Оповещение = Новый ОписаниеОповещения("ОбновлениеИзФайлаПослеПодтверждения", ЭтотОбъект); - ПараметрыФормы = Новый Структура("Ключ", "ПередДобавлениемДОИО"); + ПараметрыФормы = Новый Структура("Ключ", "ПередДобавлениемДополнительногоОтчетаИлиОбработки"); ОткрытьФорму("ОбщаяФорма.ПредупреждениеБезопасности", ПараметрыФормы, , , , , Оповещение); КонецПроцедуры @@ -804,11 +827,8 @@ Возврат; КонецЕсли; - Если ИзмененФлажок Тогда - Если НЕ ЭлементКоманда.РегламентноеЗаданиеИспользование Тогда - ЭлементКоманда.РегламентноеЗаданиеПредставление = ПредставлениеОтключенногоРасписания(); - Возврат; - КонецЕсли; + Если ИзмененФлажок И Не ЭлементКоманда.РегламентноеЗаданиеИспользование Тогда + Возврат; КонецЕсли; Если ЭлементКоманда.РегламентноеЗаданиеРасписание.Количество() > 0 Тогда @@ -821,9 +841,10 @@ РасписаниеКоманды = Новый РасписаниеРегламентногоЗадания; КонецЕсли; - ДополнительныеПараметры = Новый Структура; - ДополнительныеПараметры.Вставить("ЭлементКоманда", ЭлементКоманда); - Обработчик = Новый ОписаниеОповещения("ИзменитьРегламентноеЗаданиеЗавершение", ЭтотОбъект, ДополнительныеПараметры); + Контекст = Новый Структура; + Контекст.Вставить("ЭлементКоманда", ЭлементКоманда); + Контекст.Вставить("ОтключитьФлажокПриОтменеРедактирования", ИзмененФлажок); + Обработчик = Новый ОписаниеОповещения("ПослеОкончанияРедактированияРасписания", ЭтотОбъект, Контекст); РедактированиеРасписания = Новый ДиалогРасписанияРегламентногоЗадания(РасписаниеКоманды); РедактированиеРасписания.Показать(Обработчик); @@ -831,22 +852,29 @@ КонецПроцедуры &НаКлиенте -Процедура ИзменитьРегламентноеЗаданиеЗавершение(Расписание, ДополнительныеПараметры) Экспорт +Процедура ПослеОкончанияРедактированияРасписания(Расписание, Контекст) Экспорт + ЭлементКоманда = Контекст.ЭлементКоманда; Если Расписание = Неопределено Тогда - Возврат; - КонецЕсли; - - ЭлементКоманда = ДополнительныеПараметры.ЭлементКоманда; - ЭлементКоманда.РегламентноеЗаданиеРасписание.Очистить(); - ЭлементКоманда.РегламентноеЗаданиеРасписание.Добавить(Расписание); - ЭлементКоманда.РегламентноеЗаданиеПредставление = Строка(Расписание); - - Если ЭлементКоманда.РегламентноеЗаданиеПредставление = ПредставлениеПустогоРасписания() Тогда - ЭлементКоманда.РегламентноеЗаданиеПредставление = ПредставлениеОтключенногоРасписания(); - ЭлементКоманда.РегламентноеЗаданиеИспользование = Ложь; - Модифицированность = Истина; + Если Контекст.ОтключитьФлажокПриОтменеРедактирования Тогда + ЭлементКоманда.РегламентноеЗаданиеИспользование = Ложь; + КонецЕсли; Иначе - ЭлементКоманда.РегламентноеЗаданиеИспользование = Истина; + ЭлементКоманда.РегламентноеЗаданиеРасписание.Очистить(); + ЭлементКоманда.РегламентноеЗаданиеРасписание.Добавить(Расписание); + Если ДополнительныеОтчетыИОбработкиКлиентСервер.РасписаниеЗадано(Расписание) Тогда + Модифицированность = Истина; + ЭлементКоманда.РегламентноеЗаданиеИспользование = Истина; + ЭлементКоманда.РегламентноеЗаданиеПредставление = СтандартныеПодсистемыКлиентСервер.ПредставлениеРасписания(Расписание); + Иначе + ЭлементКоманда.РегламентноеЗаданиеПредставление = НСтр("ru = 'Не заполнено'"); + Если ЭлементКоманда.РегламентноеЗаданиеИспользование Тогда + ЭлементКоманда.РегламентноеЗаданиеИспользование = Ложь; + ПоказатьОповещениеПользователя( + НСтр("ru = 'Запуск по расписанию отключен'"), + , + НСтр("ru = 'Расписание не заполнено'")); + КонецЕсли; + КонецЕсли; КонецЕсли; КонецПроцедуры @@ -958,7 +986,7 @@ ЗаголовокСостояния = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Выполняется команда ""%1""'"), СтрокаТаблицыКоманд.Представление); - Состояние(ЗаголовокСостояния + "...", , , БиблиотекаКартинок.ДлительнаяОперация48); + ПоказатьОповещениеПользователя(ЗаголовокСостояния + "...", , , БиблиотекаКартинок.ДлительнаяОперация48); ДлительнаяОперация = НачатьВыполнениеСервернойКомандыВФоне(ВыполняемаяКоманда, УникальныйИдентификатор); @@ -995,16 +1023,6 @@ //////////////////////////////////////////////////////////////////////////////// // Клиент, Сервер -&НаКлиентеНаСервереБезКонтекста -Функция ПредставлениеПустогоРасписания() - Возврат Строка(Новый РасписаниеРегламентногоЗадания); -КонецФункции - -&НаКлиентеНаСервереБезКонтекста -Функция ПредставлениеОтключенногоРасписания() - Возврат НСтр("ru = 'Расписание не задано'"); -КонецФункции - &НаКлиентеНаСервереБезКонтекста Функция ПредставлениеБыстрогоДоступаПользователей(КоличествоПользователей) Если КоличествоПользователей = 0 Тогда @@ -1172,28 +1190,37 @@ КонецЦикла; КонецЕсли; - КоличествоРазрешений = ПолучитьТаблицуРазрешений().Количество(); + КоличествоРазрешений = РазрешенияПрофиляБезопасности().Количество(); РежимСовместимостиРазрешений = Объект.РежимСовместимостиРазрешений; БезопасныйРежим = Объект.БезопасныйРежим; - Если ПолучитьФункциональнуюОпцию("РаботаВМоделиСервиса") Или ПолучитьФункциональнуюОпцию("ИспользуютсяПрофилиБезопасности") Тогда + + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежиме = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежиме"); + ИспользуютсяПрофилиБезопасности = МодульРаботаВБезопасномРежиме.ИспользуютсяПрофилиБезопасности(); + Иначе + ИспользуютсяПрофилиБезопасности = Ложь; + КонецЕсли; + + Если ПолучитьФункциональнуюОпцию("РаботаВМоделиСервиса") Или ИспользуютсяПрофилиБезопасности Тогда + МодульРаботаВБезопасномРежимеСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежимеСлужебный"); Если РежимСовместимостиРазрешений = Перечисления.РежимыСовместимостиРазрешенийДополнительныхОтчетовИОбработок.Версия_2_1_3 Тогда - Если БезопасныйРежим И КоличествоРазрешений > 0 И ПолучитьФункциональнуюОпцию("ИспользуютсяПрофилиБезопасности") Тогда + Если БезопасныйРежим И КоличествоРазрешений > 0 И ИспользуютсяПрофилиБезопасности Тогда Если ЭтоНовый Тогда БезопасныйРежим = ""; Иначе - БезопасныйРежим = РаботаВБезопасномРежимеСлужебный.РежимПодключенияВнешнегоМодуля(Объект.Ссылка); + БезопасныйРежим = МодульРаботаВБезопасномРежимеСлужебный.РежимПодключенияВнешнегоМодуля(Объект.Ссылка); КонецЕсли; КонецЕсли; Иначе Если КоличествоРазрешений = 0 Тогда БезопасныйРежим = Истина; Иначе - Если ПолучитьФункциональнуюОпцию("ИспользуютсяПрофилиБезопасности") Тогда + Если ИспользуютсяПрофилиБезопасности Тогда Если ЭтоНовый Тогда БезопасныйРежим = ""; Иначе - БезопасныйРежим = РаботаВБезопасномРежимеСлужебный.РежимПодключенияВнешнегоМодуля(Объект.Ссылка); + БезопасныйРежим = МодульРаботаВБезопасномРежимеСлужебный.РежимПодключенияВнешнегоМодуля(Объект.Ссылка); КонецЕсли; Иначе БезопасныйРежим = Ложь; @@ -1239,11 +1266,19 @@ БезопасныйРежим); Иначе ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = '%1 не является корректным режимом подключения для дополнительных отчетов и обработок, требующих разрешений на использование профилей безопасности!'"), + НСтр("ru = '%1 не является корректным режимом подключения для дополнительных отчетов и обработок, + |требующих разрешений на использование профилей безопасности.'"), БезопасныйРежим); КонецЕсли; - Если БезопасныйРежим = Ложь И Не ПолучитьФункциональнуюОпцию("ИспользуютсяПрофилиБезопасности") И РаботаВБезопасномРежимеСлужебный.ДоступнаНастройкаПрофилейБезопасности() Тогда + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежимеСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежимеСлужебный"); + ДоступнаНастройкаПрофилейБезопасности = МодульРаботаВБезопасномРежимеСлужебный.ДоступнаНастройкаПрофилейБезопасности(); + Иначе + ДоступнаНастройкаПрофилейБезопасности = Ложь; + КонецЕсли; + + Если БезопасныйРежим = Ложь И Не ИспользуютсяПрофилиБезопасности И ДоступнаНастройкаПрофилейБезопасности Тогда Элементы.ГруппаВключениеПрофилейБезопасности.Видимость = Истина; Иначе Элементы.ГруппаВключениеПрофилейБезопасности.Видимость = Ложь; @@ -1255,35 +1290,28 @@ Элементы.СтраницыВариантыКомандыРазрешения.ОтображениеСтраниц = ОтображениеСтраницФормы[?(КоличествоВидимыхЗакладок > 1, "ЗакладкиСверху", "Нет")]; + ПредставлениеНазначения = ""; Если ЭтоГлобальнаяОбработка Тогда - ПредставлениеНазначения = НСтр("ru = '<Не задано>'"); - Если Объект.Разделы.Количество() > 0 Тогда - ПредставлениеНазначения = ""; - Для Каждого СтрокаРаздел Из Объект.Разделы Цикл - Если ПредставлениеНазначения <> "" Тогда - ПредставлениеНазначения = ПредставлениеНазначения + ", "; - КонецЕсли; - ПредставлениеНазначения = ПредставлениеНазначения + ДополнительныеОтчетыИОбработки.ПредставлениеРаздела(СтрокаРаздел.Раздел); - КонецЦикла; - КонецЕсли; + Для Каждого СтрокаРаздел Из Объект.Разделы Цикл + ПредставлениеРаздела = ДополнительныеОтчетыИОбработки.ПредставлениеРаздела(СтрокаРаздел.Раздел); + Если ПредставлениеНазначения = "" Тогда + ПредставлениеНазначения = ПредставлениеРаздела; + Иначе + ПредставлениеНазначения = ПредставлениеНазначения + ", " + ПредставлениеРаздела; + КонецЕсли; + КонецЦикла; Иначе - Если Объект.Назначение.Количество() = 0 Тогда - ПредставлениеНазначения = НСтр("ru = 'Не определено'"); - Иначе - ПредставлениеНазначения = ""; - Для Каждого СтрокаНазначение Из Объект.Назначение Цикл - Реквизиты = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СтрокаНазначение.ОбъектНазначения, "Наименование, ПометкаУдаления"); - Если Реквизиты.ПометкаУдаления Тогда - Продолжить; - КонецЕсли; - ПредставлениеОбъекта = Реквизиты.Наименование; - Если ПредставлениеНазначения = "" Тогда - ПредставлениеНазначения = ПредставлениеОбъекта; - Иначе - ПредставлениеНазначения = ПредставлениеНазначения + ", " + ПредставлениеОбъекта; - КонецЕсли; - КонецЦикла; - КонецЕсли; + Для Каждого СтрокаНазначение Из Объект.Назначение Цикл + ПредставлениеОМ = ДополнительныеОтчетыИОбработки.ПредставлениеОбъектаМетаданных(СтрокаНазначение.ОбъектНазначения); + Если ПредставлениеНазначения = "" Тогда + ПредставлениеНазначения = ПредставлениеОМ; + Иначе + ПредставлениеНазначения = ПредставлениеНазначения + ", " + ПредставлениеОМ; + КонецЕсли; + КонецЦикла; + КонецЕсли; + Если ПредставлениеНазначения = "" Тогда + ПредставлениеНазначения = НСтр("ru = 'Не определено'"); КонецЕсли; Элементы.ОбъектКомандыБыстрыйДоступПредставление.Видимость = ЭтоГлобальнаяОбработка; @@ -1334,7 +1362,7 @@ &НаСервере Процедура СформироватьПредставленияРазрешений(Знач ВидРазрешения) - ТаблицаРазрешений = ПолучитьТаблицуРазрешений(); + ТаблицаРазрешений = РазрешенияПрофиляБезопасности(); СтрокаРазрешения = ТаблицаРазрешений.Найти(ВидРазрешения, "ВидРазрешения"); Если СтрокаРазрешения <> Неопределено Тогда ПараметрыРазрешения = СтрокаРазрешения.Параметры.Получить(); @@ -1357,16 +1385,18 @@ Разрешения = Новый Массив(); + МодульРаботаВБезопасномРежимеСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежимеСлужебный"); + Для Каждого Строка Из ТаблицаРазрешений Цикл - Разрешение = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип(РаботаВБезопасномРежимеСлужебный.Пакет(), Строка.ВидРазрешения)); + Разрешение = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип(МодульРаботаВБезопасномРежимеСлужебный.Пакет(), Строка.ВидРазрешения)); ЗаполнитьЗначенияСвойств(Разрешение, Строка.Параметры.Получить()); Разрешения.Добавить(Разрешение); КонецЦикла; - Свойства = РаботаВБезопасномРежимеСлужебный.СвойстваДляРегистраРазрешений(Объект.Ссылка); + Свойства = МодульРаботаВБезопасномРежимеСлужебный.СвойстваДляРегистраРазрешений(Объект.Ссылка); УстановитьПривилегированныйРежим(Истина); - ПредставлениеРазрешений_2_2_2 = РаботаВБезопасномРежимеСлужебный.ПредставлениеРазрешенийНаИспользованиеВнешнихРесурсов( + ПредставлениеРазрешений_2_2_2 = МодульРаботаВБезопасномРежимеСлужебный.ПредставлениеРазрешенийНаИспользованиеВнешнихРесурсов( Свойства.Тип, Свойства.Идентификатор, Свойства.Тип, Свойства.Идентификатор, Разрешения); УстановитьПривилегированныйРежим(Ложь); @@ -1382,9 +1412,12 @@ Объект.Команды.Сортировать("Представление"); - КомандыПечатиОбъекта = УправлениеПечатью.СоздатьКоллекциюКомандПечати(); - Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма И Объект.Назначение.Количество() = 1 Тогда - КомандыПечатиОбъекта = УправлениеПечатью.СтандартныеКомандыПечатиОбъекта(Объект.Назначение[0].ОбъектНазначения); + КомандыПечатиОбъекта = Неопределено; + Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма + И Объект.Назначение.Количество() = 1 + И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда + МодульУправлениеПечатью = ОбщегоНазначения.ОбщийМодуль("УправлениеПечатью"); + КомандыПечатиОбъекта = МодульУправлениеПечатью.СтандартныеКомандыПечатиОбъекта(Объект.Назначение[0].ОбъектНазначения); КонецЕсли; Для Каждого ЭлементКоманда Из Объект.Команды Цикл @@ -1412,29 +1445,21 @@ КонецЕсли; Если ЗначениеЗаполнено(РегламентноеЗаданиеGUID) Тогда - РегламентноеЗадание = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.НайтиЗадание(РегламентноеЗаданиеGUID); - + УстановитьПривилегированныйРежим(Истина); + РегламентноеЗадание = РегламентныеЗаданияСервер.Задание(РегламентноеЗаданиеGUID); Если РегламентноеЗадание <> Неопределено Тогда - - ПараметрыЗадания = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.ПолучитьПараметрыЗадания(РегламентноеЗадание); - ЭлементКоманда.РегламентноеЗаданиеGUID = РегламентноеЗаданиеGUID; - ЭлементКоманда.РегламентноеЗаданиеПредставление = Строка(ПараметрыЗадания.Расписание); - ЭлементКоманда.РегламентноеЗаданиеИспользование = ПараметрыЗадания.Использование; - ЭлементКоманда.РегламентноеЗаданиеРасписание.Вставить(0, ПараметрыЗадания.Расписание); - - Если ЭлементКоманда.РегламентноеЗаданиеПредставление = ПредставлениеПустогоРасписания() Тогда - ЭлементКоманда.РегламентноеЗаданиеИспользование = Ложь; - КонецЕсли; - + ЭлементКоманда.РегламентноеЗаданиеПредставление = СтандартныеПодсистемыКлиентСервер.ПредставлениеРасписания(РегламентноеЗадание.Расписание); + ЭлементКоманда.РегламентноеЗаданиеИспользование = РегламентноеЗадание.Использование; + ЭлементКоманда.РегламентноеЗаданиеРасписание.Вставить(0, РегламентноеЗадание.Расписание); КонецЕсли; + УстановитьПривилегированныйРежим(Ложь); КонецЕсли; - - Если НЕ ЭлементКоманда.РегламентноеЗаданиеИспользование Тогда - ЭлементКоманда.РегламентноеЗаданиеПредставление = ПредставлениеОтключенногоРасписания(); + Если Не ЗначениеЗаполнено(ЭлементКоманда.РегламентноеЗаданиеПредставление) Тогда + ЭлементКоманда.РегламентноеЗаданиеПредставление = НСтр("ru = 'Не заполнено'"); КонецЕсли; ИначеЕсли Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма Тогда - Если Не ПустаяСтрока(ЭлементКоманда.ЗаменяемыеКоманды) Тогда + Если Не ПустаяСтрока(ЭлементКоманда.ЗаменяемыеКоманды) И КомандыПечатиОбъекта <> Неопределено Тогда ИдентификаторыЗаменяемых = СтрРазделить(ЭлементКоманда.ЗаменяемыеКоманды, ",", Ложь); ПредставлениеЗаменяемыхКоманд = ""; КоличествоЗаменяемых = 0; @@ -1459,7 +1484,7 @@ КонецЕсли; Иначе ЭлементКоманда.РегламентноеЗаданиеПредставление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Не применимо для команд с вариантом запуска ""%1""'"), + НСтр("ru = 'Неприменимо для команд с вариантом запуска ""%1""'"), Строка(ЭлементКоманда.ВариантЗапуска)); КонецЕсли; КонецЦикла; @@ -1488,7 +1513,7 @@ СхемаКД = ВнешнийОбъект.ПолучитьМакет(СхемаКДМетаданные.Имя); Для Каждого ВариантНастроекКД Из СхемаКД.ВариантыНастроек Цикл КлючВарианта = ВариантНастроекКД.Имя; - ВариантСсылка = МодульВариантыОтчетов.ПолучитьСсылку(Объект.Ссылка, КлючВарианта); + ВариантСсылка = МодульВариантыОтчетов.ВариантОтчета(Объект.Ссылка, КлючВарианта); Если ВариантСсылка <> Неопределено Тогда Вариант = ВариантыДополнительногоОтчета.Добавить(); Вариант.КлючВарианта = КлючВарианта; @@ -1500,7 +1525,7 @@ КонецЦикла; Иначе КлючВарианта = ""; - ВариантСсылка = МодульВариантыОтчетов.ПолучитьСсылку(Объект.Ссылка, КлючВарианта); + ВариантСсылка = МодульВариантыОтчетов.ВариантОтчета(Объект.Ссылка, КлючВарианта); Если ВариантСсылка <> Неопределено Тогда Вариант = ВариантыДополнительногоОтчета.Добавить(); Вариант.КлючВарианта = КлючВарианта; @@ -1517,13 +1542,13 @@ Если Объект.ИспользуетХранилищеВариантов Тогда Хранилище = ХранилищаНастроек["ХранилищеВариантовОтчетов"]; КлючОбъекта = Объект.Ссылка; + СписокНастроек = МодульВариантыОтчетов.КлючиВариантовОтчета(КлючОбъекта); Иначе Хранилище = ХранилищеВариантовОтчетов; КлючОбъекта = "ВнешнийОтчет." + Объект.ИмяОбъекта; + СписокНастроек = Хранилище.ПолучитьСписок(КлючОбъекта); КонецЕсли; - СписокНастроек = Хранилище.ПолучитьСписок(КлючОбъекта); - Для Каждого ЭлементСписка Из СписокНастроек Цикл Вариант = ВариантыДополнительногоОтчета.Добавить(); Вариант.КлючВарианта = ЭлементСписка.Значение; @@ -1531,13 +1556,13 @@ Вариант.Пользовательский = Истина; Вариант.ИндексКартинки = 3; Если МодульВариантыОтчетов <> Неопределено Тогда - Вариант.Ссылка = МодульВариантыОтчетов.ПолучитьСсылку(Объект.Ссылка, Вариант.КлючВарианта); + Вариант.Ссылка = МодульВариантыОтчетов.ВариантОтчета(Объект.Ссылка, Вариант.КлючВарианта); КонецЕсли; КонецЦикла; КонецПроцедуры &НаСервере -Функция ПолучитьТаблицуРазрешений() +Функция РазрешенияПрофиляБезопасности() Возврат ПолучитьИзВременногоХранилища(АдресРазрешений); @@ -1561,14 +1586,8 @@ &НаКлиенте Процедура ОткрытьФормуНастроекПодменюПечать() - ПараметрыОткрытия = Новый Структура; - ПараметрыОткрытия.Вставить("Отбор", ВыбранныеОбъектыНазначения()); - ОткрытьФорму("ОбщаяФорма.НастройкаКомандПечати", ПараметрыОткрытия, , , , , , РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); -КонецПроцедуры - -&НаСервере -Процедура ВыполнитьЗаменуКомандПечати() - УправлениеПечатью.ОтключитьКомандыПечати(ВыбранныеОбъектыНазначения().ВыгрузитьЗначения(), ОтключаемыеКоманды().ВыгрузитьЗначения()); + МодульУправлениеПечатьюСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеПечатьюСлужебныйКлиент"); + МодульУправлениеПечатьюСлужебныйКлиент.ОткрытьФормуНастроекПодменюПечать(ВыбранныеОбъектыНазначения()); КонецПроцедуры &НаСервере diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl index aa7b9ac7c..f5e359410 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. // @@ -19,6 +23,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl index f5d882674..ecdda08c3 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl @@ -210,70 +210,55 @@ ПубликацияВключена = (Публикация <> Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена); - // Регламентные задание необходимо изменять в привилегированном режиме. + // Регламентные задания необходимо изменять в привилегированном режиме. УстановитьПривилегированныйРежим(Истина); // Очистка заданий по командам, которые были удалены из таблицы. - Если НЕ ЭтоНовый() Тогда + Если Не ЭтоНовый() Тогда Для Каждого СтараяКоманда Из Ссылка.Команды Цикл Если ЗначениеЗаполнено(СтараяКоманда.РегламентноеЗаданиеGUID) И ТаблицаКоманд.Найти(СтараяКоманда.РегламентноеЗаданиеGUID, "РегламентноеЗаданиеGUID") = Неопределено Тогда - - Задание = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.НайтиЗадание(СтараяКоманда.РегламентноеЗаданиеGUID); - Если Задание <> Неопределено Тогда - ДополнительныеОтчетыИОбработкиРегламентныеЗадания.УдалитьЗадание(Задание); - КонецЕсли; - + РегламентныеЗаданияСервер.УдалитьЗадание(СтараяКоманда.РегламентноеЗаданиеGUID); КонецЕсли; КонецЦикла; КонецЕсли; // Актуализация набора регламентных заданий для записи их идентификаторов в табличную часть. Для Каждого АктуальнаяКоманда Из ТаблицаКоманд Цикл - Команда = Команды.Найти(АктуальнаяКоманда.Идентификатор, "Идентификатор"); Если ПубликацияВключена И АктуальнаяКоманда.РегламентноеЗаданиеРасписание.Количество() > 0 Тогда Расписание = АктуальнаяКоманда.РегламентноеЗаданиеРасписание[0].Значение; - Использование = АктуальнаяКоманда.РегламентноеЗаданиеИспользование И РасписаниеЗадано(Расписание); + Использование = АктуальнаяКоманда.РегламентноеЗаданиеИспользование + И ДополнительныеОтчетыИОбработкиКлиентСервер.РасписаниеЗадано(Расписание); Иначе Расписание = Неопределено; Использование = Ложь; КонецЕсли; - Задание = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.НайтиЗадание(АктуальнаяКоманда.РегламентноеЗаданиеGUID); - + Задание = РегламентныеЗаданияСервер.Задание(АктуальнаяКоманда.РегламентноеЗаданиеGUID); Если Задание = Неопределено Тогда // Не найдено - Если Использование Тогда - - Задание = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.СоздатьНовоеЗадание( - ПредставлениеЗадания(АктуальнаяКоманда)); - + // Создать и зарегистрировать. + ПараметрыЗадания = Новый Структура; + ПараметрыЗадания.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ЗапускДополнительныхОбработок); + ПараметрыЗадания.Вставить("Использование", Ложь); + Задание = РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания); ЗаданияДляОбновления.Вставить(АктуальнаяКоманда, Задание); - - // Создать и зарегистрировать - Команда.РегламентноеЗаданиеGUID = - ДополнительныеОтчетыИОбработкиРегламентныеЗадания.ПолучитьИдентификаторЗадания( - Задание); - + Команда.РегламентноеЗаданиеGUID = РегламентныеЗаданияСервер.УникальныйИдентификатор(Задание); Иначе // Действие не требуется КонецЕсли; - Иначе // Найдено - Если Использование Тогда - // Зарегистрировать + // Зарегистрировать. ЗаданияДляОбновления.Вставить(АктуальнаяКоманда, Задание); Иначе - // Удалить - ДополнительныеОтчетыИОбработкиРегламентныеЗадания.УдалитьЗадание(Задание); + // Удалить. + РегламентныеЗаданияСервер.УдалитьЗадание(АктуальнаяКоманда.РегламентноеЗаданиеGUID); Команда.РегламентноеЗаданиеGUID = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); КонецЕсли; - КонецЕсли; - КонецЦикла; ДополнительныеСвойства.Вставить("ЗаданияДляОбновления", ЗаданияДляОбновления); @@ -281,59 +266,57 @@ КонецПроцедуры Процедура ПриЗаписиГлобальнойОбработки(Отказ) - - Если Отказ ИЛИ НЕ ДополнительныеСвойства.Свойство("АктуальныеКоманды") Тогда + Если Отказ Или Не ДополнительныеСвойства.Свойство("АктуальныеКоманды") Тогда Возврат; КонецЕсли; ПубликацияВключена = (Публикация <> Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена); + ТеснаяИнтеграцияСПодсистемойВМоделиСервиса = ДополнительныеОтчетыИОбработки.ИспользуетсяТеснаяИнтеграцияСПодсистемойВМоделиСервиса(); - // Регламентные задание необходимо изменять в привилегированном режиме. + // Регламентные задания необходимо изменять в привилегированном режиме. УстановитьПривилегированныйРежим(Истина); Для Каждого КлючИЗначение Из ДополнительныеСвойства.ЗаданияДляОбновления Цикл - Команда = КлючИЗначение.Ключ; Задание = КлючИЗначение.Значение; + Изменения = Новый Структура; + Изменения.Вставить("Использование", Ложь); + Изменения.Вставить("Расписание", Неопределено); + Изменения.Вставить("Наименование", Лев(ПредставлениеЗадания(Команда), 120)); + Если ПубликацияВключена И Команда.РегламентноеЗаданиеРасписание.Количество() > 0 Тогда - Расписание = Команда.РегламентноеЗаданиеРасписание[0].Значение; - Использование = Команда.РегламентноеЗаданиеИспользование И РасписаниеЗадано(Расписание); - Иначе - Расписание = Неопределено; - Использование = Ложь; + Изменения.Расписание = Команда.РегламентноеЗаданиеРасписание[0].Значение; + Изменения.Использование = Команда.РегламентноеЗаданиеИспользование + И ДополнительныеОтчетыИОбработкиКлиентСервер.РасписаниеЗадано(Изменения.Расписание); КонецЕсли; - ПараметрыЗадания = Новый Массив; - ПараметрыЗадания.Добавить(Ссылка); - ПараметрыЗадания.Добавить(Команда.Идентификатор); + ПараметрыПроцедуры = Новый Массив; + ПараметрыПроцедуры.Добавить(Ссылка); + ПараметрыПроцедуры.Добавить(Команда.Идентификатор); - ДополнительныеОтчетыИОбработкиРегламентныеЗадания.УстановитьПараметрыЗадания( - Задание, - Использование, - Лев(ПредставлениеЗадания(Команда), 120), - ПараметрыЗадания, - Расписание); + Изменения.Вставить("Параметры", ПараметрыПроцедуры); + Если ТеснаяИнтеграцияСПодсистемойВМоделиСервиса Тогда + ИнтеграцияСТехнологиейСервиса.ПередОбновлениемЗадания(ЭтотОбъект, Команда, Задание, Изменения); + КонецЕсли; + Если Изменения <> Неопределено Тогда + РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения); + КонецЕсли; КонецЦикла; КонецПроцедуры Процедура ПередУдалениемГлобальнойОбработки(Отказ) - - // Регламентные задание необходимо изменять в привилегированном режиме. + // Регламентные задания необходимо изменять в привилегированном режиме. УстановитьПривилегированныйРежим(Истина); + // Удаление всех заданий. Для Каждого Команда Из Команды Цикл - - Задание = ДополнительныеОтчетыИОбработкиРегламентныеЗадания.НайтиЗадание( - Команда.РегламентноеЗаданиеGUID); - - Если Задание <> Неопределено Тогда - ДополнительныеОтчетыИОбработкиРегламентныеЗадания.УдалитьЗадание(Задание); + Если ЗначениеЗаполнено(Команда.РегламентноеЗаданиеGUID) Тогда + РегламентныеЗаданияСервер.УдалитьЗадание(Команда.РегламентноеЗаданиеGUID); КонецЕсли; КонецЦикла; - КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// @@ -356,12 +339,6 @@ + СокрЛП(Команда.Представление)); КонецФункции -Функция РасписаниеЗадано(Расписание) - - Возврат Строка(Расписание) <> Строка(Новый РасписаниеРегламентногоЗадания); - -КонецФункции - //////////////////////////////////////////////////////////////////////////////// // Назначаемые обработки diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form index 516b95526..83eedd920 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form @@ -10,10 +10,6 @@ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 12 @@ -39,6 +35,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -236,9 +236,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Form.form index 168a3466a..8287217a5 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Form.form @@ -86,6 +86,10 @@КомпоновщикНастроекНастройкиОтбор 5 ++ <key>ru</key> + <value>Компоновщик настроек настройки отбор</value> + true true @@ -239,9 +243,6 @@ true true true -None -None -None true All false diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl index 82c6d2e85..e2eac41cf 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl @@ -2,8 +2,9 @@ #Область ПрограммныйИнтерфейс -//////////////////////////////////////////////////////////////////////////////// -// Групповое изменение объектов. +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов // Возвращает реквизиты объекта, которые не рекомендуется редактировать // с помощью обработки группового изменения реквизитов. @@ -19,6 +20,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form index 39abe0ac3..55c10f6da 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form @@ -209,10 +209,6 @@ru Фильтры -- ru -Фильтры -ФильтрыExtendedTooltip 34 @@ -244,10 +240,6 @@ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 44 @@ -280,10 +272,6 @@ru Командная панель -- ru -Командная панель -КоманднаяПанельExtendedTooltip 38 @@ -303,6 +291,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -585,9 +577,6 @@ CommonPicture.КоллекцияЗаметки None -None -None true 60 diff --git a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Form.form b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Form.form index 0b8e3beaf..56065df65 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Form.form @@ -16,10 +16,6 @@ru Группа пользовательских настроек -- ru -Группа пользовательских настроек -ГруппаПользовательскихНастроекРасширеннаяПодсказка 44 @@ -52,10 +48,6 @@ru Командная панель -- ru -Командная панель -КоманднаяПанельРасширеннаяПодсказка 42 @@ -75,6 +67,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -207,10 +203,6 @@ Left true -- BeforeAddRow -СписокПередНачаломДобавления -СписокSearchString 48 @@ -322,9 +314,6 @@CommonPicture.КоллекцияЗаметки None -None -None true 60 @@ -426,10 +415,6 @@ru Фильтры -- ru -Фильтры -ФильтрыExtendedTooltip 38 diff --git a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl index 6b486b165..bfe8bac9d 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl @@ -48,17 +48,6 @@ #КонецОбласти -#Область ОбработчикиСобытийТаблицыСписок - -&НаКлиенте -Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) - Отказ = Истина; - ПараметрыФормы = Новый Структура("Предмет", Предмет); - ОткрытьФорму("Справочник.Заметки.ФормаОбъекта", ПараметрыФормы); -КонецПроцедуры - -#КонецОбласти - #Область СлужебныеПроцедурыИФункции &НаСервере diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form index 8d6f6e5d4..c674dabc5 100644 --- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form @@ -7,6 +7,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -118,10 +122,6 @@ ru Содержание -- ru -Содержание -5 false @@ -499,9 +499,6 @@ CommonPicture.КоллекцияЗаметки None -None -None true 60 diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form index 5ad43ed12..1ec3902a6 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form @@ -89,12 +89,8 @@<key>ru</key> - <value>Группа предмет</value> + <value>Предмет</value> -- ru -Группа предмет -ГруппаПредметExtendedTooltip 109 @@ -119,10 +115,10 @@true + <key>ru</key> <value>Содержание заметки</value> - </toolTip> + СодержаниеЗаметкиExtendedTooltip 108 @@ -333,10 +329,6 @@ru Параметры отображения -- ru -Параметры отображения -ПараметрыОтображенияExtendedTooltip 113 @@ -443,10 +435,6 @@ru Информация об авторе -- ru -Информация об авторе -ИнформацияОбАвтореExtendedTooltip 117 @@ -517,10 +505,6 @@ru Командная панель редактирования -- ru -Командная панель редактирования -КоманднаяПанельРедактированияExtendedTooltip 107 diff --git a/SSL/src/Catalogs/Заметки/ManagerModule.bsl b/SSL/src/Catalogs/Заметки/ManagerModule.bsl index 93707e88f..d097d8c2d 100644 --- a/SSL/src/Catalogs/Заметки/ManagerModule.bsl +++ b/SSL/src/Catalogs/Заметки/ManagerModule.bsl @@ -2,8 +2,9 @@ #Область ПрограммныйИнтерфейс -//////////////////////////////////////////////////////////////////////////////// -// Групповое изменение объектов. +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. @@ -20,6 +21,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl index c870ef204..3b70fa857 100644 --- a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. // @@ -9,10 +13,14 @@ // Массив - список имен реквизитов объекта. Функция РеквизитыРедактируемыеВГрупповойОбработке() Экспорт - Возврат ПрисоединенныеФайлы.РеквизитыРедактируемыеВГрупповойОбработке(); + Возврат РаботаСФайлами.РеквизитыРедактируемыеВГрупповойОбработке(); КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo index 7cf179756..5a8442195 100644 --- a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo @@ -116,6 +116,7 @@Автор + CatalogRef.УчетныеЗаписиСинхронизацииФайлов CatalogRef.Пользователи @@ -153,6 +154,35 @@ Index Use + ДатаЗаема ++ +ru +Дата заема ++ +Date ++ + +ru +ДЛФ=ДВ ++ +ru +ДЛФ=ДВ ++ +ru +Дата, когда файл был занят для редактирования +false ++ + + Use +Use +ДатаМодификацииУниверсальная @@ -222,6 +252,7 @@ Отредактировал + CatalogRef.УчетныеЗаписиСинхронизацииФайлов CatalogRef.Пользователи @@ -373,6 +404,7 @@ Редактирует + CatalogRef.УчетныеЗаписиСинхронизацииФайлов CatalogRef.Пользователи @@ -486,15 +518,35 @@ Use + ХранитьВерсии ++ +ru +Хранить версии ++ +Boolean ++ +ru +Добавлять версии файла при окончании редактирования. Если отключить, тогда будет хранится только последняя версия. +false ++ + + Use +Use +ЭлектронныеПодписи +УдалитьЭлектронныеПодписи ru -электронные подписи +(не используется) электронные подписи ru @@ -699,10 +751,10 @@- СертификатыШифрования +УдалитьСертификатыШифрования ru -Сертификаты шифрования +(не используется) Сертификаты шифрования ru diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form index 7aa319950..88e0c5d78 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form @@ -178,10 +178,6 @@ru Основные команды -- ru -Основные команды -ОсновныеКомандыРасширеннаяПодсказка 48 @@ -206,10 +202,6 @@ru Дополнительные команды -- ru -Дополнительные команды -ДополнительныеКомандыРасширеннаяПодсказка 29 @@ -259,10 +251,6 @@ru Командная панель -- ru -Командная панель -КоманднаяПанельРасширеннаяПодсказка 44 @@ -326,6 +314,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -617,9 +609,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl index 77bbd4a87..b12745f8b 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. // @@ -17,6 +21,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form index e3eb9f74e..c6df57708 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form @@ -152,10 +152,6 @@ru Основные команды -- ru -Основные команды -ОсновныеКомандыРасширеннаяПодсказка 45 @@ -180,10 +176,6 @@ru Дополнительные команды -- ru -Дополнительные команды -ДополнительныеКомандыРасширеннаяПодсказка 28 @@ -296,6 +288,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -579,9 +575,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl index 77bbd4a87..b12745f8b 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl @@ -2,6 +2,10 @@ #Область ПрограммныйИнтерфейс +#Область ДляВызоваИзДругихПодсистем + +// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + // Возвращает реквизиты объекта, которые разрешается редактировать // с помощью обработки группового изменения реквизитов. // @@ -17,6 +21,10 @@ КонецФункции +// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов + +#КонецОбласти + #КонецОбласти #КонецЕсли diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form index 7778e1a25..ac1db849f 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Form.form @@ -204,10 +204,6 @@ru Режим просмотра -- ru -Форма режим просмотра -ФормаРежимПросмотраРасширеннаяПодсказка 71 @@ -488,6 +484,10 @@Список 1 ++ <key>ru</key> + <value>Список</value> + true true @@ -727,9 +727,6 @@ Список.DefaultPicture None -None -None true 60 diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form index bb3ae6b69..e34a1f4bb 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Form.form @@ -145,10 +145,6 @@ru Имя и синоним объекта метаданных -- ru -Имя и синоним объекта метаданных -ИмяИСинонимОбъектаМетаданныхExtendedTooltip 34 @@ -275,10 +271,6 @@ru Полное имя и полный синоним объекта метаданных -- ru -Полное имя и полный синоним объекта метаданных -ПолноеИмяИПолныйСинонимОбъектаМетаданныхExtendedTooltip 37 @@ -796,7 +788,7 @@- CommonCommand.ПрисоединенныеФайлыКОбъекту +0 @@ -807,6 +799,10 @@ +CommonCommand.ИсторияИзменений + CommonCommand.ПрисоединенныеФайлы ++ @@ -814,11 +810,11 @@ - CommonCommand.ЗаполнениеОбъекта +0 - CommonCommand.ОтчетыОбъекта +0 @@ -829,6 +825,18 @@ +CommonCommand.СоздатьЗаметкуПоПредмету + +CommonCommand.ОтправитьПисьмо ++ + +CommonCommand.ОтправитьSMS ++ + CommonCommand.Напомнить ++
-
diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
index f9742860b..5b0e4185c 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
@@ -30,7 +30,7 @@
Элементы.ПользователиПодобрать.Доступность = НЕ ТолькоПросмотр;
Элементы.КонтекстноеМенюПользователиПодобрать.Доступность = НЕ ТолькоПросмотр;
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ПользователиВМоделиСервиса") Тогда
@@ -47,16 +47,22 @@
ВыполненаПроцедураПриСозданииНаСервере = Истина;
- Если ТекущийВариантИнтерфейсаКлиентскогоПриложения() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
+ Если КлиентскоеПриложение.ТекущийВариантИнтерфейса() = ВариантИнтерфейсаКлиентскогоПриложения.Версия8_2 Тогда
Элементы.ПользователиДобавить.ТолькоВоВсехДействиях = Ложь;
КонецЕсли;
- Если ОбщегоНазначенияПовтИсп.ЭтоАвтономноеРабочееМесто()
- И Не Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
+ Если ОбщегоНазначения.ЭтоАвтономноеРабочееМесто() Тогда
+ Если Не Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы
+ И Не УправлениеДоступомСлужебный.ЭтоПрофильОткрытиеВнешнихОтчетовИОбработок(Объект.Профиль) Тогда
- ТолькоПросмотр = Истина;
+ ТолькоПросмотр = Истина;
+ Иначе
+ ЗапретитьИзменениеВсегоКромеСоставаУчастников();
+ КонецЕсли;
КонецЕсли;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
+
КонецПроцедуры
&НаКлиенте
@@ -65,6 +71,7 @@
Если ОтветНаВопросПриОткрытииФормы = "УстановитьТолькоПросмотр" Тогда
ОтветНаВопросПриОткрытииФормы = "";
ТолькоПросмотр = Истина;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
КонецЕсли;
Если ОтветНаВопросПриОткрытииФормы = "УстановитьПрофильАдминистратор" Тогда
@@ -72,8 +79,9 @@
Объект.Профиль = ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор");
Модифицированность = Истина;
- ИначеЕсли Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
- И Объект.Профиль <> ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор") Тогда
+ ИначеЕсли Не ТолькоПросмотр
+ И Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
+ И Объект.Профиль <> ПредопределенноеЗначение("Справочник.ПрофилиГруппДоступа.Администратор") Тогда
Отказ = Истина;
ПоказатьВопрос(
@@ -136,12 +144,12 @@
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
- Если СтандартныеПодсистемыКлиентПовтИсп.ПараметрыРаботыКлиента().РазделениеВключено
+ Если СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().РазделениеВключено
И Объект.Ссылка = ПредопределенноеЗначение("Справочник.ГруппыДоступа.Администраторы")
И ПарольПользователяСервиса = Неопределено Тогда
Отказ = Истина;
- СтандартныеПодсистемыКлиент.ПриЗапросеПароляДляАутентификацииВСервисе(
+ ПользователиСлужебныйКлиент.ЗапроситьПарольДляАутентификацииВСервисе(
Новый ОписаниеОповещения("ПередЗаписьюПродолжение", ЭтотОбъект, ПараметрыЗаписи),
ЭтотОбъект,
ПарольПользователяСервиса);
@@ -179,7 +187,7 @@
Объект.Ответственный = Неопределено;
КонецЕсли;
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
ТекущийОбъект.ДополнительныеСвойства.Вставить(
@@ -214,9 +222,12 @@
Если ПараметрыЗаписи.Свойство("ПредупредитьЧтоПрофильПомеченНаУдаление") Тогда
- ПоказатьПредупреждение(,
+ ПоказатьПредупреждение(
+ Новый ОписаниеОповещения("ПослеЗаписиЗавершение", ЭтотОбъект, ПараметрыЗаписи),
НСтр("ru = 'Группа доступа не влияет на права участников
|так как ее профиль помечен на удаление.'"));
+ Иначе
+ ПослеЗаписиЗавершение(ПараметрыЗаписи);
КонецЕсли;
КонецПроцедуры
@@ -409,7 +420,7 @@
КонецЦикла;
- Если НЕ ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если НЕ ОбщегоНазначения.РазделениеВключено()
И Объект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
ОписаниеОшибки = "";
@@ -822,6 +833,13 @@
#Область ОбработчикиКомандФормы
+&НаКлиенте
+Процедура ЗаписатьИЗакрыть(Команда)
+
+ Записать(Новый Структура("ЗаписатьИЗакрыть"));
+
+КонецПроцедуры
+
&НаКлиенте
Процедура Подобрать(Команда)
@@ -843,7 +861,7 @@
// Продолжение обработчика события ПриОткрытии.
&НаКлиенте
-Процедура ПриОткрытииПослеПодтвержденияУстановкиПрофиляАдминистратор(Ответ, Неопределен) Экспорт
+Процедура ПриОткрытииПослеПодтвержденияУстановкиПрофиляАдминистратор(Ответ, Контекст) Экспорт
Если Ответ = КодВозвратаДиалога.Да Тогда
ОтветНаВопросПриОткрытииФормы = "УстановитьПрофильАдминистратор";
@@ -857,7 +875,7 @@
// Продолжение обработчика события ПриОткрытии.
&НаКлиенте
-Процедура ПриОткрытииПослеПодтвержденияОбновленияВидовДоступа(Ответ, Неопределен) Экспорт
+Процедура ПриОткрытииПослеПодтвержденияОбновленияВидовДоступа(Ответ, Контекст) Экспорт
Если Ответ = КодВозвратаДиалога.Да Тогда
ОтветНаВопросПриОткрытииФормы = "ОбновитьСоставВидовДоступа";
@@ -888,6 +906,23 @@
КонецПроцедуры
+// Продолжение обработчика события ПослеЗаписи.
+&НаКлиенте
+Процедура ПослеЗаписиЗавершение(ПараметрыЗаписи)
+
+ Если ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ Закрыть();
+
+КонецПроцедуры
+
&НаКлиенте
Процедура ОбработчикОжиданияПрофильПриИзменении()
@@ -895,20 +930,28 @@
КонецПроцедуры
+&НаСервере
+Процедура ЗапретитьИзменениеВсегоКромеСоставаУчастников()
+
+ Элементы.Наименование.ТолькоПросмотр = Истина;
+ Элементы.Родитель.Видимость = Ложь;
+ Элементы.Профиль.ТолькоПросмотр = Истина;
+ Элементы.СвойстваПерсональнойГруппы.Видимость = Ложь;
+ Элементы.Ответственный.Видимость = Ложь;
+ Элементы.ОтветственныйЗаПерсональнуюГруппу.Видимость = Ложь;
+ Элементы.Комментарий.ТолькоПросмотр = Истина;
+
+КонецПроцедуры
+
&НаСервере
Процедура НачальнаяНастройкаПриЧтенииИСоздании(ТекущийОбъект)
Если ТекущийОбъект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
- Элементы.Наименование.ТолькоПросмотр = Истина;
- Элементы.Родитель.Видимость = Ложь;
- Элементы.Профиль.ТолькоПросмотр = Истина;
- Элементы.СвойстваПерсональнойГруппы.Видимость = Ложь;
- Элементы.Ответственный.Видимость = Ложь;
- Элементы.ОтветственныйЗаПерсональнуюГруппу.Видимость = Ложь;
- Элементы.Описание.ТолькоПросмотр = Истина;
+ ЗапретитьИзменениеВсегоКромеСоставаУчастников();
- Если НЕ УправлениеДоступом.ЕстьРоль("ПолныеПрава") Тогда
+ Если Не УправлениеДоступом.ЕстьРоль("ПолныеПрава") Тогда
ТолькоПросмотр = Истина;
+ ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
КонецЕсли;
Иначе
Если ЗначениеЗаполнено(ТекущийОбъект.Пользователь) Тогда
@@ -958,7 +1001,7 @@
Элементы.Доступ.ТолькоПросмотр = Истина;
Элементы.Ответственный.ТолькоПросмотр = Истина;
Элементы.ОтветственныйЗаПерсональнуюГруппу.ТолькоПросмотр = Истина;
- Элементы.Описание.ТолькоПросмотр = Истина;
+ Элементы.Комментарий.ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
@@ -1436,17 +1479,18 @@
УстановитьПривилегированныйРежим(Истина);
- Запрос = Новый Запрос(
+ Запрос = Новый Запрос;
+ Запрос.Текст =
"ВЫБРАТЬ
- | ГруппыДоступа.ПометкаУдаления,
- | ГруппыДоступа.Предопределенный,
- | ГруппыДоступа.Родитель,
- | ГруппыДоступа.ЭтоГруппа,
- | ГруппыДоступа.Наименование,
- | ГруппыДоступа.Профиль,
- | ГруппыДоступа.Ответственный,
- | ГруппыДоступа.Пользователь,
- | ГруппыДоступа.Описание
+ | ГруппыДоступа.ПометкаУдаления КАК ПометкаУдаления,
+ | ГруппыДоступа.Предопределенный КАК Предопределенный,
+ | ГруппыДоступа.Родитель КАК Родитель,
+ | ГруппыДоступа.ЭтоГруппа КАК ЭтоГруппа,
+ | ГруппыДоступа.Наименование КАК Наименование,
+ | ГруппыДоступа.Профиль КАК Профиль,
+ | ГруппыДоступа.Ответственный КАК Ответственный,
+ | ГруппыДоступа.Пользователь КАК Пользователь,
+ | ГруппыДоступа.Комментарий КАК Комментарий
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
@@ -1455,8 +1499,8 @@
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
- | ГруппыДоступаВидыДоступа.ВидДоступа,
- | ГруппыДоступаВидыДоступа.ВсеРазрешены
+ | ГруппыДоступаВидыДоступа.ВидДоступа КАК ВидДоступа,
+ | ГруппыДоступаВидыДоступа.ВсеРазрешены КАК ВсеРазрешены
|ИЗ
| Справочник.ГруппыДоступа.ВидыДоступа КАК ГруппыДоступаВидыДоступа
|ГДЕ
@@ -1465,12 +1509,12 @@
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
- | ГруппыДоступаЗначенияДоступа.ВидДоступа,
- | ГруппыДоступаЗначенияДоступа.ЗначениеДоступа
+ | ГруппыДоступаЗначенияДоступа.ВидДоступа КАК ВидДоступа,
+ | ГруппыДоступаЗначенияДоступа.ЗначениеДоступа КАК ЗначениеДоступа
|ИЗ
| Справочник.ГруппыДоступа.ЗначенияДоступа КАК ГруппыДоступаЗначенияДоступа
|ГДЕ
- | ГруппыДоступаЗначенияДоступа.Ссылка = &Ссылка");
+ | ГруппыДоступаЗначенияДоступа.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", ТекущийОбъект.Ссылка);
РезультатыЗапросов = Запрос.ВыполнитьПакет();
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
index 13c83b1e1..553f5053c 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
@@ -2,6 +2,10 @@
#Область ПрограммныйИнтерфейс
+#Область ДляВызоваИзДругихПодсистем
+
+// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
+
// Возвращает реквизиты объекта, которые не рекомендуется редактировать
// с помощью обработки группового изменения реквизитов.
//
@@ -20,6 +24,21 @@
КонецФункции
+// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
+
+// ТехнологияСервиса.ВыгрузкаЗагрузкаДанных
+
+// См. ВыгрузкаЗагрузкаДанныхПереопределяемый.ПриРегистрацииОбработчиковВыгрузкиДанных.
+Процедура ПередВыгрузкойОбъекта(Контейнер, МенеджерВыгрузкиОбъекта, Сериализатор, Объект, Артефакты, Отказ) Экспорт
+
+ УправлениеДоступомСлужебный.ПередВыгрузкойОбъекта(Контейнер, МенеджерВыгрузкиОбъекта, Сериализатор, Объект, Артефакты, Отказ);
+
+КонецПроцедуры
+
+// Конец ТехнологияСервиса.ВыгрузкаЗагрузкаДанных
+
+#КонецОбласти
+
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
@@ -110,7 +129,7 @@
// Проверка необходимости/возможности обновления группы доступа.
ГруппаДоступа = Выборка.Ссылка.ПолучитьОбъект();
- Если ГруппаДоступа.Ссылка = Справочники.ГруппыДоступа.Администраторы
+ Если ГруппаДоступа.Ссылка = Администраторы
И ГруппаДоступа.Профиль <> Справочники.ПрофилиГруппДоступа.Администратор Тогда
// Установка профиля Администратор, если не задан.
ГруппаДоступа.Профиль = Справочники.ПрофилиГруппДоступа.Администратор;
@@ -206,7 +225,7 @@
ИначеЕсли НеСоздавать Тогда
ГруппаЭлементов = Неопределено;
Иначе
- ГруппаЭлементовОбъект = Справочники.ГруппыДоступа.СоздатьГруппу();
+ ГруппаЭлементовОбъект = СоздатьГруппу();
ГруппаЭлементовОбъект.Наименование = НаименованиеГруппыЭлементов;
ГруппаЭлементовОбъект.Записать();
ГруппаЭлементов = ГруппаЭлементовОбъект.Ссылка;
@@ -216,8 +235,11 @@
КонецФункции
+////////////////////////////////////////////////////////////////////////////////
+// Процедуры и функции для поддержки обмена данными в РИБ.
+
// Только для внутреннего использования.
-Процедура ВосстановитьСоставУчастниковГруппыДоступаАдминистраторы(ЭлементДанных, ОтправкаНазад) Экспорт
+Процедура ВосстановитьСоставУчастниковГруппыДоступаАдминистраторы(ЭлементДанных) Экспорт
Если ЭлементДанных.ИмяПредопределенныхДанных <> "Администраторы" Тогда
Возврат;
@@ -243,6 +265,38 @@
КонецПроцедуры
+// Только для внутреннего использования.
+Процедура УдалитьУчастниковГруппыДоступаАдминистраторыБезПользователяИБ() Экспорт
+
+ ГруппаДоступаАдминистраторы = Администраторы.ПолучитьОбъект();
+
+ Индекс = ГруппаДоступаАдминистраторы.Пользователи.Количество() - 1;
+ Пока Индекс >= 0 Цикл
+ ТекущийПользователь = ГруппаДоступаАдминистраторы.Пользователи[Индекс].Пользователь;
+ Если ТипЗнч(ТекущийПользователь) = Тип("СправочникСсылка.Пользователи") Тогда
+ ИдентификаторПользователяИБ = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущийПользователь,
+ "ИдентификаторПользователяИБ");
+ Иначе
+ ИдентификаторПользователяИБ = Неопределено;
+ КонецЕсли;
+ Если ТипЗнч(ИдентификаторПользователяИБ) = Тип("УникальныйИдентификатор") Тогда
+ ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
+ ИдентификаторПользователяИБ);
+ Иначе
+ ПользовательИБ = Неопределено;
+ КонецЕсли;
+ Если ПользовательИБ = Неопределено Тогда
+ ГруппаДоступаАдминистраторы.Пользователи.Удалить(Индекс);
+ КонецЕсли;
+ Индекс = Индекс - 1;
+ КонецЦикла;
+
+ Если ГруппаДоступаАдминистраторы.Модифицированность() Тогда
+ ГруппаДоступаАдминистраторы.Записать();
+ КонецЕсли;
+
+КонецПроцедуры
+
////////////////////////////////////////////////////////////////////////////////
// Обновление информационной базы.
@@ -258,4 +312,4 @@
#КонецОбласти
-#КонецЕсли
\ No newline at end of file
+#КонецЕсли
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
index 91ba4403b..4e9efa7bb 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
+++ b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
@@ -25,6 +25,9 @@
Возврат;
КонецЕсли;
+ СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы();
+ РегистрыСведений.ПраваРолей.ПроверитьДанныеРегистра();
+
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
Если ЗначениеЗаполнено(Ссылка) Тогда
СтараяТаблицаПользователи = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Пользователи");
@@ -125,9 +128,16 @@
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
- Если ОбщегоНазначенияПовтИсп.РазделениеВключено()
+ Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса") Тогда
+ МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
+ СеансЗапущенБезРазделителей = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
+ Иначе
+ СеансЗапущенБезРазделителей = Истина;
+ КонецЕсли;
+
+ Если ОбщегоНазначения.РазделениеВключено()
И Ссылка = Справочники.ГруппыДоступа.Администраторы
- И НЕ ОбщегоНазначенияПовтИсп.СеансЗапущенБезРазделителей()
+ И НЕ СеансЗапущенБезРазделителей
И ДополнительныеСвойства.Свойство("ПарольПользователяСервиса") Тогда
ПарольПользователяСервиса = ДополнительныеСвойства.ПарольПользователяСервиса;
diff --git a/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo b/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
index 4b8db2dca..545300688 100644
--- a/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
+++ b/SSL/src/Catalogs/ГруппыДоступа/ГруппыДоступа.mdo
@@ -185,10 +185,10 @@
Предназначена для выбора сведений о банках, которые используются при заполнении реквизитов банковских счетов, в документах и других объектах программы.
В списке выводится:
-
-Наименование - полное наименование банка;+Наименование - полное наименование банка;
-
БИК - БИК банка;
-
@@ -11,7 +11,7 @@
Город - город, в котором находится банк;
-
Адрес - полный адрес банка.
Банки, деятельность которых прекращена, по умолчанию скрыты. Для того чтобы увидеть в списке эти банки, выполните команду Еще - Показывать недействующие банки.
-Для того чтобы обновить сведения о банках, выполните команду Загрузить классификатор.
+Для того чтобы обновить сведения о банках, выполните команду Загрузить классификатор.
Выбор банка
-
Выделите нужный банк.@@ -20,6 +20,6 @@
-
Также можно воспользоваться двойным щелчком мыши.
См. также:
- - +
Входит в группу - по умолчанию указывается регион, в котором находится банк. Можно включить банк в новую группу, для этого выберите из списка нужную группу, нажав Показать все, для ввода новой группы нажмите Создать.
Деятельность банка прекращена - программа учитывает недействующие банки и автоматически включает флажок для таких банков. Также можно его включить вручную, если получены сведения о закрытии банка.
+Деятельность банка прекращена - программа учитывает недействующие банки и автоматически включает флажок для таких банков. Также можно его включить вручную, если получены сведения о закрытии банка.
БИК - БИК банка.
Адрес - полный адрес банка.
Телефоны - адреса и телефоны банков можно загрузить только с диска 1С:ИТС или ввести вручную.
См. также:
+Телефоны - адреса и телефоны банков можно загрузить только с диска 1С:ИТС или ввести вручную.
См. также:
Открывается по команде Банки раздела Справочники.
В классификаторе выводится:
-
-Наименование банка - полное наименование банка;+Наименование банка - полное наименование банка;
-
БИК - БИК банка;
-
@@ -32,14 +32,14 @@
После запуска программы производится проверка актуальности классификатора банков и в случае неактуальности (если классификатор не обновлялся в течение тридцати дней) выводится сообщение с предложением обновить классификатор банков. Перейдите по ссылке Обновить классификатор банков.
-
-+
С помощью кнопки Загрузить классификатор можно обновить сведения о банках.
С помощью кнопки Загрузить классификатор можно обновить сведения о банках.
-
-Также можно настроить обновление классификатора с сайта 1С автоматически по расписанию с помощью регламентного задания "Загрузка классификатора банков".+Также можно настроить обновление классификатора с сайта 1С автоматически по расписанию с помощью регламентного задания "Загрузка классификатора банков".
-
В карточку банка может загружаться не вся информация. Поля Адрес и Телефоны не заполняются, если классификатор загружается с сайта 1С.
-
При повторной загрузке перезаписываются только измененные сведения классификатора. При этом если был изменен БИК банка, то будет создана новая запись о банке. Если были изменены другие поля, то они при повторной загрузке будут перезаписаны (кроме полей Адрес и Телефоны в случае, когда классификатор перезагружается с сайта 1С).
Ввод банка
-
-При необходимости можно ввести банк, нажав Создать. Заполните необходимые параметры.
См. также:
+При необходимости можно ввести банк, нажав Создать. Заполните необходимые параметры.