ICalendarSetup.SaveToXml

Синтаксис Fore

SaveToXml(Element: Variant);

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

SaveToXml(Element: object);

Параметры

Element. Объект, в который будут сохранены параметры календаря в виде XML-кода.

Описание

Метод SaveToXml выполняет выгрузку параметров календаря в XML-код.

Пример Fore

Для выполнения примера предполагается наличие календарного справочника с идентификатором «CALENDARSETUP». Добавьте ссылки на системные сборки «Dimensions», «Metabase», «Xml».

Sub UserProc;
Var
    mb: IMetabase;
    Calendar: ICalendarDimension;
    CalendDimInst: IDimInstance;
    DynamicCalendInst: IDynamicCalendarInstance;
    Setup: ICalendarSetup;
    Node: IXmlDomElement;
    DestXML: FreeThreadedDOMDocument60;
Begin
    mb := MetabaseClass.Active;
    Calendar := mb.ItemById("CALENDARSETUP").Bind As ICalendarDimension;
    CalendDimInst := Calendar.OpenAs(CalendarOpenType.Flat);
    DynamicCalendInst := CalendDimInst As IDynamicCalendarInstance;
    Setup := DynamicCalendInst.NewSetup;
    DestXML := New FreeThreadedDOMDocument60.Create;
    Node := DestXML.createElement("Root");
    DestXML.appendChild(Node);
    Setup.SaveToXml(Node);
    DestXML.save("C:\CalendarSetup.xml");
End Sub UserProc;

После выполнения примера настройки по умолчанию для календарного справочника «CALENDARSETUP» будут сохранены в XML-документ «C:\CalendarSetup.xml».

Пример Fore.NET

Для выполнения примера предполагается наличие календарного справочника с идентификатором «CALENDARSETUP».

Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.MsXml2;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Calendar: ICalendarDimension;
    CalendDimInst: IDimInstance;
    DynamicCalendInst: IDynamicCalendarInstance;
    Setup: ICalendarSetup;
    Node: IXmlDomElement;
    DestXML: FreeThreadedDOMDocument60;
Begin
    mb := Params.Metabase;
    Calendar := mb.ItemById["CALENDARSETUP"].Bind() As ICalendarDimension;
    CalendDimInst := Calendar.OpenAs(CalendarOpenType.caoptyFlat);
    DynamicCalendInst := CalendDimInst As IDynamicCalendarInstance;
    Setup := DynamicCalendInst.NewSetup();
    DestXML := New FreeThreadedDOMDocument60.Create();
    Node := DestXML.createElement("Root");
    DestXML.appendChild(Node);
    Setup.SaveToXml(Node);
    DestXML.save("C:\CalendarSetup.xml");
End Sub;

См. также:

ICalendarSetup