Выгонялка.
База данных - Инструменты администратора БД
Процедура ЗакрытьПрогу()
Если Константа.Выгнать = 1 тогда
Если НазваниеНабораПрав() <> "Администратор" тогда
ЗавершитьРаботуСистемы(0)
КонецЕсли
КонецЕсли
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
КонецПроцедуры //ПриНачалеРаботыСистемы() Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
См. также
Инструменты администратора БД Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)
Обновлённый распаковщик дистрибутивов 1С 7.7. Утилита находит многотомные архивы InstallShield 3.x в папках DISK1…DISKn или внутри ZIP, показывает список файлов, проверяет распаковку и извлекает конфигурацию без запуска старого установщика.
1 стартмани
02.10.2026 434 0 twilight5023 0
Инструменты администратора БД Разработчик 1С:Предприятие 7.7 1C77 Россия Абонемент ($m)
Блокировка открытия формы обработки одним пользователем.
1 стартмани
24.05.2023 3504 igor7777 1
Инструменты администратора БД Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)
Простецкий скрипт переименования файлов в папке в нижний регистр, будет полезен программистам и системным администраторам имеющим навыки програмирования в 1С. Можно легко настроить под себя, спасает мне периодически час времени, может, кому еще будет полезен.
1 стартмани
18.02.2022 6000 0 igor7777 6
Инструменты администратора БД Разработчик Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)
Боремся с бардаком. Работы в прошлых датах запрещены. Непроведенные документы (по разным причинам) - автоматом переносятся в начало текущего дня при запуске любого первого сеанса 1С в текущем дне. Задержка старта 1С - практически незначима. Не требует настройки, не требует допрограммирования (исключая один оператор вставки в процедуру старта системы). Можно обработку выполнять вручную с любой периодичностью.
2 стартмани
25.05.2020 7715 2 CheBurator 3
Журнал регистрации Инструменты администратора БД Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Бесплатно (free)
Рассмотрим систему на базе Elasticsearch, Logstash и Kibana (ELK Stack) для анализа логов 1С Предприятие 7.7 с целью визуализации и анализа событий 1С.
22.01.2019 14796 phsin 20
Инструменты администратора БД Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)
Скрипт позволяет выполнить объединение конфигураций и реструктуризацию из командной строки. Объединение выполняется штатными средствами конфигуратора 1С 7.7, взаимодействие с которым происходит путем посылки нажатий клавиш. Пригодится, если есть необходимость обновить или постоянно обновлять множество ИБ.
1 стартмани
22.04.2017 17570 4 devlabnn 2
Инструменты администратора БД Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Украина Бухгалтерский учет Абонемент ($m)
Перепроведение по счету для конфигурации Бухгалтерский учет для Украины, 1С: Предприятие 7.7
1 стартмани
23.09.2016 5435 1 Genyak 1
Инструменты администратора БД Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)
Периодически сталкивался со следующими проблемами при печати в 1С: 7.7 работающей под терминалом: 1) После замены принтера на клиентской машине 1С пытается печатать на старый принтер. 2) Отсутствует предварительный просмотр при печати. 3) Не работает печать без предварительного просмотра (пакетная печать документов). 4) В некоторых формах печатает, в некоторых нет.
1 стартмани
09.06.2016 31059 21 tux 3
Если ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Да Тогда
Если ТипЗначения(ФрмЗакрытьСистему)<>100 Тогда
ОткрытьФорму("Обработка.ЗакрытьСистему",ФрмЗакрытьСистему);
КонецЕсли;
ФрмЗакрытьСистему.Форма.Обновить();
Сигнал();
ТекПользователь.ОсталосьСекунд=ТекПользователь.ОсталосьСекунд-5;
ТекПользователь.Записать();
Если ТекПользователь.ОсталосьСекунд<=0 Тогда
Для а=0 По 5000 Цикл
КонецЦикла;
ЗавершитьРаботуСистемы(0);
Возврат;
КонецЕсли;
ИначеЕсли ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Нет Тогда
Если ТипЗначения(ФрмЗакрытьСистему)=100 Тогда
ФрмЗакрытьСистему.Форма.Закрыть();
КонецЕсли;
ТекПользователь.ОсталосьСекунд=0;
ТекПользователь.ЗакрытьСистему="";
ФрмЗакрытьСистему=0;
ТекПользователь.Записать();
КонецЕсли;
ПоказатьТерпеть не могу дурацкую поговорку про велосипеды, поэтому сформулирую так: за очередное гениальное откровение новичка.
Кстати, ты еще, наверно, не в курсах: если юзверь после появления вопроса "Провести документ" уйдет курить минут на 40, то:
1. ОбработкаОжидания не отработает, ибо это (не пугайся!) taskmodal window
2. А даже если и отработает (формексовская отрабатывает, спасибо АЛьФу!), то не сработает ЗавершитьРаботуСистемы(0)
Скажем , цветным текстом "Первый блин !".
Что ни говори , а шкала оценок тут должна быть другая.
Если , конечно, ИС заинтересован в привлечении новых авторов - "хороших и разных".
Правда , если проще обойтись простым техническим приёмом, то лучше им и обойтись.
В твоём варианте требуются некоторые организационные усилия - на ИС это ахиллесова пята.
P.S. Не уверен, что личка работает как надо. ishakk@mail.ru
"Программа будет закрыта, сохраните открытые документы!"
Иначе тебя какая-нибудь тётенька-бух может и прибить, если у нее строчек 20-50 дока пропадет свеженабитых ;)
Процедура глТаймер() Экспорт
Если Константа.Убить1С>0 Тогда
Стр=L.EnumMyNotChild();
Для А=1 По СтрКоличествоСтрок(Стр) Цикл
С=СтрПолучитьСтроку(Стр,А);
Если Найти(С,";#32770;")>0 Тогда
С=СтрЗаменить(С,";",РазделительСтрок);
Хэндл=Число(СтрПолучитьСтроку(С,3));
L.KillWnd(Хэндл); // избавились от модальных, кроме Вопрос
L.PressButton(Хэндл,"&Нет"); //закрыли Вопрос - ответили "Нет"
L.SendEsc(L.h1C()); // примочили календарь из рабочей даты
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показатьгде L - это:
ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"MiracleV8.dll");
L=СоздатьОбъект("AddIn.MiracleClass");
из
Да! Забыл дописать... глТаймер это не ОбработкаОжидания, а Сервис.ОбработкаОжидания от formex
Если Константа.ВсемВыйти > 0 Тогда
Если Гл_ТаблицаДействий.НайтиЗначение("ЗавершитьРаботу",,"Действие") = 0 Тогда
Сообщить("006: "+Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+": необходимо завершить работу и выйти из программы");
Предупреждение(Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+РазделительСтрок+
"Пожалуйста, завершите работу и выйдите из программы."+РазделительСтрок+
" Через "+Строка(Константа.ВсемВыйти)+" мин. она закроется автоматически",5);
Гл_ТаблицаДействий.НоваяСтрока();
Гл_ТаблицаДействий.Действие = "ЗавершитьРаботу";
Гл_ТаблицаДействий.Счетчик = Константа.ВсемВыйти;
КонецЕсли;
КонецЕсли; ПоказатьХоть прежнее место работы нельзя назвать нормальным, но когда потребовалось тупо включить кондиционеры в серверной и рестартануть сами сервера, пришлось потревожить зама по безопасности. Дело было поздно вечером в пятницу.
Если нет возможности предупредить, то можно реализовать механизм предупреждений внутренними средствами 1с (а ля 1cq или регламентные задания), и выгонять с консоли кластера.
з.ы. в консоли базу блокировать с кодом разрешения , чтобы и те кто не видел сообщений не входили и не начинали работать
ЗавершитьРаботуСистемы(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
Просмотры 13576
Загрузки 0
Рейтинг
14
Комментарии 38
Код открыт Не указано
Рубрики Инструменты администратора БД
Кому Разработчик
Тип файла Нет файла
Платформа
1С:Предприятие 7.7
,
Оперативный учет 7.7
,
Бухгалтерский учет 7.7
,
Расчет 7.7
Конфигурация 1C77
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
