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