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