Процедура ЗакрытьПрогу()
Если Константа.Выгнать = 1 тогда
Если НазваниеНабораПрав() <> "Администратор" тогда
ЗавершитьРаботуСистемы(0)
КонецЕсли
КонецЕсли
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
КонецПроцедуры //ПриНачалеРаботыСистемы() Выгонялка.
21.04.10
База данных - Инструменты администратора БД
Часто сталкиваюсь с проблемой: просишь пользователей выйти из базы, а они не слушаются! Для этого написала такую вот выгонялку.
См. также
Инструменты администратора БД Программист Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)
Блокировка открытия формы обработки одним пользователем.
1 стартмани
24.05.2023 888 igor7777 1
Инструменты администратора БД Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)
Простецкий скрипт переименования файлов в папке в нижний регистр, будет полезен программистам и системным администраторам имеющим навыки програмирования в 1С. Можно легко настроить под себя, спасает мне периодически час времени, может, кому еще будет полезен.
1 стартмани
18.02.2022 4011 0 igor7777 6
Инструменты администратора БД Программист Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)
Боремся с бардаком. Работы в прошлых датах запрещены. Непроведенные документы (по разным причинам) - автоматом переносятся в начало текущего дня при запуске любого первого сеанса 1С в текущем дне. Задержка старта 1С - практически незначима. Не требует настройки, не требует допрограммирования (исключая один оператор вставки в процедуру старта системы). Можно обработку выполнять вручную с любой периодичностью.
2 стартмани
25.05.2020 5875 2 CheBurator 3
Журнал регистрации Инструменты администратора БД Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (free)
Рассмотрим систему на базе Elasticsearch, Logstash и Kibana (ELK Stack) для анализа логов 1С Предприятие 7.7 с целью визуализации и анализа событий 1С.
22.01.2019 11556 phsin 20
Инструменты администратора БД Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)
Скрипт позволяет выполнить объединение конфигураций и реструктуризацию из командной строки. Объединение выполняется штатными средствами конфигуратора 1С 7.7, взаимодействие с которым происходит путем посылки нажатий клавиш. Пригодится, если есть необходимость обновить или постоянно обновлять множество ИБ.
1 стартмани
22.04.2017 15858 4 devlabnn 2
Инструменты администратора БД Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Украина Бухгалтерский учет Абонемент ($m)
Перепроведение по счету для конфигурации Бухгалтерский учет для Украины, 1С: Предприятие 7.7
1 стартмани
23.09.2016 3851 1 Genyak 1
Инструменты администратора БД Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)
Периодически сталкивался со следующими проблемами при печати в 1С: 7.7 работающей под терминалом: 1) После замены принтера на клиентской машине 1С пытается печатать на старый принтер. 2) Отсутствует предварительный просмотр при печати. 3) Не работает печать без предварительного просмотра (пакетная печать документов). 4) В некоторых формах печатает, в некоторых нет.
1 стартмани
09.06.2016 28035 19 tux 3
Инструменты администратора БД Системный администратор Программист Платформа 1С v7.7 Платформа 1С v8.3 Бесплатно (free)
Часто бывает необходимо отслеживать состояние часто повторяющихся регламентных заданий. Например, синхронизация данных с IP-телефонией, которая может производиться каждую минуту, синхронизация с сайтами, синхронизация данных с различными системами. Использовать для этих целей логирование 1С чрезвычайно неэффективно и не удобно. В таких случаях удобно использовать подход, применяемый в Unix-системах: писать логи в обычные текстовые файлы, а потом делать их обработку через эффективно работающие Unix-команды: grep, tail, cat, less и т.п.
18.05.2016 37106 rudjuk 21
Комментарии
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
более гуманно (выдернуто из системы сообщений, взятой на проклубе):
Если ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Да Тогда
Если ТипЗначения(ФрмЗакрытьСистему)<>100 Тогда
ОткрытьФорму("Обработка.ЗакрытьСистему",ФрмЗакрытьСистему);
КонецЕсли;
ФрмЗакрытьСистему.Форма.Обновить();
Сигнал();
ТекПользователь.ОсталосьСекунд=ТекПользователь.ОсталосьСекунд-5;
ТекПользователь.Записать();
Если ТекПользователь.ОсталосьСекунд<=0 Тогда
Для а=0 По 5000 Цикл
КонецЦикла;
ЗавершитьРаботуСистемы(0);
Возврат;
КонецЕсли;
ИначеЕсли ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Нет Тогда
Если ТипЗначения(ФрмЗакрытьСистему)=100 Тогда
ФрмЗакрытьСистему.Форма.Закрыть();
КонецЕсли;
ТекПользователь.ОсталосьСекунд=0;
ТекПользователь.ЗакрытьСистему="";
ФрмЗакрытьСистему=0;
ТекПользователь.Записать();
КонецЕсли;
Показать
(12)
Терпеть не могу дурацкую поговорку про велосипеды, поэтому сформулирую так: за очередное гениальное откровение новичка.
Кстати, ты еще, наверно, не в курсах: если юзверь после появления вопроса "Провести документ" уйдет курить минут на 40, то:
1. ОбработкаОжидания не отработает, ибо это (не пугайся!) taskmodal window
2. А даже если и отработает (формексовская отрабатывает, спасибо АЛьФу!), то не сработает ЗавершитьРаботуСистемы(0)
за что минус?
Терпеть не могу дурацкую поговорку про велосипеды, поэтому сформулирую так: за очередное гениальное откровение новичка.
Кстати, ты еще, наверно, не в курсах: если юзверь после появления вопроса "Провести документ" уйдет курить минут на 40, то:
1. ОбработкаОжидания не отработает, ибо это (не пугайся!) taskmodal window
2. А даже если и отработает (формексовская отрабатывает, спасибо АЛьФу!), то не сработает ЗавершитьРаботуСистемы(0)
И еще: путний проггер хотя бы за 30 секунд должен предупредить юзверей, что
"Программа будет закрыта, сохраните открытые документы!"
Иначе тебя какая-нибудь тётенька-бух может и прибить, если у нее строчек 20-50 дока пропадет свеженабитых ;)
"Программа будет закрыта, сохраните открытые документы!"
Иначе тебя какая-нибудь тётенька-бух может и прибить, если у нее строчек 20-50 дока пропадет свеженабитых ;)
(18) Вот смотри как на самом деле это совсем не просто:
где L - это:
ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"MiracleV8.dll");
L=СоздатьОбъект("AddIn.MiracleClass");
из
Да! Забыл дописать... глТаймер это не ОбработкаОжидания, а Сервис.ОбработкаОжидания от formex
Процедура глТаймер() Экспорт
Если Константа.Убить1С>0 Тогда
Стр=L.EnumMyNotChild();
Для А=1 По СтрКоличествоСтрок(Стр) Цикл
С=СтрПолучитьСтроку(Стр,А);
Если Найти(С,";#32770;")>0 Тогда
С=СтрЗаменить(С,";",РазделительСтрок);
Хэндл=Число(СтрПолучитьСтроку(С,3));
L.KillWnd(Хэндл); // избавились от модальных, кроме Вопрос
L.PressButton(Хэндл,"&Нет"); //закрыли Вопрос - ответили "Нет"
L.SendEsc(L.h1C()); // примочили календарь из рабочей даты
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показатьгде L - это:
ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"MiracleV8.dll");
L=СоздатьОбъект("AddIn.MiracleClass");
из
Да! Забыл дописать... глТаймер это не ОбработкаОжидания, а Сервис.ОбработкаОжидания от formex
Из чистого занудства приведу кусочек из конфигурации Камин-ЗПЛ2.0.
Если Константа.ВсемВыйти > 0 Тогда
Если Гл_ТаблицаДействий.НайтиЗначение("ЗавершитьРаботу",,"Действие") = 0 Тогда
Сообщить("006: "+Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+": необходимо завершить работу и выйти из программы");
Предупреждение(Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+РазделительСтрок+
"Пожалуйста, завершите работу и выйдите из программы."+РазделительСтрок+
" Через "+Строка(Константа.ВсемВыйти)+" мин. она закроется автоматически",5);
Гл_ТаблицаДействий.НоваяСтрока();
Гл_ТаблицаДействий.Действие = "ЗавершитьРаботу";
Гл_ТаблицаДействий.Счетчик = Константа.ВсемВыйти;
КонецЕсли;
КонецЕсли; Показать
Эт точно (с).
Хоть прежнее место работы нельзя назвать нормальным, но когда потребовалось тупо включить кондиционеры в серверной и рестартануть сами сервера, пришлось потревожить зама по безопасности. Дело было поздно вечером в пятницу.
Хоть прежнее место работы нельзя назвать нормальным, но когда потребовалось тупо включить кондиционеры в серверной и рестартануть сами сервера, пришлось потревожить зама по безопасности. Дело было поздно вечером в пятницу.
у меня есть рабочий код подобного.. но с более гибкими настройками. Учитываются ОТДЕЛЬНЫЕ права пользовател (новые), при заходе обычного пользователя ему выдается сообщение. После запуска механизма автовыгона всем пользователям выскакивает предупрждение о закрытии с причиной (вводится вручную), и через заданное время программа у пользователей закрывается автоматически... если надо - подготовлю и выложу.
Если есть возможность предупредить всех до момента выгонять, то я использую консоль кластера , для вырубания юзеров. (к-с вариант)
Если нет возможности предупредить, то можно реализовать механизм предупреждений внутренними средствами 1с (а ля 1cq или регламентные задания), и выгонять с консоли кластера.
з.ы. в консоли базу блокировать с кодом разрешения , чтобы и те кто не видел сообщений не входили и не начинали работать
Если нет возможности предупредить, то можно реализовать механизм предупреждений внутренними средствами 1с (а ля 1cq или регламентные задания), и выгонять с консоли кластера.
з.ы. в консоли базу блокировать с кодом разрешения , чтобы и те кто не видел сообщений не входили и не начинали работать
Процедура CLOSE_PROGA()
ЗавершитьРаботуСистемы(0);
КонецПроцедуры
Процедура ЗакрытьПрогу()
// условие при котором j=0, до этого j=1
if j=0 then
message("####################################");
message("#....Программа будет закрыта через 1 минуту....#");
message("#..........Сохраните пожайлуста документы...........#");
message("####################################");
//ОбработкаОжидания("CLOSE_PROGA",60);
ОбработкаОжидания("CLOSE_PROGA",timclose);
endif;
КонецПроцедуры
Во, а команда в Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
меняется на
timclose=1;
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
timclose=60;
у меня так, если чел заходит, то видит надпись и вываливается, а если работает то есть минута на размышение
ЗавершитьРаботуСистемы(0);
КонецПроцедуры
Процедура ЗакрытьПрогу()
// условие при котором j=0, до этого j=1
if j=0 then
message("####################################");
message("#....Программа будет закрыта через 1 минуту....#");
message("#..........Сохраните пожайлуста документы...........#");
message("####################################");
//ОбработкаОжидания("CLOSE_PROGA",60);
ОбработкаОжидания("CLOSE_PROGA",timclose);
endif;
КонецПроцедуры
Во, а команда в Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
меняется на
timclose=1;
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
timclose=60;
у меня так, если чел заходит, то видит надпись и вываливается, а если работает то есть минута на размышение
Автор:
Подписаться
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
Публикация:
№ 69366
Создание 21.04.10 10:20
Обновление 21.04.10 10:20
Статистика:
Просмотры 12343
Загрузки 0
Рейтинг
14
Комментарии 38
Характеристики:
Код открыт Не указано
Рубрики Инструменты администратора БД
Кому Программист
Тип файла Нет файла
Платформа
OpenConf
,
Оперативный учет 7.7
,
Бухгалтерский учет 7.7
,
Расчет 7.7
Конфигурация Конфигурации 1cv7
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
