IRubricatorRevision.IsLabel

Syntax

IsLabel: Boolean;

Description

The IsLabel property returns whether an object is a label. True - object is a revision label, False - object is a revision.

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.