Имя: Пароль:
1C
1С v8
Выгрузить Журнал Регистрации в таблицу значений
0 Вася Чез
 
04.07.13
06:17
В 8.2 появилась возможность выгружать ЖР в ТЗ, решил заюзать эту возможность, но что-то примеров не нагуглил подобных.
Вот немного кода, чтобы было понятно чего я хочу, поставил два флажка, в одном случае(ВыгрузитьВФайл=Истина) ЖР выгружаю в Xml для последующей загрузки, в другом случае (ОтобразитьОтчет=Истина) хочу выгрузить ЖР в ТЗ.

//выбор пользователей из группы
   Кадровики = Справочники.Пользователи.НайтиПоНаименованию("Кадровики");
   Запрос = Новый Запрос;
   Запрос.Текст =
       "ВЫБРАТЬ
       |    Пользователи.Ссылка
       |ИЗ
       |    Справочник.Пользователи КАК Пользователи
       |ГДЕ
       |    НЕ Пользователи.ЭтоГруппа
       |    И Пользователи.Ссылка В ИЕРАРХИИ(&Кадровики)";

   Запрос.УстановитьПараметр("Кадровики", Кадровики );
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
           
   //Массив пользователей
   МассивПользователей = Новый Массив;
   
   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
           МассивПользователей.Добавить(ВыборкаДетальныеЗаписи.Ссылка.Наименование);
   КонецЦикла;

   //Массив Событий, сейчас только добавление
   МассивСобытий = Новый Массив;
   МассивСобытий.Добавить("_$Data$_.New");
       
   //Массив Метаданных
   МассивМетаданных = Новый Массив;
   МассивМетаданных.Добавить(Метаданные.Документы.ПриемНаРаботуВОрганизацию);
   МассивМетаданных.Добавить(Метаданные.Документы.УвольнениеИзОрганизаций);
   МассивМетаданных.Добавить(Метаданные.Документы.КадровоеПеремещениеОрганизаций);
   МассивМетаданных.Добавить(Метаданные.Документы.ОтпускаОрганизаций);
   МассивМетаданных.Добавить(Метаданные.Документы.ОтзывИзОтпуска);
   МассивМетаданных.Добавить(Метаданные.Документы.НеявкиИБолезниОрганизаций);
   МассивМетаданных.Добавить(Метаданные.Документы.ВозвратНаРаботуОрганизаций);
       
   //Строим свой фильтр
   Фильтр = Новый Структура("ДатаНачала, ДатаОкончания, Пользователь, Событие, Метаданные");
   Фильтр.ДатаНачала = НачПериода;
   Фильтр.ДатаОкончания = КонПериода;
   Фильтр.Пользователь = МассивПользователей;
   Фильтр.Событие = МассивСобытий;
   Фильтр.Метаданные = МассивМетаданных;
           
   //Выгружаем
   
   //выгрузка в Xml
   Если ВыгрузитьВФайл Тогда
        ВыгрузитьЖурналРегистрации(ВыходнойФайл, Фильтр, "Дата, ИмяПользователя, Событие, Метаданные, Данные, ПредставлениеДанных");
   КонецЕсли;

   //отобразить отчет
   
   Если ОтобразитьОтчет Тогда
       
   ТаблицаЗначений = Новый ТаблицаЗначений;
   ТаблицаЗначений.Колонки.Добавить("Дата");
   ТаблицаЗначений.Колонки.Добавить("ИмяПользователя");
   ТаблицаЗначений.Колонки.Добавить("Событие");
   ТаблицаЗначений.Колонки.Добавить("Метаданные");
   ТаблицаЗначений.Колонки.Добавить("Данные");
   ТаблицаЗначений.Колонки.Добавить("ПредставлениеДанных");
   ВыгрузитьЖурналРегистрации(ТаблицаЗначений, Фильтр, "Дата, ИмяПользователя, Событие, Метаданные, Данные, ПредставлениеДанных");

   КонецЕсли;

Соответственно, в колонки у меня выгружаются строки("Дата","Имя пользователя" и т.д.), что естественно, а как в колонки выгрузить данные из ЖР? Знаю вопрос тупой, но что-то не выходит у меня каменный цветок.
1 skunk
 
04.07.13
07:21
не понял какие проблемы http://s018.radikal.ru/i519/1307/06/b19d373c5042.png
2 Вася Чез
 
04.07.13
07:28
закрывайте тему, (1) спасибо за ответ на тупой вопрос
3 skunk
 
04.07.13
07:32
собственно я не отвечал ... наоборот спросил ...
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn