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

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

@@ -1,6 +1,6 @@
 Процедура ПриДобавленииПодсистемы(Описание) Экспорт
     Описание.Имя = "УправлениеЗадачами";
-    Описание.Версия = "1.0.4.007";
+    Описание.Версия = "1.0.4.009";
     // Требуется библиотека стандартных подсистем.
     Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
 КонецПроцедуры
@@ -153,6 +153,13 @@
 	Обработчик.ОбщиеДанные = Истина;
 	Обработчик.Комментарий = "Обновление на версию 1.0.3.035";
 	
+	Обработчик = Обработчики.Добавить();
+	Обработчик.Версия = "1.0.4.009";
+	Обработчик.НачальноеЗаполнение = Ложь;
+	Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_009";
+	Обработчик.ОбщиеДанные = Истина;
+	Обработчик.Комментарий = "Обновление на версию 1.0.4.009";
+	
 КонецПроцедуры
 Процедура ПередОбновлениемИнформационнойБазы() Экспорт
 КонецПроцедуры
@@ -579,6 +586,57 @@
 	
 КонецПроцедуры
 
+Процедура ОбновлениеНаВерсию_1_0_4_009() Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ 
+	|	узКонтрагенты.Ссылка
+	|ИЗ
+	|	Справочник.узКонтрагенты КАК узКонтрагенты
+	|ГДЕ
+	|	узКонтрагенты.узКороткоеИмя = """"";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Выборка = РезультатЗапроса.Выбрать();
+	
+	Пока Выборка.Следующий() Цикл
+		СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+		#Если Тромбон тогда
+			СпрОбъект = Справочники.узКонтрагенты.СоздатьЭлемент();
+		#Конецесли
+		СпрОбъект.узКороткоеИмя = СпрОбъект.Наименование;
+		СпрОбъект.Записать();
+	КонецЦикла;
+	
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = "ВЫБРАТЬ
+	|	узЗадачи.Ссылка
+	|ИЗ
+	|	Справочник.узЗадачи КАК узЗадачи
+	|ГДЕ
+	|	узЗадачи.ТекстСодержания ПОДОБНО ""%#%""";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Если РезультатЗапроса.Пустой() Тогда
+		Возврат;
+	Конецесли;
+	
+	Выборка = РезультатЗапроса.Выбрать();
+	
+	Пока Выборка.Следующий() Цикл
+		СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+		#Если Тромбон тогда
+			СпрОбъект = Справочники.узЗадачи.СоздатьЭлемент();
+		#Конецесли
+		СпрОбъект.СформироватьЗаписиВРССвязанныеЗадачи(Ложь);
+		СпрОбъект.Записать();
+	КонецЦикла;
+КонецПроцедуры
+
 Процедура узНачальноеЗаполнение() Экспорт
 	узДобавитьАдминистраторИБ();
 	узОбработатьСправочники("узВидыСтатусов");

src/cf/Configuration.xml

@@ -49,7 +49,7 @@
 				<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
 			</DefaultRoles>
 			<Vendor>Управление задачами</Vendor>
-			<Version>1.0.4.008</Version>
+			<Version>1.0.4.009</Version>
 			<UpdateCatalogAddress/>
 			<IncludeHelpInContents>false</IncludeHelpInContents>
 			<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>
@@ -1477,6 +1477,7 @@
 			<InformationRegister>узАктивностиПользователей</InformationRegister>
 			<InformationRegister>узНастройкиДляСтатусов</InformationRegister>
 			<InformationRegister>узСловарь</InformationRegister>
+			<InformationRegister>узСвязанныеЗадачи</InformationRegister>
 			<ChartOfCharacteristicTypes>ДополнительныеРеквизитыИСведения</ChartOfCharacteristicTypes>
 			<ChartOfCharacteristicTypes>ОбъектыАдресацииЗадач</ChartOfCharacteristicTypes>
 			<ChartOfCharacteristicTypes>РазделыДатЗапретаИзменения</ChartOfCharacteristicTypes>