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

@milanse #208 При создании письма на основании задачи не заполняется поле кому.

Browse Source
This commit is contained in:
Anton Ivanov 2020-06-06 09:27:18 +03:00
parent 0887b98b6a
commit b5f2e8e87a
3 changed files with 57 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl
View File

@ -62,7 +62,54 @@
Возврат пКомментарииВКоде;
КонецФункции
//+ #208 milanse 31.05.2020
Функция КонтактыПоЗадаче() Экспорт
ТекстЗапросаДляПоиска =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| узЗадачи.Исполнитель КАК Исполнитель
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.Ссылка = &Предмет
| И НЕ узЗадачи.Исполнитель = ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| узЗадачи.Автор
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.Ссылка = &Предмет
| И НЕ узЗадачи.Автор = ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| узЗадачи.Контрагент
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.Ссылка = &Предмет
| И НЕ узЗадачи.Исполнитель = ЗНАЧЕНИЕ(Справочник.узКонтрагенты.ПустаяСсылка)
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| узНаблюдателиЗаЗадачами.Пользователь
|ИЗ
| РегистрСведений.узНаблюдателиЗаЗадачами КАК узНаблюдателиЗаЗадачами
|ГДЕ
| узНаблюдателиЗаЗадачами.Задача = &Предмет";
ТекстЗапросаДляПоиска = "
| ОБЪЕДИНИТЬ ВСЕ
|" + ТекстЗапросаДляПоиска;
Возврат ТекстЗапросаДляПоиска;
КонецФункции
// СтандартныеПодсистемы.Взаимодействие
////////////////////////////////////////////////////////////////////////////////

3
src/cf/CommonModules/ВзаимодействияКлиентСерверПереопределяемый/Ext/Module.bsl
View File

@ -49,12 +49,15 @@
//
Процедура ПриОпределенииВозможныхКонтактов(ТипыКонтактов) Экспорт
//+ #208 Иванов А.Б. 2020-06-06 @milanse
Контакт = ВзаимодействияКлиентСервер.НовоеОписаниеКонтакта();
Контакт.Тип = Тип("СправочникСсылка.узКонтрагенты");
Контакт.Имя = "узКонтрагенты";
Контакт.Представление = НСтр("ru = 'Контрагенты'");
Контакт.ВозможностьИнтерактивногоСоздания = Ложь;
Контакт.ИскатьПоДомену = Ложь;
ТипыКонтактов.Добавить(Контакт);
//- #208 Иванов А.Б. 2020-06-06 @milanse
КонецПроцедуры

6
src/cf/CommonModules/ВзаимодействияПереопределяемый/Ext/Module.bsl
View File

@ -19,7 +19,13 @@
//
Процедура ПриПоискеКонтактов(Знач ИмяТаблицыКонтактов, ТекстЗапросаДляПоиска) Экспорт
//+ #208 Иванов А.Б. 2020-06-06 @milanse
Если ИмяТаблицыКонтактов = Метаданные.Справочники.узЗадачи.ПолноеИмя() Тогда
ТекстЗапросаДляПоиска = Справочники.узЗадачи.КонтактыПоЗадаче();
КонецЕсли;
//- #208 Иванов А.Б. 2020-06-06 @milanse
КонецПроцедуры