IRubricatorRecord.Key

Syntax

Key: Integer;

Description

The Key property returns record key.

Example

Executing the example requires a time series database with the OBJ_RUBRICATOR identifier.

Sub Main;

Var

MB: IMetabase;

RubDesc: IMetabaseObjectDescriptor;

RubrIn: IRubricatorInstance;

RubrRev: IRubricatorRevision;

Begin

MB := MetabaseClass.Active;

RubDesc := MB.ItemById("OBJ_RUBRICATOR");

RubrIn := RubDesc.Open(Null) As IRubricatorInstance;

RubrRev := RubrIn.OpenRevision(Revision);

RubrRev.Name := RubrRev.Name + " №1";

RubrRev.ObjectKey := 1;

RubrRev.Comment := New revision;

RubrRev.Save;

Debug.WriteLine(Date: + RubrRev.Stamp.ToString);

Debug.WriteLine(Label : + RubrRev.IsLabel.ToString);

Debug.WriteLine(User: + RubrRev.UserName);

Debug.WriteLine(Revision key: + RubrRev.Key.ToString);

End Sub Main;

After executing the example a revision named Revision#1, with the New Revision comment, is created and saved for the time series database. Information on the revision is displayed in the console window.