#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
#Область ДляВызоваИзДругихПодсистем
Функция РеквизитыРедактируемыеВГрупповойОбработке() Экспорт
Результат = Новый Массив;
Результат.Добавить("Автор");
Результат.Добавить("Важность");
Результат.Добавить("Ответственный");
Результат.Добавить("ВзаимодействиеОснование");
Результат.Добавить("Входящий");
Результат.Добавить("Комментарий");
Результат.Добавить("АбонентКонтакт");
Результат.Добавить("АбонентПредставление");
Результат.Добавить("АбонентКакСвязаться");
Возврат Результат;
КонецФункции
Функция ПолучитьКонтакты(Ссылка) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТелефонныйЗвонок.АбонентКонтакт КАК Контакт,
| ТелефонныйЗвонок.АбонентКакСвязаться КАК Адрес,
| ТелефонныйЗвонок.АбонентПредставление КАК Представление
|ИЗ
| Документ.ТелефонныйЗвонок КАК ТелефонныйЗвонок
|ГДЕ
| ТелефонныйЗвонок.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Взаимодействия.ПолучитьУчастникаПоПолям(Выборка.Контакт, Выборка.Адрес, Выборка.Представление);
Иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции
Процедура ПриЗаполненииОграниченияДоступа(Ограничение) Экспорт
Ограничение.Текст =
"РазрешитьЧтениеИзменение
|ГДЕ
| ЗначениеРазрешено(Ответственный, Отключено КАК Ложь)
| ИЛИ ЗначениеРазрешено(Автор, Отключено КАК Ложь)";
КонецПроцедуры
Процедура ДобавитьКомандыСозданияНаОсновании(КомандыСозданияНаОсновании, Параметры) Экспорт
Документы.Встреча.ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
Документы.ЗапланированноеВзаимодействие.ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
Документы.СообщениеSMS.ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
Документы.ЭлектронноеПисьмоИсходящее.ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании);
КонецПроцедуры
Функция ДобавитьКомандуСоздатьНаОсновании(КомандыСозданияНаОсновании) Экспорт
Команда = СозданиеНаОсновании.ДобавитьКомандуСозданияНаОсновании(КомандыСозданияНаОсновании, Метаданные.Документы.ТелефонныйЗвонок);
Если Команда <> Неопределено Тогда
Команда.ФункциональныеОпции = "ИспользоватьПрочиеВзаимодействия";
Команда.Важность = "СмТакже";
КонецЕсли;
Возврат Команда;
КонецФункции
#КонецОбласти
#КонецОбласти
#Область ОбработчикиСобытий
Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка)
ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.ТелефонныйЗвонок.Имя,
ДанныеВыбора, Параметры, СтандартнаяОбработка);
КонецПроцедуры
#КонецОбласти
#КонецЕсли