Working setting

firstBitSportivnaya · May 3, 2024 · 3dcf18c · 3dcf18c
1 parent fa14658
commit 3dcf18c
Show file tree

Hide file tree

Showing 5 changed files with 22 additions and 60 deletions.
diff --git a/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаМассива/Ext/Form/Module.bsl b/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаМассива/Ext/Form/Module.bsl
@@ -60,23 +60,13 @@
 
 #Область СлужебныеПроцедурыИФункции
 
-&НаСервереБезКонтекста
-Процедура ОчиститьНеиспользуемыеНастройки(Адрес)
-	УдалитьИзВременногоХранилища(Адрес);
-КонецПроцедуры
-
 &НаСервере
 Функция АдресМассиваВХранилище()
 
-	Адрес = "";
-	Если ЗначениеЗаполнено(Массив) Тогда
-		Результат = Массив.ВыгрузитьЗначения();
-		// Если коллекция помещена в хранилище перезапишем в тот же адрес
-		УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
-		Адрес = ПоместитьВоВременноеХранилище(Результат, УИД);
-	Иначе
-		ОчиститьНеиспользуемыеНастройки(АдресЗначения);
-	КонецЕсли;
+	Результат = Массив.ВыгрузитьЗначения();
+	// Если коллекция помещена в хранилище перезапишем в тот же адрес
+	УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
+	Адрес = ПоместитьВоВременноеХранилище(Результат, УИД);
 
 	Возврат Адрес;
 

diff --git a/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаСтруктуры/Ext/Form/Module.bsl b/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаСтруктуры/Ext/Form/Module.bsl
@@ -80,26 +80,15 @@
 
 #Область СлужебныеПроцедурыИФункции
 
-&НаСервереБезКонтекста
-Процедура ОчиститьНеиспользуемыеНастройки(Адрес)
-	УдалитьИзВременногоХранилища(Адрес);
-КонецПроцедуры
-
 &НаСервере
 Функция АдресСтруктурыВХранилище()
 
-	Адрес = "";
-
-	Если ЗначениеЗаполнено(Структура) Тогда
-		Результат = Новый Структура;
-		Для Каждого Пара Из Структура Цикл
-			Результат.Вставить(Пара.Ключ, Пара.Значение);
-		КонецЦикла;
-		УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
-		Адрес = ПоместитьВоВременноеХранилище(Результат, УИД);
-	Иначе
-		ОчиститьНеиспользуемыеНастройки(АдресЗначения);
-	КонецЕсли;
+	Результат = Новый Структура;
+	Для Каждого Пара Из Структура Цикл
+		Результат.Вставить(Пара.Ключ, Пара.Значение);
+	КонецЦикла;
+	УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
+	Адрес = ПоместитьВоВременноеХранилище(Результат, УИД);
 
 	Возврат Адрес;
 

diff --git a/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаТаблицыЗначений/Ext/Form/Module.bsl b/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаТаблицыЗначений/Ext/Form/Module.bsl
@@ -107,22 +107,12 @@
 
 #Область СлужебныеПроцедурыИФункции
 
-&НаСервереБезКонтекста
-Процедура ОчиститьНеиспользуемыеНастройки(Адрес)
-	УдалитьИзВременногоХранилища(Адрес);
-КонецПроцедуры
-
 &НаСервере
 Функция АдресТаблицыВХранилище()
 
-	Адрес = "";
-	Если ЗначениеЗаполнено(СтрокиТаблицыЗначений) Тогда
-		УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
-		ТаблицаЗначений = СтрокиТаблицыЗначений.Выгрузить();
-		Адрес = ПоместитьВоВременноеХранилище(ТаблицаЗначений, УИД);
-	Иначе
-		ОчиститьНеиспользуемыеНастройки(АдресЗначения);
-	КонецЕсли;
+	УИД = ?(ПустаяСтрока(АдресЗначения), Новый УникальныйИдентификатор, АдресЗначения);
+	ТаблицаЗначений = СтрокиТаблицыЗначений.Выгрузить();
+	Адрес = ПоместитьВоВременноеХранилище(ТаблицаЗначений, УИД);
 
 	Возврат Адрес;
 

diff --git a/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/Catalogs/__ПользовательскиеФункции/Forms/ФормаЭлемента/Ext/Form/Module.bsl
@@ -128,7 +128,7 @@
 		СохранитьКаталогИсходногоКодаКонфигурации(КаталогИсходногоКодаКонфигурации);	
 	КонецЕсли;
 
-	СохранитьПараметрыФункции();
+	СохранитьПараметрыФункции(Отказ);
 
 КонецПроцедуры
 
@@ -244,6 +244,8 @@
 		ТекДанные.ТипВФорме = ВыбранныйЭлемент.Представление;
 		// Доработать, отражение количество элементов в коллекции, условное оформление - цвет текста, запрет изменения
 		ТекДанные.ЗначениеВФорме = ВыбранныйЭлемент.Представление;
+		ПустаяКоллекция = Новый(Тип(ВыбранныйЭлемент.Значение));
+		ТекДанные.АдресЗначения = ПоместитьВоВременноеХранилище(ПустаяКоллекция, Новый УникальныйИдентификатор);
 	Иначе
 		ИнициализацияТипаИЗначенияПараметра(ТекДанные, ВыбранныйЭлемент);
 	КонецЕсли;
@@ -507,11 +509,7 @@
 	ПараметрыФункции = Новый Структура;
 	Для Каждого Стр Из Объект.ПараметрыФункции Цикл
 		СтрокаПараметра = ЗначенияПараметровФункции.Получить(Стр.Идентификатор);
-		Значение = Новый Структура("Тип,Значение");
-		Если СтрокаПараметра <> Неопределено Тогда
-			Значение.Тип = СтрокаПараметра.Тип;
-			Значение.Значение = СтрокаПараметра.Значение;
-		КонецЕсли;
+		Значение = ?(СтрокаПараметра = Неопределено, Неопределено, СтрокаПараметра.Значение);
 		ПараметрыФункции.Вставить(Стр.Наименование, Значение);
 	КонецЦикла;
 
@@ -2040,7 +2038,7 @@
 КонецПроцедуры
 
 &НаСервере
-Процедура СохранитьПараметрыФункции()
+Процедура СохранитьПараметрыФункции(Отказ = Ложь)
 
 	НастройкиПараметров = ПолучитьПараметрыФункции();
 

diff --git a/src/CommonModules/__ОбщегоНазначенияСервер/Ext/Module.bsl b/src/CommonModules/__ОбщегоНазначенияСервер/Ext/Module.bsl
@@ -1728,9 +1728,7 @@
 //      которую требуется выполнить
 //  Параметры	 - Структура - Подготовленные параметры для выполнения пользовательской функции
 //   * Ключ - Строка - Имя параметра
-//   * Значение - Структура - Тип и значение параметра
-//     * Ключ - Строка - может быть "Тип", "Значение"
-//     * Значение - Произвольный
+//   * Значение - Структура - Значение параметра
 // 
 // Возвращаемое значение:
 //  Неопределено, в - случае успешного выполнения, Описание ошибки, в случае неудачи.
@@ -2336,9 +2334,7 @@
 //  Текст		 - Строка - Исходный текст
 //  Параметры	 - Структура - Подготовленные параметры для выполнения пользовательской функции
 //   * Ключ - Строка - Имя параметра
-//   * Значение - Структура - Тип и значение параметра
-//     * Ключ - Строка - может быть "Тип", "Значение"
-//     * Значение - Произвольный
+//   * Значение - Произвольный - Значение параметра
 //  Выборка		 - ВыборкаИзРезультатаЗапроса - Проверямые параметры функции.
 //   * Наименование - Строка - Имя параметра
 //   * Необязательный - Булево - Если Необязательный = Ложь и параметра нет в структуре параметров,
@@ -2357,7 +2353,7 @@
 	Пока Выборка.Следующий() Цикл
 		Значение = Неопределено;
 		Если Параметры.Свойство(Выборка.Наименование, Значение) Тогда
-			ТипПараметра = ?(Значение.Тип = Неопределено, Значение.Тип, Тип(Значение.Тип));
+			ТипПараметра = ТипЗнч(Значение);
 			Если ТипПараметра <> Тип(Выборка.Тип) Тогда
 				ТекстСообщения = СтрШаблон(НСтр("ru='Тип значения параметра %1 - %2. Допустимый - %3!'"),
 					Выборка.Наименование,
@@ -2374,7 +2370,7 @@
 			Продолжить;
 		КонецЕсли;
 
-		Парам.Вставить(Выборка.Наименование, Значение.Значение);
+		Парам.Вставить(Выборка.Наименование, Значение);
 		ЗаменаПодстроки(Текст, Выборка.Наименование);
 	КонецЦикла;
 
@@ -2432,7 +2428,6 @@
 
 КонецФункции
 
-
 #КонецОбласти
 
 #КонецОбласти // СлужебныеПроцедурыИФункции