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.2.015

Browse Source
This commit is contained in:
Anton Ivanov 2017-03-18 14:50:15 +03:00
parent 26c2d1def5
commit aa34959214
2 changed files with 48 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.2.013";
Описание.Версия = "1.0.2.015";
// Требуется библиотека стандартных подсистем.
Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
КонецПроцедуры
@ -76,6 +76,13 @@
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.2.013";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.0.2.014";
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_2_014";
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.2.014";
КонецПроцедуры
Процедура ПередОбновлениемИнформационнойБазы() Экспорт
КонецПроцедуры
@ -333,6 +340,44 @@
КонецЦикла;
КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_2_014() Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| узИсторияКонфигураций.Ссылка
|ИЗ
| Справочник.узИсторияКонфигураций КАК узИсторияКонфигураций
|
|УПОРЯДОЧИТЬ ПО
| узИсторияКонфигураций.Код";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
СтруктураКэшПоиска = Новый Структура;
Пока Выборка.Следующий() Цикл
СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
#Если Тромбон тогда
СпрОбъект = Справочники.узИсторияКонфигураций.СоздатьЭлемент();
#Конецесли
пПользователь = Неопределено;
пПользовательХранилища = СокрЛП(СпрОбъект.ПользовательХранилища);
Если ЗначениеЗаполнено(пПользовательХранилища) Тогда
Если СтруктураКэшПоиска.Свойство(пПользовательХранилища) Тогда
пПользователь = СтруктураКэшПоиска[пПользовательХранилища];
Иначе
пПользователь = узОбщийМодульСервер.ПолучитьПользователяПоПользователюХранилища(пПользовательХранилища);
СтруктураКэшПоиска.Вставить(пПользовательХранилища,пПользователь);
Конецесли;
Конецесли;
СпрОбъект.Пользователь = пПользователь;
СпрОбъект.Записать();
КонецЦикла;
КонецПроцедуры
Процедура узНачальноеЗаполнение() Экспорт
узДобавитьАдминистраторИБ();

3
src/cf/Configuration.xml
View File

@ -49,7 +49,7 @@
<xr:Item xsi:type="xr:MDObjectRef">Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</xr:Item>
</DefaultRoles>
<Vendor>Управление задачами</Vendor>
<Version>1.0.2.013</Version>
<Version>1.0.2.015</Version>
<UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>
@ -1366,6 +1366,7 @@
<DataProcessor>УниверсальныйОбменДаннымиXML</DataProcessor>
<DataProcessor>УправлениеИтогамиИАгрегатами</DataProcessor>
<DataProcessor>узЗагрузкаИзмененийИзХранилища</DataProcessor>
<DataProcessor>узАктивностьПользователя</DataProcessor>
<InformationRegister>БезопасноеХранилищеДанных</InformationRegister>
<InformationRegister>БезопасноеХранилищеДанныхОбластейДанных</InformationRegister>
<InformationRegister>БлокировкиСеансовОбластейДанных</InformationRegister>