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

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

Browse Source
This commit is contained in:
Anton Ivanov 2018-10-02 17:28:36 +03:00
parent e5742201be
commit 85672bdc88
2 changed files with 79 additions and 14 deletions
src/cf
CommonModules/узОбновлениеИнформационнойБазы/Ext
Module.bsl
Configuration.xml

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

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.4.012";
Описание.Версия = "1.0.4.013";
// Требуется библиотека стандартных подсистем.
Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
КонецПроцедуры
@ -174,6 +174,13 @@
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.012";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.0.4.013";
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_013";
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.013";
КонецПроцедуры
Процедура ПередОбновлениемИнформационнойБазы() Экспорт
КонецПроцедуры
@ -679,21 +686,64 @@
КонецЦикла;
КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_4_012() Экспорт
Процедура ОбновлениеНаВерсию_1_0_4_013() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| узЗадачи.Ссылка КАК Задача,
| узЗадачи.Удалить_Спринт КАК Спринт
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.Удалить_Спринт <> ЗНАЧЕНИЕ(Справочник.узСпринты.ПустаяСсылка)
|
|УПОРЯДОЧИТЬ ПО
| Спринт,
| Задача
|ИТОГИ ПО
| Спринт";
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"),1);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.НаНеделе"),2);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Позже"),3);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
ВыборкаСпринт = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаСпринт.Следующий() Цикл
Если НЕ ЗначениеЗаполнено(ВыборкаСпринт.Спринт) Тогда
Продолжить;
КонецЕсли;
обСпринт = ВыборкаСпринт.Спринт.ПолучитьОбъект();
#Если Тромбон Тогда
обСпринт = Справочники.узСпринты.СоздатьЭлемент();
#Конецесли
Если НЕ ЗначениеЗаполнено(обСпринт.ДатаНачала) Тогда
обСпринт.ДатаНачала = ТекущаяДата();
Конецесли;
обСпринт.ТЧЗадачи.Очистить();
ВыборкаПоЗадачам = ВыборкаСпринт.Выбрать();
Пока ВыборкаПоЗадачам.Следующий() Цикл
новСтр = обСпринт.ТЧЗадачи.Добавить();
новСтр.Задача = ВыборкаПоЗадачам.Задача;
КонецЦикла;
обСпринт.Записать();
КонецЦикла;
КонецПроцедуры
Процедура ЗаполнитьПорядокВГруппеТекущихДел(пГруппыТекущихДел,пПорядок)
СпрОбъект = пГруппыТекущихДел.ПолучитьОбъект();
СпрОбъект.Порядок = пПорядок;
СпрОбъект.Записать();
КонецПроцедуры
Процедура узНачальноеЗаполнение() Экспорт
узДобавитьАдминистраторИБ();
@ -788,4 +838,18 @@
СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
СпрОбъект.Записать();
КонецЦикла;
КонецПроцедуры
КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_4_012() Экспорт
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня"),1);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.НаНеделе"),2);
ЗаполнитьПорядокВГруппеТекущихДел(ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Позже"),3);
КонецПроцедуры
Процедура ЗаполнитьПорядокВГруппеТекущихДел(пГруппыТекущихДел,пПорядок)
СпрОбъект = пГруппыТекущихДел.ПолучитьОбъект();
СпрОбъект.Порядок = пПорядок;
СпрОбъект.Записать();
КонецПроцедуры

3
src/cf/Configuration.xml

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