ITabSheet.SaveStyleSheetToXml

Синтаксис Fore

SaveStyleSheetToXml(pStyleSheet: IStyleSheet): String;

Синтаксис Fore.NET

SaveStyleSheetToXml(pStyleSheet: Prognoz.Platform.Interop.Drawing.StyleSheetClass): string;

Параметры

pStyleSheet. Коллекция стилей оформления таблицы, которую нужно сохранить.

Описание

Метод SaveStyleSheetToXml сохраняет коллекцию стилей оформления таблицы в строку формата XML.

Комментарии

Для загрузки коллекции стилей оформления таблицы из строки в формате XML используйте метод ITabSheet.LoadStyleSheetFromXml.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «REG_REPORT_TAB», содержащего подключенные внешние стили.

Добавьте ссылки на системные сборки: Drawing, Metabase, Report, Tab, Xml.

Sub UserProc;
Var
    mb: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Style: IStyleSheet;
    StyleXml: String;
    XML: FreeThreadedDOMDocument60;
Begin
    mb := MetabaseClass.Active;
    // Получаем регламентный отчет
    Report := mb.ItemById("REG_REPORT_TAB").Bind As IPrxReport;
    // Получаем коллекцию стилей таблицы
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Style := Tab.StyleSheet;
    // Сохраняем коллекцию стилей таблицы в файл формата XML
    StyleXml := Tab.SaveStyleSheetToXml(Style);
    XML := New FreeThreadedDOMDocument60.Create;
    XML.loadXML(StyleXml);
    XML.save("C:\StyleSheet.xml");
End Sub UserProc;

В результате выполнения примера коллекция стилей таблицы с активного листа отчета будет выгружена в файл «C:\StyleSheet.xml» в формате XML.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.MsXml2;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Report: IPrxReport;
    Tab: ITabSheet;
    Style: StyleSheetClass;
    StyleXml: String;
    XML: FreeThreadedDOMDocument60;
Begin
    mb := Params.Metabase;
    // Получаем регламентный отчет
    Report := mb.ItemById["REG_REPORT_TAB"].Bind() As IPrxReport;
    // Получаем коллекцию стилей таблицы
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Style := Tab.StyleSheet;
    // Сохраняем коллекцию стилей таблицы в файл формата XML
    StyleXml := Tab.SaveStyleSheetToXml(Style);
    XML := New FreeThreadedDOMDocument60.Create();
    XML.loadXML(StyleXml);
    XML.save("C:\StyleSheet.xml");
End Sub;

См. также:

ITabSheet