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

Browse Source
This commit is contained in:
Anton Ivanov 2018-07-26 13:47:24 +03:00
parent 7a17a0369b
commit a8a8c53a84
2 changed files with 61 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "УправлениеЗадачами";
Описание.Версия = "1.0.4.007";
Описание.Версия = "1.0.4.009";
// Требуется библиотека стандартных подсистем.
Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");
КонецПроцедуры
@ -153,6 +153,13 @@
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.3.035";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.0.4.009";
Обработчик.НачальноеЗаполнение = Ложь;
Обработчик.Процедура = "узОбновлениеИнформационнойБазы.ОбновлениеНаВерсию_1_0_4_009";
Обработчик.ОбщиеДанные = Истина;
Обработчик.Комментарий = "Обновление на версию 1.0.4.009";
КонецПроцедуры
Процедура ПередОбновлениемИнформационнойБазы() Экспорт
КонецПроцедуры
@ -579,6 +586,57 @@
КонецПроцедуры
Процедура ОбновлениеНаВерсию_1_0_4_009() Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| узКонтрагенты.Ссылка
|ИЗ
| Справочник.узКонтрагенты КАК узКонтрагенты
|ГДЕ
| узКонтрагенты.узКороткоеИмя = """"";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
#Если Тромбон тогда
СпрОбъект = Справочники.узКонтрагенты.СоздатьЭлемент();
#Конецесли
СпрОбъект.узКороткоеИмя = СпрОбъект.Наименование;
СпрОбъект.Записать();
КонецЦикла;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| узЗадачи.Ссылка
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.ТекстСодержания ПОДОБНО ""%#%""";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
#Если Тромбон тогда
СпрОбъект = Справочники.узЗадачи.СоздатьЭлемент();
#Конецесли
СпрОбъект.СформироватьЗаписиВРССвязанныеЗадачи(Ложь);
СпрОбъект.Записать();
КонецЦикла;
КонецПроцедуры
Процедура узНачальноеЗаполнение() Экспорт
узДобавитьАдминистраторИБ();
узОбработатьСправочники("узВидыСтатусов");

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.4.008</Version>
<Version>1.0.4.009</Version>
<UpdateCatalogAddress/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UseManagedFormInOrdinaryApplication>false</UseManagedFormInOrdinaryApplication>
@ -1477,6 +1477,7 @@
<InformationRegister>узАктивностиПользователей</InformationRegister>
<InformationRegister>узНастройкиДляСтатусов</InformationRegister>
<InformationRegister>узСловарь</InformationRegister>
<InformationRegister>узСвязанныеЗадачи</InformationRegister>
<ChartOfCharacteristicTypes>ДополнительныеРеквизитыИСведения</ChartOfCharacteristicTypes>
<ChartOfCharacteristicTypes>ОбъектыАдресацииЗадач</ChartOfCharacteristicTypes>
<ChartOfCharacteristicTypes>РазделыДатЗапретаИзменения</ChartOfCharacteristicTypes>