36
Рейтинг

Много уже было постов на тему "разрыв сеансов", "автоматическая выгрузка" и т.д. Этот скрипт объединяет завершение сеансов через COM объект и выгрузку базы данных. Скрипт написан на AutoIt v3.

1 стартмани

25.01.2012 6165 63 endryu 3

Создание пользователя ИБ по образцу
+14 –

Инструменты и обработки Системный администратор Программист Платформа 1С v8.3 1С:Управление производственным предприятием Россия Абонемент ($m) Внешняя обработка (ert,epf) Информационная безопасность

Обработка для полного копирования пользователей, включая роли, группы, настройки и дополнительные права. Пригодится для принятия на работу сотрудников одного отдела или цеха, где учетные записи различаются лишь по имени пользователя.

1 стартмани

25.01.2012 6245 101 endryu 18

Смотреть все

Код
Перем СтатусВремя; ... ... ... Процедура ПрогрессБарСброс(СтТекст="") //Сбрасывает прогресбар с статус строке //При указании параметра - устанавливаем текстовое значение прогресс бара СтатусРасшифровка = СтТекст; СтатусИтерация=0; СтатусМаксимум=0; СтатусВремя = ТекущаяДата(); Состояние(""); КонецПроцедуры Процедура ПрогрессБар(ДобавитьИтерацию=1,ДобавитьМаксимум=0) //шаг итерации // ПрогрессБар() - увеличивает шаг на 1 // ПрогрессБар(0,Максимальное значение) - устанавливает максимум для значения прогресс бара СтатусИтерация=СтатусИтерация+ДобавитьИтерацию; СтатусМаксимум=СтатусМаксимум+ДобавитьМаксимум; Если (ТекущаяДата()-СтатусВремя)>1 тогда СтатусВремя = ТекущаяДата(); СтатусСтрока(); КонецЕсли; КонецПроцедуры

Перем СтатусВремя;
...
...
...
Процедура ПрогрессБарСброс(СтТекст="") //Сбрасывает прогресбар с статус строке
//При указании параметра - устанавливаем текстовое значение прогресс бара
   СтатусРасшифровка = СтТекст;
   СтатусИтерация=0;
   СтатусМаксимум=0;
   СтатусВремя = ТекущаяДата();
   Состояние("");   
КонецПроцедуры
Процедура ПрогрессБар(ДобавитьИтерацию=1,ДобавитьМаксимум=0) //шаг итерации
// ПрогрессБар() - увеличивает шаг на 1
// ПрогрессБар(0,Максимальное значение) - устанавливает максимум для значения прогресс бара
   СтатусИтерация=СтатусИтерация+ДобавитьИтерацию;
   СтатусМаксимум=СтатусМаксимум+ДобавитьМаксимум;
   Если (ТекущаяДата()-СтатусВремя)>1 тогда
      СтатусВремя = ТекущаяДата();
      СтатусСтрока();      
   КонецЕсли;
КонецПроцедуры

Вот так будет выводить раз в секунду. А выводить каждую N-нную итерацию считаю не верным, ибо цикл может работать по 10-20 секунд один обход, а может и долю секунды.

Dev › Прогресс бар в статус строке для неуправляемых форм › #0 03.04.14 9:40

Мой вариант реализации прогресс бара в статусной строке для неуправляемых форм 1С 8.х

Admin › Создание пользователя ИБ по образцу › #9 26.01.12 16:15

(8) Altair777, есть, но мы не используем его для учетной записи в базе. Да и какой смысл его копировать?

Admin › Создание пользователя ИБ по образцу › #5 26.01.12 6:49

(4) kapustinag, да, есть в планах изменение существующего пользователя по образцу, займусь как время после обновления появиться.

Admin › Удаление активных сеансов и выгрузка ИБ v8 › #0 25.01.12 18:11

Admin › Создание пользователя ИБ по образцу › #3 25.01.12 17:37

(2) sils, Извеняюсь, забыл уточнить - тестил на УПП 8.2

Admin › Создание пользователя ИБ по образцу › #0 25.01.12 16:58

36 Рейтинг

endryu Роман Даньшин

Рейтинг 36

Прогресс бар в статус строке для неуправляемых форм +14 –

Удаление активных сеансов и выгрузка ИБ v8 +8 –

Создание пользователя ИБ по образцу +14 –

Комментарии

36
Рейтинг

endryu
Роман Даньшин

Прогресс бар в статус строке для неуправляемых форм
+14 –

Удаление активных сеансов и выгрузка ИБ v8
+8 –

Создание пользователя ИБ по образцу
+14 –