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

[Sntim]

Ремовать инициализацию защиты не проблема. Как подменить компилированный ИМП_Непоставляемый.

[shmyga51]

Вот так работает, и не требует ключа

Процедура ПриНачалеРаботыСистемы()


ОсвобождатьЛицензиюПриЗав ершенииРаботы = ИмпНепоставляемый.Освобож� �атьЛицензиюПриЗавершении� �аботы();

//Попытка
// ИмпНепоставляемый.Запуск();
//Исключение

// ПараметрыСвязи = "";
// Если Не ИмпНепоставляемый.ЗапускМ� �неджераЛицензий(Параметры Связи) Тогда
// ПараметрыОткрытия = Новый Структура("ЗавершатьРаботу Системы, ПараметрыСвязи", Истина, ПараметрыСвязи);
// ОткрытьФорму("ОбщаяФорма.И� �пФормаНастройкиЗащитыСЛК" , ПараметрыОткрытия,,,Вариан� �ОткрытияОкна.ОтдельноеОкн о,,,РежимОткрытияОкнаФормы. БлокироватьВесьИнтерфейс);
// КонецЕсли;

//КонецПопытки;

// СтандартныеПодсистемы
СтандартныеПодсистемыКлие нт.ПриНачалеРаботыСистемы( );
// Конец СтандартныеПодсистемы

//РаботаСВнешнимОборудовани ем
МенеджерОборудованияКлиен т.ПриНачалеРаботыСистемы();
//Конец РаботаСВнешнимОборудовани ем

КонецПроцедуры

[akhmadullin]

а как это сделать?

[Sntim]

Знал бы...
Не спрашивал бы...

[dukee]

Попрежнему актуально.
Никто задачу не решил?

[koloboc74]

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

[mr.ruli]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

[Артем10]

Вот пожалуйста http://www.modber.ru/catalog/item1770.html думаю что помог вам в вашем решение!))

[bigabilovsabit]

Добрый день У нашей организации есть 45 лицензии. У нас какимта образом работают сиволиш примерно 20 лицензии у нас подключено без ключа Usb флешки ественно когда входишь в 1с он ругается что нету свободных лицензии хотя 2 дня назад все работала можете помочь как мне

[Андрей Морозов]

Расширение конфигурации позволяющее работать с конфигурацией 3.1.66.*
https://yadi.sk/d/nwodnLu1nSflTw пароль ru-board