1
0
mirror of https://github.com/BlizD/Tasks.git synced 2025-04-11 11:32:12 +02:00

#127 При проведении документа узВводФактаПоЗадаче спринт брать из табличной части

This commit is contained in:
Anton Ivanov 2018-10-14 18:25:44 +03:00
parent 91f0bdb397
commit ba74732394
3 changed files with 38 additions and 6 deletions

View File

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами"; Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.4.018"; Описание.Версия = "1.0.4.019";
// Требуется библиотека стандартных подсистем. // Требуется библиотека стандартных подсистем.
Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы"); Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
КонецПроцедуры КонецПроцедуры
@ -190,6 +190,13 @@
Обработчик.Комментарий = "Обновление на версию 1.0.4.014"; Обработчик.Комментарий = "Обновление на версию 1.0.4.014";
//- #104 Дзеса Ігор (capitoshko) 08.10.2018 //- #104 Дзеса Ігор (capitoshko) 08.10.2018
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.0.4.019";
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_019";
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.019";
КонецПроцедуры КонецПроцедуры
Процедура ПередОбновлениемИнформационнойБазы() Экспорт Процедура ПередОбновлениемИнформационнойБазы() Экспорт
КонецПроцедуры КонецПроцедуры
@ -702,6 +709,33 @@
КонецПроцедуры КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_4_019() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| узВводФактаПоЗадаче.Ссылка
|ИЗ
| Документ.узВводФактаПоЗадаче КАК узВводФактаПоЗадаче
|ГДЕ
| узВводФактаПоЗадаче.Проведен
|
|УПОРЯДОЧИТЬ ПО
| узВводФактаПоЗадаче.Дата";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ДокОбъект = Выборка.Ссылка.ПолучитьОбъект();
ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
КонецЦикла;
КонецПроцедуры
Процедура ПереносУчетаВремениВОтдельныйРегистр() Процедура ПереносУчетаВремениВОтдельныйРегистр()
Запрос = Новый Запрос; Запрос = Новый Запрос;

View File

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

View File

@ -4,15 +4,13 @@
НаборЗаписей = Движения.узФактПоЗадачам; НаборЗаписей = Движения.узФактПоЗадачам;
НаборЗаписей.Записывать = Истина; НаборЗаписей.Записывать = Истина;
ТекущийСпринтДляЗадачи = Справочники.узСпринты.ПолучитьТекущийСпринтДляЗадачи(КонецДня(Дата),Задача);
Для каждого СтрокаДанные из Данные цикл Для каждого СтрокаДанные из Данные цикл
Запись = НаборЗаписей.Добавить(); Запись = НаборЗаписей.Добавить();
Запись.Период = Дата; Запись.Период = Дата;
Запись.Задача = Задача; Запись.Задача = Задача;
Запись.Исполнитель = Исполнитель; Запись.Исполнитель = Исполнитель;
Запись.Спринт = ТекущийСпринтДляЗадачи; Запись.Спринт = СтрокаДанные.Спринт;
Запись.ДатаНачала = СтрокаДанные.ДатаНачала; Запись.ДатаНачала = СтрокаДанные.ДатаНачала;
Запись.ДатаОкончания = СтрокаДанные.ДатаОкончания; Запись.ДатаОкончания = СтрокаДанные.ДатаОкончания;