From a8a8c53a84f58971a004ea2ae9eea242b1be89f6 Mon Sep 17 00:00:00 2001
From: Anton Ivanov <iab@bk.ru>
Date: Thu, 26 Jul 2018 13:47:24 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=D1=8B=D0=BF=D1=83=D1=81=D0=BA=20=D0=BF?=
=?UTF-8?q?=D1=80=D0=BE=D0=BC=D0=B5=D0=B6=D1=83=D1=82=D0=BE=D1=87=D0=BD?=
=?UTF-8?q?=D0=BE=D0=B3=D0=BE=20=D1=80=D0=B5=D0=BB=D0=B8=D0=B7=D0=B0=201.0?=
=?UTF-8?q?.4.009?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
.../Ext/Module.bsl | 60 ++++++++++++++++++-
src/cf/Configuration.xml | 3 +-
2 files changed, 61 insertions(+), 2 deletions(-)
diff --git a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
index 8549523a6..b109261b5 100644
--- a/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
+++ b/src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
@@ -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() Экспорт
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | узКонтрагенты.Ссылка
+ |ИЗ
+ | Справочник.узКонтрагенты КАК узКонтрагенты
+ |ГДЕ
+ | узКонтрагенты.узКороткоеИмя = """"";
+
+ РезультатЗапроса = Запрос.Выполнить();
+
+ Выборка = РезультатЗапроса.Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+ СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+ #Если Тромбон тогда
+ СпрОбъект = Справочники.узКонтрагенты.СоздатьЭлемент();
+ #Конецесли
+ СпрОбъект.узКороткоеИмя = СпрОбъект.Наименование;
+ СпрОбъект.Записать();
+ КонецЦикла;
+
+
+ Запрос = Новый Запрос;
+ Запрос.Текст = "ВЫБРАТЬ
+ | узЗадачи.Ссылка
+ |ИЗ
+ | Справочник.узЗадачи КАК узЗадачи
+ |ГДЕ
+ | узЗадачи.ТекстСодержания ПОДОБНО ""%#%""";
+
+ РезультатЗапроса = Запрос.Выполнить();
+
+ Если РезультатЗапроса.Пустой() Тогда
+ Возврат;
+ Конецесли;
+
+ Выборка = РезультатЗапроса.Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+ СпрОбъект = Выборка.Ссылка.ПолучитьОбъект();
+ #Если Тромбон тогда
+ СпрОбъект = Справочники.узЗадачи.СоздатьЭлемент();
+ #Конецесли
+ СпрОбъект.СформироватьЗаписиВРССвязанныеЗадачи(Ложь);
+ СпрОбъект.Записать();
+ КонецЦикла;
+КонецПроцедуры
+
Процедура узНачальноеЗаполнение() Экспорт
узДобавитьАдминистраторИБ();
узОбработатьСправочники("узВидыСтатусов");
diff --git a/src/cf/Configuration.xml b/src/cf/Configuration.xml
index b04eba461..1c41067d6 100644
--- a/src/cf/Configuration.xml
+++ b/src/cf/Configuration.xml
@@ -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>