Отключение интернет-поддержки пользователей БП 3.0 / ЗУП 3.1 / УТ 11.3 / КА 2.2 / ERP 2.2...
Собственно, ничего особенно. Обычная обработка, которую можно зарегистрировать в составе внешних обработок или открывать через главное меню тонкого/толстого клиента.
Она просто прописывает каждому пользователю настройку, которую тот по сути может сделать сам, но это еще попасть в нужную галочку нужно, а тут всем юзерам за один пресест отрубается и прощай.
Реализует следующий алгоритм.
&НаКлиенте
Процедура ОтключитьИнтернетПоддержкуУВсехПользователей(Команда)
ОтключитьИнтернетПоддержкуУВсехПользователейНаСервере();
КонецПроцедуры
&НаСервере
Процедура ОтключитьИнтернетПоддержкуУВсехПользователейНаСервере()
Перем Пользователи;
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого Пользователь Из Пользователи Цикл
ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Ложь, , Пользователь.Имя);
Сообщить("Для пользователя " + Пользователь.Имя + " интернет-поддержка отключена");
КонецЦикла;
КонецПроцедуры
UPD 20/04/2014
Сильно переработал функционал обработки, пока нечем было заняться, да и моск тренировать нужно.
UPD 25/10/2016
Скачивания обработки идут, сам шибко не пользуюсь ею, решил проверить, работает ли она еще на современных конфигурациях.
Все работает. Проверено с парой конфигураций на базе БСП 2.3.4 так что смело могу утверждать, что обработка пригодна не только для БП 3.0
Скачать файлы
| Наименование | Файл | Версия | Размер | |||
|---|---|---|---|---|---|---|
|
ОтключениеВключениеИнтернетПоддержкиПользователей_БП30_УФ.epf
.epf 12,42Kb
25.10.16
621
|
.epf | 12,42Kb | 621 | Скачать |
См. также
Поискал, нашел. Для отдельно взятого пользователя можно отключить сие чудо только, если в момент запуска этого чуда у вас не будет доступа к интернету у базы данных/сервера. Тогда появится окно ИнтернетПоддержкаПользователейОшибкаДоступаКИнтернету, в котором нужно снять галочку ЗапускатьПриСтарте.
Такие дела, так что проще всего обработкой отрубить для всех юзеров в одно нажатие.
А можно и просто для одного текущего юзера выполнить.
ХранилищеОбщихНастроек.Сохранить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Ложь);Меня она очень выручила, это снизило даже нагрузку при запуске конфигураций в частном облаке.
Спасибо большое.
&НаСервере
Процедура ПоказатьТекущееСостояниеИнтернетПоддержкиНаСервере(ДляВсехПользователей)
Перем Пользователи;
Если ДляВсехПользователей Тогда
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Сообщить("Состояние интернет поддержки у пользователей:");
Для Каждого Пользователь Из Пользователи Цикл
ЗапускатьПриСтарте = ХранилищеОбщихНастроек.Загрузить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", , Пользователь.Имя);
Сообщить(Символы.Таб + ?(ЗапускатьПриСтарте = Истина, "Включена", "Выключена") + " - " + Пользователь);
КонецЦикла;
Иначе
ЗапускатьПриСтарте = ХранилищеОбщихНастроек.Загрузить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы");
Сообщить("Состояние интернет поддержки у текущего пользователя: " + ?(ЗапускатьПриСтарте = Истина, "включена", "отключена"));
КонецЕсли;
КонецПроцедуры
Показатьна этот
&НаСервере
Процедура ПоказатьТекущееСостояниеИнтернетПоддержкиНаСервере(ДляВсехПользователей)
Перем Пользователи;
Если ДляВсехПользователей Тогда
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Сообщить("Состояние интернет поддержки у пользователей:");
Для Каждого Пользователь Из Пользователи Цикл
ЗапускатьПриСтарте = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Истина,, Пользователь.Имя) = Истина;
Сообщить(Символы.Таб + ?(ЗапускатьПриСтарте = Истина, "Включена", "Выключена") + " - " + Пользователь);
КонецЦикла;
Иначе
ЗапускатьПриСтарте = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Истина) = Истина;
Сообщить("Состояние интернет поддержки у текущего пользователя: " + ?(ЗапускатьПриСтарте = Истина, "включена", "отключена"));
КонецЕсли;
КонецПроцедуры ПоказатьИ этот код
&НаСервере
Процедура КомандаОбновитьСписокПользователейНаСервере()
Перем Пользователи;
Объект.ИнтернетПоддержкаПоПользователям.Очистить();
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого Пользователь Из Пользователи Цикл
НоваяСтрока = Объект.ИнтернетПоддержкаПоПользователям.Добавить();
НоваяСтрока.Пользователь = Пользователь;
НоваяСтрока.УникальныйИдентификатор = Пользователь.УникальныйИдентификатор;
НоваяСтрока.ЗапускатьПриСтарте = ХранилищеОбщихНастроек.Загрузить(
"ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", , Пользователь.Имя);
НоваяСтрока.СтароеЗначениеЗапускатьПриСтарте = НоваяСтрока.ЗапускатьПриСтарте;
КонецЦикла;
КонецПроцедуры
Показатьна
Суть в том, что при первом запуске конфигурации у нее нет сохраненной настройки "ВсегдаПоказыватьПриСтартеПрограммы", и в этом случае программа трактует ее как Истина (Возможно это стало так с некоторых версий БСП.).
Обработка ранее в этом случае считала это значение равным Ложь и вводила в заблуждение в Расширенном режиме.
второй кусок кода нужно заменить на
| Код |
|---|
&НаСервере
Процедура КомандаОбновитьСписокПользователейНаСервере()
Перем Пользователи;
Объект.ИнтернетПоддержкаПоПользователям.Очистить();
Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей();
Для Каждого Пользователь Из Пользователи Цикл
НоваяСтрока = Объект.ИнтернетПоддержкаПоПользователям.Добавить();
НоваяСтрока.Пользователь = Пользователь;
НоваяСтрока.УникальныйИдентификатор = Пользователь.УникальныйИдентификатор;
НоваяСтрока.ЗапускатьПриСтарте = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(
"ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", Истина,, Пользователь.Имя) = Истина;
НоваяСтрока.СтароеЗначениеЗапускатьПриСтарте = НоваяСтрока.ЗапускатьПриСтарте;
КонецЦикла;
КонецПроцедуры
Показать полностью |
Может проблема в том что в колонке расписание стоит: "не применимо для команд с вариантом запуска открытие формы"???
Эта же обработка не описывает никакой такой команды, которую можно запускать как регламентное задание.
В ней только есть одна команда и та открывает окно обработки, в которой уже работает пользователь.
Что у вас не работает мне не понятно.
Данная обработка прекрасно работает на последней версии БП 3.0.44.200.
Искал в БП используется ли еще настройка "ИнтернетПоддержкаПользователей", "ВсегдаПоказыватьПриСтартеПрограммы", как оказалось используется и проверяется при запуске конфигурации.
Короче у вас это сообщение носит совершенно иной характер, его не заблокировать.
Если вы добросовестный покупатель, то у вас вероятно и подписка ИТС оплаченная есть, а значит вы можете ввести все то, что от вас просит программа, а иначе вы типа как бы ее украли, и это сообщение будет лезть всегда, так как оно генерируется платформой.
Из документов 1С про платформу 8.3.7+.
Реализована проверка легальности использования прикладного решения на уровне платформы «1С:Предприятие». Проверка выполняется для прикладных решений, развернутых в файловом варианте или на сервере в версии МИНИ. При использовании прикладного решения, использующего базовую лицензию, проверка легальности использования не выполняется. Проверка выполняется при обращении платформы через Интернет в Центр защиты обновлений.
Информация о результатах проверки отображается в диалоге О программе.
В интерфейсе конфигуратора включены дополнительные команды для работы данного механизма.
пользователь единственный admin
запускаю обработку, отключаю интернет-поддержку, по кнопке Показать текущее состояние - поддержка отключена
но.. сообщение Для работы с программой требуется подключить Интернет-поддержку пользователей. Для этого введите логин и пароль, которые вы используете на Портале 1С:ИТС
все равно всплывает!
Обработка позволяет избавиться от окошек назойливой интернет-поддержки, а проверка легальности это уже вообще из другой области граничащей с буквой закона и обработка тут ничем не помогает. Читайте (23).
Лучше скачайте, а то при просмотре в браузере первые секунды могут пикселить.
База 100% типовая БП 3.0.49.23 ПРОФ
Надеюсь по видео вам станет понятно какое окно блокируется данной обработкой ПРИ СТАРТЕ и что оно действительно блокируется.
Никакие иные окна данной обработкой не блокируются и такое поведение у нее планировалось изначально.
(33) Если у вас там что-то каждую минуту лезет, то это думаю уже из другой оперы.
Не плохо бы увидеть, что у вас там лезет такого.
Не исключаю, что может даже и это окно, которое блокирует моя обработка.
Тогда что-то вероятно пытается в базе установить подключение к сервисам 1С и сперва вызывает окно подключения, так как в базе не занесены эти данные ранее.
Всегда можно установить точку останова в коде программы и проследить причину из-за которой было вызвано это окно.
Для примера на картинке, точка останова стоит в событии при создании на сервере в модуле общей формы ПодключениеИнтернетПоддержки.
По стеку вызовов видно, что форма создается при старте системы.
А чтобы она при старте не открывалась, тут помогает моя обработка.
Ищущий да найдет причину.
Проверка легальности - совсем другая проверка.
Поскольку работать с устаревшими релизами можно, особенно в оперативном учете.
Например в УТ 11.4 это:
//ИнтернетПоддержкаПользователейКлиент.ПередНачаломРаботыСистемы();
И не будет никаких процессов ни по поддержке, ни по проверке легальности, и система меньше будет нагружена.
Конечно нужно включить возможность редактирования конфигурации - но в это ничего плохого нет.
продукт лицензионный, но подписка не нужна.
Выскакивает сообщение
"
Для работы с программой требуется подключить Интернет-поддержку пользователей. Для этого введите логин и пароль, которые вы используете на Портале 1С:ИТС."
Это совсем из другой оперы сообщение. Читайте (23)
продукт лицензионный, но подписка не нужна. Если продукт у вас лицензионный, то и платформу 8.3.12 вы по идее правомерно скачали, да как и современную УТ 11.4.3, а это значит у вас должна быть действующая подписка ИТС, а если она у вас действует, то вам не составит труда ввести регистрационный номер и пароль.
Если у вас все же пиратская версия тех же обновлений, а обновления тоже могут быть не лицензионными, если не оплачена ИТС, хоть вы когда-то и купили конфигурацию УТ 11 или ее раннюю версию УТ 10.
Вопросами взлома программ 1С я не занимаюсь и могу только посоветовать попросить у гугла помощи, однако будьте бдительны, ибо можете нарваться на вирусы.
продукт лицензионный, но подписка не нужна.
Выскакивает сообщение
"
Для работы с программой требуется подключить Интернет-поддержку пользователей. Для этого введите логин и пароль, которые вы используете на Портале 1С:ИТС."
Просмотры 48778
Загрузки 438
Комментарии 50
Создание 03.04.14 01:27
Обновление 24.04.17 23:33
№ Публикации 270662
Рубрики Системное
Кому
Администратор ,
Программист
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.x (все механизмы)
Конфигурация
1С:ERP Управление предприятием 2 ,
1С:Бухгалтерия 3.0 ,
1С:Управление торговлей 11 ,
1С:Комплексная автоматизация 2.х ,
1С:Зарплата и Управление Персоналом 3.x
Операционная система Не имеет значения
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Раздел учета Не имеет значения
Доступ к файлу Абонемент ($m)
Код открыт Не указано
