PowerOff_1C - Выкидывалка + отправка сообщений, предупреждений или вопросов..

05.02.09

База данных - Инструменты администратора БД

PowerOff_1C: Выкидывалка + отправка сообщений, предупреждений или вопросов..

Скачать файлы

Наименование Файл Версия Размер
PowerOff_1C версия 1.1(Рус)
.1233218555 195,00Kb
709
.1233218555 195,00Kb 709 Скачать
PowerOff_1C версия 1.1(укр)
.1232231445 180,50Kb
585
.1232231445 180,50Kb 585 Скачать
Описания_установки+Глобальные_процедуры
.1233218618 7,54Kb
366
.1233218618 7,54Kb 366 Скачать
Этот каталог положить в ExtForms
.1233221004 0,36Kb
352
.1233221004 0,36Kb 352 Скачать
PowerOff_1Cv1.1.rar - все вместе
.1233221255 46,84Kb
646
.1233221255 46,84Kb 646 Скачать

Обработка выбрасывает пользователей из бухгалтерии...

А именно:

1) отображает активных и не активных пользователей;

2) завершает работу 1С с возможностью сохранять или не сохранять несохраненные данные любого из пользователей или всех одновременно;

3) послать перед завершением сообщение, вопрос, или предупреждение (также можно просто отослать без завершения работы) от имени любого пользователя 1С или произвольного "придуманного";

4) можно выключить, перезагрузить или сделать выход из системы компьютера, с которого подключены к базе (при работе с 1С по терминалу кнопки "выключить\перезагрузить" хотя бы одного пользователя - думаю все понимают, чем закончиться);

5) для "вредных бухгалтеров" можно отправлять команду или сообщение несколько раз (до 10);

Порядок установки в описании обработки!


Если немного дописать можно сделать чат, выключения пользователей по времени...

Жду плюсов и комментариев и чтобы еще здесь доделать!!!

 

29.01.2008 Добавлена русская версия PowerOff_1C. Большое спасибо за переклад на русский Халед!

См. также

1С:Фото номенклатуры 7.7 - решение для работы с фотографиями номенклатуры в 1С:7.7 (включая формат PNG)

Работа с интерфейсом Логистика, склад и ТМЦ Платформа 1С v7.7 1С:Торговля и склад 7.7 Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Решение для разработчика и конечного пользователя для работы с фотографиями номенклатуры: систематизация, хранение, отображение, а также выгрузка на Яндекс-Диск и FTP (кроме версии лайт). Поддерживаются графические форматы: bmp, jpg, gif, tiff, а также png - не поддерживаемый штатными средствами 1С. Выполнено без использования внешних компонент (кроме функции выгрузки на FTP). Поставляется как в виде пустой конфигурации с набором объектов и модулей для работы с фото, так и в виде обновления к 1С:Торговля и склад 7.7. Выполнено в двух версиях: "полная" и "лайт".

5000 руб.

18.10.2022    5160    1    45    

3

Анализ 1С: Предприятие 7.7 с помощью ELK стека

Журнал регистрации Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (free)

Рассмотрим систему на базе Elasticsearch, Logstash и Kibana (ELK Stack) для анализа логов 1С Предприятие 7.7 с целью визуализации и анализа событий 1С.

22.01.2019    11093    phsin    20    

27

Логирование в 1С

Инструменты администратора БД Платформа 1С v7.7 Платформа 1С v8.3 Бесплатно (free)

Часто бывает необходимо отслеживать состояние часто повторяющихся регламентных заданий. Например, синхронизация данных с IP-телефонией, которая может производиться каждую минуту, синхронизация с сайтами, синхронизация данных с различными системами. Использовать для этих целей логирование 1С чрезвычайно неэффективно и не удобно. В таких случаях удобно использовать подход, применяемый в Unix-системах: писать логи в обычные текстовые файлы, а потом делать их обработку через эффективно работающие Unix-команды: grep, tail, cat, less и т.п.

18.05.2016    34939    rudjuk    21    

33

Установка OpenConf для 1С v 7.7 под Windows 10

Инструменты администратора БД OpenConf Бесплатно (free)

Хотелось бы поделиться тем, как я пытался установить OpenConf для 1С 7.7 на windows 10. Статья не претендует на пулитцеровскую премию. Вдруг кому-то пригодится.

14.04.2016    22576    kouki_189    10    

35

GSoft: Мастер Active Directory

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Вам необходимо навести порядок в Active Directory? Требуется загрузка данных пользователей? Используете 1С как средство хранения данных об учетных записях? В этом и многом другом Вам поможет обработка GSoft: Мастер Active Directory

10 стартмани

21.03.2016    12367    2    GSoft    6    

8

Очень долго запускается 1С предприятие 7.7 (конфигуратор, монитор, отладчик)

Инструменты администратора БД Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (free)

Если у Вас всегда очень долго открывается 1С, заставка висит в течение нескольких минут, зависает при старте предприятия 7.7 и конфигуратор, и монитор, и отладчик, скорее всего, дело в файле 1cv7evt.txt, файл 1cv7evt.txt в подкаталоге Syslog в каталоге базы находится по адресу \\ИмяСервера\ИмяКаталогаБаз\ИмяБазы\SYSLOG\1cv7evt.txt, вернее в размере этого файла. Проблема проявляется в том, что во время запуска 1С предприятия 7.7 и конфигуратора, и монитора, и отладчика заставка висит несколько минут. Отключите пользователей, перенесите файл 1cv7evt.txt в другую папку, и 1С 7.7 будет стартовать очень быстро.

09.09.2014    37389    ksnik    14    

10
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ANRI_962 18.01.09 02:47 Сейчас в теме
есть ошибки
файл_Т.Открыть(имя_файла_с_акт_польз);Неверное имя файла!
2. ROM_1C 691 18.01.09 04:59 Сейчас в теме
(1) не правильно установили...
1. имя файла задаетьса в самому низу глобальника.
2. Файл с таким именем нужто чтобы был в екстФормсах...
Прочтите внемательно инструкцию по установке...
13. ROM_1C 691 22.01.09 14:07 Сейчас в теме
Выкладываю сюда..

Обработка виключения - завенршения работи


установка
1)
в глобальному модулю на самом верху вчтавляем

Перем имя_файла_с_акт_польз Экспорт;
Перем имя_файла_с_Викл_польз Экспорт;
Перем ТекущееКоличествоОбращений Экспорт;
//*****приберайм после себя в файлах
Процедура ЗавершенияРаботи_РОМ(режимВихода)
Если режимВихода=2 Тогда
файл_Т = СоздатьОбъект("Текст");
файл_Т.Открыть(имя_файла_с_акт_польз);
Если файл_Т.КоличествоСтрок() <>0 Тогда
Для квоСтрок=1 По файл_Т.КоличествоСтрок() Цикл
пользовСфайла = СокрЛП(файл_Т.ПолучитьСтроку(квоСтрок));
Если пользовСфайла <> ИмяПользователя() Тогда
квоСтрок=квоСтрок+1;
Продолжить;
КонецЕсли;
файл_Т.УдалитьСтроку(квоСтрок);
КонецЦикла;
КонецЕсли;
файл_Т.Записать(имя_файла_с_акт_польз);
КонецЕсли;
файл_З = СоздатьОбъект("Текст");
файл_З.Открыть(имя_файла_с_Викл_польз);
Если файл_З.КоличествоСтрок() <>0 Тогда
Для квоСтрок=1 По файл_З.КоличествоСтрок() Цикл
стр_с_файла = СокрЛП(файл_З.ПолучитьСтроку(квоСтрок));
пользовСФайла = Лев(стр_с_файла,Найти(стр_с_файла,"***")-1);
Если пользовСфайла <> ИмяПользователя() Тогда
квоСтрок=квоСтрок+1;
Продолжить;
КонецЕсли;
файл_З.УдалитьСтроку(квоСтрок);
КонецЦикла;
КонецЕсли;
файл_З.Записать(имя_файла_с_Викл_польз);
КонецПроцедуры
Процедура ЧтоСделатьСюзвером_Ром(статусОтключения,ФлагСохранения,Парам,КолОбращений,сообщение,ТекстСообщения,отКого)
// в файлі компнд перша цифра 1, - виключаємо 1С; 2 - доступ до 1С ,3 - повідомлення
// цифла №2 = 1 - запитуємо зберегти не збереженні документи, 0 - не запитуємо;
//цифла №3 = пераметр з компом - 4 - вихід з коритувача, 5 - виключити, 6 - ребут
//цифла №4 = кількість раз може надсилатись повідомлення чи запит на виключення
//цифла №5 = вид повідомлення 1 - "сообщить"; 2 - "предупредить"; 3 - Вопрос
ТекущееКоличествоОбращений=ТекущееКоличествоОбращений+1;
Если статусОтключения="1" Тогда
ЗавершитьРаботуСистемы(ФлагСохранения);
ИначеЕсли статусОтключения="2" Тогда
//*** парам = 4 -виход ; 5 - викл; 6 - ребут;
Попытка
ЗавершенияРаботи_РОМ(1);
ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode("
|Function ViolateComputer()
| Set WMI = GetObject(""winmgmts:{(Shutdown,RemoteShutdown)}\\"+СокрЛП(ИмяКомпьютера())+"\Root\CIMV2"")
| For Each OS In WMI.ExecQuery(""SELECT * FROM Win32_OperatingSystem"")
| OS.Win32Shutdown("+Парам+")
| Next
|End Function
|");
ScrptCtrl.Run("ViolateComputer");


Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

КонецЕсли;
/// модуль доставки повідомлення
Если сообщение= "1" Тогда
Сообщить("<Повідомлення від "+ отКого+ " ["+ ТекущееВремя()+ "]"+"> "+ ТекстСообщения,"!!");
ИначеЕсли сообщение="2" Тогда
Предупреждение(ТекстСообщения,20);
Сообщить("<Попередження від " + отКого+" ["+ ТекущееВремя()+ "]"+"> "+ТекстСообщения,"!!!");
ИначеЕсли сообщение="3" Тогда
Если Вопрос(ТекстСообщения,4,20)=6 Тогда
Сообщить("<Запитання до Вас від " + отКого +" ["+ ТекущееВремя()+ "]"+ "> "+ТекстСообщения,"!");
Сообщить("Ви відповіли " + "Так");
Иначе
Сообщить("<Запитання до Вас від " + отКого +" ["+ ТекущееВремя()+ "]"+ "> "+ТекстСообщения,"!");
Сообщить("Ви відповіли " + "Ні");
КонецЕсли;
КонецЕсли;
Если ТекущееКоличествоОбращений >= Число(КолОбращений) Тогда
ТекущееКоличествоОбращений=0;
ЗавершенияРаботи_РОМ(1);
КонецЕсли;
КонецПроцедуры

//*********************************
Процедура НачалоРаботи_Ром()
файл_Т = СоздатьОбъект("Текст");
файл_Т.Открыть(имя_файла_с_акт_польз);
Если файл_Т.КоличествоСтрок() <>0 Тогда
//проверка на всяк випадок глюканого завершення роботи системи....
Для квоСтрок=1 По файл_Т.КоличествоСтрок() Цикл
пользовСфайла = файл_Т.ПолучитьСтроку(квоСтрок);
Если пользовСфайла <> ИмяПользователя() Тогда
квоСтрок=квоСтрок+1;
Продолжить;
Иначе
файл_Т.УдалитьСтроку(квоСтрок);
квоСтрок=квоСтрок+1;
КонецЕсли;
КонецЦикла;
КонецЕсли;
файл_Т.ДобавитьСтроку(ИмяПользователя()) ;
файл_Т.Записать(имя_файла_с_акт_польз);
КонецПроцедуры
Процедура ОтключитьПользоватлей_Ром()
файл_В = СоздатьОбъект("Текст");
Попытка
файл_В.Открыть(имя_файла_с_Викл_польз);
Исключение
КонецПопытки;
Для КолСтр=1 По файл_В.КоличествоСтрок() Цикл
стр_с_файла=СокрЛП(файл_В.ПолучитьСтроку(КолСтр));
пользовСФайла = Лев(стр_с_файла,Найти(стр_с_файла,"***")-1);
статусОтключения = Лев(Сред(стр_с_файла,Найти(стр_с_файла,"***")+3),1);
флагСохранения = Прав(Лев(Сред(стр_с_файла,Найти(стр_с_файла,"***")+3),2),1);
ЧтоСКопДелаем = Прав(Лев(Сред(стр_с_файла,Найти(стр_с_файла,"***")+3),3),1);
КолОбращений = Прав(Лев(Сред(стр_с_файла,Найти(стр_с_файла,"***")+3),4),1);
сообщение = Прав(Лев(Сред(стр_с_файла,Найти(стр_с_файла,"***")+3),5),1);
ТекстСообщения = Лев(Сред(стр_с_файла,Найти(стр_с_файла,"|")+1),1000);
отКого = Сред(стр_с_файла,Найти(стр_с_файла,"\")+1,Найти(стр_с_файла,"|")-Найти(стр_с_файла,"\")-1);
Если (СокрЛП(пользовСФайла) = ИмяПользователя()) Тогда
ЧтоСделатьСюзвером_Ром(статусОтключения,флагСохранения,ЧтоСКопДелаем,КолОбращений,сообщение,ТекстСообщения,отКого);
Прервать;
КонецЕсли;
КонецЦикла;
КонецПроцедуры






2)
Процедура ПриЗавершенииРаботыСистемы()
****************
***
***
СделатьЗавершения_Ром=1;
Если Вопрос("Вы действительно хотите выйти из программы?",4,10) =7 Тогда
СделатьЗавершения_Ром=0;
СтатусВозврата(0);
КонецЕсли;
Если СделатьЗавершения_Ром=1 Тогда
ЗавершенияРаботи_РОМ(2);
КонецЕсли;

КонецПроцедуры




3)

Процедура ПриНачалеРаботыСистемы()

***************
****
**

НачалоРаботи_Ром();
ОбработкаОжидания("ОтключитьПользоватлей_Ром",5);
КонецПроцедуры


4)
и в самом конце глобальника

имя_файла_с_Викл_польз = КаталогИБ()+"ExtForms/управления_пользователями_Ром/"+"выкл_польз.rom";
имя_файла_с_акт_польз = КаталогИБ()+"ExtForms/управления_пользователями_Ром/"+"актив_польз.rom";
ТекущееКоличествоОбращений=0;

5) Каталог управления_пользователями_Ром положить в КаталогИБ()+"ExtForms;


3. ROM_1C 691 19.01.09 14:18 Сейчас в теме
Качают... а комментариев не вижу:((
4. eazy123 22.01.09 03:26 Сейчас в теме
более 90 человек скачало и не дает комментариев? это же хорошо! значит все правильно написал. ))
5. aka AMIGO 60 22.01.09 08:56 Сейчас в теме
После команды выключения компа (вместе с моим :) ) список пользователей в актив_польз.rom не обновился/не обнулился.
потому в окне користувачы :) в статусе отмечен зеленым пользователь, которого уже нет в БД.
пришлось чистить этот файл.
PS/ что такое "Запит" ? "Запитання"?
9. ROM_1C 691 22.01.09 13:40 Сейчас в теме
(5) после выключения компа - выключился ваш... наверно вы работаете по терменале, а не по сети... посмотрю еще раз...
(6) а "Тз" спрятана по тому, что она первая.. а ТЗ з пользователями - вторая на форме..
если Тз стоит первая, то разворачивается на весь экран.. а вторая - нет!
вот и потому и не использую первою...
6. aka AMIGO 60 22.01.09 09:25 Сейчас в теме
+5 ROM, под "Тз" спрятана "Таблица [значений]" которая не используется в модуле.
Похоже, она не нужна, её можно выкинуть.
7. Fisherru 78 22.01.09 09:59 Сейчас в теме
Ээээ,
а нельзя ли русифицировать, а то не всё интуитивно понятно ?
8. AnSk 22.01.09 10:21 Сейчас в теме
Запит - Запрос
Запитання - Вопрос
aka AMIGO; +1 Ответить
10. Vadik 22.01.09 13:50 Сейчас в теме
а где же само описание установки?
11. ROM_1C 691 22.01.09 13:57 Сейчас в теме
(10) в описании обработки....
12. Vadik 22.01.09 13:59 Сейчас в теме
Странно... но я почему-то не вижу описания обработки... скачивается только сама обработка...
14. Vadik 22.01.09 14:08 Сейчас в теме
18. aka AMIGO 60 22.01.09 14:31 Сейчас в теме
(14) Установка в закладке "Описание":
http://s40.radikal.ru/i089/0901/a6/98140eedcf36.jpg

ROM: вот про эту Таблицу я говорил:
http://s56.radikal.ru/i153/0901/2e/3eb6e3e23bce.jpg
20. ROM_1C 691 22.01.09 14:36 Сейчас в теме
(18)
aka AMIGO, эта Тз - навидима.. ее можно и удалить.. а нужна для того, чтобы втора я не развертувалась на весь экран!
21. Shaman100M 1150 28.01.09 08:37 Сейчас в теме
(20) В свойствах формы для этого снимается галочка.
15. ROM_1C 691 22.01.09 14:10 Сейчас в теме
Прошу описания глюков и предложений по разработке.. заранье благодарен..
16. aka AMIGO 60 22.01.09 14:15 Сейчас в теме
Спасибо, ROM! успехов тебе :)
17. Vadik 22.01.09 14:21 Сейчас в теме
м все таки было бы не плохо, перевести на русский все, а так очень полезная обработочка
19. ROM_1C 691 22.01.09 14:33 Сейчас в теме
(17)на днях переведу на русский.. а кому не терпится - используйтесь, например http://pereklad.online.ua/
22. ROM_1C 691 28.01.09 10:08 Сейчас в теме
23. Khaled 1 28.01.09 17:17 Сейчас в теме
Я уже сделал русский вариант + рус. редми. Жду отклика от автора.
24. ROM_1C 691 28.01.09 18:53 Сейчас в теме
Khaled, спасибо!
За несколько дней выложу оновленую версию с большими возможностями (такие как "надоедать бухгалтеру за неоплачевану работу ", и прочее....)
ждите!
25. asterisk 42 05.02.09 15:31 Сейчас в теме
строку 35 Если Тз.Вибрать = 4 Тогда
заменить на Если Тз.Выбрать = 4 Тогда
Спасибо обработка очень полезна
26. ROM_1C 691 05.02.09 17:08 Сейчас в теме
asterisk, ошибки при переводе! недосмотрели! исправил!
27. pupkinSana 108 11.02.09 08:09 Сейчас в теме
Интересно, а если нельзя отключать компьютер юзверя, а у него в окне 1С светится модальное окно? Все пропало? так и будет висеть?
28. ROM_1C 691 11.02.09 10:47 Сейчас в теме
pupkinSana, такие случаи не часто бывают... но бывают...
используйте кнопку выключения компютера!!! пусть знают....
29. saleg_20 3 26.02.09 10:55 Сейчас в теме
30. saleg_20 3 26.02.09 10:57 Сейчас в теме
31. NikM 03.03.09 12:42 Сейчас в теме
Ещё бы базу блокировать ;)
32. ROM_1C 691 03.03.09 14:44 Сейчас в теме
(31) а монопольной режим для чего?
33. NikM 03.03.09 15:45 Сейчас в теме
(32) Ну например, выгнал всех из базы, запустил конфигуратор, но не успел нажать на кнопку выгрузки, а кто-то опять зашел. Ежели народу много - я тупо подключения к серваку запрещаю. Но это же на все базы действует.
34. Craig 274 15.07.09 09:16 Сейчас в теме
(33) Выгнал всех из базы, тупо переименовал папочку и не кто не сможет подключиться на период твоего колдовства ;-) и другие базы целы. Примитивно, но эффективно
(0) А у меня к автору вопрос, а возможно такое реализовать без затрагивания глобального модуля!?

35. ROM_1C 691 15.07.09 14:16 Сейчас в теме
(34) только с использованием какойто внешней компонеты...
36. Hai4 22.06.11 12:09 Сейчас в теме
вашу машу, а в описании нельзя было пояснить, что там еще описание установки надо качать - а то с ИС 1 раз в сутки дает скачивать.
37. volamm 6 14.07.11 17:49 Сейчас в теме
Инструкция к установке в самом файле ert есть на вкладке "описание"
38. marsohod 123 26.08.11 15:27 Сейчас в теме
Это даже не выгонялка, а вырубалка :)
злобные одмины одобряют :)
39. aleksey51286 21.09.11 10:41 Сейчас в теме
40. ROM_1C 691 21.09.11 11:08 Сейчас в теме
(40) Все работает. Ищите у себя ошибку.
41. Sergey_Murzinov 04.10.11 23:11 Сейчас в теме
Пользусь достаточно давно, удобная весчь
42. andyrk1 13 19.10.11 16:50 Сейчас в теме
Спасибо, полезная обработка
43. Dansur 261 26.06.13 08:18 Сейчас в теме
Чтото на терминале не работает. win2003 sp2 x32 xeon. права одминские.
44. vitunchik 27 28.08.13 10:19 Сейчас в теме
Установил по инструкции,а пользователей вырубает только последняя кнопка справа и то с запросом
45. vitunchik 27 28.08.13 10:20 Сейчас в теме
SWbemObjectEx: Общая ошибка на других кнопках выкидывает такую ошибку
Оставьте свое сообщение