Обратно, к списку конфигураций...
Необходимо включить возможность изменения конфигурации.
Порядок действий следующий:
Конфигурация готова к внесению изменений.
// PT1C / Панель телефонии Asterisk / Начало Если сфпПанельУправления <> Неопределено И ТипЗнч(сфпПанельУправления) = Тип("УправляемаяФорма") И Найти(сфпПанельУправления.ИмяФормы,"Обработка.МИКО_ПанельТелефонииДля1С")<>0 Тогда сфпПанельУправления.ЗавершитьРаботу(Истина); КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало НазваниеПанелиТелефонии = "Панель телефонии Asterisk (МИКО)"; Если сфпПанельУправления = Неопределено Тогда МИКО_Софтфон.ВыполнитьПервичнуюУстановку(НазваниеПанелиТелефонии); КонецЕсли; Если МИКО_Софтфон.Использовать(НазваниеПанелиТелефонии) Тогда Если сфпПанельУправления = Неопределено Тогда Попытка сфпПанельУправления = ПолучитьФорму("Обработка.МИКО_ПанельТелефонииДля1С.Форма.Форма"); сфпПанельУправления.ИнициализироватьПанельТелефонии(Истина, Ложь); Исключение Сообщить("Не удалось запустить ""Панель телефонии Asterisk (МИКО)""!"); Возврат; КонецПопытки; Иначе // Переопределение обработки команды Если сфпПанельУправления.Открыта() Тогда сфпПанельУправления.Активизировать(); Иначе сфпПанельУправления.Открыть(); КонецЕсли; КонецЕсли; Возврат; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") Тогда ОснованиеЗвонка = Неопределено; Если ДанныеЗаполнения <> Неопределено И ДанныеЗаполнения.Свойство("Основание") Тогда ОснованиеЗвонка = Новый Структура("ОснованиеЗвонка, НомерТелефона", ДанныеЗаполнения.Основание, Телефон); КонецЕсли; сфпПанельУправления.Позвонить(Телефон,ОснованиеЗвонка); Возврат; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") Тогда сфпПанельУправления.ПозвонитьВыбравТелефон(СписокОбъектов); Возврат; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") Тогда Возврат Истина; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Если НЕ Параметры.Свойство("ВидФормы") Тогда Отказ = Истина; ИначеЕсли Параметры.ВидФормы = "СофтФон" Тогда // PT1C / Панель телефонии Asterisk / Начало Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") Тогда Возврат; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец // *** *** *** // ВНИМАНИЕ ПРОПУЩЕНА ЧАСТЬ ИСХОДНОГО КОДА // *** *** *** КонецЕсли; КонецПроцедуры // ПриСозданииНаСервере()
// PT1C / Панель телефонии Asterisk / Начало МИКО_Софтфон.ДобавитьКнопкиФаксаНаФормуПечати(ЭтаФорма); // PT1C / Панель телефонии Asterisk / Конец
&НаКлиенте Процедура МИКО_ОтправитьКакФакс() Если НЕ МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") ИЛИ сфпПанельУправления = Неопределено Тогда Возврат; КонецЕсли; ТабличныеДокументы = Новый СписокЗначений; Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл Если Элементы[НастройкаПечатнойФормы.ИмяРеквизита].Вывод = ИспользованиеВывода.Разрешить И НастройкаПечатнойФормы.Печатать Тогда ТабличныеДокументы.Добавить(ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита], НастройкаПечатнойФормы.Представление); КонецЕсли; КонецЦикла; Если ТабличныеДокументы.Количество()=0 Тогда Возврат; Иначе ТабДок = ТабличныеДокументы[0].Значение; КонецЕсли; // отсылаем факс сфпПанельУправления.ОтправитьФайлПоФаксу(,ТабДок); КонецПроцедуры // МИКО_ОтправитьКакФакс() &НаКлиенте Процедура МИКО_Позвонить() Если НЕ МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") ИЛИ сфпПанельУправления = Неопределено Тогда Возврат; КонецЕсли; ПараметрыПечати = Неопределено; Если ТипЗнч(ОбъектыПечати) = Тип("СписокЗначений") И ОбъектыПечати.Количество() > 0 Тогда Участник = МИКО_Софтфон.ПолучитьСсылкуНаУчастникаИзДокумента(ОбъектыПечати[0].Значение); Если ТипЗнч(Участник) = Тип("Массив") И Участник.Количество()>0 Тогда сфпПанельУправления.ПозвонитьВыбравТелефон(Участник); ИначеЕсли Участник <> Неопределено Тогда СписокУчастников = Новый Массив(1); СписокУчастников[0] = Участник; сфпПанельУправления.ПозвонитьВыбравТелефон(СписокУчастников); КонецЕсли; КонецЕсли; КонецПроцедуры
В форму документа с именем «ФормаДокумента», в начало процедуры «ОбработкаОповещения» добавить:
&НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) // PT1C // + Если ИмяСобытия = "PT1C_ИсходящийВызовНеУдался" И Параметр <> Неопределено И Параметр.ОснованиеЗвонка = Объект.Ссылка Тогда врТекстСообщения = ""+Формат(ТекущаяДата(),"ДЛФ=DDT") + " : Пытались позвонить клиету на номер "+Параметр.НомерТелефона+" - не дозвонились."; Объект.Результат = Объект.Результат + ?(ЗначениеЗаполнено(Объект.Результат), Символы.ПС, "") + врТекстСообщения; ИначеЕсли ИмяСобытия = "PT1C_ЗаписьСобытия" И Параметр <> Неопределено И Параметр.Ссылка = Объект.Ссылка Тогда Если Параметр.НеДозвонились = Истина Тогда врТекстСообщения = ""+Формат(ТекущаяДата(),"ДЛФ=DDT") + " : " + "Звонок клиенту на номер "+Параметр.НомерТелефона+" - дозвонились, но требуется перезвонить"+Символы.ПС + Параметр.Содержание+Символы.ПС; Иначе врТекстСообщения = ""+Формат(ТекущаяДата(),"ДЛФ=DDT") + " : " + "Успешно дозвонились клиенту на номер "+Параметр.НомерТелефона+". Создан документ """+Источник+""", см. структуру подчиненности"+Символы.ПС + Параметр.Содержание+Символы.ПС; КонецЕсли; Объект.Результат = Объект.Результат + ?(ЗначениеЗаполнено(Объект.Результат), Символы.ПС, "") + врТекстСообщения; КонецЕсли; // PT1C // -
В общие картинки добавить
По завершению работы помощника первоначальной настройки для документа будет создано свойство «ID_Звонок», назначение которого - хранить ссылку на запись.
Порядок действий:
&НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") И сфпПанельУправления <> Неопределено Тогда ДокументСобытиеНазвание = сфпПанельУправления.ИмяДокументСобытие(); ID_Звонок = ПолучитьИдентификаторЗвонка(ПараметрКоманды, ДокументСобытиеНазвание); Если ID_Звонок <> Неопределено Тогда сфпПанельУправления.ПрослушатьЗвонокПоИдентификатору(ID_Звонок); КонецЕсли; КонецЕсли; КонецПроцедуры // Получение GUID звонка // &НаСервере Функция ПолучитьИдентификаторЗвонка(Ссылка, ДокументСобытиеНазвание) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | СобытиеДополнительныеРеквизиты.Значение, | СобытиеДополнительныеРеквизиты.ТекстоваяСтрока |ИЗ | Документ." + ДокументСобытиеНазвание + ".ДополнительныеРеквизиты КАК СобытиеДополнительныеРеквизиты |ГДЕ | СобытиеДополнительныеРеквизиты.Ссылка = &ДокументСсылка | И СобытиеДополнительныеРеквизиты.Свойство В | (ВЫБРАТЬ | ДополнительныеРеквизитыИСведения.Ссылка | ИЗ | ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК ДополнительныеРеквизитыИСведения | ГДЕ | ДополнительныеРеквизитыИСведения.Наименование = &НаименованиеДопСвойства)"; Запрос.УстановитьПараметр("НаименованиеДопСвойства", "ID_Звонок"); Запрос.УстановитьПараметр("ДокументСсылка", Ссылка); РезультатЗапроса = Запрос.Выполнить(); Если Не РезультатЗапроса.Пустой() Тогда Выборка = РезультатЗапроса.Выбрать(); Выборка.Следующий(); Возврат Выборка.Значение; КонецЕсли; КонецФункции // ПолучитьИдентификаторЗвонка()
Данная команда будет доступна только для пользователей с полными правами.
Обновите конфигурацию базы данных и запустите программу в режиме «Предприятие». Результат работы показан на рисунке ниже.
Обратно, к списку конфигураций...