Для начала следует разблокировать головной объект конфигурации для внесения изменений.
Порядок действий следующий.
Теперь конфигурация готова к внесению изменений.
Необходимо встроить внешнюю обработку (панель телефонии) в конфигурации, настроить права доступа и ее автоматический запуск в фоновом режиме.
Для работы панели телефонии в фоне и ее автоматического запуска внесем изменения в модуль управляемого приложения.
// PT1C / Панель телефонии Asterisk / Начало Перем сфпФормаТелефон Экспорт; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Попытка Отказ = Ложь; // получим форму - основной "модуль" панели телефонии сфпФормаТелефон = ПолучитьФорму("Обработка.МИКО_ПанельТелефонииДля1С.Форма.Форма"); Исключение сфпФормаТелефон = Неопределено; //Нет прав на обработку КонецПопытки; Если НЕ сфпФормаТелефон = Неопределено Тогда сфпФормаТелефон.ИнициализироватьПанельТелефонии(Истина, Отказ); КонецЕсли; // проверим успешность инициализации Если Отказ Тогда Сообщить("Не удалось запустить ""МИКО Панель телефонии Asterisk"""); КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Если Отказ = Ложь И сфпФормаТелефон <> Неопределено Тогда сфпФормаТелефон.ЗавершитьРаботу(); КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) Попытка ФормаПанелиТелефонии = Вычислить("сфпФормаТелефон"); Исключение КонецПопытки; Если ФормаПанелиТелефонии <> Неопределено Тогда Если ФормаПанелиТелефонии.Открыта() Тогда ФормаПанелиТелефонии.Активизировать(); Иначе ФормаПанелиТелефонии.Открыть(); КонецЕсли; Возврат; КонецЕсли; Попытка МодульСфпСофтФонПроКлиент = Вычислить("сфпСофтФонПроКлиент"); Исключение МодульСфпСофтФонПроКлиент = Неопределено; КонецПопытки; Если МодульСфпСофтФонПроКлиент <> Неопределено Тогда МодульСфпСофтФонПроКлиент.сфпПодключитьСофтФон(); КонецЕсли; КонецПроцедуры
// PT1C / Начало pt1c_Элемент = Элементы.Вставить("PT1C_ОсновнойМенеджер", Тип("ПолеФормы"),,); pt1c_Элемент.ПутьКДанным = "Объект.PT1C_ОсновнойМенеджер"; pt1c_Элемент.Вид = ВидПоляФормы.ПолеВвода; pt1c_Элемент.Заголовок = "Ответственный менеджер"; // PT1C / Конец
Порядок действий:
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) ПанельАктивна = Ложь; Попытка ФормаПанелиТелефонии = Вычислить("сфпФормаТелефон"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; Если ФормаПанелиТелефонии = Неопределено Тогда Попытка ФормаПанелиТелефонии = Вычислить("сфпФормаТелефонВнешняяПанель"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; КонецЕсли; Если ФормаПанелиТелефонии = Неопределено Тогда Попытка ФормаПанелиТелефонии = Вычислить("сфпПанельУправления"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; КонецЕсли; Если ПанельАктивна Тогда ДокументСобытиеНазвание = ФормаПанелиТелефонии.ИмяДокументСобытие(); ID_Звонок = ПолучитьИдентификаторЗвонка(ПараметрКоманды, ДокументСобытиеНазвание); Если ID_Звонок <> Неопределено Тогда ФормаПанелиТелефонии.ПрослушатьЗвонокПоИдентификатору(ID_Звонок); КонецЕсли; КонецЕсли; КонецПроцедуры Функция ПолучитьИдентификаторЗвонка(Ссылка, ДокументСобытиеНазвание) Возврат Ссылка.PT1C_ID_Звонок; КонецФункции // ПолучитьИдентификаторЗвонка()
Данная команда будет доступна только для пользователей с полными правами.
Обновите конфигурацию базы данных и запустите программу в режиме «Предприятие».
Для автоматизации набора номера телефона добавим кнопку «Позвонить» в область команд форм некоторых справочников и документов.
Порядок действий следующий.
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) ПанельАктивна = Ложь; Попытка ФормаПанелиТелефонии = Вычислить("сфпФормаТелефон"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; Если ФормаПанелиТелефонии = Неопределено Тогда Попытка ФормаПанелиТелефонии = Вычислить("сфпФормаТелефонВнешняяПанель"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; КонецЕсли; Если ФормаПанелиТелефонии = Неопределено Тогда Попытка ФормаПанелиТелефонии = Вычислить("сфпПанельУправления"); ПанельАктивна = ФормаПанелиТелефонии <> Неопределено; Исключение КонецПопытки; КонецЕсли; Если ПанельАктивна Тогда СписокУчастников = ПолучитьСсылкуНаУчастникаИзДокумента(ПараметрКоманды); Если СписокУчастников <> Неопределено Тогда ФормаПанелиТелефонии.ПозвонитьВыбравТелефон(СписокУчастников); КонецЕсли; КонецЕсли; КонецПроцедуры // Для документов будет возвращено значение реквизита "Контрагент" // Для справочников - возвращается ссылка на элемент // В случае ошибки возвращается "Неопределено" // Функция ПолучитьСсылкуНаУчастникаИзДокумента(Знач Ссылка) Экспорт Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда МассивОбъектов = Новый Массив(1); МассивОбъектов[0] = Ссылка; Возврат МассивОбъектов; ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда МассивОбъектов = Новый Массив; ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "Контрагент"); ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "КонтактноеЛицо"); ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "Организация"); ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "Сотрудник"); Возврат МассивОбъектов; КонецЕсли; КонецФункции // ПолучитьСсылкуНаУчастникаИзДокумента() // Получате значение раквизита, если значение заполнено - добавляет его в массив. // Функция ДобавитьЗначениеРеквизитаВМассив(Знач Ссылка, Массив, ИмяРеквизита) Экспорт Если Ссылка.Метаданные().Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда Возврат Ложь; КонецЕсли; Если ЗначениеЗаполнено(Ссылка[ИмяРеквизита]) Тогда Массив.Добавить(Ссылка[ИмяРеквизита]); КонецЕсли; Возврат Истина; КонецФункции // ДобавитьЗначениеРеквизитаВМассив()
.
Для ранее созданной роли «МИКО_Софтфон» добавьте права на доступ к команде «Позвонить».
Вы может указать и другие типы объектов, в которых будет отображена команда «Позвонить». Основным критерием для выбора таких объектов является наличие табличной части «КонтактнаяИнформация», если это справочник, или реквизита «Контрагент», если это документ. В ином случае может потребоваться изменение текста модуля команды.
При желании можно добавить картинку на кнопку команды, предварительно разместив ее в библиотеке картинок.
Обновите конфигурацию базы данных и запустите программу в режиме «Предприятие». Результат работы показан на рисунке ниже.