Показано с 11 по 20 из 167
-
08.10.2009, 11:05 #11
- Регистрация
- 08.10.2009
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
на складе недавно ввели систему управления от 1C. честно говоря, все мои понятия о логистических услугах перевернулись!
-
06.01.2010, 15:11 #12
- Регистрация
- 06.01.2010
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
у кого-нибудь получилось обойти защитуИ и если обощли то какИ
и еще у кого нибудь есть файлик - 3DFF.paramfileИ?
-
10.02.2010, 09:23 #13
- Регистрация
- 29.01.2010
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
-
28.03.2010, 23:10 #14
- Регистрация
- 28.03.2010
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Взломать практически не возможно т.к. обработка создается и после создания удаляется физически с сервера защиты путь к ней //.../Обработка.pdf, но я частично решил часть проблемы, т.е. кроме работы с ТСД, руки не дошли.
-
28.03.2010, 23:21 #15
- Регистрация
- 11.07.2009
- Сообщений
- 24
- Сказал(а) спасибо
- 0
- Поблагодарили 18 раз(а) в 5 сообщениях
ну и как же ты решил часть проблемы?
-
31.03.2010, 08:30 #16
- Регистрация
- 28.03.2010
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Примерно так,:p обработка РабочееМестоОператораПрие мки, для работы формы приемки:
//ликвидация защиты
Процедура защСформироватьТаблицуОбх ода(ТаблицаЗначений) Экспорт
ТаблицаЗначений.Колонки.До бавить("БыстрыйВыбор");
ТаблицаЗначений.Колонки.До бавить("Владелец");
ТаблицаЗначений.Колонки.До бавить("ОбработчикВвода");
ТаблицаЗначений.Колонки.До бавить("ОбработчикИзменени я");
ТаблицаЗначений.Колонки.До бавить("ТекстСообщения");
ТаблицаЗначений.Колонки.До бавить("ЭлементФормы");
КонецПроцедуры
Процедура защУдалитьОкноВвода(Текущ� �яФорма) Экспорт
Если ТекущаяФорма.ЭлементыФорм� �.Найти("ОкноВвода") <> Неопределено Тогда
ТекущаяФорма.ЭлементыФорм� �.Удалить(ТекущаяФорма.Элем ентыФормы.ОкноВвода);
КонецЕсли;
КонецПроцедуры
Процедура защУстановитьВыполнениеЗа дания(Владелец, Исполнитель, Состояние) Экспорт
НаборЗаписей = РегистрыСведений.устВыпол� �яемыеЗадания.СоздатьНабор Записей();
НаборЗаписей.Отбор.Задание .Установить(Владелец);
НаборЗаписей.Отбор.Исполни тель.Установить(Исполнител ь);
НаборЗаписей.Очистить();
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Задание = Владелец;
НоваяЗапись.Исполнитель = Исполнитель;
НоваяЗапись.Выполнение = Состояние;
НаборЗаписей.Записать();
КонецПроцедуры
Процедура защДобавитьЭлементВОбход(� �аблицаЗначений, ЭлементФормы, ТекстСообщения = "", ОбработчикИзменения, ОбработчикВвода = Неопределено, БыстрыйВыбор = Ложь, Владелец = Неопределено) Экспорт
НоваяСтрока = ТаблицаЗначений.Добавить();
НоваяСтрока.БыстрыйВыбор = БыстрыйВыбор;
НоваяСтрока.ОбработчикВво� �а = ОбработчикВвода;
НоваяСтрока.ОбработчикИзм� �нения = ОбработчикИзменения;
НоваяСтрока.ТекстСообщени� � = ТекстСообщения;
НоваяСтрока.ЭлементФормы = ЭлементФормы;
НоваяСтрока.Владелец = Владелец;
КонецПроцедуры
Функция защАктивизироватьСледующу юСтроку(ЭтаФорма, знач текСтрока = Неопределено, Итератор = 1, ОбходИтератором = Ложь) Экспорт
Если ОбходИтератором Тогда
Итератор = Итератор - 1;
КонецЕсли;
Если текСтрока = Неопределено Тогда
ПозицияТекСтроки = -1;
Иначе
ПозицияТекСтроки = текСтрока.Владелец().Индекс (текСтрока);
КонецЕсли;
Если ЭтаФорма.тбзПорядокОбхода. Количество() < ПозицияТекСтроки + Итератор + 2 Тогда
текСтрока = Неопределено;
Возврат текСтрока;
ИначеЕсли ПозицияТекСтроки + Итератор + 1 < 0 Тогда
текСтрока = ЭтаФорма.тбзПорядокОбхода[0];
Иначе
текСтрока = ЭтаФорма.тбзПорядокОбхода[ПозицияТекСтроки + Итератор + 1];
КонецЕсли;
Если текСтрока.ЭлементФормы.Про пускатьПриВводе Тогда
текСтрока = защАктивизироватьСледующу юСтроку(текСтрока);
КонецЕсли;
Если текСтрока <> Неопределено Тогда
защДобавитьОкноВвода(ЭтаФ� �рма, текСтрока);
ЭтаФорма.ЭлементыФормы.Тек ущаяПодсказка.Заголовок = текСтрока.ТекстСообщения;
текСтрока.ЭлементФормы.Про пускатьПриВводе = Ложь;
КонецЕсли;
Возврат текСтрока;
КонецФункции
Процедура защДобавитьОкноВвода(ЭтаФ� �рма, текСтрока)
защУдалитьОкноВвода(ЭтаФо� �ма);
ОкноВвода = ЭтаФорма.ЭлементыФормы.Доб авить(Тип("ПолеВвода"), "ОкноВвода");
ЗаполнитьЗначенияСвойств(� �кноВвода, текСтрока.ЭлементФормы);
ОкноВвода.Имя = "ОкноВвода";
ОкноВвода.ВертикальноеПол� �жение = ВертикальноеПоложение.Вер� �;
ОкноВвода.Данные = "";
ОкноВвода.КнопкаВыбора = Ложь;
ОкноВвода.КнопкаОчистки = Ложь;
ОкноВвода.ПорядокОбхода = ЭтаФорма.ЭлементыФормы.Кол ичество();
ОкноВвода.ПорядокОтображе� �ия = ЭтаФорма.ЭлементыФормы.Кол ичество();
ОкноВвода.ШиринаСпискаВыб� �ра = 15;
ОкноВвода.АвтоВыборНезапо� �ненного = текСтрока.БыстрыйВыбор;
ОкноВвода.РежимВыбораНеза� �олненного = ?(текСтрока.БыстрыйВыбор, РежимВыбораНезаполненного .ПриНажатииEnter, РежимВыбораНезаполненного .ПриАктивизации);
Если ТипЗнч(ОкноВвода.Значение) = ТипЗнч(Справочники.усЕдини цыХранения.ПустаяСсылка()) Тогда
ОкноВвода.ВыборПоВладельц� � = ЭтаФорма.Номенклатура;
ОкноВвода.Значение = ЭтаФорма.Номенклатура.Базо ваяЕдиницаХранения;
ОкноВвода.КнопкаВыбора = Истина;
ОкноВвода.БыстрыйВыбор = текСтрока.БыстрыйВыбор;
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Дата") Тогда
ОкноВвода.КнопкаВыбора = Истина;
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Строка") Тогда
// Ничего
ИначеЕсли ТипЗнч(ОкноВвода.Значение) = Тип("Число") Тогда
// Ничего
Иначе
ОкноВвода.БыстрыйВыбор = текСтрока.БыстрыйВыбор;
КонецЕсли;
ОкноВвода.УстановитьДейст� �ие("ОкончаниеВводаТекста", Новый Действие(текСтрока.Обработ чикВвода));
ОкноВвода.УстановитьДейст� �ие("ПриИзменении", Новый Действие(текСтрока.Обработ чикИзменения));
ЭтаФорма.ТекущийЭлемент = ОкноВвода;
КонецПроцедуры
// Активизирует строку переданную параметром.
//
// Параметры:
// ТекущаяФорма - форма - текущая форма для которой будет активизирован реквизит.
// текСтрока - эдемент формы - строка для активизации.
//
// Возвращаемое значение:
// Текущая строка соответствующая активизированному реквизиту.
//
Функция защАктивизироватьСтроку(Т� �кущаяФорма, знач текСтрока) Экспорт
СтрокаФормы = текСтрока;
ТекущаяФорма.ЭлементыФорм� �.ТекущаяПодсказка.Заголов� �к = СтрокаФормы.ТекстСообщени� �;
СтрокаФормы.ЭлементФормы.П ропускатьПриВводе = Ложь;
защДобавитьОкноВвода(Теку� �аяФорма,СтрокаФормы);
Возврат СтрокаФормы;
КонецФункции
-
08.05.2010, 12:57 #17
- Регистрация
- 10.10.2009
- Сообщений
- 4
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
aipnnov, не совсем понял как именно Ваш кусок кода помогает обойти защитку. Если не сложно, поясните пожалуйста.
-
08.05.2010, 17:43 #18
- Регистрация
- 28.03.2010
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
А, здесь и понимать нечего. Защита только для того чтобы скрыть обработки. одну я уже дал выше, но есть еще одна, которая служит для работы ТСД (терминала сбора данных).
Кстати, в последних релизах ЛИС уже эта обработка открыта т.к. по всей видимости авторы уже узнали, что ее уже вскрыли.
А чтобы не работала защита, необходимо в главном модуле убрать пару строк кода, которые активизируют защиту и добавить эту обработку в конфу как общий модуль.
Но ТСД работать не будет, для него надо писать еще одну обработку. Но будут работать все функции с рабочео стола оператора приемки.
-
08.05.2010, 23:20 #19
- Регистрация
- 10.10.2009
- Сообщений
- 4
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Там вроде все на на глЗащита и КомпонентаЗащиты завязано.
Если это комментить, конфа открывается, но документы не запускаются.
Просто не понял, как мне поможет Ваш общий модуль? В каком месте он вызываться будет?
-
-
10.05.2010, 23:13 #20
- Регистрация
- 28.03.2010
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Это и есть часть модуля как в глЗащита.
Похожие темы
-
1С Сельхоз предприятие
от johnsm123 в разделе Полезные ссылки для скачиванияОтветов: 1453Последнее сообщение: 19.06.2024, 13:56 -
1С:Предприятие 8. ТОИР Управление ремонтами и обслуживанием оборудования
от totparen в разделе Полезные ссылки для скачиванияОтветов: 171Последнее сообщение: 20.10.2023, 15:36 -
1С-АРБИС:Управление фирмой-франчайзи
от ivm_m в разделе Полезные ссылки для скачиванияОтветов: 28Последнее сообщение: 14.06.2023, 14:04 -
1С:Предприятие" 7.x и 8.x БЕЛАРУСЬ
от Nep в разделе Полезные ссылки для скачиванияОтветов: 2095Последнее сообщение: 14.12.2014, 13:59 -
1С Управление торговлей 8.1 Селищев Н.В
от fusss5 в разделе Полезные ссылки для скачиванияОтветов: 1Последнее сообщение: 05.06.2009, 12:02
Социальные закладки