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

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

@@ -1,6 +1,6 @@
 Процедура ПриДобавленииПодсистемы(Описание) Экспорт
     Описание.Имя = "УправлениеЗадачами";
-    Описание.Версия = "1.0.4.019";
+    Описание.Версия = "1.0.4.020";
     // Требуется библиотека стандартных подсистем.
     Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
 КонецПроцедуры
@@ -197,6 +197,13 @@
 	Обработчик.ОбщиеДанные = Истина;
 	Обработчик.Комментарий = "Обновление на версию 1.0.4.019";
 	
+	Обработчик = Обработчики.Добавить();
+	Обработчик.Версия = "1.0.4.020";
+	Обработчик.НачальноеЗаполнение = Ложь;
+	Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_020";
+	Обработчик.ОбщиеДанные = Истина;
+	Обработчик.Комментарий = "Обновление на версию 1.0.4.020";
+	
 КонецПроцедуры
 Процедура ПередОбновлениемИнформационнойБазы() Экспорт
 КонецПроцедуры
@@ -736,6 +743,87 @@
 	КонецЦикла;
 КонецПроцедуры 
 
+Процедура ОбновлениеНаВерсию_1_0_4_020() Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = "ВЫБРАТЬ
+	|	узЗадачиУдалить_ФактическиеЧасы.Ссылка КАК Задача,
+	|	узЗадачиУдалить_ФактическиеЧасы.ДатаНачала,
+	|	узЗадачиУдалить_ФактическиеЧасы.ДатаОкончания,
+	|	узЗадачиУдалить_ФактическиеЧасы.Комментарий
+	|ПОМЕСТИТЬ ВТФактСКомментарием
+	|ИЗ
+	|	Справочник.узЗадачи.Удалить_ФактическиеЧасы КАК узЗадачиУдалить_ФактическиеЧасы
+	|ГДЕ
+	|	узЗадачиУдалить_ФактическиеЧасы.Комментарий <> """"
+	|;
+	|
+	|////////////////////////////////////////////////////////////////////////////////
+	|ВЫБРАТЬ
+	|	узВводФактаПоЗадачеДанные.Ссылка КАК ДокументВводФакта,
+	|	узВводФактаПоЗадачеДанные.НомерСтроки,
+	|	узВводФактаПоЗадачеДанные.ДатаНачала,
+	|	узВводФактаПоЗадачеДанные.ДатаОкончания,
+	|	ВТФактСКомментарием.ДатаНачала КАК ДатаНачалаВЗадаче,
+	|	ВТФактСКомментарием.ДатаОкончания КАК ДатаОкончанияВЗадаче,
+	|	ВТФактСКомментарием.Комментарий КАК КомментарийВЗадаче,
+	|	узВводФактаПоЗадачеДанные.Примечание КАК ПримечаниеВДокументе
+	|ИЗ
+	|	ВТФактСКомментарием КАК ВТФактСКомментарием
+	|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.узВводФактаПоЗадаче.Данные КАК узВводФактаПоЗадачеДанные
+	|		ПО ВТФактСКомментарием.Задача = узВводФактаПоЗадачеДанные.Ссылка.Задача
+	|			И ВТФактСКомментарием.ДатаНачала = узВводФактаПоЗадачеДанные.ДатаНачала
+	|			И ВТФактСКомментарием.ДатаОкончания = узВводФактаПоЗадачеДанные.ДатаОкончания
+	|
+	|УПОРЯДОЧИТЬ ПО
+	|	узВводФактаПоЗадачеДанные.Ссылка.Дата
+	|ИТОГИ ПО
+	|	ДокументВводФакта";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	Если РезультатЗапроса.Пустой() Тогда
+		Возврат;
+	Конецесли;
+	
+	ВыборкаПоДокументам = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
+	
+	Пока ВыборкаПоДокументам.Следующий() Цикл
+		
+		ДокОбъект = ВыборкаПоДокументам.ДокументВводФакта.ПолучитьОбъект();
+		#Если Тромбон тогда
+			ДокОбъект = Документы.узВводФактаПоЗадаче.СоздатьДокумент();
+		#Конецесли
+		
+		ЗаписыватьДокумент = Ложь;
+		ВыборкаДанные = ВыборкаПоДокументам.Выбрать();
+		Пока ВыборкаДанные.Следующий() Цикл
+			СтрокаДанные = ДокОбъект.Данные[ВыборкаДанные.НомерСтроки-1];
+			Если ЗначениеЗаполнено(СтрокаДанные.Примечание) Тогда
+				Продолжить;
+			Конецесли;
+			
+			СтрокаДанные.Примечание = ВыборкаДанные.КомментарийВЗадаче;
+			ЗаписыватьДокумент = Истина;
+		КонецЦикла;
+		
+		Если НЕ ЗаписыватьДокумент Тогда
+			Продолжить;
+		Конецесли;
+		
+		РежимЗаписи = РежимЗаписиДокумента.Запись;
+		Если ДокОбъект.Проведен Тогда
+			РежимЗаписи = РежимЗаписиДокумента.Проведение;
+		Конецесли;
+		ДокОбъект.Записать(РежимЗаписи);
+		Сообщение = Новый СообщениеПользователю;
+		Сообщение.Текст = "Обработан " + ДокОбъект;
+		Сообщение.Сообщить();
+	КонецЦикла;	
+	
+КонецПроцедуры 
+
+
 Процедура ПереносУчетаВремениВОтдельныйРегистр()
 	
 	Запрос = Новый Запрос;

src/cf/Configuration.xml

@@ -49,7 +49,7 @@
 				<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
 			</DefaultRoles>
 			<Vendor>Управление задачами</Vendor>
-			<Version>1.0.4.019</Version>
+			<Version>1.0.4.020</Version>
 			<UpdateCatalogAddress/>
 			<IncludeHelpInContents>false</IncludeHelpInContents>
 			<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>