|
0
Вася Чез
04.07.13
✎
06:17
|
В 8.2 появилась возможность выгружать ЖР в ТЗ, решил заюзать эту возможность, но что-то примеров не нагуглил подобных.
Вот немного кода, чтобы было понятно чего я хочу, поставил два флажка, в одном случае(ВыгрузитьВФайл=Истина) ЖР выгружаю в Xml для последующей загрузки, в другом случае (ОтобразитьОтчет=Истина) хочу выгрузить ЖР в ТЗ.
//выбор пользователей из группы
Кадровики = Справочники.Пользователи.НайтиПоНаименованию("Кадровики");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Пользователи.Ссылка
|ИЗ
| Справочник.Пользователи КАК Пользователи
|ГДЕ
| НЕ Пользователи.ЭтоГруппа
| И Пользователи.Ссылка В ИЕРАРХИИ(&Кадровики)";
Запрос.УстановитьПараметр("Кадровики", Кадровики );
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
//Массив пользователей
МассивПользователей = Новый Массив;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
МассивПользователей.Добавить(ВыборкаДетальныеЗаписи.Ссылка.Наименование);
КонецЦикла;
//Массив Событий, сейчас только добавление
МассивСобытий = Новый Массив;
МассивСобытий.Добавить("_$Data$_.New");
//Массив Метаданных
МассивМетаданных = Новый Массив;
МассивМетаданных.Добавить(Метаданные.Документы.ПриемНаРаботуВОрганизацию);
МассивМетаданных.Добавить(Метаданные.Документы.УвольнениеИзОрганизаций);
МассивМетаданных.Добавить(Метаданные.Документы.КадровоеПеремещениеОрганизаций);
МассивМетаданных.Добавить(Метаданные.Документы.ОтпускаОрганизаций);
МассивМетаданных.Добавить(Метаданные.Документы.ОтзывИзОтпуска);
МассивМетаданных.Добавить(Метаданные.Документы.НеявкиИБолезниОрганизаций);
МассивМетаданных.Добавить(Метаданные.Документы.ВозвратНаРаботуОрганизаций);
//Строим свой фильтр
Фильтр = Новый Структура("ДатаНачала, ДатаОкончания, Пользователь, Событие, Метаданные");
Фильтр.ДатаНачала = НачПериода;
Фильтр.ДатаОкончания = КонПериода;
Фильтр.Пользователь = МассивПользователей;
Фильтр.Событие = МассивСобытий;
Фильтр.Метаданные = МассивМетаданных;
//Выгружаем
//выгрузка в Xml
Если ВыгрузитьВФайл Тогда
ВыгрузитьЖурналРегистрации(ВыходнойФайл, Фильтр, "Дата, ИмяПользователя, Событие, Метаданные, Данные, ПредставлениеДанных");
КонецЕсли;
//отобразить отчет
Если ОтобразитьОтчет Тогда
ТаблицаЗначений = Новый ТаблицаЗначений;
ТаблицаЗначений.Колонки.Добавить("Дата");
ТаблицаЗначений.Колонки.Добавить("ИмяПользователя");
ТаблицаЗначений.Колонки.Добавить("Событие");
ТаблицаЗначений.Колонки.Добавить("Метаданные");
ТаблицаЗначений.Колонки.Добавить("Данные");
ТаблицаЗначений.Колонки.Добавить("ПредставлениеДанных");
ВыгрузитьЖурналРегистрации(ТаблицаЗначений, Фильтр, "Дата, ИмяПользователя, Событие, Метаданные, Данные, ПредставлениеДанных");
КонецЕсли;
Соответственно, в колонки у меня выгружаются строки("Дата","Имя пользователя" и т.д.), что естественно, а как в колонки выгрузить данные из ЖР? Знаю вопрос тупой, но что-то не выходит у меня каменный цветок.
|
|
