Имя: Пароль:
1C
1С v8
Запрос к журналу регистрации
0 ultrannge89
 
15.07.13
12:42
Дали задание провести контроль учетных записей пользователей 1С, не активных более 3 месяцев удалить. Есть возможность с помощью запроса обратиться к журналу регистрации? Или лучше вручную выгрузить в файл интересующие меня данные а затем программно обрабатывать их?
1 Скай
 
15.07.13
12:44
ВыгрузитьЖурналРегистрации (UnloadEventLog)
2 Скай
 
15.07.13
12:46
Функция ЕстьНедавняяАктивность(Пользователь) Экспорт
   
   ДатаНачала =  УправлениеВзаиморасчетами.ОпределитьДату(НачалоДня(ТекущаяДата()),-2);
   
   ТаблицаАктивности = Новый ТаблицаЗначений;
   
   Фильтр = Новый Структура;
   Фильтр.Вставить("Пользователь", ПользователиИнформационнойБазы.НайтиПоИмени(СокрЛП(Пользователь.Код)));
   Фильтр.Вставить("ДатаНачала", ДатаНачала);
   
   ВыгрузитьЖурналРегистрации(ТаблицаАктивности, Фильтр,,,1);
   
   возврат ТаблицаАктивности.Количество() <> 0;
   
КонецФункции
3 Живой Ископаемый
 
15.07.13
12:46
ну, есть возможность обратится запросом к текстовому файлу? Если есть, то можешь
4 ultrannge89
 
15.07.13
14:07
А как обратиться к событие инициализации сеанса?
Сейчас выходит так:


Процедура КнопкаВыполнитьНажатие(Кнопка)
КонецПериода = НачалоДня(ТекущаяДата());
НачалоПериода = ДобавитьМесяц(НачалоПериода,-3);
Пользователи=ПользователиИнформационнойБазы.ПолучитьПользователей();
СписокПользователей=Новый СписокЗначений;
Массив=Новый Массив;
Для каждого Пользователь из Пользователи Цикл
 Массив.Добавить(Пользователь);
КонецЦикла;

СтруктураФильтра=Новый Структура;
СтруктураФильтра.Вставить("Пользователь",Массив);
СтруктураФильтра.Вставить("ДатаНачала",НачалоПериода);
СтруктураФильтра.Вставить("ДатаОкончания",КонецПериода);
СтруктураФильтра.Вставить("Событие","Данные.Сеанс");
ВыгрузитьЖурналРегистрации("D:\1CLog.xml",СтруктураФильтра,"Дата,Пользователь,Данные");    
   
   
   
КонецПроцедуры