Внимание!
Эта wiki об устаревших версиях
Документация к актуальной версии интеграции 1С и телефонии доступна по ссылке

Инструменты пользователя

Инструменты сайта


astpanel:designer:crm2:modulesrc_2_0_12

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
astpanel:designer:crm2:modulesrc_2_0_12 [2019/10/21 07:20]
imal старая ревизия восстановлена (2019/08/23 12:11)
astpanel:designer:crm2:modulesrc_2_0_12 [2019/10/30 07:59] (текущий)
imal
Строка 12: Строка 12:
  КонецЕсли;​  КонецЕсли;​
    
 + Если Метаданные.Имя = "​Автосалон6"​ Тогда
 + ВыполнитьПервичнуюУстановкуАльфаАвто();​
 + Возврат;​
 + КонецЕсли; ​
 +
  // добавляем новые параметры в настройки пользователя  // добавляем новые параметры в настройки пользователя
  Если Метаданные.Имя = "​CRM" ​  Если Метаданные.Имя = "​CRM" ​
Строка 20: Строка 25:
  ИЛИ Метаданные.Имя = "​УправлениеПредприятием_CRM"​  ИЛИ Метаданные.Имя = "​УправлениеПредприятием_CRM"​
  ИЛИ Метаданные.Имя = "​УправлениеПредприятием"​  ИЛИ Метаданные.Имя = "​УправлениеПредприятием"​
- ИЛИ Метаданные.Имя = "​Автосалон6"​ 
  ИЛИ Метаданные.Имя = "​УправлениеТорговлей_CRM_2"​ Тогда  ИЛИ Метаданные.Имя = "​УправлениеТорговлей_CRM_2"​ Тогда
  пвхНастройкиПользователей = ?​(Метаданные.ПланыВидовХарактеристик.Найти("​НастройкиПользователей"​) <> Неопределено,​ ПланыВидовХарактеристик.НастройкиПользователей,​ ПланыВидовХарактеристик.CRM_НастройкиПользователей);​  пвхНастройкиПользователей = ?​(Метаданные.ПланыВидовХарактеристик.Найти("​НастройкиПользователей"​) <> Неопределено,​ ПланыВидовХарактеристик.НастройкиПользователей,​ ПланыВидовХарактеристик.CRM_НастройкиПользователей);​
Строка 44: Строка 48:
 Функция Использовать(НазваниеПанелиТелефонии) Экспорт Функция Использовать(НазваниеПанелиТелефонии) Экспорт
    
 + Если Метаданные.Имя = "​Автосалон6"​ Тогда
 + Возврат ИспользоватьПанельТелефонииАльфаАвто();​
 + КонецЕсли; ​
 +
  Запрос = Новый Запрос;​  Запрос = Новый Запрос;​
  Запрос.УстановитьПараметр("​Пользователь",​ Пользователи.ТекущийПользователь());​  Запрос.УстановитьПараметр("​Пользователь",​ Пользователи.ТекущийПользователь());​
Строка 185: Строка 193:
  Возврат Истина;​  Возврат Истина;​
 КонецФункции // ДобавитьЗначениеРеквизитаВМассив() КонецФункции // ДобавитьЗначениеРеквизитаВМассив()
 +
 +Процедура ВыполнитьПервичнуюУстановкуАльфаАвто() Экспорт
 + 
 + ИмяНастройки = "​МИКО_ИспользоватьПанельТелефонии";​
 +
 + Если НЕ ПодготовитьНастройкиПВХ(ИмяНастройки) Тогда
 + Сообщить("​Не найден предопределенный элемент ""​МИКО_ИспользоватьПанельТелефонии""​ в плане видов характеристик ""​ПраваИНастройки""​. Проверьте корректность выполнения инструкций по встраиванию панели телефонии.",​ СтатусСообщения.Важное);​
 + Возврат;​
 + КонецЕсли;​
 +
 + // добавляем новые параметры в настройки пользователя
 +
 + Попытка
 + пвхНастройкиПользователей = Вычислить("​ПланыВидовХарактеристик.ПраваИНастройки"​);​
 + ГруппаНастроекСофтфон = пвхНастройкиПользователей.сфпОбщиеНастройки;​
 + Исключение
 + пвхНастройкиПользователей = Неопределено;​
 + ГруппаНастроекСофтфон = Неопределено;​
 + КонецПопытки;  ​
 +
 + Если пвхНастройкиПользователей = Неопределено
 + ИЛИ ГруппаНастроекСофтфон = Неопределено Тогда
 + Сообщить("​Не удалось выполнить первоначальную настройку панели телефонии для 1С. Не найден ПВХ ""​ПраваИНастройки""",​ СтатусСообщения.Важное);​
 + Возврат;​
 + КонецЕсли;​
 + 
 +КонецПроцедуры
 +
 +Функция ПодготовитьНастройкиПВХ(ИмяНастройки)
 +
 + Попытка
 + пвхНастройкиПользователей = Вычислить("​ПланыВидовХарактеристик.ПраваИНастройки"​);​
 + НастройкаПанелиТелефонии = пвхНастройкиПользователей[ИмяНастройки];​
 + Исключение
 + НастройкаПанелиТелефонии = Неопределено;​
 + КонецПопытки; ​
 +
 +
 + Если НастройкаПанелиТелефонии = Неопределено Тогда
 + Возврат Ложь;
 + КонецЕсли; ​
 +
 + МетаданныеПВХ = Вычислить("​Метаданные.ПланыВидовХарактеристик.ПраваИНастройки"​);​
 +
 + Если НЕ НастройкаПанелиТелефонии.ЭтоНастройка И ПравоДоступа("​Изменение",​ МетаданныеПВХ) Тогда
 +
 + НастройкаПанелиТелефонииОбъект = НастройкаПанелиТелефонии.ПолучитьОбъект();​
 +
 + НастройкаПанелиТелефонииОбъект.ЭтоНастройка = Истина;​
 + НастройкаПанелиТелефонииОбъект.Наименование = "​Панель телефонии Asterisk (МИКО)";​
 + НастройкаПанелиТелефонииОбъект.Записать();​
 +
 + КонецЕсли; ​
 +
 + Возврат Истина;​
 +
 +КонецФункции // ПодготовитьНастройкиПВХ()
 +
 +Функция ИспользоватьПанельТелефонииАльфаАвто() Экспорт
 +     
 +    Попытка
 + пвхНастройкиПользователей = Вычислить("​ПланыВидовХарактеристик.ПраваИНастройки"​);​
 + НастройкаПанелиТелефонии = пвхНастройкиПользователей["​МИКО_ИспользоватьПанельТелефонии"​];​
 +    Исключение
 +    НастройкаПанелиТелефонии = Неопределено;​
 +    КонецПопытки; ​
 +    ​
 +    Если НастройкаПанелиТелефонии = Неопределено Тогда
 +    Возврат Ложь;
 +    КонецЕсли;​
 + 
 + ​ Попытка
 + ПанельТелДоступна = Вычислить("​ПравоПользователя(НастройкаПанелиТелефонии)"​);​
 + Исключение
 + ПанельТелДоступна = Ложь;
 + КонецПопытки; ​
 +
 + Возврат ПанельТелДоступна;​
 + 
 +КонецФункции
  
 </​code>​ </​code>​
astpanel/designer/crm2/modulesrc_2_0_12.txt · Последние изменения: 2019/10/30 07:59 — imal