diff --git a/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Form.form b/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Form.form index 43b0b6a..636ec4e 100644 --- a/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Form.form +++ b/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Form.form @@ -267,7 +267,9 @@ true + 6 true + 3 true @@ -317,8 +319,10 @@ 32 true false + Center Left + Center @@ -447,7 +451,10 @@ true + 6 true + 3 + 3 true @@ -497,8 +504,10 @@ 32 true false + Center Left + Center true @@ -2185,6 +2194,23 @@ true + + СозданПрограммно + + <key>ru</key> + <value>Создан программно</value> + + 9 + + Boolean + + + true + + + true + + diff --git a/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Module.bsl b/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Module.bsl index 0c8fc44..fc2ac9b 100644 --- a/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Module.bsl +++ b/ПредопределенныеЗначенияПодсистема/src/Catalogs/ПредопределенныеНастройки/Forms/ФормаЭлемента/Module.bsl @@ -378,6 +378,7 @@ Возврат; Иначе ИсходноеЗначение = СтрокаТекущейНастройки.Значение; + СозданПрограммно = Истина; КонецЕсли; КонецПроцедуры @@ -385,9 +386,15 @@ &НаСервере Процедура УстановитьВидимостьЭлементовФормы() - ЗначенияРазличаются = (Объект.Значение <> ИсходноеЗначение); - Элементы.ГруппаИнформация.Видимость = ЗначенияРазличаются; - + Если СозданПрограммно Тогда + Элементы.ГруппаПредупреждение.Видимость = Ложь; + ЗначенияРазличаются = (Объект.Значение <> ИсходноеЗначение); + Элементы.ГруппаИнформация.Видимость = ЗначенияРазличаются; + Иначе + Элементы.ГруппаПредупреждение.Видимость = Истина; + Элементы.ГруппаИнформация.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Form.form b/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Form.form index db0c6e7..c621527 100644 --- a/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Form.form +++ b/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Form.form @@ -702,6 +702,154 @@ Auto + + ГруппаМассив + 15 + + СозданиеПредопределеннойНастройкМассив + 17 + + <key>ru</key> + <value>Создать настройку</value> + + true + true + + true + + + СозданиеПредопределеннойНастройкМассивРасширеннаяПодсказка + 18 + true + true + + true + + Label + true + true + + Left + + + UsualButton + Form.Command.СозданиеПредопределеннойНастройкМассив + PictureAndText + true + true + UserCmds + + StdPicture.CreateListItem + + Auto + + + УстановитьЗначениеПредопределеннойНастройкиМассив + 19 + + <key>ru</key> + <value>Установить значение</value> + + true + true + + true + + + УстановитьЗначениеПредопределеннойНастройкиМассивРасширеннаяПодсказка + 20 + true + true + + true + + Label + true + true + + Left + + + UsualButton + Form.Command.УстановитьЗначениеПредопределеннойНастройкиМассив + PictureAndText + true + true + UserCmds + + StdPicture.DataCompositionStandardSettings + + Auto + + + УдалениеПредопределеннойНастройкиМассив + 21 + true + true + + true + + + УдалениеПредопределеннойНастройкиМассивРасширеннаяПодсказка + 22 + true + true + + true + + Label + true + true + + Left + + + UsualButton + Form.Command.УдалениеПредопределеннойНастройкиМассив + PictureAndText + true + true + UserCmds + + StdPicture.Delete + + Auto + + true + true + + true + + + <key>ru</key> + <value>Массив</value> + + + ГруппаМассивРасширеннаяПодсказка + 16 + true + true + + true + + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + true + Auto + Auto + + true true @@ -728,7 +876,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -753,6 +901,7 @@ ПредопределеннаяНастройка + Top ПредопределеннаяНастройкаРасширеннаяПодсказка 25 @@ -1211,6 +1360,47 @@ Auto + + СозданиеПредопределеннойНастройкМассив + + <key>ru</key> + <value>Создать настройку</value> + + 3 + + true + + + + СозданиеПредопределеннойНастройкМассив + + + Auto + + + УстановитьЗначениеПредопределеннойНастройкиМассив + + <key>ru</key> + <value>Установить значение</value> + + 4 + + true + + Auto + + + УдалениеПредопределеннойНастройкиМассив + + <key>ru</key> + <value>Удалить настройку</value> + + 5 + + true + + Auto + diff --git a/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Module.bsl b/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Module.bsl index c0606e1..67d8bfc 100644 --- a/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Module.bsl +++ b/ПредопределенныеЗначенияПодсистема/src/DataProcessors/ПредопределенныеНастройкиТестирование/Forms/Форма/Module.bsl @@ -76,6 +76,11 @@ Процедура УдалениеПредопределеннойНастройкиСсылка(Команда) УдалениеПредопределеннойНастройкиСсылкаНаСервере(); КонецПроцедуры + +&НаКлиенте +Процедура СозданиеПредопределеннойНастройкМассив(Команда) + СозданиеПредопределеннойНастройкМассивНаСервере(); +КонецПроцедуры #КонецОбласти #Область СлужебныеПроцедурыИФункции @@ -86,7 +91,7 @@ ОбновитьПовторноИспользуемыеЗначения(); ТаблицаНастроек = ТаблицаПредопределенныхТестовыхНастроек(); - ПредопределенныеНастройки.ЗаполнениеПредопределенныхЭлементов(ТаблицаНастроек); + ПредопределенныеНастройки.ОбновитьНастройкиВБазе(ТаблицаНастроек); ПроверитьСозданныеНастройки(); КонецПроцедуры @@ -225,13 +230,11 @@ НоваяНастройка = ТаблицаНастроек.Добавить(); НоваяНастройка.Идентификатор = Новый УникальныйИдентификатор("6f205348-2c73-46a8-98a6-851a40a12bbe"); - НоваяНастройка.ИмяНастройки = "ТестМассив"; - НоваяНастройка.Хранилище = Перечисления.ValueStorage.Массив; + НоваяНастройка.ИмяНастройки = ИмяНастройкиТестовыйМассив(); + НоваяНастройка.Хранилище = Новый ХранилищеЗначения(МассивПример); НоваяНастройка.Значение = МассивПример; НоваяНастройка.Наименование = "Массив тестовых настроек"; - НоваяНастройка.ТипЗначения = Справочники.ПредопределенныеНастройки.НайтиПоРеквизиту("ИмяНастройки", - "ПримерТипаМассив"); - + НоваяНастройка.ТипЗначения = ПредопределенноеЗначение("Перечисление.ТипыЗначенияПредопределенныхЗначений.Массив"); КонецПроцедуры // Процедура проверяет, были ли созданы предопределенные настройки. @@ -362,6 +365,11 @@ Возврат "ТестСсылки"; КонецФункции +&НаСервере +Функция ИмяНастройкиТестовыйМассив() + Возврат "ТестМассива"; +КонецФункции + &НаСервере Процедура СозданиеПредопределеннойНастройкиБулевоНаСервере() @@ -408,7 +416,7 @@ ПредопределеннаяНастройка = ПредопределенныеНастройки.НастройкаПоИмени(ИмяНастройкиТестовойСсылки()); ЗначениеПредопределеннойНастройки = ПредопределенныеНастройки.Значение(ИмяНастройкиТестовойСсылки(), Истина); - + КонецПроцедуры &НаСервере @@ -436,4 +444,16 @@ КонецПроцедуры + +&НаСервере +Процедура СозданиеПредопределеннойНастройкМассивНаСервере() + + ТаблицаНастроек = ПредопределенныеНастройки.НоваяТаблицаПредопределенныхНастроек(); + ДобавитьТестовыйМассив(ТаблицаНастроек); + ПредопределенныеНастройки.ОбновитьНастройкиВБазе(ТаблицаНастроек); + + ПредопределеннаяНастройка = ПредопределенныеНастройки.НастройкаПоИмени(ИмяНастройкиТестовыйМассив()); + ЗначениеПредопределеннойНастройки = ПредопределенныеНастройки.Значение(ИмяНастройкиТестовыйМассив(), Истина); + +КонецПроцедуры #КонецОбласти \ No newline at end of file