IRdsSortAttributes.SaveTo

Синтаксис Fore

SaveTo(Element: Variant);

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

SaveTo(Element: object);

Параметры

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

Описание

Метод SaveTo сохраняет параметры сортировки значений атрибутов в формате XML.

Пример Fore

Для выполнения примера в репозитории предполагается наличие репозитория НСИ с идентификатором «RDS». Данный репозиторий должен содержать табличный справочник НСИ с идентификатором «D_EXP_IMP», имеющий схемы экспорта.

Добавьте ссылки на системные сборки «Metabase», «Rds», «Xml».

Sub UserProc;
Var
    mb: IMetabase;
    rdsKey: Integer;
    dictObj: IMetabaseObject;
    Dict: IRdsDictionary;
    sExport: IMetaRdsExportSchema;
    dictSort: IRdsSortAttributes;
    Doc: IXmlDomDocument;
    Element: IXmlDomElement;
Begin
    mb := MetabaseClass.Active;
    // Получаем ключ репозитория НСИ
    rdsKey := mb.GetObjectKeyById("RDS");
    // Получаем табличный справочник НСИ
    dictObj := mb.ItemByIdNamespace("D_EXP_IMP", rdsKey).Bind;
    Dict := dictObj As IRdsDictionary;
    // Получаем первую схему экспорта
    sExport := Dict.ExportSchemas.Item(0) As IMetaRdsExportSchema;
    // Получаем параметры сортировки
    dictSort := sExport.SortAttributes;
    // Сохраняем параметры в файл
    Doc := New DOMDocument.Create;
    Element := Doc.createElement("SortAtt");
    dictSort.SaveTo(Element);
    Doc.appendChild(Element);
    Doc.save("C:\SortAtt.xml");
End Sub UserProc;

После выполнения примера параметры сортировки атрибутов в первой схеме экспорта будут сохранены в файл «С:\SortAtt.xml».

Пример Fore.NET

Imports Prognoz.Platform.Interop.MsXml2;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rdsKey: uinteger;
    dictObj: IMetabaseObject;
    Dict: IRdsDictionary;
    sExport: IMetaRdsExportSchema;
    dictSort: IRdsSortAttributes;
    Doc: IXmlDomDocument;
    Element: IXmlDomElement;
Begin
    mb := Params.Metabase;
    // Получаем ключ репозитория НСИ
    rdsKey := mb.GetObjectKeyById("RDS");
    // Получаем табличный справочник НСИ
    dictObj := mb.ItemByIdNamespace["D_EXP_IMP", rdsKey].Bind();
    Dict := dictObj As IRdsDictionary;
    // Получаем первую схему экспорта
    sExport := Dict.ExportSchemas.Item[0] As IMetaRdsExportSchema;
    // Получаем параметры сортировки
    dictSort := sExport.SortAttributes;
    // Сохраняем параметры в файл
    Doc := New DOMDocumentClass.Create();
    Element := Doc.createElement("SortAtt");
    dictSort.SaveTo(Element);
    Doc.appendChild(Element);
    Doc.save("C:\SortAtt.xml");
End Sub;

См. также:

IRdsSortAttributes