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 UserProc;
Var
    MB: IMetabase;
    RubrInst: IRubricatorInstance;
    RubrRev: IRubricatorRevision;
Begin
    MB := MetabaseClass.Active;
    RubrInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    RubrRev := RubrInst.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 UserProc;

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.

See also:

IRubricatorRecord