1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-17 20:58:01 +02:00
Code Issues Releases Activity

#73 добавил реквизит узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий в правочник пользователи

Browse Source
This commit is contained in:
Anton Ivanov 2018-01-27 14:51:37 +03:00
parent 79103f6248
commit be1e959342
3 changed files with 80 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
src/cf/Catalogs/Пользователи.xml
View File

@ -1125,6 +1125,45 @@
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Attribute uuid="dc48a03b-268c-46e7-b825-3d469f13bf1f">
<Properties>
<Name>узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Автоматически становится наблюдателем за задачей если добавил комментарий</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
<Use>ForItem</Use>
<Indexing>DontIndex</Indexing>
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<TabularSection uuid="245f870e-a53a-4d86-aa0a-c0c7709b8acb">
<InternalInfo>
<xr:GeneratedType name="CatalogTabularSection.Пользователи.ДополнительныеРеквизиты" category="TabularSection">

7
src/cf/Catalogs/Пользователи/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -457,6 +457,13 @@ Click "Write" to sort out the problem and not to show the warning message.</v8:c
<ContextMenu name="узКаталогПользователяКонтекстноеМеню" id="358"/>
<ExtendedTooltip name="узКаталогПользователяРасширеннаяПодсказка" id="359"/>
</InputField>
<CheckBoxField name="узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий" id="362">
<DataPath>Объект.узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарийКонтекстноеМеню" id="363"/>
<ExtendedTooltip name="узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарийРасширеннаяПодсказка" id="364"/>
</CheckBoxField>
</ChildItems>
</Page>
<Page name="СвойстваПользователяИБ" id="65">

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

@ -248,13 +248,14 @@
пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("Новый комментарий: %1",14);
ТекстИзменения = СтрШаблон(пТекстСообщения,Выборка.КомментарийНовый);
МассивЗадач = Новый Массив;
МассивЗадач.Добавить(Ссылка);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("Пользователь",Выборка.АвторНовый);
ДопПараметры.Вставить("МассивЗадач", МассивЗадач);
РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДопПараметры);
//МассивЗадач = Новый Массив;
//МассивЗадач.Добавить(Ссылка);
//
//ДопПараметры = Новый Структура();
//ДопПараметры.Вставить("Пользователь",Выборка.АвторНовый);
//ДопПараметры.Вставить("МассивЗадач", МассивЗадач);
//РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДопПараметры);
ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(Выборка.АвторНовый);
ЕстьДобавленныеКомментарии = Истина;
ИначеЕсли СокрЛП(Выборка.КомментарийСтарый) <> СокрЛП(Выборка.КомментарийНовый) Тогда
@ -296,6 +297,26 @@
Конецесли;
КонецПроцедуры
Процедура ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(пПользователь)
Если НЕ ЗначениеЗаполнено(пПользователь) Тогда
Возврат;
Конецесли;
Если НЕ пПользователь.узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий Тогда
Возврат;
Конецесли;
МассивЗадач = Новый Массив;
МассивЗадач.Добавить(Ссылка);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("Пользователь",пПользователь);
ДопПараметры.Вставить("МассивЗадач", МассивЗадач);
РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДопПараметры);
КонецПроцедуры
Функция ОбновитьИсториюПоКомментариям_ПолучитьРезультатЗапроса()
ТЗСтарыеКомментарии = Ссылка.Комментарии;
ТЗНовыеКомментарии = Комментарии;
@ -536,11 +557,12 @@
КонецПроцедуры
Процедура ОтправитьУведомлениеНаПочтуКонтрагентам(НастройкиСобытий,СобытияВИстории)
Если НЕ ЗначениеЗаполнено(Контрагент) ТОгда
Возврат;
Конецесли;
ЭтоОтправкаКонтрагентам = Истина;
ТЗСобытияВИсторииДляУведомлений = СобытияВИстории.ТЗСобытияВИсторииДляУведомлений;
ВсегоСобытий = ТЗСобытияВИсторииДляУведомлений.Количество();
Если ВсегоСобытий = 0 Тогда
@ -548,14 +570,14 @@
Конецесли;
ВТДопПараметры = Новый Структура();
ВТДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",Истина);
ВТДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам);
ВТДопПараметры.Вставить("НастройкиСобытий",НастройкиСобытий);
РезультатФункции = ПолучитьТемаПисьмаСобытие(ВТДопПараметры,СобытияВИстории);
Если НЕ РезультатФункции.НеобходимоОтправитьУведомление Тогда
Возврат;
КонецЕсли;
РезультатФункции.Вставить("ЭтоОтправкаКонтрагентам",Истина);
РезультатФункции.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам);
ПараметрыПисьма = ПолучитьПараметрыПисьма(РезультатФункции);
@ -570,6 +592,7 @@
ДопПараметры.Вставить("ТекстПисьма",ПараметрыПисьма.ТекстПисьма);
ДопПараметры.Вставить("ТемаПисьма",ПараметрыПисьма.ТемаПисьма);
ДопПараметры.Вставить("ТЗАдресаЭлектроннойПочты",ТЗАдресаЭлектроннойПочты);
ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам);
пУчетнаяЗапись = ПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
Если ЗначениеЗаполнено(пУчетнаяЗапись) Тогда
@ -581,26 +604,7 @@
КонецПроцедуры
Функция ПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов()
Перем пУчетнаяЗапись;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| УчетныеЗаписиЭлектроннойПочты.Ссылка
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
|ГДЕ
| УчетныеЗаписиЭлектроннойПочты.узИспользоватьДляОтправкиКотрагентам";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
пУчетнаяЗапись = Выборка.Ссылка;
КонецЦикла;
Возврат пУчетнаяЗапись;
Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.узПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
КонецФункции
Функция ПолучитьМассивНаблюдателей()