&НаКлиенте
Функция CutID(UniqueID) 
   ПозТчк = Найти(UniqueID, ".";
   Если ПозТчк = 0 Тогда
      Возврат UniqueID;
   КонецЕсли;
   
   Возврат Лев(UniqueID, ПозТчк - 1);
КонецФункции

&НаКлиенте// При прослушивании файлов записи нам необходимо передавать астериску имя файла без расширения.

//Данная функция убирает расширения из имени файла
//
Функция УбратьРасширениеВФайлеЗаписи(Знач ИмяФайлаЗаписи)
   ИмяФайлаЗаписи = СокрЛП(ИмяФайлаЗаписи);
   Для к=0 по 6 Цикл //Врядли длинна расширения будет больше 6-ти символов.
      //Обойдем имя файла справа, чтобы найти расширение и отсечь его.
      СимволПоИндексуСКонцаСтроки=Сред(ИмяФайлаЗаписи,СтрДлина(ИмяФайлаЗаписи)-к,1);
      Если СимволПоИндексуСКонцаСтроки="." Тогда //  нашли конец расширения
         ИмяФайлаЗаписи=Лев(ИмяФайлаЗаписи,СтрДлина(ИмяФайлаЗаписи)-к-1); 
         Прервать;
      КонецЕсли; 
   КонецЦикла;   
   Возврат ИмяФайлаЗаписи; 
КонецФункции //УбратьРасширениеВФайлеЗаписи()

// Обработка повторного открытия панели телефонии
// 
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   Если Miko_Ajam = неопределено Тогда 
         Miko_Ajam = ОбработкаОбъект;
   ИначеЕсли НЕ Miko_Ajam = ОбработкаОбъект Тогда
      // это повторное открытие
      Отказ = истина;        
   КонецЕсли;
   Miko_Ajam.ПодключитьСофтФон();   
КонецПроцедуры
 

 Если Miko_Ajam = неопределено Тогда 
   Miko_Ajam = ОбработкаОбъект;           
Иначе
      отказ = истина;
      // или 
   // ЭтаФорма.закрыть()
КонецЕсли;
Если ОбработкаОбъект.ФормаТелефон = Неопределено Тогда 
    Miko_Ajam.ПодключитьСофтФон();  
       // Иначе возможны проблемы. 
Конецесли;