Допустимые форматы
экспортаStartBatchCommand(FileName: String; FormatTag: String);
Отсутствует;
FileName. Наименование файла, в который будет выполнен экспорт;.
FormatTag. Формат файла, в который будет выполнен экспорт.
Метод StartBatchCommand начитает пакетный экспорт аналитических панелей в файл указанного формата.
Пакетный экспорт позволяет экспортировать в один файл несколько аналитических панелей.
Для выполнения пакетного экспорта:
Вызовите метод StartBatchCommand.
Задайте экспортируемую панель в свойстве IAdhocReportExporter.AdhocReport.
Вызовите метод IAdhocReportExporter.ExportToFile, унаследованный от IExporter.ExportToFile.
Повторяйте шаги 2 и 3 до тех пор, пока не будут экспортированы все требуемые аналитические панели.
Вызовите метод IAdhocReportExporter.FinishBatchCommand.
Для выполнения примера предполагается наличие формы, содержащей компонент MetabaseOpenDialog с идентификатором «MetabaseOpenDialog1».
Добавьте ссылку на системную сборку Adhoc.
Sub UserProc;
Var
Filter: IMetabaseDialogClassFilter;
Objects: IMetabaseObjectDescriptorList;
Exp: AdhocReportExporter;
i, Count: integer;
id: String;
Begin
MetabaseOpenDialog1.MultiSelect := True;
// Создаем фильтр для открытия только аналитических панелей
Filter := New MetabaseDialogClassFilter.Create;
Filter.Description := "Аналитические панели";
Filter.ObjectClass := MetabaseObjectClass.KE_ADHOC_REPORT;
MetabaseOpenDialog1.Filters.AddFilter(Filter);
// Вызываем диалог открытия аналитических панелей
If MetabaseOpenDialog1.Execute(Self) Then
Objects := MetabaseOpenDialog1.Objects;
Count := Objects.Count;
// Начало пакетного экспорта выбранных аналитических панелей в формат PDF
Exp := New AdhocReportExporter.Create;
Exp.StartBatchCommand("C:\Аналитические панели.pdf", "PDF");
For i := 0 To Count - 1 Do
id := Objects.Item(i).Id;
Exp.AdhocReport := MetabaseClass.Active.ItemById(id).Bind As IAdhocReport;
Exp.ExportToFile("", "PDF");
Debug.WriteLine("Отчет '" + Objects.Item(i).Name + "' экспортирован");
End For;
// Окончание пакетного экспорта аналитических панелей
Exp.FinishBatchCommand;
End If;
End Sub UserProc;
В результате выполнения примера будет открыт диалог для выбора аналитических панелей. Выбранные панели будут экспортированы в файл «C:\Аналитические панели.pdf», сообщения о ходе экспорта будут выведены в окно консоли.
См. также: