2_2_5_34

SSL/src/CommonModules/СтандартныеПодсистемыКлиентСервер/Module.bsl

@@ -27,17 +27,21 @@
 	Возврат Результат;
 КонецФункции
 
-// Добавляет оповещения для обновления динамических списков по массиву ссылок объектов.
+// Добавляет в структуру информацию о типах, которые необходимо обновить в динамических списках.
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
 //
 // Параметры:
-//   ИзмененныеОбъекты - Массив - Ссылки измененных объектов.
 //   Результат - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().
+//   ИзмененныеОбъекты - Массив - Ссылки измененных объектов.
 //
-Процедура ПодготовитьОповещениеДинамическихСписков(ИзмененныеОбъекты, Результат) Экспорт
+Процедура ОповеститьДинамическиеСписки(Результат, ИзмененныеОбъекты) Экспорт
 	Если ТипЗнч(ИзмененныеОбъекты) <> Тип("Массив") Или ИзмененныеОбъекты.Количество() = 0 Тогда
 		Возврат;
 	КонецЕсли;
 	
+	Если Не Результат.Свойство("ОповещениеДинамическихСписков") Тогда
+		Результат.Вставить("ОповещениеДинамическихСписков", Новый Структура("Использование, СсылкаИлиТип", Ложь));
+	КонецЕсли;
 	Оповещение = Результат.ОповещениеДинамическихСписков;
 	Оповещение.Использование = Истина;
 	
@@ -66,7 +70,8 @@
 	КонецЕсли;
 КонецПроцедуры
 
-// Добавляет в оповещение для динамических списков типы из массива измененных объектов.
+// Добавляет в структуру информацию о событии, о котором надо оповестить все открытые формы.
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
 //
 // Параметры:
 //   Результат  - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().
@@ -86,7 +91,8 @@
 	Результат.ОповещениеФорм.Добавить(ОповещениеФорм);
 КонецПроцедуры
 
-// Добавляет в оповещение для динамических списков типы из массива измененных объектов.
+// Добавляет в структуру информацию об узлах дерева, которые необходимо "развернуть".
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
 //
 // Параметры:
 //   Результат - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().
@@ -115,7 +121,8 @@
 	Результат.РазворачиваемыеУзлы.Добавить(РазворачиваемыйУзел);
 КонецПроцедуры
 
-// Добавляет в структуру информацию, необходимую для вывода предупреждения.
+// Добавляет в структуру информацию, необходимую для вывода предупреждения или текста ошибки.
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
 //
 // Параметры:
 //   Результат - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().
@@ -124,7 +131,7 @@
 //   Заголовок           - Строка - Необязательный. Заголовок окна.
 //   ПутьКРеквизитуФормы - Строка - Необязательный. Путь к реквизиту формы, значение которого вызывало ошибку.
 //
-Процедура РезультатВыполненияДобавитьПредупреждение(Результат, Текст, ТекстОшибок = "", Заголовок = "", ПутьКРеквизитуФормы = "") Экспорт
+Процедура ВывестиПредупреждение(Результат, Текст, ТекстОшибок = "", Заголовок = "", ПутьКРеквизитуФормы = "") Экспорт
 	ВыводПредупреждения = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Результат, "ВыводПредупреждения");
 	Если ВыводПредупреждения = Неопределено Тогда
 		ВыводПредупреждения = Новый Структура("Использование, Заголовок, Текст, ПутьКРеквизитуФормы, ТекстОшибок", Ложь);
@@ -137,7 +144,27 @@
 	ВыводПредупреждения.ПутьКРеквизитуФормы = ПутьКРеквизитуФормы;
 КонецПроцедуры
 
+// Добавляет в структуру информацию, необходимую для вывода сообщения о неверно заполненных полях формы.
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
+//
+// Параметры:
+//   Результат - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().
+//   Текст               - Строка - Текст сообщения.
+//   ПутьКРеквизитуФормы - Строка - Необязательный. Путь к реквизиту формы, значение которого вызывало ошибку.
+//
+Процедура ВывестиСообщение(Результат, Текст, ПутьКРеквизитуФормы = "") Экспорт
+	ВыводСообщения = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Результат, "ВыводСообщения");
+	Если ВыводСообщения = Неопределено Тогда
+		ВыводСообщения = Новый Структура("Использование, Текст, ПутьКРеквизитуФормы", Ложь);
+		Результат.Вставить("ВыводСообщения", ВыводСообщения);
+	КонецЕсли;
+	ВыводСообщения.Использование = Истина;
+	ВыводСообщения.Текст = Текст;
+	ВыводСообщения.ПутьКРеквизитуФормы = ПутьКРеквизитуФормы;
+КонецПроцедуры
+
 // Добавляет в структуру информацию, необходимую для вывода всплывающего оповещения.
+//   Действие выполняется на клиенте после вызова СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения(Результат).
 //
 // Параметры:
 //   Результат - Структура - См. СтандартныеПодсистемыКлиент.ПоказатьРезультатВыполнения().