Показано с 1 по 10 из 22
Древовидный режим
-
12.11.2014, 22:06 #17
- Регистрация
- 10.03.2014
- Адрес
- Кыргыз
- Сообщений
- 3
- Сказал(а) спасибо
- 6
- Поблагодарили 1 раз в 1 сообщении
может подскажитеИ?
Функция ИНАГРО_ИнициализироватьЗа� �итуКонфигурации() Экспорт
ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;//Ложь;
КомпонентаПодключена = Истина;
глБСПУ = Истина;
глБЭМКЗ = Истина;
глБСПУ_БЭМКЗ = Истина;
Если ИНАГРО_ПодключитьКомпонен� �уСЛК() Тогда //НЕ
КомпонентаПодключена = Истина;//Ложь;
КонецЕсли;
Если КомпонентаПодключена Тогда //Эрулан
Попытка
МенеджерЛицензий = Новый("AddIn.Licence.LicenceExtension20");
Исключение
Сообщить(ОписаниеОшибки());
КомпонентаПодключена = Ложь;
КонецПопытки;
КонецЕсли;
Если КомпонентаПодключена Тогда
КомпонентаПодключена = МенеджерЛицензий.Запуск(ИН АГРО_ОбщийПовторногоИспол� �зования.Серия());
глБСПУ = КомпонентаПодключена;
КонецЕсли;
Если КомпонентаПодключена Тогда
#Если Клиент Тогда
Псевдоним = ИНАГРО_ОбщийПовторногоИсп� �льзования.ИНАГРО_Получить� �севдоним();
ВерсияФайлов = МенеджерЛицензий.Получить� �начениеПараметра(Псевдони м + "Релиз");
ВерсияКонфигурации = Метаданные.Версия;
Если ВерсияФайлов <> ВерсияКонфигурации Тогда
ТекстВопроса = " ВНИМАНИЕ!
|Файлы защиты не соответствуют версии конфигурации.
|Файлы защиты предназаначены для версии конфигурации " + ВерсияФайлов + "
|Корректная работа конфигурации с указанными файлами защиты не гарантируется.";
Предупреждение(ТекстВопро� �а, 120);
КонецЕсли;
#КонецЕсли
ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;
Возврат Истина;
КонецЕсли;
#Если Клиент Тогда
Если Метаданные.Имя = "БухгалтерияСельскохозяйс� �венногоПредприятия" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия сельскохозяйственного предприятия для Украины";
ИначеЕсли Метаданные.Имя = "БухгалтерияЭлеватораМель� �ицыИКомбикормовогоЗавода� �ляУкраины" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия элеватора, мельницы и комбикормового завода для Украины";
Иначе
ИмяМет = "ИН-АГРО: Комплексное решение сельскохозяйственного предприятия для Украины";
КонецЕсли;
ТекстВопроса = " ВНИМАНИЕ!
|Не удалось инициализировать систему аппаратной защиты
|для конфигурации " + ИмяМет +".
|Подсистема не будет работать корректно без файлов защиты";
Предупреждение(ТекстВопро� �а, 120);
#КонецЕсли
Возврат Ложь;
КонецФункции // ИнициализироватьЗащитуКон фигурации()
---------- Post added at 22:06 ---------- Previous post was at 21:24 ----------
может подскажитеИ?
Функция ИНАГРО_ИнициализироватьЗа� �итуКонфигурации() Экспорт
ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;//Ложь;
КомпонентаПодключена = Истина;
глБСПУ = Истина;
глБЭМКЗ = Истина;
глБСПУ_БЭМКЗ = Истина;
Если ИНАГРО_ПодключитьКомпонен� �уСЛК() Тогда //НЕ
КомпонентаПодключена = Истина;//Ложь;
КонецЕсли;
Если КомпонентаПодключена Тогда //
Попытка
МенеджерЛицензий = Новый("AddIn.Licence.LicenceExtension20");
Исключение
Сообщить(ОписаниеОшибки());
КомпонентаПодключена = Ложь;
КонецПопытки;
КонецЕсли;
Если КомпонентаПодключена Тогда
КомпонентаПодключена = МенеджерЛицензий.Запуск(ИН АГРО_ОбщийПовторногоИспол� �зования.Серия());
глБСПУ = КомпонентаПодключена;
КонецЕсли;
Если КомпонентаПодключена Тогда
#Если Клиент Тогда
Псевдоним = ИНАГРО_ОбщийПовторногоИсп� �льзования.ИНАГРО_Получить� �севдоним();
ВерсияФайлов = МенеджерЛицензий.Получить� �начениеПараметра(Псевдони м + "Релиз");
ВерсияКонфигурации = Метаданные.Версия;
Если ВерсияФайлов <> ВерсияКонфигурации Тогда
ТекстВопроса = " ВНИМАНИЕ!
|Файлы защиты не соответствуют версии конфигурации.
|Файлы защиты предназаначены для версии конфигурации " + ВерсияФайлов + "
|Корректная работа конфигурации с указанными файлами защиты не гарантируется.";
Предупреждение(ТекстВопро� �а, 120);
КонецЕсли;
#КонецЕсли
ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;
Возврат Истина;
КонецЕсли;
#Если Клиент Тогда
Если Метаданные.Имя = "БухгалтерияСельскохозяйс� �венногоПредприятия" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия сельскохозяйственного предприятия для Украины";
ИначеЕсли Метаданные.Имя = "БухгалтерияЭлеватораМель� �ицыИКомбикормовогоЗавода� �ляУкраины" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия элеватора, мельницы и комбикормового завода для Украины";
Иначе
ИмяМет = "ИН-АГРО: Комплексное решение сельскохозяйственного предприятия для Украины";
КонецЕсли;
ТекстВопроса = " ВНИМАНИЕ!
|Не удалось инициализировать систему аппаратной защиты
|для конфигурации " + ИмяМет +".
|Подсистема не будет работать корректно без файлов защиты";
Предупреждение(ТекстВопро� �а, 120);
#КонецЕсли
Возврат Ложь;
КонецФункции // ИнициализироватьЗащитуКон фигурации()
Социальные закладки