|
Выгрузить Журнал Регистрации в таблицу значений | ☑ | ||
---|---|---|---|---|
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
|
собственно я не отвечал ... наоборот спросил ...
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |