IRdsDictionaryConverter.AllDictionary

Синтаксис Fore

AllDictionary(Source: IRdsDictionary): IRdsDictionaryConverterList;

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

AllDictionary(Source: Prognoz.Platform.Interop.Rds.IRdsDictionary): Prognoz.Platform.Interop.Rds.IRdsDictionaryConverterList;

Параметры

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

Описание

Свойство AllDictionary возвращает список справочников НСИ, преобразованных в табличные справочники НСИ.

Комментарии

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

Пример Fore

Для выполнения примера предполагается наличие справочника НСИ с ключом «16012».

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

Sub UserProc;
Var
    RDS: IRdsDictionary;
    Converter: IRdsDictionaryConverter;
    List: IRdsDictionaryConverterList;
    NotConv: IMetabaseObjectDescriptors;
    pReasons: IRdsNotConvertibleReasons;
    i, j: Integer;
    strs: Array Of String;
Begin
    RDS := MetabaseClass.Active.Bind(16012) As IRdsDictionary;
    Converter := New RdsDictionaryConverter.Create;
    List := Converter.AllDictionary(RDS);
    NotConv := List.NotConvertibleDictionaries;
    For i := 0 To NotConv.Count - 1 Do
        pReasons := List.GetNotConvertibleReasons(NotConv.Item(i).Key);
        strs := pReasons.GetExplanation;
        For j := 0 To strs.Length - 1 Do
            Debug.WriteLine(strs[j]);
        End For;
    End For;
End Sub UserProc;

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    RDS: IRdsDictionary;
    Converter: IRdsDictionaryConverter;
    List: IRdsDictionaryConverterList;
    NotConv: IMetabaseObjectDescriptors;
    pReasons: IRdsNotConvertibleReasons;
    i, j: Integer;
    strs: System.Array;
Begin
    RDS := Params.Metabase.Bind(16012) As IRdsDictionary;
    Converter := New RdsDictionaryConverter.Create();
    List := Converter.AllDictionary[RDS];
    NotConv := List.NotConvertibleDictionaries;
    For i := 0 To NotConv.Count - 1 Do
        pReasons := List.GetNotConvertibleReasons(NotConv.Item[i].Key);
        strs := pReasons.GetExplanation();
        For j := 0 To strs.Length - 1 Do
            System.Diagnostics.Debug.WriteLine(strs[j]);
        End For;
    End For;
End Sub;

См. также:

IRdsDictionaryConverter