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 @@ Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок Управление задачами - 1.0.4.008 + 1.0.4.009 false false @@ -1477,6 +1477,7 @@ узАктивностиПользователей узНастройкиДляСтатусов узСловарь + узСвязанныеЗадачи ДополнительныеРеквизитыИСведения ОбъектыАдресацииЗадач РазделыДатЗапретаИзменения