База данных - Инструменты администратора БД
Процедура ЗакрытьПрогу()
Если Константа.Выгнать = 1 тогда
Если НазваниеНабораПрав() <> "Администратор" тогда
ЗавершитьРаботуСистемы(0)
КонецЕсли
КонецЕсли
КонецПроцедуры
Процедура ПриНачалеРаботыСистемы()
ОбработкаОжидания("ЗакрытьПрогу",60); // 60 - секунды
КонецПроцедуры //ПриНачалеРаботыСистемы() Вступайте в нашу телеграмм-группу Инфостарт
Инструменты администратора БД Программист 1С v7.7 1C77 Россия Абонемент ($m)
Блокировка открытия формы обработки одним пользователем.
1 стартмани
24.05.2023 1397 igor7777 1
Инструменты администратора БД Системный администратор Программист 1С v7.7 1C77 Абонемент ($m)
Простецкий скрипт переименования файлов в папке в нижний регистр, будет полезен программистам и системным администраторам имеющим навыки програмирования в 1С. Можно легко настроить под себя, спасает мне периодически час времени, может, кому еще будет полезен.
1 стартмани
18.02.2022 4457 0 igor7777 6
Инструменты администратора БД Программист Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)
Боремся с бардаком. Работы в прошлых датах запрещены. Непроведенные документы (по разным причинам) - автоматом переносятся в начало текущего дня при запуске любого первого сеанса 1С в текущем дне. Задержка старта 1С - практически незначима. Не требует настройки, не требует допрограммирования (исключая один оператор вставки в процедуру старта системы). Можно обработку выполнять вручную с любой периодичностью.
2 стартмани
25.05.2020 6138 2 CheBurator 3
Журнал регистрации Инструменты администратора БД Системный администратор Программист 1С v7.7 1C77 Бесплатно (free)
Рассмотрим систему на базе Elasticsearch, Logstash и Kibana (ELK Stack) для анализа логов 1С Предприятие 7.7 с целью визуализации и анализа событий 1С.
22.01.2019 12239 phsin 20
Инструменты администратора БД Системный администратор Программист 1С v7.7 1C77 Абонемент ($m)
Скрипт позволяет выполнить объединение конфигураций и реструктуризацию из командной строки. Объединение выполняется штатными средствами конфигуратора 1С 7.7, взаимодействие с которым происходит путем посылки нажатий клавиш. Пригодится, если есть необходимость обновить или постоянно обновлять множество ИБ.
1 стартмани
22.04.2017 16161 4 devlabnn 2
Инструменты администратора БД Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Украина Бухгалтерский учет Абонемент ($m)
Перепроведение по счету для конфигурации Бухгалтерский учет для Украины, 1С: Предприятие 7.7
1 стартмани
23.09.2016 4036 1 Genyak 1
Инструменты администратора БД Системный администратор 1С v7.7 1C77 Абонемент ($m)
Периодически сталкивался со следующими проблемами при печати в 1С: 7.7 работающей под терминалом: 1) После замены принтера на клиентской машине 1С пытается печатать на старый принтер. 2) Отсутствует предварительный просмотр при печати. 3) Не работает печать без предварительного просмотра (пакетная печать документов). 4) В некоторых формах печатает, в некоторых нет.
1 стартмани
09.06.2016 29258 20 tux 3
Инструменты администратора БД Системный администратор Программист 1С v7.7 1С v8.3 Бесплатно (free)
Часто бывает необходимо отслеживать состояние часто повторяющихся регламентных заданий. Например, синхронизация данных с IP-телефонией, которая может производиться каждую минуту, синхронизация с сайтами, синхронизация данных с различными системами. Использовать для этих целей логирование 1С чрезвычайно неэффективно и не удобно. В таких случаях удобно использовать подход, применяемый в Unix-системах: писать логи в обычные текстовые файлы, а потом делать их обработку через эффективно работающие Unix-команды: grep, tail, cat, less и т.п.
18.05.2016 39544 rudjuk 21
Если ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Да Тогда
Если ТипЗначения(ФрмЗакрытьСистему)<>100 Тогда
ОткрытьФорму("Обработка.ЗакрытьСистему",ФрмЗакрытьСистему);
КонецЕсли;
ФрмЗакрытьСистему.Форма.Обновить();
Сигнал();
ТекПользователь.ОсталосьСекунд=ТекПользователь.ОсталосьСекунд-5;
ТекПользователь.Записать();
Если ТекПользователь.ОсталосьСекунд<=0 Тогда
Для а=0 По 5000 Цикл
КонецЦикла;
ЗавершитьРаботуСистемы(0);
Возврат;
КонецЕсли;
ИначеЕсли ТекПользователь.ЗакрытьСистему=Перечисление.Булево.Нет Тогда
Если ТипЗначения(ФрмЗакрытьСистему)=100 Тогда
ФрмЗакрытьСистему.Форма.Закрыть();
КонецЕсли;
ТекПользователь.ОсталосьСекунд=0;
ТекПользователь.ЗакрытьСистему="";
ФрмЗакрытьСистему=0;
ТекПользователь.Записать();
КонецЕсли;
Показать
Процедура глТаймер() Экспорт
Если Константа.Убить1С>0 Тогда
Стр=L.EnumMyNotChild();
Для А=1 По СтрКоличествоСтрок(Стр) Цикл
С=СтрПолучитьСтроку(Стр,А);
Если Найти(С,";#32770;")>0 Тогда
С=СтрЗаменить(С,";",РазделительСтрок);
Хэндл=Число(СтрПолучитьСтроку(С,3));
L.KillWnd(Хэндл); // избавились от модальных, кроме Вопрос
L.PressButton(Хэндл,"&Нет"); //закрыли Вопрос - ответили "Нет"
L.SendEsc(L.h1C()); // примочили календарь из рабочей даты
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Показать Если Константа.ВсемВыйти > 0 Тогда
Если Гл_ТаблицаДействий.НайтиЗначение("ЗавершитьРаботу",,"Действие") = 0 Тогда
Сообщить("006: "+Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+": необходимо завершить работу и выйти из программы");
Предупреждение(Формат(ТекущаяДата(),"Д ДДММММГГГГ")+", "+ТекущееВремя()+РазделительСтрок+
"Пожалуйста, завершите работу и выйдите из программы."+РазделительСтрок+
" Через "+Строка(Константа.ВсемВыйти)+" мин. она закроется автоматически",5);
Гл_ТаблицаДействий.НоваяСтрока();
Гл_ТаблицаДействий.Действие = "ЗавершитьРаботу";
Гл_ТаблицаДействий.Счетчик = Константа.ВсемВыйти;
КонецЕсли;
КонецЕсли; ПоказатьДля получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
№ 69366
Создание 21.04.10 10:20
Обновление 21.04.10 10:20
Просмотры 12615
Загрузки 0
Рейтинг
14
Комментарии 38
Код открыт Не указано
Рубрики Инструменты администратора БД
Кому Программист
Тип файла Нет файла
Платформа
OpenConf
,
Оперативный учет 7.7
,
Бухгалтерский учет 7.7
,
Расчет 7.7
Конфигурация 1C77
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Бесплатно (free)
