#246 Интегрировал новый инструмент "Сравнение объектов". Добавил

интеграцию с БСП инструментов Сравнение объектов и редактор оъектов

src/Инструменты/src/CommonModules/ПодключаемыеКомандыПереопределяемый/Module.bsl

@@ -0,0 +1,49 @@
+&После("ПриОпределенииВидовПодключаемыхКоманд")
+Процедура УИ_ПриОпределенииВидовПодключаемыхКоманд(ВидыПодключаемыхКоманд)
+	Вид = ВидыПодключаемыхКоманд.Добавить();
+	Вид.Имя         = "УИ_УниверсальныеИнструменты";
+	Вид.ИмяПодменю  = "УИ_УниверсальныеИнструменты";
+	Вид.Заголовок   = НСтр("ru = 'Инструменты'");
+	Вид.Картинка    = БиблиотекаКартинок.УИ_ПодсистемаУниверсальныеИнструмены;
+	Вид.Отображение = ОтображениеКнопки.Картинка;
+	Вид.Порядок = 1;
+	Вид.ВидГруппыФормы=ВидГруппыФормы.Подменю;
+КонецПроцедуры
+
+&После("ПриОпределенииКомандПодключенныхКОбъекту")
+Процедура УИ_ПриОпределенииКомандПодключенныхКОбъекту(НастройкиФормы, Источники, ПодключенныеОтчетыИОбработки, Команды)
+	Команда = Команды.Добавить();
+	Команда.Вид="УИ_УниверсальныеИнструменты";
+	Команда.Идентификатор="УИ_СравнениеОбъектов";
+	Команда.Представление="Сравненить объекты";
+	Команда.ТипПараметра=УИ_ОбщегоНазначенияПовтИсп.ОписаниеТипаВсеСсылки();
+	Команда.Назначение="ДляСписка";
+	Команда.ИзменяетВыбранныеОбъекты=Ложь;
+	Команда.МножественныйВыбор=Истина;
+	//		Команда.Менеджер = "Обработка.УИ_СравнениеОбъектов";
+	Команда.ИмяФормы = "Обработка.УИ_СравнениеОбъектов.Форма";
+	Команда.ИмяПараметраФормы = "СравниваемыеОбъекты";
+	Команда.Порядок=0;
+
+	Команда = Команды.Добавить();
+	Команда.Вид="УИ_УниверсальныеИнструменты";
+	Команда.Идентификатор="УИ_ДобавитьКСравнению";
+	Команда.Представление="Добавить к сравнению";
+	Команда.ТипПараметра=УИ_ОбщегоНазначенияПовтИсп.ОписаниеТипаВсеСсылки();
+	Команда.ИзменяетВыбранныеОбъекты=Ложь;
+	Команда.МножественныйВыбор=Истина;
+	Команда.Обработчик = "УИ_ОбщегоНазначенияКлиент.ДобавитьОбъектыКСравнению";
+	Команда.Порядок=1;
+
+	Команда = Команды.Добавить();
+	Команда.Вид="УИ_УниверсальныеИнструменты";
+	Команда.Идентификатор="УИ_РедактироватьОбъект";
+	Команда.Представление="Редактировать объект";
+	Команда.ТипПараметра=УИ_ОбщегоНазначенияПовтИсп.ОписаниеТипаВсеСсылки();
+	Команда.ИзменяетВыбранныеОбъекты=Ложь;
+	Команда.МножественныйВыбор=Ложь;
+	Команда.Картинка=БиблиотекаКартинок.УИ_РедакторОбъектовБазыДанных;
+	Команда.Обработчик = "УИ_ОбщегоНазначенияКлиент.ОбработчикКомандыРедактироватьОбъект";
+	Команда.Порядок=2;
+
+КонецПроцедуры

src/Инструменты/src/CommonModules/ПодключаемыеКомандыПереопределяемый/ПодключаемыеКомандыПереопределяемый.mdo

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:CommonModule xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" xmlns:mdclassExtension="http://g5.1c.ru/v8/dt/metadata/mdclass/extension" uuid="3453e5ba-3d2b-11eb-5899-e86a6452d1f2">
+  <name>ПодключаемыеКомандыПереопределяемый</name>
+  <objectBelonging>Adopted</objectBelonging>
+  <extension xsi:type="mdclassExtension:CommonModuleExtension">
+    <module>Extended</module>
+    <global>Checked</global>
+    <clientManagedApplication>Checked</clientManagedApplication>
+    <server>Checked</server>
+    <externalConnection>Checked</externalConnection>
+    <serverCall>Checked</serverCall>
+    <clientOrdinaryApplication>Checked</clientOrdinaryApplication>
+  </extension>
+  <server>true</server>
+  <externalConnection>true</externalConnection>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
+</mdclass:CommonModule>

src/Инструменты/src/CommonModules/УИ_ОбщегоНазначения/Module.bsl

@@ -236,7 +236,7 @@
 // Возвращаемое значение:
 //  Произвольный - значение, полученное из переданной XML-строки.
 //
-Функция ЗначениеИзСтрокиXML(СтрокаXML, Тип=Неопределено) Экспорт
+Функция ЗначениеИзСтрокиXML(СтрокаXML, Тип = Неопределено) Экспорт
 
 	ЧтениеXML = Новый ЧтениеXML;
 	ЧтениеXML.УстановитьСтроку(СтрокаXML);
@@ -1040,8 +1040,6 @@
 	Возврат Ложь;
 
 КонецФункции
-
-
 #КонецОбласти
 
 // Возвращает исключения при поиске мест использования объектов.
@@ -1273,6 +1271,58 @@
 	Возврат УИ_ОбщегоНазначенияПовтИсп.ОписаниеТипаВсеСсылки();
 
 КонецФункции
+
+#Область СравнениеОбъектов
+
+Процедура ДобавитьОбъектВМассивОбъектовКСравнению(МассивОБъектов, СсылкаНаОбъект)
+	Если МассивОБъектов.Найти(СсылкаНаОбъект) = Неопределено Тогда
+		МассивОБъектов.Добавить(СсылкаНаОбъект);
+	КонецЕсли;
+КонецПроцедуры
+
+Функция КлючНастроекОбъектовКСравнению() Экспорт
+	Возврат "ОбъектыКСравнению";
+КонецФункции
+
+Процедура ДобавитьМассивОбъектовКСравнению(Объекты) Экспорт
+	МассивОбъектовКСравнению=ОбъектыДобавленныеКСравнению();
+
+	Если ТипЗнч(Объекты) = Тип("Массив") Тогда
+		Для Каждого Эл Из Объекты Цикл
+			ДобавитьОбъектВМассивОбъектовКСравнению(МассивОбъектовКСравнению, Эл);
+		КонецЦикла;
+	ИначеЕсли ТипЗнч(Объекты) = Тип("СписокЗначений") Тогда
+		Для Каждого Эл Из Объекты Цикл
+			ДобавитьОбъектВМассивОбъектовКСравнению(МассивОбъектовКСравнению, Эл.Значение);
+		КонецЦикла;
+	Иначе
+		ДобавитьОбъектВМассивОбъектовКСравнению(МассивОбъектовКСравнению, Объекты);
+	КонецЕсли;
+
+	УИ_ОбщегоНазначения.ХранилищеСистемныхНастроекСохранить(
+		УИ_ОбщегоНазначенияКлиентСервер.КлючОбъектаВХранилищеНастроек(), КлючНастроекОбъектовКСравнению(),
+		МассивОбъектовКСравнению);
+
+КонецПроцедуры
+
+Функция ОбъектыДобавленныеКСравнению() Экспорт
+	КлючОбъекта=УИ_ОбщегоНазначенияКлиентСервер.КлючОбъектаВХранилищеНастроек();
+	КлючНастроек=КлючНастроекОбъектовКСравнению();
+
+	МассивОбъектовКСравнению=ХранилищеСистемныхНастроекЗагрузить(КлючОбъекта, КлючНастроек, , , ИмяПользователя());
+	Если МассивОбъектовКСравнению = Неопределено Тогда
+		МассивОбъектовКСравнению=Новый Массив;
+	КонецЕсли;
+
+	Возврат МассивОбъектовКСравнению;
+КонецФункции
+
+Процедура ОчиститьОбъектыДобавленныеКСравнению() Экспорт
+	УИ_ОбщегоНазначения.ХранилищеСистемныхНастроекСохранить(
+		УИ_ОбщегоНазначенияКлиентСервер.КлючОбъектаВХранилищеНастроек(), КлючНастроекОбъектовКСравнению(), Новый Массив);
+КонецПроцедуры
+
+#КонецОбласти
 #Область ДанныеВБазе
 
 ////////////////////////////////////////////////////////////////////////////////

src/Инструменты/src/CommonModules/УИ_ОбщегоНазначенияВызовСервера/Module.bsl

@@ -114,6 +114,10 @@
 	УИ_Пользователи.ВосстановитьДанныеПользователяПослеЗапускаСеансаПодПользователем(ИмяПользователя, ДанныеСохраненногоПароляПользователяИБ);
 КонецПроцедуры
 
+Процедура ДобавитьМассивОбъектовКСравнению(Объекты) Экспорт
+	УИ_ОбщегоНазначения.ДобавитьМассивОбъектовКСравнению(Объекты);
+КонецПроцедуры
+
 #Область Алгоритмы
 
 Функция ПолучитьСсылкуСправочникАлгоритмы(Алгоритм) Экспорт

src/Инструменты/src/CommonModules/УИ_ОбщегоНазначенияКлиент/Module.bsl

@@ -285,6 +285,17 @@
 
 КонецПроцедуры
 
+#Область КомандыБСП
+
+Процедура ДобавитьОбъектыКСравнению(МассивОбъектов, Контекст) Экспорт
+	УИ_ОбщегоНазначенияКлиентСервер.ДобавитьМассивОбъектовКСравнению(МассивОбъектов);
+КонецПроцедуры
+
+Процедура ОбработчикКомандыРедактироватьОбъект(СсылкаНаОбъект, Контекст) Экспорт
+	РедактироватьОбъект(СсылкаНаОбъект);
+КонецПроцедуры
+
+#КонецОбласти
 #Область РедактированиеТиповИПеременные
 
 // Процедура - Редактировать тип

src/Инструменты/src/CommonModules/УИ_ОбщегоНазначенияКлиентСервер/Module.bsl

@@ -335,6 +335,10 @@
 	Возврат Неопределено;
 КонецФункции
 
+Процедура ДобавитьМассивОбъектовКСравнению(Объекты) Экспорт
+	УИ_ОбщегоНазначенияВызовСервера.ДобавитьМассивОбъектовКСравнению(Объекты);
+КонецПроцедуры
+
 // Возвращает код основного языка конфигурации, например "ru".
 //
 // Возвращаемое значение:
@@ -1345,6 +1349,10 @@
 	Возврат "УИ_УниверсальныеИнструменты_ДанныеДляОтладки";
 КонецФункции
 
+Функция КлючОбъектаВХранилищеНастроек() Экспорт
+	Возврат "УИ_УниверсальныеИнструменты";
+КонецФункции
+
 #КонецОбласти
 
 #Область HTTPЗапросы

src/Инструменты/src/Configuration/Configuration.mdo

@@ -21,7 +21,7 @@
   <configurationExtensionPurpose>AddOn</configurationExtensionPurpose>
   <scriptVariant>Russian</scriptVariant>
   <vendor>ООО &quot;Центр прикладных разработок&quot;</vendor>
-  <version>1.4.7</version>
+  <version>1.4.8</version>
   <defaultLanguage>Language.Русский</defaultLanguage>
   <dataLockControlMode>Managed</dataLockControlMode>
   <objectAutonumerationMode>NotAutoFree</objectAutonumerationMode>
@@ -101,6 +101,7 @@
   <commonModules>CommonModule.УИ_РедакторКодаКлиент</commonModules>
   <commonModules>CommonModule.УИ_БуферОбменаКлиент</commonModules>
   <commonModules>CommonModule.УИ_ПарсерXML</commonModules>
+  <commonModules>CommonModule.ПодключаемыеКомандыПереопределяемый</commonModules>
   <httpServices>HTTPService.УИ_ПубликуемыеФункции</httpServices>
   <commonForms>CommonForm.УИ_ДлительнаяОперация</commonForms>
   <commonForms>CommonForm.УИ_ФормаТаблицыЗначений</commonForms>
@@ -144,4 +145,5 @@
   <dataProcessors>DataProcessor.УИ_РедакторHTML</dataProcessors>
   <dataProcessors>DataProcessor.УИ_УниверсальныйОбменДаннымиXML</dataProcessors>
   <dataProcessors>DataProcessor.УИ_РедакторСКД</dataProcessors>
+  <dataProcessors>DataProcessor.УИ_СравнениеОбъектов</dataProcessors>
 </mdclass:Configuration>