Пример интеграции 1С и АТС типа Asterisk штатными средствами 1С

Макет=ПолучитьОбщийМакет("InnovaIT_Asterisk_Native");

&НаКлиенте
Процедура ПопробоватьВТонком(Команда)
    
    АдресВнешнейКомпоненты = ПолучитьАдресВнешнейКомпоненты();
    
    ПослеПодключения = Новый ОписаниеОповещения("ОповещениеОПодключенииВнешнихКомпонентПервыйРаз",ЭтаФорма);  
    НачатьПодключениеВнешнейКомпоненты(ПослеПодключения,АдресВнешнейКомпоненты,"ComponentAsterisk",ТипВнешнейКомпоненты.Native);
    
КонецПроцедуры

&НаКлиенте
Процедура ОповещениеОПодключенииВнешнихКомпонентПервыйРаз(Подключено,ДополнительныеДанные) Экспорт
    
ПС = Символы.ВК + Символы.ПС;
    
    Если Подключено Тогда
        
        Попытка
            
            ОбъектКомпоненты = Новый("AddIn.ComponentAsterisk.ROM-Asterisk-Native");
            // ---------- mikle ---------------------- //

            
            // подключимся 

            IP = IP;
            Port = "5038"; 
            ОбъектКомпоненты.Connect(IP,Port); 
            //--------- авторизируемся -----------

            user= "user";
             password =  "Password";
            ТекстКоманды="Action: login"+ПС+
            "Username: "+user+ПС+
            "Secret: "+password+ПС;
    Флаг = ОбъектКомпоненты.ВыполнитьКоманду(ТекстКоманды);        
        //--------------- звоним ----------------

            //Протокол    = "PJSIP/"; // SIP/,PJSIP/,IAX/, и т.д. - в зависимости от настроект АТС 

            Протокол    = "PJSIP/";// SIP/,PJSIP/,IAX/, и т.д. - в зависимости от настроект АТС 

            Контекст    = "from-internal";// "from-local, from-internal" - в зависимости от настроект АТС

            Приемник = Телприемника;
            Источник = Протокол+"180";// 180 - внутренний номер 

            Контекст = "";
            Таймаут="30000";
            Приоритет="1";
            ЦИД="";
            СтрокаПеременных="";
            КодДоступа=""; 
            КомандаНабора="";
            ДанныеНабора="";
            ФлагАсинхронно="true";
            ИД="";
            
            
            ПС = Символы.ВК + Символы.ПС;
    
    Если ПустаяСтрока(ЦИД) Тогда
        ЦИД = Источник;
    КонецЕсли; 
    
    Если ПустаяСтрока(СтрокаПеременных) Тогда
        СтрокаПерем = "";
    КонецЕсли; 
    
    ТекстКоманды="Action: Originate"+ПС+
    "Channel: "+Источник+ПС+
    "Context: "+Контекст+ПС+
    "Exten: "+Приемник+ПС+
    "Priority: "+Приоритет+ПС+
    "Callerid: "+ЦИД+ПС+
    "Timeout: "+Таймаут+ПС;
        
    //Если НЕ ПустаяСтрока(СтрокаПерем) Тогда

    //    ТекстКоманды = ТекстКоманды + "Variable: "+СтрокаПерем+ПС;

    //КонецЕсли; 

    //

    //Если НЕ ПустаяСтрока(КодДоступа) Тогда

    //    ТекстКоманды = ТекстКоманды + "Account: "+КодДоступа+ПС;

    //КонецЕсли; 

    //

    //Если НЕ ПустаяСтрока(КомандаНабора) Тогда

    //    ТекстКоманды = ТекстКоманды + "Application: "+КомандаНабора+ПС;

    //КонецЕсли; 

    //

    //Если НЕ ПустаяСтрока(ДанныеНабора) Тогда

    //    ТекстКоманды = ТекстКоманды + "Data: "+ДанныеНабора+ПС;

    //КонецЕсли; 

    
    ТекстКоманды = ТекстКоманды + "Async: "+ФлагАсинхронно+ПС;
    
    //Если НЕ ПустаяСтрока(ИД) Тогда

    //    ТекстКоманды = ТекстКоманды + "ActionID: "+ИД+ПС;

    //КонецЕсли; 

    //

    ТекстКоманды = ТекстКоманды + ПС;
    
    Флаг = ОбъектКомпоненты.ВыполнитьКоманду(ТекстКоманды);
    //ОбъектКомпоненты = Новый("AddIn.ComponentAsterisk.ROM-Asterisk-Native-"+ТекстКоманды);            

            
    
          // ---------- mikle ---------------------- //

            
            
            
            Сообщить("Успешное создание Компоненты");
            
        Исключение
            
            РезультатОшибка = ОписаниеОшибки();
            Сообщить(РезультатОшибка);
            
        КонецПопытки;
    Иначе
            
        ПослеУстановки = Новый ОписаниеОповещения("ОповещениеОбУстановкеВнешнихКомпонент",ЭтаФорма);  
        НачатьУстановкуВнешнейКомпоненты(ПослеУстановки,АдресВнешнейКомпоненты);
                
    КонецЕсли; 
    
КонецПроцедуры

"Action: Originate
Channel: PJSIP/180

Exten: 8900*******
Priority: 1
Callerid: PJSIP/180
Timeout: 30000
Async: true

"