Как установить ключ защиты для конф."Бухгалтерия строительной организации"?

[mr.ruli]

я решил , компилированный ИМП_Непоставляемый нужно сначала декомпелировать и закоментировать там нужные строки

может подскажитеИ?

Функция ИНАГРО_ИнициализироватьЗа� �итуКонфигурации() Экспорт

ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;//Ложь;
КомпонентаПодключена = Истина;
глБСПУ = Истина;
глБЭМКЗ = Истина;
глБСПУ_БЭМКЗ = Истина;

Если ИНАГРО_ПодключитьКомпонен� �уСЛК() Тогда //НЕ
КомпонентаПодключена = Истина;//Ложь;
КонецЕсли;

Если КомпонентаПодключена Тогда //Эрулан
Попытка
МенеджерЛицензий = Новый("AddIn.Licence.LicenceExtension20");
Исключение
Сообщить(ОписаниеОшибки());
КомпонентаПодключена = Ложь;
КонецПопытки;
КонецЕсли;

Если КомпонентаПодключена Тогда
КомпонентаПодключена = МенеджерЛицензий.Запуск(ИН АГРО_ОбщийПовторногоИспол� �зования.Серия());
глБСПУ = КомпонентаПодключена;
КонецЕсли;

Если КомпонентаПодключена Тогда
#Если Клиент Тогда
Псевдоним = ИНАГРО_ОбщийПовторногоИсп� �льзования.ИНАГРО_Получить� �севдоним();
ВерсияФайлов = МенеджерЛицензий.Получить� �начениеПараметра(Псевдони м + "Релиз");
ВерсияКонфигурации = Метаданные.Версия;
Если ВерсияФайлов <> ВерсияКонфигурации Тогда
ТекстВопроса = " ВНИМАНИЕ!
|Файлы защиты не соответствуют версии конфигурации.
|Файлы защиты предназаначены для версии конфигурации " + ВерсияФайлов + "
|Корректная работа конфигурации с указанными файлами защиты не гарантируется.";
Предупреждение(ТекстВопро� �а, 120);
КонецЕсли;
#КонецЕсли

ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;
Возврат Истина;
КонецЕсли;

#Если Клиент Тогда
Если Метаданные.Имя = "БухгалтерияСельскохозяйс� �венногоПредприятия" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия сельскохозяйственного предприятия для Украины";
ИначеЕсли Метаданные.Имя = "БухгалтерияЭлеватораМель� �ицыИКомбикормовогоЗавода� �ляУкраины" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия элеватора, мельницы и комбикормового завода для Украины";
Иначе
ИмяМет = "ИН-АГРО: Комплексное решение сельскохозяйственного предприятия для Украины";
КонецЕсли;
ТекстВопроса = " ВНИМАНИЕ!
|Не удалось инициализировать систему аппаратной защиты
|для конфигурации " + ИмяМет +".
|Подсистема не будет работать корректно без файлов защиты";
Предупреждение(ТекстВопро� �а, 120);
#КонецЕсли

Возврат Ложь;

КонецФункции // ИнициализироватьЗащитуКон фигурации()

---------- Post added at 22:06 ---------- Previous post was at 21:24 ----------

я решил , компилированный ИМП_Непоставляемый нужно сначала декомпелировать и закоментировать там нужные строки

может подскажитеИ?

Функция ИНАГРО_ИнициализироватьЗа� �итуКонфигурации() Экспорт

ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;//Ложь;
КомпонентаПодключена = Истина;
глБСПУ = Истина;
глБЭМКЗ = Истина;
глБСПУ_БЭМКЗ = Истина;

Если ИНАГРО_ПодключитьКомпонен� �уСЛК() Тогда //НЕ
КомпонентаПодключена = Истина;//Ложь;
КонецЕсли;

Если КомпонентаПодключена Тогда //
Попытка
МенеджерЛицензий = Новый("AddIn.Licence.LicenceExtension20");
Исключение
Сообщить(ОписаниеОшибки());
КомпонентаПодключена = Ложь;
КонецПопытки;
КонецЕсли;

Если КомпонентаПодключена Тогда
КомпонентаПодключена = МенеджерЛицензий.Запуск(ИН АГРО_ОбщийПовторногоИспол� �зования.Серия());
глБСПУ = КомпонентаПодключена;
КонецЕсли;

Если КомпонентаПодключена Тогда
#Если Клиент Тогда
Псевдоним = ИНАГРО_ОбщийПовторногоИсп� �льзования.ИНАГРО_Получить� �севдоним();
ВерсияФайлов = МенеджерЛицензий.Получить� �начениеПараметра(Псевдони м + "Релиз");
ВерсияКонфигурации = Метаданные.Версия;
Если ВерсияФайлов <> ВерсияКонфигурации Тогда
ТекстВопроса = " ВНИМАНИЕ!
|Файлы защиты не соответствуют версии конфигурации.
|Файлы защиты предназаначены для версии конфигурации " + ВерсияФайлов + "
|Корректная работа конфигурации с указанными файлами защиты не гарантируется.";
Предупреждение(ТекстВопро� �а, 120);
КонецЕсли;
#КонецЕсли

ПараметрыСеанса.ИНАГРО_Сис темаЗащитыИнициализирован а = Истина;
Возврат Истина;
КонецЕсли;

#Если Клиент Тогда
Если Метаданные.Имя = "БухгалтерияСельскохозяйс� �венногоПредприятия" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия сельскохозяйственного предприятия для Украины";
ИначеЕсли Метаданные.Имя = "БухгалтерияЭлеватораМель� �ицыИКомбикормовогоЗавода� �ляУкраины" Тогда
ИмяМет = "ИН-АГРО: Бухгалтерия элеватора, мельницы и комбикормового завода для Украины";
Иначе
ИмяМет = "ИН-АГРО: Комплексное решение сельскохозяйственного предприятия для Украины";
КонецЕсли;
ТекстВопроса = " ВНИМАНИЕ!
|Не удалось инициализировать систему аппаратной защиты
|для конфигурации " + ИмяМет +".
|Подсистема не будет работать корректно без файлов защиты";
Предупреждение(ТекстВопро� �а, 120);
#КонецЕсли

Возврат Ложь;

КонецФункции // ИнициализироватьЗащитуКон фигурации()