IRdsDictionaryElementData.RecordO

Fore Syntax

RecordO(Options: Variant): ;

Fore.NET Syntax

RecordO[Options: object]: Prognoz.Platform.Interop.Orm.IOrmRecord;

Parameters

Options. Determines variant of returned data.

Description

The RecordO property returns element attribute data according to parameter set as an object implemented by the IOrmRecord interface.

Comments

The Options parameter determines variant of returned data. Available values:

0. The RecordO property works as the IRdsDictionaryElementData.Record property and returns displayed attribute values.
1. The RecordO property returns values of attributes, which are in the table that is the dictionary data source.

Fore Example

Executing the example requires that the repository contains an MDM table dictionary with the DIM identifier.

Add links to the Metabase, Orm and Rds system assemblies.

Sub UserProc;
Var
    DictInst: IRdsDictionaryInstance;
    Elem: IRdsDictionaryElement;
Begin
    DictInst := MetabaseClass.Active.ItemById("DIM").Open(Null) As IRdsDictionaryInstance;
    DictInst.FetchAll:=True;
    Elem := DictInst.Elements.Item(1);
    Debug.WriteLine("Displayed attribute value: " + Elem.RecordO(0).AttributeValue(4));
    Debug.WriteLine("Attribute value in dictionary table: "
        + Elem.RecordO(1).AttributeValue(4));
End Sub UserProc;

After executing the example the second record of the dictionary will be obtained. The console window displays information about displayed value of the specified attribute and the attribute value in dictionary table.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Orm;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    DictInst: IRdsDictionaryInstance;
    Elem: IRdsDictionaryElement;
Begin
    DictInst := Params.Metabase.ItemById["DIM"].Open(Null) As IRdsDictionaryInstance;
    DictInst.FetchAll:=True;
    Elem := DictInst.Elements.Item[1];
    System.Diagnostics.Debug.WriteLine("Attribute displayed value: " + Elem.RecordO[0].AttributeValue[4]);
    System.Diagnostics.Debug.WriteLine("Attribute value in dictionary table: "
        + Elem.RecordO[1].AttributeValue[4]);
End Sub;