1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-21 21:17:24 +02:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Anton Ivanov 2021-06-30 14:36:50 +03:00
parent 9174587e8d
commit 7a41861aa6
2 changed files with 75 additions and 2 deletions
src/cf
CommonModules/узОбновлениеИнформационнойБазы/Ext
Module.bsl
Configuration.xml

74
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] '");
ТекстСообщения = СтрШаблон(ТекстСообщения, ЗадачаСсылка, ОписаниеОшибки());
ВызватьИсключение ТекстСообщения;
КонецЕсли;
КонецПопытки;
СпрОбъектЗадача.Проект = ПроектСсылка;
СпрОбъектЗадача.Записать();
ЗафиксироватьТранзакцию();
КонецЦикла;
КонецПроцедуры
Процедура узНачальноеЗаполнение() Экспорт

3
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>