Merge branch 'release/1.11.1'

src/CodeConsole83/Form/Форма/Форма.bsl

@@ -37,7 +37,7 @@
 
 	Параметры.Вставить("owner", "alkoleft");
 	Параметры.Вставить("repo", "ones_universal_tools");
-	Параметры.Вставить("version", "v1.11");
+	Параметры.Вставить("version", "v1.11.1");
 
 	Возврат Параметры;
 
@@ -797,6 +797,33 @@
 
 КонецФункции
 
+&НаКлиенте
+Функция СтрокаФорматДляДиалога(Форматы)
+
+	мФорматы = Новый Массив;
+	мВсе = Новый Массив;
+
+	Для Каждого формат из Форматы Цикл 
+
+		мВсе.Добавить(формат.Ключ);
+		мФорматы.Добавить(СтрШаблон("%1|%2", формат.Значение, формат.Ключ));
+
+	КонецЦикла;
+
+	мФорматы.Вставить(0, "Доступные форматы|" + СтрСоединить(мВсе, ";"));
+
+	Возврат СтрСоединить(мФорматы, "|");
+
+КонецФункции
+
+&НаКлиентеНаСервереБезКонтекста
+Функция ФорматПоИмениФайла(ИмяФайла)
+
+	Файл = Новый Файл(ИмяФайла);
+	Возврат Сред(Файл.Расширение, 2);
+
+КонецФункции
+
 #КонецОбласти
 
 #Область Служебные
@@ -920,6 +947,10 @@
 &НаКлиенте
 Процедура ЗагрузитьТаблицу(ИсточникАдрес)
 
+	Если НЕ ЭтоАдресВременногоХранилища(ИсточникАдрес) Тогда 
+		Возврат;
+	КонецЕсли;
+
 	РезультатТаблица.Очистить();
 	СтруктураТаблицы = ЗагрузитьИзВременногоХранилищаТаблицу(ИсточникАдрес);
 	РезультатТаблица_Адрес = ИсточникАдрес;
@@ -1185,16 +1216,18 @@
 //		Описание - Строка - Описание ошибки
 
 &НаКлиенте
-Функция ВыполнитьНастройку(Знач ПараметрыНастройки = Неопределено) Экспорт
+Функция ВыполнитьНастройку(Знач ПараметрыНастройки = Неопределено, ВыводитьРезультат = Истина) Экспорт
 
 	Если ПараметрыНастройки = Неопределено Тогда 
 		ПараметрыНастройки = ПараметрыТекущейНастройки;
 	КонецЕсли;
 
 	Если НЕ МожноВыполнить(ПараметрыНастройки) Тогда 
-
-		Возврат Новый Структура("Выполнено, Описание", Ложь, "Нельзя выполнить выбранную настройку");
-
+		РезультатВыполнения = Новый Структура("Выполнено, Описание", Ложь, "Нельзя выполнить выбранную настройку");
+		ПослеВыполнения();
+		Возврат РезультатВыполнения;
+	Иначе
+		РезультатВыполнения = Новый Структура("Выполнено, Описание", Истина);
 	КонецЕсли;
 
 	Замер = ЗамерСоздать();
@@ -1246,11 +1279,17 @@
 
 		Если РезультатВыполнения.Выполнено И РезультатВыполнения.Свойство("ЕстьДанные") Тогда 
 
-			ЗамерНачало("ВремяВывода", Замер);
-
-			ЗагрузитьТаблицу(РезультатВыполнения.АдресДанных);
-
-			ЗамерЗавершить("ВремяВывода", Замер);
+			Если ВыводитьРезультат Тогда
+
+				ЗамерНачало("ВремяВывода", Замер);
+				ЗагрузитьТаблицу(РезультатВыполнения.АдресДанных);
+				ЗамерЗавершить("ВремяВывода", Замер);
+
+			Иначе
+
+				РезультатТаблица_Адрес = РезультатВыполнения.АдресДанных;
+
+			КонецЕсли;
 
 		КонецЕсли;
 
@@ -1285,14 +1324,32 @@
 	МассивСтрок.Добавить(СтрНастройка);
 	ДеревоВСписок(СтрНастройка, МассивСтрок);
 
+
 	Для Каждого Стр Из МассивСтрок Цикл 
 
+		Если Стр.Тип = 9 Тогда 
+
+			Продолжить;
+
+		КонецЕсли;
+
+		Состояние(Стр.Наименование, , , БиблиотекаКартинок.СформироватьОтчет);
+
 		ПараметрыНастройки = ПолучитьПараметрыНастройки(Стр.Ключ);
 
-		ВыполнитьНастройку(ПараметрыНастройки);
+		Результат = ВыполнитьНастройку(ПараметрыНастройки);
+
+		Если НЕ Результат.Выполнено Тогда 
+
+			ПоказатьПредупреждение(, "Во время выполнения возникла ошибка");
+			Прервать;
+
+		КонецЕсли;
 
 	КонецЦикла;
 
+	ЗагрузитьТаблицу(РезультатТаблица_Адрес);
+
 КонецФункции
 
 &НаСервереБезКонтекста
@@ -2507,6 +2564,8 @@
 КонецФункции
 #КонецОбласти //Получение_настроек
 
+#Область Плагины
+
 &НаКлиенте
 Процедура ИнициализироватьКлиент()
 
@@ -2534,6 +2593,20 @@
 	СостояниеАдрес = Результат.СостояниеАдрес;
 	БазовыеОперации = Результат.БазовыеОперации;
 
+	УстановитьДоступностьФункционала(Результат.ДоступнаяФункциональность);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УстановитьДоступностьФункционала(ДоступнаяФункциональность)
+
+	ДоступностьЭлементов = Новый Структура;
+	ДоступностьЭлементов.Вставить("Сохранить", ДоступнаяФункциональность.Найти(БазовыеОперации.Сохранить) <> Неопределено);
+	ДоступностьЭлементов.Вставить("Загрузить", ДоступнаяФункциональность.Найти(БазовыеОперации.Загрузить) <> Неопределено);
+
+	Элементы.РезультатТаблицаКонтекстноеМенюРезультат_Сохранить.Доступность = ДоступностьЭлементов.Загрузить;
+	Элементы.РезультатТаблицаКонтекстноеМенюРезультат_Загрузить.Доступность = ДоступностьЭлементов.Сохранить;
+
 КонецПроцедуры
 
 &НаСервереБезКонтекста
@@ -2545,6 +2618,7 @@
 
 	Результат.Вставить("СостояниеАдрес", Обработка.Инициализировать(МассивАдресовОбработок, УникальныйИдентификатор));
 	Результат.Вставить("БазовыеОперации", Обработка.БазовыеОперации);
+	Результат.Вставить("ДоступнаяФункциональность", Обработка.ДоступнаяФункциональность());
 
 	Возврат Результат;
 
@@ -2558,16 +2632,6 @@
 
 КонецФункции
 
-&НаСервереБезКонтекста
-Функция ПолучитьОбработку(СостояниеАдрес)
-
-	Обработка = ВнешниеОбработки.Создать("CodeConsole83");
-	Обработка.ВосстановитьСостояние(СостояниеАдрес);
-
-	Возврат Обработка;
-
-КонецФункции // ПолучитьОбработку()
-
 &НаСервереБезКонтекста
 Функция ПолучитьФорматыСериализации(Знач Операция, Знач СостояниеАдрес, Знач Тип)
 
@@ -2603,6 +2667,18 @@
 
 КонецФункции // ПолучитьФорматыСохранения()
 
+#КонецОбласти //Плагины
+
+&НаСервереБезКонтекста
+Функция ПолучитьОбработку(СостояниеАдрес)
+
+	Обработка = ВнешниеОбработки.Создать("CodeConsole83");
+	Обработка.ВосстановитьСостояние(СостояниеАдрес);
+
+	Возврат Обработка;
+
+КонецФункции // ПолучитьОбработку()
+
 
 //////////////////////////////////////////////////
 /////Интерфейсные методы, обработчики команд
@@ -2637,9 +2713,16 @@
 #Область События
 
 &НаКлиенте
-Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
+Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка)
 
-	Если Модифицированность Тогда 
+	Если ЗавершениеРаботы Тогда 
+
+		Если Модифицированность Тогда 
+			ТекстПредупреждения = "Настройки не сохранены. Закрыть?";
+			Отказ = Истина;
+		КонецЕсли;
+
+	ИначеЕсли Модифицированность Тогда 
 
 		СтандартнаяОбработка = Ложь;
 		Отказ = Истина;
@@ -2649,7 +2732,7 @@
 	Иначе
 
 		Уничтожить(СостояниеАдрес);
-
+		
 	КонецЕсли;
 
 КонецПроцедуры
@@ -2929,37 +3012,13 @@
 	УстановитьЗначениеПараметра(ИмяПараметра, Значение);
 КонецПроцедуры
 
-&НаКлиенте
-Функция СтрокаФорматДляДиалога(Форматы)
-
-	мФорматы = Новый Массив;
-	мВсе = Новый Массив;
-
-	Для Каждого формат из Форматы Цикл 
-
-		мВсе.Добавить(формат.Ключ);
-		мФорматы.Добавить(СтрШаблон("%1|%2", формат.Значение, формат.Ключ));
-
-	КонецЦикла;
-
-	мФорматы.Вставить(0, "Доступные форматы|" + СтрСоединить(мВсе, ";"));
-
-	Возврат СтрСоединить(мФорматы, "|");
-
-КонецФункции
-
-&НаКлиентеНаСервереБезКонтекста
-Функция ФорматПоИмениФайла(ИмяФайла)
-
-	Файл = Новый Файл(ИмяФайла);
-	Возврат Сред(Файл.Расширение, 2);
-
-КонецФункции
-
 &НаКлиенте
 Процедура Результат_Сохранить(Команда)
 
 	Форматы = ПолучитьФорматыСериализации(БазовыеОперации.Сохранить, СостояниеАдрес, "ТаблицаЗначений");
+	Если Форматы = Неопределено Тогда 
+		Возврат;
+	КонецЕсли;
 
 	Формат = СтрокаФорматДляДиалога(Форматы);
 
@@ -2981,6 +3040,9 @@
 Процедура Результат_Загрузить(Команда)
 
 	Форматы = ПолучитьФорматыСериализации(БазовыеОперации.Загрузить, СостояниеАдрес, "ТаблицаЗначений");
+	Если Форматы = Неопределено Тогда 
+		Возврат;
+	КонецЕсли;
 
 	Формат = СтрокаФорматДляДиалога(Форматы);