From f857bf09aee1aa4f2745d19bbd43ccbdf87f6161 Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Wed, 3 Apr 2024 17:47:42 +0300 Subject: [PATCH 1/7] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD=20?= =?UTF-8?q?=D1=80=D0=B5=D0=BA=D0=B2=D0=B8=D0=B7=D0=B8=D1=82=20=D0=BE=D0=B1?= =?UTF-8?q?=D1=8A=D0=B5=D0=BA=D1=82=D0=B0,=20=D0=B4=D0=BE=D0=B1=D0=B0?= =?UTF-8?q?=D0=B2=D0=BB=D0=B5=D0=BD=20=D1=80=D0=B5=D0=BA=D0=B2=D0=B8=D0=B7?= =?UTF-8?q?=D0=B8=D1=82=20=D1=84=D0=BE=D1=80=D0=BC=D1=8B,=20=D0=B4=D0=BE?= =?UTF-8?q?=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=D0=B0=20=D0=BB=D0=BE=D0=B3?= =?UTF-8?q?=D0=B8=D0=BA=D0=B0=20=D1=80=D0=B0=D0=B7=D0=B4=D0=B5=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D0=BE=D0=B3=D0=BE=20=D1=85=D1=80=D0=B0=D0=BD=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D1=8F=20=D0=B4=D0=B8=D1=80=D0=B5=D0=BA=D1=82=D0=BE=D1=80?= =?UTF-8?q?=D0=B8=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...0\275\320\272\321\206\320\270\320\270.xml" | 48 ------------- .../Ext/Form.xml" | 27 +++++++ .../Ext/Form/Module.bsl" | 70 ++++++++++++++++++- 3 files changed, 96 insertions(+), 49 deletions(-) diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270.xml" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270.xml" index 443dd733..07b60aa1 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270.xml" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270.xml" @@ -533,54 +533,6 @@ Use - - - КаталогИсходногоКодаКонфигурации - - - ru - Каталог исходного кода конфигурации - - - en - Configuration source code directory - - - - - xs:string - - 0 - Variable - - - false - - - - false - - false - false - - - false - - DontCheck - Items - - - Auto - Auto - - - Auto - ForItem - DontIndex - Use - Use - - diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml" index edd89132..c23e71f2 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml" @@ -10,6 +10,7 @@ ПередЗаписью ПриСозданииНаСервере ПередЗаписьюНаСервере + ПриЗаписиНаСервере @@ -71,6 +72,16 @@ КонтекстПриИзменении + + КаталогИсходногоКодаКонфигурации + true + true + + + + КаталогИсходногоКодаКонфигурацииНачалоВыбора + + <v8:item> @@ -866,6 +877,22 @@ <v8:Type>xs:boolean</v8:Type> </Type> </Attribute> + <Attribute name="КаталогИсходногоКодаКонфигурации" id="20"> + <Title> + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Каталог исходного кода конфигурации</v8:content> + </v8:item> + + + xs:string + + 0 + Variable + + + true + diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" index 61d4f3e5..d09cf217 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" @@ -72,6 +72,12 @@ КонецЕсли; КонецЕсли; + //Получение каталога исходного кода конфигурации + Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); + Если ЗначениеЗаполнено(Каталог) Тогда + КаталогИсходногоКодаКонфигурации = Каталог; + КонецЕсли; + ПолучитьНазваниеПодпрограммыСПараметрамиСервер(); УправлениеЭлементамиФормы(); @@ -129,6 +135,21 @@ КонецПроцедуры +&НаСервере +Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + + Если Отказ Тогда + Возврат; + КонецЕсли; + + КаталогИсходногоКода = ПолучитьКаталогИсходногоКодаКонфигурации(); + + Если ЗначениеЗаполнено(КаталогИсходногоКодаКонфигурации) И КаталогИсходногоКода <> КаталогИсходногоКодаКонфигурации Тогда + СохранитьКаталогИсходногоКодаКонфигурации(КаталогИсходногоКодаКонфигурации); + КонецЕсли; + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовШапкиФормы @@ -147,6 +168,22 @@ КонецПроцедуры +&НаКлиенте +Асинх Процедура КаталогИсходногоКодаКонфигурацииНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) + + Диалог = новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); + Диалог.МножественныйВыбор = Ложь; + + Результат = Ждать Диалог.ВыбратьАсинх(); + Если Результат = Неопределено Тогда + Возврат; + КонецЕсли; + + Модифицированность = Истина; + КаталогИсходногоКодаКонфигурации = Результат[0]; + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыПараметрыФункции @@ -555,6 +592,37 @@ КонецПроцедуры +&НаСервере +Функция ПолучитьКаталогИсходногоКодаКонфигурации() + + // ++ Обход ошибки отстутствия модуля БСП, не переносить + ОбщегоНазначения = Неопределено; + // -- Обход ошибки отстутствия модуля БСП, не переносить + + Результат = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(КлючОбъекта(), + "__ПользовательскиеФункции_КаталогИсхКода", ""); + + Возврат Результат; + +КонецФункции + +&НаСервере +Процедура СохранитьКаталогИсходногоКодаКонфигурации(Каталог) + + // ++ Обход ошибки отстутствия модуля БСП, не переносить + ОбщегоНазначения = Неопределено; + // -- Обход ошибки отстутствия модуля БСП, не переносить + + ОбщегоНазначения.ХранилищеОбщихНастроекСохранить(КлючОбъекта(), + "__ПользовательскиеФункции_КаталогИсхКода", Каталог); + +КонецПроцедуры + +&НаСервере +Функция КлючОбъекта() + Возврат "Справочник.__ПользовательскиеФункции.Форма.ФормаЭлемента"; +КонецФункции + #Область ОбработчикиСобытийПоляРедактора &НаКлиенте @@ -935,7 +1003,7 @@ &НаКлиенте Функция ПолучитьКаталогИсходногоКода() - КаталогИсходногоКода = Объект.КаталогИсходногоКодаКонфигурации; + КаталогИсходногоКода = КаталогИсходногоКодаКонфигурации; Если ЗначениеЗаполнено(КаталогИсходногоКода) Тогда КаталогИсходногоКода = НормализоватьПуть(КаталогИсходногоКода); КонецЕсли; From 37a0fe88f9ca5f59e20f8792da177716fdbf0d76 Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Wed, 3 Apr 2024 22:02:50 +0300 Subject: [PATCH 2/7] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D1=8B=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=20?= =?UTF-8?q?=D0=BF=D0=BE=D1=81=D0=BB=D0=B5=20=D0=BF=D1=80=D0=BE=D0=B2=D0=B5?= =?UTF-8?q?=D1=80=D0=BA=D0=B8=20sonarqube?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 11 +-- .../Ext/Module.bsl" | 87 ++++++++++++++++++- 2 files changed, 92 insertions(+), 6 deletions(-) diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" index d09cf217..92106fba 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" @@ -72,7 +72,7 @@ КонецЕсли; КонецЕсли; - //Получение каталога исходного кода конфигурации + // Получение каталога исходного кода конфигурации Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); Если ЗначениеЗаполнено(Каталог) Тогда КаталогИсходногоКодаКонфигурации = Каталог; @@ -144,7 +144,8 @@ КаталогИсходногоКода = ПолучитьКаталогИсходногоКодаКонфигурации(); - Если ЗначениеЗаполнено(КаталогИсходногоКодаКонфигурации) И КаталогИсходногоКода <> КаталогИсходногоКодаКонфигурации Тогда + Если ЗначениеЗаполнено(КаталогИсходногоКодаКонфигурации) + И КаталогИсходногоКода <> КаталогИсходногоКодаКонфигурации Тогда СохранитьКаталогИсходногоКодаКонфигурации(КаталогИсходногоКодаКонфигурации); КонецЕсли; @@ -171,7 +172,7 @@ &НаКлиенте Асинх Процедура КаталогИсходногоКодаКонфигурацииНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) - Диалог = новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); + Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); Диалог.МножественныйВыбор = Ложь; Результат = Ждать Диалог.ВыбратьАсинх(); @@ -596,7 +597,7 @@ Функция ПолучитьКаталогИсходногоКодаКонфигурации() // ++ Обход ошибки отстутствия модуля БСП, не переносить - ОбщегоНазначения = Неопределено; + ОбщегоНазначения = __ВспомогательныйМодульНеПереносить; // -- Обход ошибки отстутствия модуля БСП, не переносить Результат = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(КлючОбъекта(), @@ -610,7 +611,7 @@ Процедура СохранитьКаталогИсходногоКодаКонфигурации(Каталог) // ++ Обход ошибки отстутствия модуля БСП, не переносить - ОбщегоНазначения = Неопределено; + ОбщегоНазначения = __ВспомогательныйМодульНеПереносить; // -- Обход ошибки отстутствия модуля БСП, не переносить ОбщегоНазначения.ХранилищеОбщихНастроекСохранить(КлючОбъекта(), diff --git "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" index 2b6fc51e..646b25b0 100644 --- "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" +++ "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" @@ -73,4 +73,89 @@ Выполнить ИмяМетода + "(" + ПараметрыСтрока + ")"; -КонецПроцедуры \ No newline at end of file +КонецПроцедуры + +Функция ХранилищеОбщихНастроекЗагрузить(КлючОбъекта, КлючНастроек, ЗначениеПоУмолчанию = Неопределено, + ОписаниеНастроек = Неопределено, ИмяПользователя = Неопределено) Экспорт + + Возврат ХранилищеЗагрузить(ХранилищеОбщихНастроек, + КлючОбъекта, + КлючНастроек, + ЗначениеПоУмолчанию, + ОписаниеНастроек, + ИмяПользователя); + +КонецФункции + +Процедура ХранилищеОбщихНастроекСохранить(КлючОбъекта, КлючНастроек, Настройки, + ОписаниеНастроек = Неопределено, + ИмяПользователя = Неопределено, + ОбновитьПовторноИспользуемыеЗначения = Ложь) Экспорт + + ХранилищеСохранить(ХранилищеОбщихНастроек, + КлючОбъекта, + КлючНастроек, + Настройки, + ОписаниеНастроек, + ИмяПользователя, + ОбновитьПовторноИспользуемыеЗначения); + +КонецПроцедуры + +Функция СократитьСтрокуКонтрольнойСуммой(Строка, МаксимальнаяДлина) Экспорт + + Результат = Строка; + Если СтрДлина(Строка) > МаксимальнаяДлина Тогда + Результат = Лев(Строка, МаксимальнаяДлина - 32); + ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.MD5); + ХешированиеДанных.Добавить(Сред(Строка, МаксимальнаяДлина - 32 + 1)); + Результат = Результат + СтрЗаменить(ХешированиеДанных.ХешСумма, " ", ""); + КонецЕсли; + Возврат Результат; +КонецФункции + +#Область СлужебныйПрограммныйИнтерфейс + +#Область ХранилищеНастроек + +Процедура ХранилищеСохранить(МенеджерХранилища, КлючОбъекта, КлючНастроек, Настройки, + ОписаниеНастроек, ИмяПользователя, ОбновитьПовторноИспользуемыеЗначения) + + Если Не ПравоДоступа("СохранениеДанныхПользователя", Метаданные) Тогда + Возврат; + КонецЕсли; + + МенеджерХранилища.Сохранить(КлючОбъекта, КлючНастроек(КлючНастроек), Настройки, + ОписаниеНастроек, ИмяПользователя); + + Если ОбновитьПовторноИспользуемыеЗначения Тогда + ОбновитьПовторноИспользуемыеЗначения(); + КонецЕсли; + +КонецПроцедуры + +Функция ХранилищеЗагрузить(МенеджерХранилища, КлючОбъекта, КлючНастроек, ЗначениеПоУмолчанию, + ОписаниеНастроек, ИмяПользователя) + + Результат = Неопределено; + + Если ПравоДоступа("СохранениеДанныхПользователя", Метаданные) Тогда + Результат = МенеджерХранилища.Загрузить(КлючОбъекта, КлючНастроек(КлючНастроек), + ОписаниеНастроек, ИмяПользователя); + КонецЕсли; + + Если Результат = Неопределено Тогда + Результат = ЗначениеПоУмолчанию; + КонецЕсли; + + Возврат Результат; + +КонецФункции + +Функция КлючНастроек(Знач Строка) + Возврат СократитьСтрокуКонтрольнойСуммой(Строка, 128); +КонецФункции + +#КонецОбласти + +#КонецОбласти \ No newline at end of file From 9dbaa6e6a8c81c6826344e7653e76ab3a8a1b4a5 Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Wed, 3 Apr 2024 22:14:07 +0300 Subject: [PATCH 3/7] =?UTF-8?q?=D0=A1=D0=BE=D0=B7=D0=B4=D0=B0=D0=BD=D1=8B?= =?UTF-8?q?=20=D0=BE=D0=B1=D0=BB=D0=B0=D1=81=D1=82=D0=B8,=20=D0=B8=D1=81?= =?UTF-8?q?=D0=BF=D1=80=D0=B0=D0=B2=D0=BB=D0=B5=D0=BD=D1=8B=20=D0=BE=D1=88?= =?UTF-8?q?=D0=B8=D0=B1=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Module.bsl" | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" index 646b25b0..b1544352 100644 --- "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" +++ "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" @@ -1,4 +1,6 @@ -Функция НайтиЗадания(ПараметрыЗадания) Экспорт +#Область ПрограммныйИнтерфейс + +Функция НайтиЗадания(ПараметрыЗадания) Экспорт МассивЗаданий = Новый Массив; МассивЗаданий.Добавить(Новый Структура("Использование, Расписание", Ложь, Новый РасписаниеРегламентногоЗадания())); @@ -74,7 +76,7 @@ Выполнить ИмяМетода + "(" + ПараметрыСтрока + ")"; КонецПроцедуры - + Функция ХранилищеОбщихНастроекЗагрузить(КлючОбъекта, КлючНастроек, ЗначениеПоУмолчанию = Неопределено, ОписаниеНастроек = Неопределено, ИмяПользователя = Неопределено) Экспорт @@ -104,17 +106,21 @@ Функция СократитьСтрокуКонтрольнойСуммой(Строка, МаксимальнаяДлина) Экспорт + МинимальнаяДлина = 32; Результат = Строка; Если СтрДлина(Строка) > МаксимальнаяДлина Тогда - Результат = Лев(Строка, МаксимальнаяДлина - 32); + Результат = Лев(Строка, МаксимальнаяДлина - МинимальнаяДлина); ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.MD5); - ХешированиеДанных.Добавить(Сред(Строка, МаксимальнаяДлина - 32 + 1)); + ХешированиеДанных.Добавить(Сред(Строка, МаксимальнаяДлина - МинимальнаяДлина + 1)); Результат = Результат + СтрЗаменить(ХешированиеДанных.ХешСумма, " ", ""); КонецЕсли; Возврат Результат; + КонецФункции -#Область СлужебныйПрограммныйИнтерфейс +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции #Область ХранилищеНастроек From c0b20d6e53c68ffad071de7b0773c4e5ec49d00c Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Thu, 4 Apr 2024 14:29:32 +0300 Subject: [PATCH 4/7] =?UTF-8?q?=D1=83=D0=B1=D1=80=D0=B0=D0=BB=20=D0=BE?= =?UTF-8?q?=D0=B1=D0=BB=D0=B0=D1=81=D1=82=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Module.bsl" | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" index b1544352..577acef0 100644 --- "a/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" +++ "b/src/CommonModules/__\320\222\321\201\320\277\320\276\320\274\320\276\320\263\320\260\321\202\320\265\320\273\321\214\320\275\321\213\320\271\320\234\320\276\320\264\321\203\320\273\321\214\320\235\320\265\320\237\320\265\321\200\320\265\320\275\320\276\321\201\320\270\321\202\321\214/Ext/Module.bsl" @@ -1,6 +1,4 @@ -#Область ПрограммныйИнтерфейс - -Функция НайтиЗадания(ПараметрыЗадания) Экспорт +Функция НайтиЗадания(ПараметрыЗадания) Экспорт МассивЗаданий = Новый Массив; МассивЗаданий.Добавить(Новый Структура("Использование, Расписание", Ложь, Новый РасписаниеРегламентногоЗадания())); @@ -118,10 +116,6 @@ КонецФункции -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - #Область ХранилищеНастроек Процедура ХранилищеСохранить(МенеджерХранилища, КлючОбъекта, КлючНастроек, Настройки, @@ -162,6 +156,4 @@ Возврат СократитьСтрокуКонтрольнойСуммой(Строка, 128); КонецФункции -#КонецОбласти - #КонецОбласти \ No newline at end of file From a39759eef0ccddd4e85c65d3893293cbcbb01995 Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Thu, 4 Apr 2024 15:57:13 +0300 Subject: [PATCH 5/7] =?UTF-8?q?=D1=82=D0=B5=D1=81=D1=82=20=D0=B1=D0=B5?= =?UTF-8?q?=D0=B7=20=D0=B2=D1=8B=D0=B7=D0=BE=D0=B2=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" index 92106fba..6ed2dad5 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" @@ -73,10 +73,10 @@ КонецЕсли; // Получение каталога исходного кода конфигурации - Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); - Если ЗначениеЗаполнено(Каталог) Тогда - КаталогИсходногоКодаКонфигурации = Каталог; - КонецЕсли; + //Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); + //Если ЗначениеЗаполнено(Каталог) Тогда + КаталогИсходногоКодаКонфигурации = "";//Каталог; + //КонецЕсли; ПолучитьНазваниеПодпрограммыСПараметрамиСервер(); From 6783e2ea670398cbb90497a54c3de21248c3dc17 Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Thu, 4 Apr 2024 16:33:06 +0300 Subject: [PATCH 6/7] =?UTF-8?q?=D0=9F=D0=BE=D0=B2=D1=82=D0=BE=D1=80=D0=BD?= =?UTF-8?q?=D1=8B=D0=B9=20=D1=82=D0=B5=D1=81=D1=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 6 ------ 1 file changed, 6 deletions(-) diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" index 6ed2dad5..e09dfbfa 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" @@ -72,12 +72,6 @@ КонецЕсли; КонецЕсли; - // Получение каталога исходного кода конфигурации - //Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); - //Если ЗначениеЗаполнено(Каталог) Тогда - КаталогИсходногоКодаКонфигурации = "";//Каталог; - //КонецЕсли; - ПолучитьНазваниеПодпрограммыСПараметрамиСервер(); УправлениеЭлементамиФормы(); From 966f02570ed1f0c0a4a36e014ef184bad592058e Mon Sep 17 00:00:00 2001 From: DenisUshakov Date: Thu, 4 Apr 2024 18:10:44 +0300 Subject: [PATCH 7/7] =?UTF-8?q?=D0=98=D1=82=D0=BE=D0=B3=D0=BE=D0=B2=D1=8B?= =?UTF-8?q?=D0=B5=20=D0=BD=D0=B0=D1=81=D1=82=D1=80=D0=BE=D0=B9=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 6 ++++++ 1 file changed, 6 insertions(+) diff --git "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" index e09dfbfa..92106fba 100644 --- "a/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" +++ "b/src/Catalogs/__\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\214\321\201\320\272\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form/Module.bsl" @@ -72,6 +72,12 @@ КонецЕсли; КонецЕсли; + // Получение каталога исходного кода конфигурации + Каталог = ПолучитьКаталогИсходногоКодаКонфигурации(); + Если ЗначениеЗаполнено(Каталог) Тогда + КаталогИсходногоКодаКонфигурации = Каталог; + КонецЕсли; + ПолучитьНазваниеПодпрограммыСПараметрамиСервер(); УправлениеЭлементамиФормы();