1С ИНАГРО помогите снять защиту СЛК (Бухгалтерия сельскохозяйственного предприятия)
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 1 из 1
  1. #1
    Гость форума

    Регистрация
    13.06.2014
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 3 раз(а) в 1 сообщении

    Question 1С ИНАГРО помогите снять защиту СЛК (Бухгалтерия сельскохозяйственного предприятия)

    Все делал по примерам из других конфигураций:
    1. Конфигурация - Открыть конфигурацию
    2. Конфигурация - Поддержка - Настройка поддержки - Включить возможность изменения
    3. В появившемся окошке выбираю вторую строчку: "Объект редактируется с сохранением поддержкой", после чего с низу жму кнопку "Открыть"
    4. Правой кл.мыши на БухгалтерияСельскохозяйст венногоПредприятия Открыть модуль обычного приложения

    Процедуру проверки нашел:
    Код:
    // Процедура - обработчик события "При начале работы системы".
    //
    Процедура ПриНачалеРаботыСистемы()
    
    	// Начало: изменено компанией ИН-АГРО
    	//Инициализируем механизм защиты
    	ИНАГРО_ОбщегоНазначенияКлиент.ВывестиИнтерфейсПользователя(Истина);
    	Если НЕ ИНАГРО_ДирективыПрепроцессору.ИНАГРО_ИнициализироватьЗащитуКонфигурации() Тогда      
    		Предупреждение("Не удалось инициализировать систему СЛК.
    						|Работа системы будет завершена!", 120);
    		ЗавершитьРаботуСистемы(Ложь);
    		Возврат;
    	КонецЕсли;  		
    	ИНАГРО_ОбщегоНазначенияКлиент.ВывестиИнтерфейсПользователя(Ложь);
    	
    	Если Константы.ИНАГРО_глИдентификаторКонфигурации.Получить() = "" 
            ИЛИ Константы.ИНАГРО_глИдентификаторКонфигурации.Получить() <> "AccountingUkr" Тогда
            Константы.ИНАГРО_глИдентификаторКонфигурации.Установить("AccountingUkr");
        КонецЕсли;    
    	
    	КонтрольВерсииПлатформы.ПроверитьВерсиюПлатформы(); 
    	
    	ПервыйЗапуск = (Константы.НомерВерсииКонфигурации.Получить()="");
    	
    	ПользовательОпределен = Ложь;
    	ОписаниеОшибкиОпределенияПользователя = "";
    	Если Не ЗначениеЗаполнено(ПараметрыСеанса.ТекущийПользователь) Тогда
    		Если УправлениеПользователями.ОпределитьТекущегоПользователя(ОписаниеОшибкиОпределенияПользователя) Тогда
    			ПользовательОпределен = ЗначениеЗаполнено(ПараметрыСеанса.ТекущийПользователь);
    		КонецЕсли;
    	Иначе
    		ПользовательОпределен = Истина;
    	КонецЕсли;
    	
    	Если Не ПользовательОпределен Тогда
    		Если ПустаяСтрока(ОписаниеОшибкиОпределенияПользователя) Тогда
    			ОписаниеОшибкиОпределенияПользователя = НСтр("ru='Ошибка идентификации пользователя. Обратитесь к администратору';uk='Помилка ідентифікації користувача. Зверніться до адміністратора'");
    		КонецЕсли;
    		Предупреждение(ОписаниеОшибкиОпределенияПользователя);
    		ЗавершитьРаботуСистемы(Ложь);
    		Возврат;			
    
    	КонецЕсли;
    	
    	ЗаголовокСистемы = Константы.ЗаголовокСистемы.Получить();
    	Если НЕ Пустаястрока(ЗаголовокСистемы) Тогда
    		УстановитьЗаголовокСистемы(ЗаголовокСистемы);
    	КонецЕсли;
    
    	// Открытие Панели функций
    	Если (НЕ ПервыйЗапуск) Тогда
    		ПроверитьЗапускСтартовогоПомощникаИПанелиФункций();		
    	КонецЕсли;
    	
    	БИ = Обработки.БухгалтерскиеИтоги.Создать();
    	
    	// Установить начальное значение ТипДетализацииСтандартныхОтчетов
    	Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ТипДетализацииСтандартныхОтчетов") = Перечисления.ТипДетализацииСтандартныхОтчетов.ПустаяСсылка() Тогда
    		УправлениеПользователями.УстановитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ТипДетализацииСтандартныхОтчетов", Перечисления.ТипДетализацииСтандартныхОтчетов.Элементы);
    	КонецЕсли;
    															
    	ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы();
    	
    	//-----------------Начало ИН-АГРО Подсистема Элевотор-----------------------
    	Если ИНАГРО_ОбщийПовторногоИспользования.ЕстьБЭМКЗУ() Тогда
    		Если Метаданные.РегистрыНакопления.Найти("ИНАГРО_Остатки") <> Неопределено Тогда
    		
    			Выполнить("ИНАГРО_ДирективыПрепроцессоруЭлеватор.ИНАГРО_ВыполнитьОбновлениеИнформационнойБазы();");
    		
    		КонецЕсли;	
    	КонецЕсли;	
    	//-----------------Конец  ИН-АГРО Подсистема Элевотор-----------------------
    	
    	// Выполнить проверку разницы времени с сервером приложения
    	Если НЕ ПроверкаРазницыВремениКлиент.ВыполнитьПроверку() Тогда
    		Возврат;	
    	КонецЕсли;
    	
    	Если ОбработатьПараметрыЗапуска(ПараметрЗапуска) Тогда
    		Возврат;
    	КонецЕсли;
    
    	УправлениеСоединениямиИБ.УстановитьКонтрольРежимаЗавершенияРаботыПользователей();
    
    	ЭтоФайловаяИБ = ОпределитьЭтаИнформационнаяБазаФайловая();
    		
    	Если ЭтоФайловаяИБ Тогда
    					
    		ПользовательДляВыполненияРеглЗаданий = Константы.ПользовательДляВыполненияРегламентныхЗаданийВФайловомВарианте.Получить();
    		
    		Если глЗначениеПеременной("глТекущийПользователь") = ПользовательДляВыполненияРеглЗаданий Тогда
    			
    			// с интервалом секунд вызываем процедуру работы с регламентными заданиями
    			ПоддержкаРегламентныхЗаданиеДляФайловойВерсии();
    			
    			ИнтервалДляОпроса = Константы.ИнтервалДляОпросаРегламентныхЗаданийВФайловомВарианте.Получить();
    			
    			Если ИнтервалДляОпроса = Неопределено
    				ИЛИ ИнтервалДляОпроса = 0 Тогда
    				
    				ИнтервалДляОпроса = 60;	
    				
    			КонецЕсли;
    			
    			ПодключитьОбработчикОжидания("ПоддержкаРегламентныхЗаданиеДляФайловойВерсии", ИнтервалДляОпроса);
    			
    		КонецЕсли;
    		
    	КонецЕсли;
    	
    	// автообмен данными
    	Если глЗначениеПеременной("глОбработкаАвтоОбменДанными") <> Неопределено Тогда
    		
    		// подключим обработчик обменов данными
    		ПодключитьОбработчикОжидания("ПроверкаОбменаДанными", глЗначениеПеременной("глКоличествоСекундОпросаОбмена"));
    			
    	КонецЕсли;
    	
    	// Открытие Быстрого освоения
    	ПоказыватьБыстроеОсвоение = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПоказыватьБыстроеОсвоениеПриНачалеРаботыСистемы");
    	Если ПоказыватьБыстроеОсвоение  И (НЕ ПервыйЗапуск) Тогда
    		Обработки.БыстроеОсвоение.ПолучитьФорму().Открыть();
    	КонецЕсли;
    	
    	// Начало: изменено компанией ИН-АГРО
    	глУчетнаяПолитикаПоПерсоналуОрганизации = ИНАГРО_Зарплата.ИНАГРО_ЗаполнениеУчетнойПолитикиПоПерсоналуОрганизации();
    	// Конец: изменено компанией ИН-АГРО
    	
    	Если НЕ ПервыйЗапуск Тогда
    		// Открытие дополнительной информации
    		Форма = Обработки.ДополнительнаяИнформация.ПолучитьФорму("ФормаРабочийСтол");
    		Форма.Открыть();
    	КонецЕсли;
    	
    	// Начнем проверку динамического обновления конфигурации
    	НачатьПроверкуДинамическогоОбновленияИБ();
    	
    	// Автоматическая загрузка почты
    	Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "АвтооткрытиеЭлектроннойПочтыПриЗапускеПрограммы") = Истина
    	   И Константы.ИспользованиеВстроенногоПочтовогоКлиента.Получить() Тогда
    		Обработки.Почта.ПолучитьФорму().Открыть();
    	КонецЕсли; 
    	
    	Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ЗагружатьАктуальныеКурсыВалютПриЗапускеСистемы") Тогда
    	
    		// Автоматическая загрузка курсов валют
    		ЗначениеКонстанты = Константы.НастройкиЗагрузкиКурсовВалют.Получить();
    		Настройки 		  = ЗначениеКонстанты.Получить();
    		ЗагружатьЕжедневно = Ложь;	
    		Если Настройки <> Неопределено Тогда
    			Попытка
    				ЗагружатьЕжедневно = Настройки.ЗагружатьЕжедневно;
    			Исключение
    			КонецПопытки;	
    		КонецЕсли;
    		
    		Попытка
    			Если ЗагружатьЕжедневно Тогда
    				
    				ОбработкаЗагрузкаКурсов = Обработки.ЗагрузкаКурсовВалют.Создать();
    				Если НЕ ОбработкаЗагрузкаКурсов.КодДоступаАктуален() Тогда
    					ФормаОжиданияКурсов = ОбработкаЗагрузкаКурсов.ПолучитьФорму("ФормаОжидания");
    					ФормаОжиданияКурсов.Открыть();
    					ПодключитьОбработчикОжидания("ОбработчикЗагрузкаКурсов", 20, Истина);
    				Иначе
    					ОбработкаЗагрузкаКурсов.ЗагрузитьКурсыПоНастройкам();
    				КонецЕсли;
    			КонецЕсли;
    		Исключение
    		КонецПопытки;
    	
    	КонецЕсли; 
    	
    	Локализация.ПроверитьСоответсвиеЯзыкаПлатформыИПользователя();
    	
    	Если Не ПервыйЗапуск Тогда
    		 ОткрытьПутеводительПоДемобазе();
    	КонецЕсли; 
    	
    	// Форма помощника обновления конфигурации выводится поверх остальных окон.
    	// ИН-АГРО   Чтобы не лезла в Интернет за обновлением
    	//Если РольДоступна(Метаданные.Роли.ПолныеПрава) Тогда
    	//	ОбработкаОбновлениеКонфигурации = Обработки.ОбновлениеКонфигурации.Создать();
    	//	ОбработкаОбновлениеКонфигурации.ПроверитьНаличиеОбновлений();
    	//КонецЕсли;
    	
    	глПодключитьМенеджерЗвит1С(Ложь);
    	
    КонецПроцедуры // ПриНачалеРаботыСистемы()
    Но весь прикол в том что редактировать не можно, модуль открыт со статусом "Только чтение"
    1C.jpg
    Как обойти, или как же все таки ее взломать ?

  2. 3 пользователя(ей) сказали cпасибо:

    Israfill (12.06.2023), sokoff (05.02.2021), Эрулан (19.04.2017)

Похожие темы

  1. Ответов: 2
    Последнее сообщение: 06.02.2014, 13:27
  2. Ответов: 3
    Последнее сообщение: 11.01.2011, 21:33

Метки этой темы

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •