IRdsDictionaryConverter.Convert

Синтаксис Fore

Convert(Source: IRdsDictionary): IRdsDictionary;

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

Convert(Source: Prognoz.Platform.Interop.Rds.IRdsDictionary): Prognoz.Platform.Interop.Rds.IRdsDictionary;

Параметры

Source. Преобразуемый справочник НСИ.

Описание

Метод Convert выполняет преобразование справочника НСИ в табличный справочник НСИ.

Пример Fore

Для выполнения примера в репозитории предполагается наличие репозитория НСИ с идентификатором «RDS», содержащим справочник НСИ с идентификатором «DICT».

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

Sub UserProc;
Var
    MB: IMetabase;
    RdsKey: Integer;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Converter: IRdsDictionaryConverter;
    Result: IRdsDictionary;
Begin
    MB := MetabaseClass.Active;
    RdsKey := MB.GetObjectKeyById("RDS");
    MObj := MB.ItemByIdNamespace("DICT", RdsKey).Bind;
    Dict := MObj As IRdsDictionary;
    Converter := New RdsDictionaryConverter.Create;
    result := Converter.Convert(Dict);
End Sub UserProc;

После выполнения примера справочник НСИ будет преобразован в табличный справочник НСИ.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Rds;
…
[STAThread]
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    RdsKey: uinteger;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Converter: IRdsDictionaryConverter;
    Result: IRdsDictionary;
Begin
    MB := Params.Metabase;
    RdsKey := MB.GetObjectKeyById("RDS");
    MObj := MB.ItemByIdNamespace["DICT", RdsKey].Bind();
    Dict := MObj As IRdsDictionary;
    Converter := New RdsDictionaryConverter.Create();
    result := Converter.Convert(Dict);
End Sub;