Имя: Пароль:
1C
1С v8
Как узнать какие процессы, которые происходили в конфе в определенное время?
0 new1snik
 
14.08.13
12:17
Как узнать какие процессы, которые происходили в конфе в определенное время? Например, ровно час назад.
1 Mitriy
 
14.08.13
12:17
делать принскрины...
2 rbcvg
 
14.08.13
12:17
Журнал регистрации?
3 fisher
 
14.08.13
12:18
Примеры "процессов"?
4 Wobland
 
14.08.13
12:19
дарю

    ИмяФайла=ПолучитьИмяВременногоФайла("XML");
    Результат.Очистить();
    Фильтр=Новый Структура;
    Фильтр.Вставить("ДатаНачала", НачалоПериода);
    Фильтр.Вставить("ДатаОкончания", ОкончаниеПериода);
    Фильтр.Вставить("Событие", "_$Data$_.Post");
    Состояние("Выгрузка журнала...");
    ВыгрузитьЖурналРегистрации(ИмяФайла, Фильтр, "Дата, Метаданные, Данные, ПредставлениеДанных, ИмяПользователя");
    Состояние("Обработка журнала...");
    ЧтениеXML=Новый ЧтениеXML;
    ЧтениеXML.ОткрытьФайл(ИмяФайла);
    ПостроительDOM=Новый ПостроительDOM;
    ДокументDOM=ПостроительDOM.Прочитать(ЧтениеXML);
    Event=ДокументDOM.ПолучитьЭлементыПоИмени("v8e:Event");
    Для й=0 По Event.Количество()-1 Цикл
        ДочерниеУзлы=Event[й].ДочерниеУзлы;
        Для Каждого Узел Из ДочерниеУзлы Цикл
            Если Узел.ИмяУзла="v8e:Date" Тогда
                ДатаСобытия=СтрЗаменить(Узел.ТекстовоеСодержимое, "T", "");
                ДатаСобытия=СтрЗаменить(ДатаСобытия, ":", "");
                ДатаСобытия=Дата(СтрЗаменить(ДатаСобытия, "-", ""));
            ИначеЕсли Узел.ИмяУзла="v8e:MetadataName" Тогда
                МетаданныеДокумента=СтрЗаменить(Узел.ТекстовоеСодержимое, "Document.", "");
            ИначеЕсли Узел.ИмяУзла="v8e:Data" Тогда
                УИД=Узел.ТекстовоеСодержимое;
            ИначеЕсли Узел.ИмяУзла="v8e:DataPresentation" Тогда
                ПредставлениеДанных=Узел.ТекстовоеСодержимое;
            ИначеЕсли Узел.ИмяУзла="v8e:UserName" Тогда
                Пользователь=Узел.ТекстовоеСодержимое;
            КонецЕсли;
        КонецЦикла;
        Ссылка=Документы[МетаданныеДокумента].ПолучитьСсылку(Новый УникальныйИдентификатор(УИД));
        ДатаОбъекта=Ссылка.Дата;
        
        НоваяСтрока=Результат.Добавить();
        НоваяСтрока.ДатаСобытия=ДатаСобытия;
        НоваяСтрока.ДатаОбъекта=ДатаОбъекта;
        НоваяСтрока.ПредставлениеДанных=ПредставлениеДанных;
        НоваяСтрока.Пользователь=Пользователь;
        НоваяСтрока.РазностьДат=Окр((ДатаСобытия-ДатаОбъекта)/86400);
        НоваяСтрока.Ссылка=Ссылка;
    КонецЦикла;
5 new1snik
 
14.08.13
12:21
(2) Там действия с документами указаны.
(3) База зависла почему-то, и хотелось бы узнать из-за чего...
6 Maxus43
 
14.08.13
12:21
(5) никак. надо заранее включать например Тех журнал
7 new1snik
 
14.08.13
12:22
(6) Ясно, спасибо.
А тех журнал где находится, если не сложно?
8 Maxus43
 
14.08.13
12:23
9 Cyberhawk
 
14.08.13
12:24
(7) для начала http://www.v8.1c.ru/overview/technologicallog.htm потом (8)
10 new1snik
 
14.08.13
13:06
(8) (9) Спасибо, мужики:)
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn