Выпуск промежуточного релиза 1.0.5.014

src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl

@@ -1,6 +1,6 @@
 Процедура ПриДобавленииПодсистемы(Описание) Экспорт
     Описание.Имя = "УправлениеЗадачами";
-    Описание.Версия = "1.0.5.013";
+    Описание.Версия = "1.0.5.014";
 	
 	//+ УрянскийД 2020-06-22 (начало)
 	Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
@@ -306,6 +306,13 @@
 	Обработчик.ОбщиеДанные = Истина;
 	Обработчик.Комментарий = "Обновление на версию 1.0.5.013";
 	
+	Обработчик = Обработчики.Добавить();
+	Обработчик.НачальноеЗаполнение = Ложь;
+	Обработчик.Версия = "1.0.5.014";
+	Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_5_014";
+	Обработчик.ОбщиеДанные = Истина;
+	Обработчик.Комментарий = "Обновление на версию 1.0.5.014";	
+	
 КонецПроцедуры
 Процедура ПередОбновлениемИнформационнойБазы() Экспорт
 КонецПроцедуры
@@ -1110,6 +1117,71 @@
 		Справочники.узКонстанты.УстановитьЗначениеКонстанты("ТолькоПросмотрДляСодержанияЗадач", Ложь);
 	КонецЕсли;
 	
+КонецПроцедуры  
+
+Процедура ОбновлениеНаВерсию_1_0_5_014() Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = "ВЫБРАТЬ
+	|	узЗадачи.Ссылка КАК Задача,
+	|	узЗадачи.Проект КАК Проект,
+	|	узЗадачи.ЭтоОсновнаяЗадача КАК ЭтоОсновнаяЗадача
+	|ИЗ
+	|	Справочник.узЗадачи КАК узЗадачи
+	|ГДЕ
+	|	НЕ узЗадачи.ПометкаУдаления
+	|	И узЗадачи.Проект = ЗНАЧЕНИЕ(Справочник.узПроекты.ПустаяСсылка)
+	|	И узЗадачи.ЭтоОсновнаяЗадача";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Если РезультатЗапроса.Пустой() Тогда
+		Возврат;
+	КонецЕсли;
+	
+	Выборка = РезультатЗапроса.Выбрать();
+	
+	Пока Выборка.Следующий() Цикл
+		
+		НачатьТранзакцию();	
+		
+		ЗадачаСсылка = Выборка.Задача;
+		#Если Сервер И НЕ Сервер тогда
+			//Условие в конструкции специально сделано невыполнимым
+			ЗадачаСсылка = Справочники.узЗадачи.ПустаяСсылка();
+		#Конецесли
+		
+		СпрОбъектПроекты = Справочники.узПроекты.СоздатьЭлемент();
+		СпрОбъектПроекты.Наименование = ЗадачаСсылка;
+		СпрОбъектПроекты.Записать();
+		
+		ПроектСсылка = СпрОбъектПроекты.Ссылка;
+		
+		СпрОбъектЗадача = ЗадачаСсылка.ПолучитьОбъект();
+		Попытка
+			СпрОбъектЗадача.Заблокировать();
+		Исключение
+			
+			Если ТранзакцияАктивна() Тогда
+				ОтменитьТранзакцию(); 
+				
+				ТекстСообщения = НСтр("ru = 'Ошибка! не удалось заблокировать основную задачу [%1] описание ошибки [%2] '");
+				ТекстСообщения = СтрШаблон(ТекстСообщения, ЗадачаСсылка, ОписаниеОшибки());
+				ВызватьИсключение ТекстСообщения; 
+				
+			КонецЕсли;            
+			
+		КонецПопытки;		
+
+		СпрОбъектЗадача.Проект = ПроектСсылка;		
+		СпрОбъектЗадача.Записать();
+		
+		ЗафиксироватьТранзакцию();
+		
+	КонецЦикла;
+	
+	
+	
 КонецПроцедуры 
 
 Процедура узНачальноеЗаполнение() Экспорт

src/cf/Configuration.xml

@@ -53,7 +53,7 @@
 				<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
 			</DefaultRoles>
 			<Vendor>Управление задачами</Vendor>
-			<Version>1.0.5.013</Version>
+			<Version>1.0.5.014</Version>
 			<UpdateCatalogAddress/>
 			<IncludeHelpInContents>false</IncludeHelpInContents>
 			<UseManagedFormInOrdinaryApplication>true</UseManagedFormInOrdinaryApplication>
@@ -1557,6 +1557,7 @@
 			<Catalog>узКонстанты</Catalog>
 			<Catalog>узКонтрагенты</Catalog>
 			<Catalog>узКонфигурации</Catalog>
+			<Catalog>узПроекты</Catalog>
 			<Catalog>узСпринты</Catalog>
 			<Catalog>узСтатусыЗадачи</Catalog>
 			<Catalog>узТекущиеДела</Catalog>