From 38f4a3d4d30db9de56eaa2b42c5fac8472830646 Mon Sep 17 00:00:00 2001 From: ava <35830269+ava1c@users.noreply.github.com> Date: Thu, 12 Sep 2024 11:01:51 +0700 Subject: [PATCH 1/2] =?UTF-8?q?=D0=9F=D0=BE=D0=B4=D0=B4=D0=B5=D1=80=D0=B6?= =?UTF-8?q?=D0=BA=D0=B0=20=D0=BA=D0=BE=D0=BD=D1=84=D0=B8=D0=B3=D1=83=D1=80?= =?UTF-8?q?=D0=B0=D1=86=D0=B8=D0=B9=20=D0=BD=D0=B0=20=D0=B0=D0=BD=D0=B3?= =?UTF-8?q?=D0=BB=D0=B8=D0=B9=D1=81=D0=BA=D0=BE=D0=BC=20=D0=BA=D0=BE=D0=B4?= =?UTF-8?q?=D0=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 39 +++++++++++++++---- 1 file changed, 32 insertions(+), 7 deletions(-) diff --git "a/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" "b/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" index 5f609216fa..0fc3cfb7e0 100644 --- "a/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" +++ "b/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" @@ -430,7 +430,11 @@ ОписаниеОбъекта = НовоеОписаниеОбъекта(ИмяПеременой, Класс, Вид); ОписаниеОбъекта.ВызовЗаполнения = ВызовЗаполнения; ПротоОбъект = ОписаниеОбъекта.ПротоОбъект; - ПротоОбъект.Ссылка = УИД; + Если ПротоОбъект.Свойство("Ссылка") Тогда + ПротоОбъект.Ссылка = УИД; + Иначе + ПротоОбъект.Ref = УИД; + КонецЕсли; ВидКласса = ВидКласса(Класс); ВидыКлассов = ВидыКлассов(); @@ -444,12 +448,20 @@ ВызватьИсключение "Неверный тип параметра установки реквизита ЭтоГруппа для " + ИмяМенеджера; КонецЕсли; Если ДатаИлиЭтоГруппа = Истина И ЕстьИерархия(ПротоОбъект) Тогда - ПротоОбъект.ЭтоГруппа = Истина; + Если ПротоОбъект.Свойство("ЭтоГруппа") Тогда + ПротоОбъект.ЭтоГруппа = Истина; + Иначе + ПротоОбъект.IsFolder = Истина; + КонецЕсли; КонецЕсли; - КонецЕсли; + КонецЕсли; + Если ПротоОбъект.Свойство("Наименование") Тогда ПротоОбъект.Наименование = ИдентификаторВПредставление(ИмяПеременой); КонецЕсли; + Если ПротоОбъект.Свойство("Description") Тогда + ПротоОбъект.Description = ИдентификаторВПредставление(ИмяПеременой); + КонецЕсли; ИначеЕсли ВидКласса = ВидыКлассов.СОсьюВремени Тогда Если НЕ УказанДатаИлиЭтоГруппа Тогда @@ -460,10 +472,18 @@ ВызватьИсключение "Неверный тип параметра установки даты для " + ИмяМенеджера; КонецЕсли; - ПротоОбъект.Дата = ДатаИлиЭтоГруппа; + Если ПротоОбъект.Свойство("Дата") Тогда + ПротоОбъект.Дата = ДатаИлиЭтоГруппа; + Иначе + ПротоОбъект.Date = ДатаИлиЭтоГруппа; + КонецЕсли; + Если ПротоОбъект.Свойство("Комментарий") Тогда ПротоОбъект.Комментарий = ИдентификаторВПредставление(ИмяПеременой); КонецЕсли; + Если ПротоОбъект.Свойство("Comment") Тогда + ПротоОбъект.Comment = ИдентификаторВПредставление(ИмяПеременой); + КонецЕсли; Иначе ВызватьИсключение "Неподдерживаемый класс при создании ссылки: " + ИмяМенеджера; КонецЕсли; @@ -834,7 +854,7 @@ &НаКлиентеНаСервереБезКонтекста Функция ЕстьИерархия(Источник) - Возврат ЕстьРеквизитИлиСвойствоОбъекта(Источник, "ЭтоГруппа"); + Возврат ЕстьРеквизитИлиСвойствоОбъекта(Источник, "ЭтоГруппа") ИЛИ ЕстьРеквизитИлиСвойствоОбъекта(Источник, "IsFolder"); КонецФункции &НаКлиентеНаСервереБезКонтекста @@ -2130,6 +2150,11 @@ МетаОбъект = Метаданные.НайтиПоТипу(Тип); ПолноеИмяОбъекта = МетаОбъект.ПолноеИмя(); ПолноеИмяМенеджера = СтрЗаменить(ПолноеИмяОбъекта, ".", "Менеджер."); + + Если СтрНайти(ПолноеИмяОбъекта, "Catalog") > 0 Тогда + ПолноеИмяМенеджера = СтрЗаменить(ПолноеИмяОбъекта, ".", "Manager."); + КонецЕсли; + МенеджерКласса = Новый (ПолноеИмяМенеджера); Возврат МенеджерКласса; @@ -2392,7 +2417,7 @@ Возврат; КонецЕсли; - Если ОписаниеРеквизита.Имя = "Ссылка" Тогда + Если ОписаниеРеквизита.Имя = "Ссылка" ИЛИ ОписаниеРеквизита.Имя = "Ref" Тогда Возврат; КонецЕсли; @@ -3547,4 +3572,4 @@ #КонецОбласти -#КонецОбласти \ No newline at end of file +#КонецОбласти From bdf22fe7ea8901458db6d432a49ba0e67402e02f Mon Sep 17 00:00:00 2001 From: ava <35830269+ava1c@users.noreply.github.com> Date: Wed, 25 Sep 2024 19:08:32 +0700 Subject: [PATCH 2/2] Update Module.bsl --- .../Ext/Form/Module.bsl" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" "b/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" index 0fc3cfb7e0..f446d8520f 100644 --- "a/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" +++ "b/VanessaAutomation/Forms/\320\230\320\275\320\270\321\206\320\270\320\260\321\202\320\276\321\200\320\224\320\260\320\275\320\275\321\213\321\205/Ext/Form/Module.bsl" @@ -2151,7 +2151,7 @@ ПолноеИмяОбъекта = МетаОбъект.ПолноеИмя(); ПолноеИмяМенеджера = СтрЗаменить(ПолноеИмяОбъекта, ".", "Менеджер."); - Если СтрНайти(ПолноеИмяОбъекта, "Catalog") > 0 Тогда + Если Найти(ПолноеИмяОбъекта, "Catalog") > 0 Тогда ПолноеИмяМенеджера = СтрЗаменить(ПолноеИмяОбъекта, ".", "Manager."); КонецЕсли;