Обратно, к списку конфигураций...
Необходимо включить возможность изменения конфигурации.
Порядок действий следующий:
Конфигурация готова к внесению изменений.
// PT1C / Панель телефонии Asterisk / Начало НазваниеПанелиТелефонии = "Панель телефонии Asterisk (МИКО)"; МИКО_Софтфон.ВыполнитьПервичнуюУстановку(НазваниеПанелиТелефонии); Если МИКО_Софтфон.Использовать(НазваниеПанелиТелефонии) Тогда Отказ = Ложь; Попытка // Версии 1.4.25.10+ обработка переименована в "МИКО_ПанельТелефонииДля1С" сфпФормаТелефонВнешняяПанель = ПолучитьФорму("Обработка.МИКО_ПанельТелефонииДля1С.Форма.Форма"); сфпФормаТелефонВнешняяПанель.ИнициализироватьПанельТелефонии(Истина, Отказ); Исключение Отказ = Истина; КонецПопытки; Если Отказ Тогда Сообщить("Не удалось запустить ""Панель телефонии Asterisk"""); Иначе сфпОбработаноВнешнееСобытие = Истина; КонецЕсли; Возврат; КонецЕсли; // PT1C / Панель телефонии Asterisk / Конец
// PT1C / Панель телефонии Asterisk / Начало Если МИКО_Софтфон.Использовать("Панель телефонии Asterisk (МИКО)") Тогда Если сфпФормаТелефонВнешняяПанель = Неопределено Тогда Попытка // Версии 1.4.25.10+ обработка переименована в "МИКО_ПанельТелефонииДля1С" сфпФормаТелефонВнешняяПанель = ПолучитьФорму("Обработка.МИКО_ПанельТелефонииДля1С.Форма.Форма"); сфпФормаТелефонВнешняяПанель.ИнициализироватьПанельТелефонии(Истина, Ложь); Исключение Сообщить("Не удалось запустить ""Панель телефонии 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_Звонок"); Запрос.УстановитьПараметр("ДокументСсылка", Ссылка); РезультатЗапроса = Запрос.Выполнить(); Если Не РезультатЗапроса.Пустой() Тогда Выборка = РезультатЗапроса.Выбрать(); Выборка.Следующий(); Возврат Выборка.Значение; КонецЕсли; КонецФункции // ПолучитьИдентификаторЗвонка()
Данная команда будет доступна только для пользователей с полными правами.
Обновите конфигурацию базы данных и запустите программу в режиме «Предприятие». Результат работы показан на рисунке ниже.
Обратно, к списку конфигураций...